3 ms·
Perl5 v12 and up: use v5.12; # enables strictures open my $in, "<", $ARGV[0]; open my $out, ">", $ARGV[1]; print $out sort <$in>; Perl6:
by prakashk 13y ago
Perl5 v12 and up:
use v5.12; # enables strictures
open my $in, "<", $ARGV[0];
open my $out, ">", $ARGV[1];
print $out sort <$in>;
Perl6:
sub MAIN( $in, $out ) {
spurt( $out, open($in, chomp => False).lines.sort.join )
}
[EDIT: fixed typo in first example]
- draegtun 13y agoHere's a couple of interesting Perl alternatives: my @files = map { IO::File->new($_->[0], $_->[1]) || die $! } ([shift, 'r'], [shift, 'w']); $files[1]->print( sort $files[0]->getlines ); $_->close for @files; And... use autodie; open my $out, '>', $ARGV[1]; print {$out} sort do {open my $in, '<', $ARGV[0]; <$in>};