Re^4: I can crash perl

sure, see Understanding the Schwartzian transform. / Re: Understanding the Schwartzian transform. then write

my @sorted = map  { $_->[0] }
             sort { $a->[1] cmp $b->[1]; } ## magicpipe
             map  { [ $_, expensive($_) } @unsorted;

sub expensive {
   ...
   my $magicpipe = join '|',
      $dir_and_file_name,
      $date_time_mod,
      $file_size,
      $encpd, $deleted_file, $has_iden ;
   return [ $original, lc($magicpipe) ];
}
[download]

Also see File::Find::Rule/find rule , Path::Tiny/path tiny, Win32::Unicode

Comment on Re^4: I can crash perl Download Code

Replies are listed 'Best First'.
Re^5: I can crash perl by AnomalousMonk (Archbishop) on Apr 07, 2015 at 12:10 UTC
`map { [ $_, expensive($_) } @unsorted` Note that this expression should be `map { [ $_, expensive($_) ] } @unsorted` (missing right-square-bracket) or even `map [ $_, expensive($_) ], @unsorted` (needs extra comma). Give a man a fish: `<%-(-(-(-<`	[reply] [d/l] [select]