Gossamer Forum
(Advanced Search)
for
Home : General : Perl Programming :

Stripping subnets from an array

Feb 14, 2004, 5:34 PM
diversity
User (78 posts)
diversity's avatar
Feb 14, 2004, 5:34 PM
Post #1 of 3
Views: 4978
Shortcut
Quote Reply
Stripping subnets from an array
Howdy fellow perl friends,

I have an array of IP addresses as $hst

I need to take each of the items in $hst, strip the last few digits from them (such as 161.184.220.89 to 161.184.220) so we average correctly.

Yes, I am one of those cut & pasters of all codes, and master of none! Can anyone help me out on this? I'm seeing some simple regexp, but it is eluding me....

Thanks!

Diversity by Design
Feb 14, 2004, 10:36 PM
diversity
User (78 posts)
diversity's avatar
Feb 14, 2004, 10:36 PM
Post #2 of 3
Views: 4845
Shortcut
Quote Reply
Re: [diversity] Stripping subnets from an array In reply to
I think I figured it out!

$hst =~ s/(\.([0-2]*[0-9]+[0-9]+)\.([0-2]*[0-9]+[0-9]+))$//;

Geez.. these regular expressions are hard. Let's do some graphics instead!

Diversity by Design
Feb 15, 2004, 1:00 AM
diversity
User (78 posts)
diversity's avatar
Feb 15, 2004, 1:00 AM
Post #3 of 3
Views: 4816
Shortcut
Quote Reply
Re: [diversity] Stripping subnets from an array In reply to
Tricky things these expressions. It wasn't consistant on every IP address!

This one appears to be working much better.
$hst =~ s/(\.(\d{1,2}|1\d\d|2[0-4]\d|25[0-5])\.(\d{1,2}|1\d\d|2[0-4]\d|25[0-5]))$//;

Found this great snippett site, helped a bunch
http://www.regexlib.com