Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things

Re: split help

by thinker (Parson)
on Sep 22, 2003 at 17:36 UTC ( #293206=note: print w/replies, xml ) Need Help??

in reply to split help

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


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

Replies are listed 'Best First'.
Re: Re: split help
by matthewb (Curate) on Sep 23, 2003 at 15:32 UTC
    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.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://293206]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others scrutinizing the Monastery: (4)
As of 2018-01-21 00:57 GMT
Find Nodes?
    Voting Booth?
    How did you see in the new year?

    Results (227 votes). Check out past polls.