Re: Regular Expression to Match IP Address

my $ip = &get_IP;

sub get_IP {
    my $ip;
    do { $ip = <STDIN>; chop($ip); }
    while $ip !~ /^(\d+)\.(\d+)\.(\d+)\.(\d+)$/ ||
          $1 > 255 || $2 > 255 || $3 > 255 || $4 > 255;
    return $ip;
}
[download]

Comment on Re: Regular Expression to Match IP Address Download Code

Replies are listed 'Best First'.
Re^2: Regular Expression to Match IP Address by Joost (Canon) on Oct 03, 2004 at 21:23 UTC
Please do not advocate using `&subroutine;` to call subroutines without parameters (it passes the current @_ array). Use `subroutine()` or even `&subroutine()` instead. insert comment about prototypes here "What should it profit a man, if he should win a flame war, yet lose his cool?"	[reply] [d/l] [select]
Re^3: Regular Expression to Match IP Address by TedPride (Priest) on Oct 04, 2004 at 05:12 UTC
Interesting, I didn't know that. My bad :)	[reply]