dpecka

#!/usr/bin/perluse strict;use warnings;my $csv_file="@ARGV";my %struct_hash;##### functionssub read_csv {	my @csv;	open my $fh, "$csv_file" or die "bad file: \"$csv_file\" - can't open\n";	push(@csv, "$_") while(<$fh>);	close $fh;	return @csv;};sub build_struct_hash {	my %struct_hash;	foreach(read_csv()) {		my($pos_xy, $pos_str) = split(/;/, "$_");		$pos_xy =~ s/\D//g;		$pos_str =~ s/\r//g; chomp($pos_str);		$struct_hash{$pos_xy} = {};		$struct_hash{$pos_xy}->{'str'} = $pos_str;	};	my $len_last = 0;	my $len_par = 0;	foreach(sort {$a <=> $b} keys(%struct_hash)) {		if(length != $len_last) {			$struct_hash{$_}->{'parent'} = $len_par;			$len_last = length;			$struct_hash{$_}->{'len'} = length;		} else {			$struct_hash{$_}->{'parent'} = $len_par;			$struct_hash{$_}->{'len'} = length;			next;		};	};	$len_par = $length;	return %struct_hash;};#sub get_parent_id {#	my $len_tmp = length($_[0]);#	my $plen = 2;#	my $incr = 2;#	my $len;#	while($plen <= $len_tmp) {#		$len = $plen;#		$plen = $plen + (2*$incr);#		$incr++;#	};#	return substr($_[0], 0, $len);#}#;########### main body:%struct_hash = build_struct_hash();########## user body:## example# for work with all keys we need to do it like this:foreach(sort {$a <=> $b} keys(%struct_hash)) {	print "$_";	print "\t\t$struct_hash{$_}->{'len'} $struct_hash{$_}->{'parent'} $struct_hash{$_}->{'str'}\n";	## id in current loop#	my $foo = "$_";	## current loop's parent id#	my $bar = get_parent_id("$_");	## current loop id's key#	my $baz = "$struct_hash{$foo}->{'str'}";	## current loop id's parent key#	my $heh = "$struct_hash{$bar}->{'str'}";	## example of output format#	print "$baz|$foo;$heh|$bar\n";#	print "$foo\n";};exit;