Re^2: Extracting data from each line that matches a email address from a Log file (Tab delimited)

Wouldn't it have been better to just show the op the Perl version?

I believe it comes out something like this :-

while (<>) {
    my @Fld = split('\t', $_);
    if (/Auser/) {
        print $Fld[0], $Fld[1], $Fld[7], $Fld[19];
    }
}
[download]

Comment on Re^2: Extracting data from each line that matches a email address from a Log file (Tab delimited) Download Code