Date: Fri, 23 Jul 2004 12:42:27 -0400 (EDT) From: "Steve Bertrand" <iaccounts@ibctech.ca> To: "Fernando Gleiser" <fgleiser@cactus.fi.uba.ar> Cc: freebsd-questions@freebsd.org Subject: Re: Perl split() question (OT)... Message-ID: <1870.209.167.16.15.1090600947.squirrel@209.167.16.15> In-Reply-To: <20040723130007.V6864@cactus.fi.uba.ar> References: <1718.209.167.16.15.1090596743.squirrel@209.167.16.15> <20040723130007.V6864@cactus.fi.uba.ar>
next in thread | previous in thread | raw e-mail | index | archive | help
> On Fri, 23 Jul 2004, Steve Bertrand wrote:
>
>> Perl hackers -- Figured someone would have a reasonably quick, easy
>> answer
>> for this:
>>
>> I am trying to read through a file, line-by-line, and I want to extract
>> the text in between the [ and ] characters.
>
> This is a job for......capturing parens!!!
>
> Try this:
>
> if ($_=~/\[(.+)\]/) {
> $var=$1;
> }
>
> $1 would be the string matched by the regex between ( and )
>
Absolutely perfect!! This worked excellent:
while ($_ = <LOGFILE>) {
if ($_ =~ /$struct/ && $_ =~ /$structStart/) {
if ($_ =~ /\[(.+)\]/) {
$string = $1;
print "$string -- $struct$structStart\n";
# ... do other stuff, snipped
}
} else {
Thank-you so much!
Steve
>
>
> Fer
>
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?1870.209.167.16.15.1090600947.squirrel>