I don't have a mac so I can't test this, but I assume the mac has a "sort" app somewhat like the *nix app (try "which sort" at a command line, and then "man sort"), then my guess is something like this:
#!/usr/bin/perl use strict; # https://perlmonks.org/?node_id=11147822 use warnings; my @files = map "/tmp/11147822.$_.txt", 1 .. 100; # FIXME my $outpath = "/tmp/11147822.outpath"; # FIXME open my $fh, '-|', "sort @files" or die; open my $tosort, '|-', "sort -n -k2 >$outpath" or die; <$fh> =~ /^(\w+)\s+(\d+)/ or die; my ($name, $value) = ($1, $2); while( <$fh> ) { if( /^(\w+)\s+(\d+)/ ) { if( $1 eq $name ) { $value += $2; } else { print $tosort "$name\t$value\n"; ($name, $value) = ($1, $2); } } } print $tosort "$name\t$value\n"; # be sure to print last one close $tosort or die;
Assuming mac's are sort of built on BSD and still have a command line and have a more or less "sort" app.
In reply to Re^3: Long list is long
by tybalt89
in thread Long list is long
by Chuma
For: | Use: | ||
& | & | ||
< | < | ||
> | > | ||
[ | [ | ||
] | ] |