The problem is that its not reading from the directory...its saying that permission is denied...can someone tell me if there is something wrong with the format...my regex is correct..
opendir (DIR, "C:/Perl/bin/Anti") or die "Couldnt open directory: $!";
@files = readdir DIR;
foreach $file (@files)
open(MYFILE,"C:/Perl/bin/Anti/$file") or die "Count open file :$!";
@array = $ips =~ m/\d+/;
for($index=0; $index<@array; $index++)
print "IP $count is $array[$index] \n";