er.. see correction > -----Original Message----- > From: Angerstein [mailto:[EMAIL PROTECTED]] > Sent: Tuesday, August 20, 2002 9:00 AM > To: [EMAIL PROTECTED] > Subject: AW: how to make a regex for a ip address > > > What about: > /\d?\d?\d\.\d?\d?\d\.\d?\d?\d\.\d?\d?\d\/
/^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}$/ > > or > > @ip = split (/\./); > foreach $part (@ip) { > if ( $part > 255 && $part =~ /\d?\d?\d\/ ) { if ( $part > 255 && $part =~ /^\d{1,3}$/ ) { > die "Thatīs not an IP"; > } > } > ---------------------------------------------------------------------------- -------------------- The views and opinions expressed in this email message are the sender's own, and do not necessarily represent the views and opinions of Summit Systems Inc. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]