Re: Array element split, with grep

>>>>> "SB" == Steve Bertrand <iaccounts@[EMAIL PROTECTED]
> writes:

  SB> Steve Bertrand wrote:
  >> Hi all,
  >> Can someone explain to me how I can fix this up to achieve my desired
  >> results?
  >> my $time = (split (/:/, (grep (/^info/, @[EMAIL PROTECTED]
))))[0];

  SB> I figured it out :)

  SB> my $time = (split (/:/, (grep (/^info/, @[EMAIL PROTECTED]
))[0]))[0];

  SB> I neglected to realize that the result from grep was in scalar
context
  SB> until I specified it as an array.

overkill.

my ($time) = map { /^(info\d+):/ ? $1 : () } @[EMAIL PROTECTED]
 ;

uri

-- 
Uri Guttman  ------  uri@[EMAIL PROTECTED]
  --------  http://www.sysarch.com
--
-----  Perl Code Review , Architecture, Development, Training, Sup****t
------
--------- Free Perl Training --- http://perlhunter.com/college.html
---------
---------  Gourmet Hot Cocoa Mix  ----  http://bestfriendscocoa.com
---------