Mega Code Archive

 

Categories / Perl / File

 

Writes to the standard error file

#!/usr/local/bin/perl  open(MYFILE, "file1") || die ("Unable to open input file file1\n");  print STDERR ("File file1 opened successfully.\n");  $line = <MYFILE>;  while ($line ne "") {     chop ($line);     print ("\U$line\E\n");     $line = <MYFILE>;  }