Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/env perl
    
    ...
      run [echo => $str], '|', [grep => 'foo'];
      print "$count " unless ($count % 10000)
    }
    
  2. or download this
     % ./t2.pl
    10000 20000 30000 40000 50000 60000 70000 80000 90000 100000 110000 12
    +0000 130000 exec failed: Argument list too long at ./t2.pl line 16.
     at ./t2.pl line 16.
    
  3. or download this
    # wc -c fw2.save
    165670 fw2.save