Mega Code Archive

 

Categories / Perl / File

 

Reading one line from the file handle STDIN

$lang = <STDIN>; #!/usr/bin/perl -w # Usage: #   copy1.pl infile outfile $input = $ARGV[0]; $output = ">" . $ARGV[1]; open(INPUT, $input)      or die "Can't open $input due to $!."; open(OUTPUT, $output)      or die "Can't open $output due to $!."; # Use shorthand for reading file. while ( <INPUT> ) {     print OUTPUT $_; }  # Close the files when done. close (INPUT); close (OUTPUT);