Contenido Project

Utils.pm

822	823
8	8	@ISA = qw(Exporter);
9	9	@EXPORT = qw( &eval_config_file
10	10	&dump_config_file
	11	&decode_struct
	12	&encode_struct
11	13	&_mkdir
12	14	&looks_like_id
13	15	&time_unix_to_timestamp
…	…
204	206	my ($from, $to, $str) = @_;
205	207	return Convert::Cyrillic::cstocs($from, $to, $str);
206	208	}
207
208	209
	210	sub encode_struct {
	211	return recode_struct_recursive($_[0], 'encode');
	212	}
	213
	214	sub decode_struct {
	215	return recode_struct_recursive($_[0], 'decode');
	216	}
	217
	218	sub recode_struct_recursive {
	219	my ($struct, $action) = @_;
	220	return unless ref $struct;
	221
	222	my @stack;
	223	if ( ref $struct eq 'HASH' ) {
	224	foreach my $key ( keys %$struct ) {
	225	push @stack, { root => $struct, type => 'hash', key => $key };
	226	}
	227	} elsif ( ref $struct eq 'ARRAY' ) {
	228	for( my $i == 0; $i < scalar @$struct; $i++ ) {
	229	push @stack, { root => $struct, type => 'array', index => $i };
	230	}
	231	} else {
	232	return;
	233	}
	234	while ( @stack ) {
	235	my $data = pop @stack;
	236	if ( $data->{type} eq 'hash' ) {
	237	if ( ref $data->{root}{$data->{key}} eq 'HASH' ) {
	238	foreach my $key ( keys %{$data->{root}{$data->{key}}} ) {
	239	push @stack, { root => $data->{root}{$data->{key}}, type => 'hash', key => $key };
	240	}
	241	} elsif ( ref $data->{root}{$data->{key}} eq 'ARRAY' ) {
	242	for( my $i == 0; $i < scalar @{$data->{root}{$data->{key}}}; $i++ ) {
	243	push @stack, { root => $data->{root}{$data->{key}}, type => 'array', index => $i };
	244	}
	245	} else {
	246	if ( $action eq 'encode' ) {
	247	$data->{root}{$data->{key}} = Encode::encode('utf-8', $data->{root}{$data->{key}}, Encode::FB_HTMLCREF);
	248	} else {
	249	$data->{root}{$data->{key}} = Encode::decode('utf-8', $data->{root}{$data->{key}}, Encode::FB_HTMLCREF);
	250	}
	251	}
	252	} else {
	253	if ( ref $data->{root}->[$data->{index}] eq 'HASH' ) {
	254	foreach my $key ( keys %{$data->{root}->[$data->{index}]} ) {
	255	push @stack, { root => $data->{root}->[$data->{index}], type => 'hash', key => $key };
	256	}
	257	} elsif ( ref $data->{root}->[$data->{index}] eq 'ARRAY' ) {
	258	for( my $i == 0; $i < scalar @{$data->{root}->[$data->{index}]}; $i++ ) {
	259	push @stack, { root => $data->{root}->[$data->{index}], type => 'array', index => $i };
	260	}
	261	} else {
	262	if ( $action eq 'encode' ) {
	263	$data->{root}->[$data->{key}] = Encode::encode('utf-8', $data->{root}->[$data->{key}], Encode::FB_HTMLCREF);
	264	} else {
	265	$data->{root}->[$data->{key}] = Encode::decode('utf-8', $data->{root}->[$data->{key}], Encode::FB_HTMLCREF);
	266	}
	267	}
	268	}
	269	}
	270	return $struct;
	271	}
	272
209	273	# загрузка модулей
210	274	sub load_modules {
211	275	my $list = shift;

Repository List / Contenido / utf8 / core / lib / Utils.pm @ HEAD

Utils.pm

Небольшая справка по веткам