C++ has become a scripting language

Re:C++ has become a scripting language by prakashk on Wednesday October 16, 2013 @05:56PM (#6562362)

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]

[ Parent | on HN ]

Re:C++ has become a scripting language by draegtun on Thursday October 17, 2013 @05:49AM (#6564385)

Here'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>};

[ Parent | on HN ]