Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling

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 the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (3)
As of 2016-10-25 03:51 GMT
Find Nodes?
    Voting Booth?
    How many different varieties (color, size, etc) of socks do you have in your sock drawer?

    Results (313 votes). Check out past polls.