Sort a file : file write « File « Perl






  1. Perl
  2. File
  3. file write

Sort a file

    

#!/usr/bin/perl -w

use strict;

my $input  = shift;
my $output = shift;

open(INPUT, '<', $input)   or die "Couldn't open file $input: $!\n";
open(OUTPUT, '>', $output) or die "Couldn't open file $output: $!\n";

my @file = <INPUT>;
@file = sort @file;

print OUTPUT @file;

close INPUT;
close OUTPUT;








Related examples in the same category

1.Write array to a file
2.Write data to file
3.Write ten lines of text to a pipe
4.Write unpack data to a file
5.Writes to the standard error file.
6.Save formatted data to a file
7.Save hash value to a file
8.Save new line character to a file
9.Save packed data to a file
10.Print data to a file
11.Copying files
12.File read and write
13.Merges two files.
14.Shuffle a file?
15.Creating a file with the numbers 0-9: +>