Help for this page

Select Code to Download


  1. or download this
    myscript some.data > output

# or

grep -h foo *.data | sort -u | myscript > output
  2. or download this
    binmode STDIN, ":utf8";
  3. or download this
    #!/usr/bin/perl

...
binmode ARGV, ":utf8";   # does not work -- handle isn't open yet

while (<>) { do_whatever( $_ ) }
  4. or download this
    #!/usr/bin/perl

...
    }
    while (<$fh>) { do_whatever( $_ ) }
}