http://www.perlmonks.org?node_id=111070


in reply to split question

split may not be so hot for this, especially behind an =~ operator... .
I'd suggest using a regex for this, something similar to : 
my $inLine= "RPC, rpc #001b, (1987)";
$inLine=~/\((\d+)\)/;
print $1

[download]

or, if you really wanna use split,

my $inLine= "RPC, rpc #001b, (1987)";
($itm, $date)= split /[()]/, $inLine;
print $date;

[download]

but I'd shy away from that, personally.

Replies are listed 'Best First'.
Re: Re: split question (boo)
by chiller (Scribe) on Sep 08, 2001 at 03:44 UTC
    Or if he really wants the "remainder": 
    my $inLine= "RPC, rpc #001b, (1987)";
$inLine =~ /([^(]+)\((\d+)\)/;
my ($remainder, $date) = ($1, $2);

    [download]
    .. assuming $inline is the only line of data...
[reply]
[d/l]

In Section Seekers of Perl Wisdom