FamiLink Admin wrote:
> John,
>
> Thanks for your help! Chomp and replacing $_ with $site did it!
>
> Below is the log if you think I can do it without so many splits that
> would be great!
>
> 2007.1.12 8:06:43 - 70.22.222.29 http://www.12gpatt.com/Nightlife.html
> *DENIED* Weighted phrase limit of 100 : 341 (live sex...cam+liveshow)
> GET 143438
Based upon that single example I came up with this (YMMV):
while ( <LOG_FILE> ) {
next unless ( my $site ) = m!http://([^/]+)/!
and ( my $points ) = /Weighted.+?:\s*(\d+)/;
next if $points <= 100;
# your original code only indicated using the TLDs .com and .co.ku
my ( $sitemain ) = $site =~ /([^.]+)\.co(?:m|\.ku)$/;
testfordup( $site ) unless abextest( $sitemain );
}
It may also be more efficient to use a tied DBM hash instead of a plain text
file for $ab_file:
perldoc AnyDBM_File
John
--
Perl isn't a toolbox, but a small machine shop where you can special-order
certain sorts of tools at low cost and in short order. -- Larry Wall
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
