open(FFINFO,"$folderfolder_file") or die "Can't open $folderfolder_file: $!\n"; # This reads in every line from FFINFO my @subfolders = ; my %parents_of; my $parentid; # This loop also wants to read every line, # but the handle is already at EOF, # so it gets nothing. while ( my $line = ) { #### open(FFINFO,"$folderfolder_file") or die "Can't open $folderfolder_file: $!\n"; my @subfolders; my %parents_of; my $parentid; while ( my $line = ) { push @subfolders, $line; #### return @parents ? [ map { map { "$_/$folderid" } @{ build_path( $_ ) } } @parents ] : [ $folderid ]; #### ( return @parents ) ? [ X ] : [ Y ]; #### return ( @parents ? [ X ] : [ Y ] ); #### perl -MO=Deparse,-p input-file.pl #### return((@parents ? [map({map({"$_/$folderid";} @{build_path($_);});} @parents)] : [$folderid]));