Remove (use strict) from this snippet

[virtualweb]

Hi all. I am a self-taught beginner Perl programmer. Run into this snippet of code which works as an Email List Cleaner. The script first checks the sintax of a list of emails saved in an input.txt file, then checks if those emails already exist in a sever file, lastly those emails which pass the first two test are verifyed whether they are true email boxes that exist in a remote server.

I installed the Net::validMX module in my server and this snippet works perfectly well all on its own. except that I need to embed this snippet in a existing script which do not (use strict)... and if I paste it as is.. it gives me errors.

What do ineed to strip off this snippet so it will work without use (strict)

---------------------------------------------------------------------------------------------------------

use strict;
use Net::validMX;
 
 
my $mail_file = 'input.txt';#file with the emails
my $FILE;
 
my @valid_emails;
my @bad_emails;
my @repeated_emails;
my @undeliverable;
 
open (FILE, "$mail_file") || die "Can't open '$mail_file': $!\n";
my @emails = <FILE>;
close(FILE);
 
my %valid_emails;
 
foreach (@emails) {
   chomp;
 
   if( /\w+@[a-zA-Z_]+?\.[a-zA-Z]{2,6}/ ){
       $valid_emails{$_} = '1';
 
   }
   else{
       push @bad_emails,$_;
   }
}
 
my $server_file = 'saved.txt';
open (FILE, "$server_file") || die "Can't open '$server_file': $!\n";
my @existing_emails = <FILE>;
close(FILE);
 
foreach( @existing_emails ){
    chomp;
    if( $valid_emails{$_} eq '1' ){
        delete($valid_emails{$_});
        push @repeated_emails,$_;
    }
}
 
my @passed_emails = keys(%valid_emails);
 
#check if mail ids are working
 
my ($rv, $reason, $sanitized_email);
 
foreach my $email (@passed_emails) {
 
    my ($rv, $reason, $sanitized_email) = &Net::validMX::check_email_and_mx($email);
    #print &Net::validMX::get_output_result($sanitized_email, $rv, $reason);
 
    if( $rv ){
        push @valid_emails, $email;
    }
    else{
        push @undeliverable, $email;
    }
 
 
}
 
 
$server_file = '>Valid_Emails.txt';
open (FILE, "$server_file") || die "Can't open '$server_file': $!\n";
 
foreach( @valid_emails ){
    print FILE $_."\n";
}
 
close(FILE);
 
 
print "\nValid :\n";
 
foreach( @valid_emails ){
    print $_."\n";
}
 
print "\nInvalid :\n";
foreach( @bad_emails ){
    print $_."\n";
}
 
print "\nRepeated :\n";
foreach( @repeated_emails ){
    print $_."\n";
}
 
print "\nUndeliverable :\n";
foreach( @undeliverable ){
    print $_."\n";
}

-----------------------------------------------------------------------------------------------------------
Thanx beforehand
VirtualWeb

[eWish]

Unless I don't understand what you are trying to do, if your code works with use strict, it should work without use strict.

What errors are you getting? I would not suggest that you remove the strict pragma.

--Kevin

[numberwhun]

I have to agree with eWish. If the code works fine on its own, then something is wrong with either the script you are putting it in or with the way you incorporated it.

Please know that "use strict" and "use warnings" are highly advised and a number of people here won't normally look at your code unless you do use them. They force you to correct syntactic and other such more minor errors before getting down to the real problem at hand.

As eWish said, you really need to let us know what error(s) you are seeing before we can tell you what is wrong.

Regards,

Jeff

[virtualweb]

Thank you guys for your comments.

When I code not using strict everything works for me.. when I add use strict to the code nothing works. I presume this is mainly because I never learned to initialize or what to initialize.

As I mentioned the snippet works fine on its own but when I try to customize or inbed into another script, it it gives me 500 errors. EXAMPLE instead of the script cleaning a List from a file I try to have it clean a list submitted by a form it doesnt work.

What I really hope is that you help me get this script to work stripping all the code that is added (all the my´s or whatever else), to make it run under use strict. I ll take it from there.

Thanx
VirtualWeb

[numberwhun]

Thank you guys for your comments.

When I code not using strict everything works for me.. when I add use strict to the code nothing works. I presume this is mainly because I never learned to initialize or what to initialize.

As I mentioned the snippet works fine on its own but when I try to customize or inbed into another script, it it gives me 500 errors. EXAMPLE instead of the script cleaning a List from a file I try to have it clean a list submitted by a form it doesnt work.

What I really hope is that you help me get this script to work stripping all the code that is added (all the my´s or whatever else), to make it run under use strict. I ll take it from there.

Thanx
VirtualWeb

To get it to work with strict you will certainly need the "my"s and such. Strict forces you to declare variables before they are used by prefacing them with my, or our, etc.

You still have not posted any errors nor any code. Without seeing either of those I don't know how we can help you. We cannot fly blind and be expected to help you fix your problem.

Regards,

Jeff

[eWish]

After a quick glance I don't see anything in the above code that would cause you a 500 error. But since you are embedding this code into another script, then there is no telling. We would need to see some of the code.

Did you upload the file in ASCII mode? Did you set the permission correctly? Are you printing the headers first?

--Kevin

[Icecrack]

After a quick glance I don't see anything in the above code that would cause you a 500 error. But since you are embedding this code into another script, then there is now telling. We would need to see some of the code.

Did you upload the file in ASCII mode? Did you set the permission correctly? Are you printing the headers first?

--Kevin

also are you using the shebang line ??