Hi,
Hopefully this isn't too stupid of a question. Thanks in advance for any
help.
Can anyone tell me why, when I feed a file of the following format
Date,Time,Action,Result,Client,Server,From,To,To,To,...,Subject,Size,SMTPID
20021128,9,Message Accepted,,10.0.0.1,,[EMAIL PROTECTED],[EMAIL PROTECTED],...
This type of line many more times....
To the following script it does nothing. Nothing at all. No errors, just
returns to the command prompt.
#!/usr/bin/perl
while (<>){
chomp;
if (/^.*\@/g){ # find the first @ remember where it is.
if (/\G(domain)/i){ #go back and look for domain
print ; #if you find domain print the line.
}
}
else{
print "No Match.\n";
}
}
Thanks,
Jonathan
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
