Re:a better Perl way

[Jorge Goncalvez]

Hin I have this piece of code and i wanted to make it simpler and shorter Yhanks
        
        my $Range1 = $1 . ($2 + 1) if $IPREAL[0] =~ /^(.*\.)(.+)$/;
        my $Range2 = $1 . ($2 + 1) if $IPREAL[1] =~ /^(.*\.)(.+)$/;
        my $Range3 = $1 . ($2 + 2) if $IPREAL[0] =~ /^(.*\.)(.+)$/;
        my $Range4 = $1 . ($2 + 2) if $IPREAL[1] =~ /^(.*\.)(.+)$/;
        
        my $newline2=  "subnet $IP[0] netmask 255.255.255.0{range dynamic-bootp  
$Range1 $Range3;}";
        my $newline3=  "subnet $IP[1] netmask 255.255.255.0{range dynamic-bootp 
$Range2 $Range4;}";
        
     Thanks.   


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]