[szm1996]

Hi,

I am new to perl programming and could use a little beginners advice. I have this file that contains date, email address and text.

101020 16:35:07 test1@name.xyz.com Account tested
101020 16:42:27 admin@name.xyz.com password reset requested
101020 16:42:39 fname@domanin.net password reset enabled

Using perl programming is it possible to read this file and split the date in each line to have date, domain address and activity message. The ouput may be similar to as below

101020 16:35:07
test1@name.xyz.com
Account tested

similarly for other lines as well.

Thanks,

[jrl657]

Hope this helps. I am new here and my first post. There is many ways to get this done this is one and it would be my quick down and dirty method.

$infile="textin.txt"; #name of file with the input text in it
open(IN,"<$infile") or die "cant open $infile:$!";

while(<IN>) {
## Next lines shows how matches are marked ##
## | $1 | | $2 | | $3 | | $4 | ##
m/^(\d{6})\s(\d{2}\:\d{2}\:\d{2})\s(.*\@.*?)\s(.*)$/;

#$1 is match from "\d{6}" ie 6 digits
$date = $1;
#$2 is match from "\d{2}\:\d{2}\:\d{2}" ie 2digits:2digits:2digits
$time = $2;
#$3 is match from ".*\@.*?" ie any char any number of times@any char any number of
### times non greedy
$email = $3;
#$4 is match from ".*" ie any char any number of times
$activity = $4;

print "$date $time\n$email\n$activity\n\n";
}

close(IN);