Jeff Pang wrote:
> hi,list,
Hello,
> I have a file looking as below:
>
> 356.5
> 192.168.2.20
>
> [snip]
>
> 612
> 192.168.2.31
>
> ...
>
>
> I want to get this result:
>
> 356.5 192.168.2.20
> 283.3 192.168.2.21
> 261.9 192.168.2.22
> ...
>
>
> and,I write this regex for matching:
>
> {
> local $/="";
> while (<FILE>)
> {
> next unless /^(.+?)$(?=.*(\d+\.\d+\.\d+\.\d+))/sm;
> print $1,"\t",$2,"\n";
> }
> }
>
> but it can't work correctly.
> So,I want to know how to adjust this regex?Thanks.
Probably something like this:
{
local $/ = '';
while ( <FILE> )
{
next unless /(\S+)\s+(\d+\.\d+\.\d+\.\d+)/;
print "$1\t$2\n";
}
}
John
--
use Perl;
program
fulfillment
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
