Well I've still got issues. What I'm doing is forwarding an email to script1 which determines the subject line and then forwards it, after packing the email, to script2. Right now script1 is packing the email and forwarding the collapsed array.
But script2 is having issues unpacking it...
Calling line: my @array=&unpack_array($ARGV[0]);
The sub:
sub unpack_array
{
my ($collapsed)=@_;
my @array=split(/\|/,$collapsed);
return @array;
}
Here's the code from script1 that collapses it:
foreach $line(@array)
{
if($line=~/$subject1/)
{
my $collapsed;
my $i=0...
my @array=split(/\|/,$collapsed); is still giving error Use of uninitialized value in split at email1checker.pl line 115.
I'm going nuts trying to figure it out.
I need to do the exact same thing. When I use your code sub unpack_array {
my ($collapsed)= @_;
@array=split(/\|/,$collapsed);
return @array;
}
I'm getting errors "Use of uninitialized value in split at email1checker.pl line 114"
I've written a script that should parse emails sent to it by the .forward file. Problem is, it's not working. Can anyone tell what's wrong? It doesn't even print out the "got me an email" statement. The .foward file is |directorypath/file.pl.
#!/usr/freeware/bin/perl
use MIME::Parser;
my...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.