Help for this page

Select Code to Download


  1. or download this
    my ($test, $id, $key)=split /,\s*|\(/, $_, 4;
next unless $test=/PROBABLECAUSE\w*/;
  2. or download this
    #!/use/your/bin/perl -w
use strict;
...
}
print "keys with initial caps\n" if @capkeys;
foreach (@capkeys) {print}
  3. or download this
        my ($test, $id, undef, $key)=split /,\s*|\(/, $_, 5;
    next unless $test=/PROBABLECAUSE\w*/;
  4. or download this
    #!/your/perl -w
use strict;
...
    }
    $line_count++;
}