Re^3: script outputs nothing/nada

open (BADIPS), "< $workdir/bad_ips" or die "Couldn't open file: $!";
[download]

If that's the code you're really using (it's different to your OP), try adding use warnings; after use strict;. That usage of open does something you really don't want (hint: it isn't trying to open bad_ips).

Try:

open BADIPS, "<", "$workdir/bad_ips" or die "Couldn't open file: $!";
[download]

instead.

You should also check the contents of bad_ips. It could be full of newlines.

Comment on Re^3: script outputs nothing/nada Select or Download Code

Replies are listed 'Best First'.
Re^4: script outputs nothing/nada by bluethundr (Pilgrim) on Jun 06, 2010 at 23:42 UTC
Hello, I have tried stripping the newlines out of the bad_ips text file with the following command. `grep -ri s/"\n"// ~/txt/bad_ips` [download] And made the following changes to the code. `#!/usr/bin/perl # use strict; use warnings; # # my $workdir = "$ENV{HOME}/txt"; open BADIPS, "<", "$workdir/bad_ips" or die "Couldn't open file: $!"; my $i = 1; while (my $line = <BADIPS>) { chomp $line; print "add ns simpleacl bp-search-spammer$i DENY -srcIP $line -T +TL 43200\n"; $i++; } close BADIPS;<br><br>` [download] That worked BEAUTIFULLY! Thank you!!!	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^4: script outputs nothing/nada
by bluethundr (Pilgrim) on Jun 06, 2010 at 23:42 UTC

grep -ri s/"\n"// ~/txt/bad_ips
[download]

#!/usr/bin/perl
#
use strict;
use warnings;
#
#
my $workdir = "$ENV{HOME}/txt";
open BADIPS, "<",  "$workdir/bad_ips" or die "Couldn't open file: $!";
my $i = 1;
while (my $line = <BADIPS>) {
      chomp $line;
      print "add ns simpleacl bp-search-spammer$i DENY -srcIP $line -T
+TL 43200\n";
      $i++;
}
close   BADIPS;<br><br>
[download]

[reply]
[d/l]
[select]