From: dblack@...
Date: 2003-02-13T04:23:24+09:00
Subject: Re: String frustration

Hi --

On Thu, 13 Feb 2003 dblack@candle.superlink.net wrote:

> #!/usr/bin/perl -wl
> $a = "a 1\tb 0\nb 1\nb 2\nb 3\tc 0\nd 0\te 0\ne 1\ne 2\ne 3\tf 0\n";
> $re = '([^\n]*?)\t(.*?)\t([^\n]*?)\n';
>
> (@fields) = ($a =~ m/$re/s);

Whoops, make that /sg.  I'm not sure it's perfect anyway, but the
point is there is a one-line way to grab all that stuff.


David

-- 
David Alan Black
home: dblack@candle.superlink.net
work: blackdav@shu.edu
Web:  http://pirate.shu.edu/~blackdav