perl IP address search 1

judeski · Feb 27, 2001

i have this script/regex that's supposed to open a file (text or html) and search for an IP address on the page in the form of say: 209.245.56.103 and put it in a variable.

part of the script is written below. the regex may be inaccurate at this time, and the script shown is just for it to print the ip address just to confirm that i've read the IP address correctly. this is not the working version, as i still have to make a lot of changes. anyway my point is, no matter what i do, could not read the IP address in any way. what is returned is the decimal equivalent of a 32bit binary number (2 to the power of 32) which is equal to: 4294967296. any hint guys is really appreciated as i really have run out of options...

thanks in advance...

------------------------------------------------
#!/usr/bin/perl

$file = "ipaddress.html";

open(FILE,"<$file&quot

or die "Can't open file - $file - for reading";

print "Content-type: text/html\n\n";

print "<html><body>";

if ($ipnum = ~/^\d\d\d\.\d\d\d\.\d\d\d\.\d\d\d/)
{
print "$ipnum";
print "<br>";
}

print "</body></html>";
close(FILE);
-------------------------------------------------

stillflame · Feb 28, 2001

Uh, your script is a little incomplete (where do you read the file in?), but this regex works to catch the basic form of an ip addy:[tt]

if ( $filedata =~ m~((\d{1,3}\.){3}\d{1,3})~ )
{
print $1;
}[/tt]
but only once. if you have more than one ip in a file, you'll need a global search. "If you think you're too small to make a difference, try spending a night in a closed tent with a mosquito."

stillflame · Feb 28, 2001

the reason you're getting that huge number is because there's a space between your '=' and '~'. to do a regex match, there's no space. what you're doing is a bitwise operation, a complement to be exact. try typing on the command line:[tt]
perl -e "print ~1;"[/tt]
and you should get the exact same number. "If you think you're too small to make a difference, try spending a night in a closed tent with a mosquito."

judeski · Mar 1, 2001

thank you! stillflame. it's a great help.

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

perl IP address search 1

judeski

Vendor

stillflame

Programmer

stillflame

Programmer

judeski

Vendor

Similar threads

Part and Inventory Search

Sponsor