Im running the following statment in perl:
perl -MEmail::Find -ne 'Email::Find->new(sub { print shift->address, "\n" })->find(\$_)' test.txt > output.txt
And this is the result:
Can't find string terminator "'" anywhere before EOF at -e line 1.
The test.txt file only has a email address in it, so it should work. Does anyone know where I am going wrong. I am doing this because I need to extract all the email address from about 2000 messages that I have in a public email account. BTW this is my first attempt at perl. Thanks alot for the help!
perl -MEmail::Find -ne 'Email::Find->new(sub { print shift->address, "\n" })->find(\$_)' test.txt > output.txt
And this is the result:
Can't find string terminator "'" anywhere before EOF at -e line 1.
The test.txt file only has a email address in it, so it should work. Does anyone know where I am going wrong. I am doing this because I need to extract all the email address from about 2000 messages that I have in a public email account. BTW this is my first attempt at perl. Thanks alot for the help!