Help for this page

Select Code to Download


  1. or download this
       foreach (<LOGFILE>) {
          @fields = split '*', $_;
    ...
          # ... blah, blah, blah ...
    
       }
    
  2. or download this
       %company_count;
    
    ...
       foreach (sort keys %company_count) {
          print $_, " showed up ", $company_count{$_}, " times\n";
       }