Help for this page

Select Code to Download


  1. or download this
    $ perl -Mstrict -Mwarnings -E 'say "starting: " . scalar @ARGV; while(
+<>){chomp; say "$_\nremaining: " . scalar @ARGV}' foo bar baz
  2. or download this
    starting: 3
foo
...
remaining: 1
baz
remaining: 0