Help for this page

Select Code to Download


  1. or download this
    perl -MO=Deparse -n -e 'print "file is: ".<>;'
  2. or download this
    LINE: while (defined($_ = <ARGV>)) {
    print 'file is: ' . <ARGV>;
}
  3. or download this
    ls dir | perl -n -e 'print "File is $_"'