$netout_new=~/(\d+)\.(\d+)/;
$integer=$1;
$decimal=$2;

 print" Integer=$integer and dec=$decimal\n";

See if this helps

Urmil

-----Original Message-----
From: Mat Harris [mailto:[EMAIL PROTECTED]]
Sent: Thursday, May 23, 2002 3:53 PM
To: [EMAIL PROTECTED]
Subject: chop ing


i know that chop returns the char chopped but how do i get that into a var? 
i want to be able to chop all numbers after decimal point from a numeric 
string. i thought something like this would work:

while ($chopped_char ne "."){
         chop $netout_new;
         $chopped_char = "how do i get this???"
}


cheers

Matthew Harrison
Internet/Network Services Administrator
www.genestate.com


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

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

Reply via email to