Re: combine perl/tk and file::tail::select

Use the code tags please, your code is not readable. To extract one IP address and port from a string, you can use this regular expression:

my ($ipaddr,$port)=($1,$2) if $string=~/(\d+\.\d+\.\d+\.\d+):(\d+)/;
[download]

HTH,
SSF

Comment on Re: combine perl/tk and file::tail::select Download Code

Replies are listed 'Best First'.
Re^2: combine perl/tk and file::tail::select by spx2 (Deacon) on Apr 04, 2011 at 00:34 UTC
I believe there's a pretty big propaganda against parsing IPs using regexes right here, they recommend NetAddr::IP,Net::IPv6Addr. I saw many presentations about IPv6 where one of the slides was with this huge regex for matching IPv6 addresses, so I don't know, maybe this is useful -> Regex::IPv6.	[reply]
Re^3: combine perl/tk and file::tail::select by Anonymous Monk on Apr 04, 2011 at 04:25 UTC
I believe there's a pretty big propaganda against parsing IPs using regexes right here, they recommend Big propaganda? That is an apocalyptic-ally psychotic-ally epic overstatement :) See also Socket6/Regexp::Common::net	[reply]
Re^4: combine perl/tk and file::tail::select by spx2 (Deacon) on Apr 04, 2011 at 07:14 UTC
I wouldn't say it's psychotic anonymous monk :)	[reply]