Re: split help

[thinker]

Hi AM,

This should do what you want. See perldoc -f split

#!/usr/bin/perl

use strict;
use warnings FATAL => 'all';

my $str = "DATETIME 09:59:11";
my $time =  (split " ", $str)[1];
my ($h,$m,$s) =  split ':', $time;
print $h;

Hope this helps

thinker

Update Answered the question that was asked, not the one I imagined :-)

[matthewb]

Somewhat daft but I notice that no one has mentioned the third argument to split yet:



use strict;
use warnings FATAL => 'all'; # ;)

my( $one, $two ) = split /:/, q[DATETIME 09:59:11], 2;

print substr( $one, -2 );


From perldoc -f split:

If LIMIT is specified and positive, it represents the maximum number of fields the EXPR will be split into, though the actual number of fields returned depends on the number of times PATTERN matches within EXPR.