I am trying to verify a credit card number format with the following:
(below) but I am getting errors like:
Global symbol "%r" requires explicit package name at ./modmember.cgi line
681.
Global symbol "%r" requires explicit package name at ./modmember.cgi line
683.
Global symbol "%r" requires
It looks old!
2.1021
Thanks for your help. Now I will go to work on updating this.
Thanks for your help!
Ryan
- Original Message -
From: "Chas Owens" <[EMAIL PROTECTED]>
To: "FamiLink Admin" <[EMAIL PROTECTED]>
Cc: "Perl Beginners List"
eed the old_password set to on to use this script? I
am using redhat and everything is updated to the latest rpm's.
The script works with the old_password set to on.
Ryan
- Original Message -
From: "Chas Owens" <[EMAIL PROTECTED]>
To: "FamiLink Admin"
I am trying to connect to a database using a small script but get this
error:
failed: Can't connect to local MySQL server through socket
'/var/lib/mysql/mysql.sock' perl
#!/usr/bin/perl
use strict;
use warnings;
use DBI;
$ENV{MYSQL_UNIX_PORT} = "/var/lib/mysql/mysql.sock";
my $dsn = "DBI:mysq
Hello all,
I am trying to edit a file using html and perl. I got it working but I
wanted to know if this i the best way to do the job. I have a problem with
the first line being blank. Everytime I submit I get a new blank line at
the top of my file:
(some HTML removed)
#!/usr/bin/perl
Hello all,
I am using the following to pull a search query from a google search:
( my $search1 ) = $url =~ /q=(.*)/;
my $search = (split '&', $search1)[0];
If the search looks at this string:
http://www.google.com/search?hl=en&q=+erika+michelle+barre&btnG=Google+Search
Then my search = +erika
+liveshow) GET
143438
Ryan
- Original Message -
From: "John W. Krahn" <[EMAIL PROTECTED]>
To: "Perl Beginners"
Sent: Thursday, January 11, 2007 3:55 PM
Subject: Re: printing to a file if line is not there
FamiLink Admin wrote:
Hello all.
Hello,
I am tryi
Hello all.
I am trying to read a log file then look for a website and score. If that
website has a score >100, take it and add it to a "Check me" list.
1. I don't want to "recheck" so I have a list of checked sites that I want
to verify with.
2. I don't want duplicates added to the "check m
-- Original Message -
From: "Wagner, David --- Senior Programmer Analyst --- WGO"
<[EMAIL PROTECTED]>
To: "FamiLink Admin" <[EMAIL PROTECTED]>
Cc:
Sent: Thursday, September 29, 2005 4:58 PM
Subject: RE: a little help...
FamiLink Admin wrote:
That works
if
less than or equal get next key
print $output1 Dumper(\%{$MyIpAddrInfo});
print $output2 "$ip/32\n";
$matched = $matches;
$matches = 0;
$ip2 = $ip;
}
}
close $output;
close $ou
r, David --- Senior Programmer Analyst --- WGO"
<[EMAIL PROTECTED]>
To: "FamiLink Admin" <[EMAIL PROTECTED]>
Cc:
Sent: Wednesday, September 28, 2005 5:53 PM
Subject: RE: a little help...
FamiLink Admin wrote:
I am only concerned about the IP. The rest is just to
;[EMAIL PROTECTED]>
To: "FamiLink Admin" <[EMAIL PROTECTED]>
Cc:
Sent: Wednesday, September 28, 2005 5:18 PM
Subject: RE: a little help...
FamiLink Admin wrote:
Jeff ,
Thanks for all your help! This is what I have now (below and this
time the whole thing): I think I ha
){
print $output "$matches, $ip, $hour, $time, $category,
$url\n";
print $output2 "$ip/32\n";
$matched = $matches;
$matches = 0;
}
}
close $output;
close $output2;
return($matche
Hello all. Please let me know if this is a good place for my questions.
I am trying to read a log file and get a list of how many times an IP address
get blocked each hour by category PO. An example line in the log with a block
is:
-
[2005-09-28 10:05:03 -7:00] 127.0.0.1 71.32.59.2
14 matches
Mail list logo
