Help for this page

Select Code to Download


  1. or download this
    # command line arguments are available to the script in the 
    # @ARGV array. Thus the first argument is in $ARGV[0], the 
    ...
    
    # close the input and output files
    close(IN); close(OUT);
    
  2. or download this
    #!/usr/bin/perl -i.bak -w
    while (<>) {
        s/^\n$/\r\n/;
        print;
    }