simple question

[cnw40007]

Hi
is there a way of getting the username of an email address and print it out instead of printing the full email address using perl.This is my code but it prints out the full email address
...
while(<HEADER>)
{
if(/To[^\@]+)/)
{

print OUTPUT;}
}

 

[ChrisHunt]

Yuo just want the bit of the email address before the @, right? You're almost there! Try:

[tt]while(<HEADER>)
{
if(/To[^\@]+)/)
{
print OUTPUT $1;
}
}[/tt]

$1, $2, $3 etc... match the corresponding bracketed area in the most recent regular expression, in this case $1 = ([^\@]+) (or rather, the bit of text that satisfies this condition). -- Chris Hunt
Extra Connections Ltd

http://www.extracon.com

 

[cnw40007]

grand that worked.Do you have any idea on how i would compare this off a spreadsheet. Eg my spreadsheet looks like this
cnw40001
cnw40002
....
cnw40020.
If there is a match with the username of the email then print match!I have installed the spreadsheet modules but im not sure how to use it.Im new to perl