Perl

gliesian · 04-10-2008, 07:01 PM

I'm new to Perl and I'm trying to do the following with regular expressions.

For a list of IP addresses.. replace 'all' of the forth octets with astericks. Basically, I'm trying to substitute all digits after the third period with a single asterisk...

So
10.1.1.1
10.1.2.12
would end up like this
10.1.1.*
10.1.2.*

Can anyone help?

Thanks!

matthewg42 · 04-10-2008, 07:14 PM

Code:

#!/usr/bin/perl

@ips = ("192.168.0.1", "127.0.0.1", "1.2.3.567");
my $replacement = "*";

foreach my $ip (@ips)
{
        print "original: $ip ; new: ";

        $ip =~ s/^(\d+\.\d+\.\d+\.)\d+$/${1}${replacement}/;
        print "$ip\n";
}

gliesian · 04-10-2008, 07:19 PM

Quote:

Originally Posted by matthewg42

Code:

#!/usr/bin/perl

@ips = ("192.168.0.1", "127.0.0.1", "1.2.3.567");
my $replacement = "*";

foreach my $ip (@ips)
{
        print "original: $ip ; new: ";

        $ip =~ s/^(\d+\.\d+\.\d+\.)\d+$/${1}${replacement}/;
        print "$ip\n";
}

Yup! That works!

Thanks!