Re: replacing the last portions of an octet

[blue_cowdawg]

Something like this?

#!/usr/bin/perl -w
use strict;

my $ips='192.168.1.1-192.168.1.254';

my ($first,$second)=split('-',$ips);
printf "%s-%s\n",$first,$second;
$first = incip($first);
$second = incip($second);

printf "%s-%s\n",$first,$second;

exit(0);

sub incip {
    my $ip=shift;
    my @o=split(/[\.]/,$ip);
    $o[3]++;
    return sprintf("%d.%d.%d.%d",@o);

}

[diamondsandperls]

thanks was able to play around with your sample code to get what i was looking for thanks for the heads up and insight

[diamondsandperls]

sorry just noticed those are subroutines ill play around some more