Help for this page

Select Code to Download


  1. or download this
        print scalar <FOO>;
    while (<FOO>) {print if eof}
  2. or download this
        $ perl -ne 'BEGIN {print scalar <>} print if eof' /path/to/your/fi
+le
  3. or download this
        system head => -1 => $file;
    system tail => -1 => $file;