All pastes #280356 Raw Edit

Miscellany

public text v1 · immutable
·published 2006-12-15 21:15 UTC
rendered paste body
#!/usr/bin/perl

open FN, ">>$ARGV[0]";
while (<STDIN>) {
 if ($_=~/From:/) {
        $fromline = $_;
        $fromline =~ s/^From: "?.*"? <(.*)>$/$1/i;
        print FN "$fromline";
 }
}
close FN;