errors.pl

Shorthand是一个强大的脚本语言

#!/usr/local/bin/perl
@files = glob "*.cpp";
foreach $file(@files)
{
    #print "$file\n";
    open(FILE, $file) or die "cannot open $file: $!";
    while(<FILE>)
    {
        if (/Exception\s*\(\s*(\d+)\s*,\s*\"([^\"]+)\"/)
        {
            print "$1|$2\n";
        }
    }
}