Re: How can i pull out the first line from every file in a directory
- From: mumia.w.18.spam+nospam@xxxxxxxxxxxxx (Mumia W.)
- Date: Fri, 01 Dec 2006 15:01:14 -0600
On 12/01/2006 02:01 PM, Dennis Bourn wrote:
Dennis Bourn wrote:Im working on a perl script to add the IP addresses from spam to my blocked list. Each quarentined email is kept in one directory, the IP address of the sender is in the first line of the headers. Im using O'Reilly's "Learning Perl" as a guide and got some parts working. I can list all the files in the directory eaisy enough,.. i was going to have that script supply the filename and fire off another script which searched for the IP in individual files,.. I think its a waste of processing power to scan the entire file when i just need the first line. Is there an eaisy way to limit the search to the first line?I finally made it to page 132 in "Learning Perl" and discovered the command line syntax.
some code
the first one returns each filename in the directory.
----------------------------
#!/usr/bin/perl -w
use strict;
my $file;
my $dir = "mail/";
opendir(BIN, $dir) or die "Can't open $dir: $!";
while( defined ($file = readdir BIN) ) {
next if $file =~ /^\.\.?$/; # skip . and ..
print "$file\n" if -T "$dir/$file";
}
closedir(BIN);
-----------------------------
the second one searches a single file for IP addresses. (I left in my failed attempts to get the regex correct,.. figured it might make someone happy to know that there are worse coders out there than themselves)
------------------------------
#!/usr/bin/perl -w
use strict;
while (<>){
if (/\d+\.\d+\.\d+\.\d+/){
#if (/\(*\)/){ #search for anything in brackets
#if (/\d\.\d\.\d\.\d/){ # search for digit.digit.digit.digit
#if (/([1-255]\.[0-255]\.[0-255]\.[0-255])/) { #another atempt
print "$&\n";
}
}
------------------------------
perl -n -w -e 'if (/\d+\.\d+\.\d+\.\d+/){ print "$&\n";}' mail/mail*
that single command does most of what i need, I can just pipe the output to pfctl to add it to the firewall block list. however i still have the problem of it checking the entire file instead of the first line. In addition im seeing a version number in the headers like V6.2000.20.5 which matches my regular expresion. If i can narrow it down to the first line of the file this wont be a problem.
Use the Regexp::Common::net module for this.
.
- References:
- How can i pull out the first line from every file in a directory
- From: Dennis Bourn
- Re: How can i pull out the first line from every file in a directory
- From: Dennis Bourn
- How can i pull out the first line from every file in a directory
- Prev by Date: HELP! Perl&CGI problem
- Next by Date: Re: Question regarding use of multiple Perl versions
- Previous by thread: Re: How can i pull out the first line from every file in a directory
- Next by thread: Re: How can i pull out the first line from every file in a directory
- Index(es):
Relevant Pages
|
