in reply to Perl Exp - Retrieve value

my $str = "2006-01-30 10:11:08.507";

if($str =~ /-(.*?)-/) {
    print "Month is $1\n";
}

[download]

Replies are listed 'Best First'.
Re^2: Perl Exp - Retrieve value
by ikegami (Patriarch) on Apr 11, 2006 at 21:53 UTC
    /-(..)-/ = person with earphones around the back?
[reply]
[d/l]

In Section Seekers of Perl Wisdom