Re: New to perl and regex

Neatened up your regular expressions a bit:

print "Enter a string (enter quit or [CTRL]-D to quit): ";
while(<>)
{
    $line = $_;
 last if ($_ =~ /^\s*quit\s*$/i);
    next if ($_ =~ /^\s~*$/);
    if($line =~ /\s*[a-zA-Z\s]+\s*-?\d+\s*/)
    {
    print $_;
    }
}
[download]

print "Good ",qw(night morning afternoon evening)[(localtime)[2]/6]," fellow monks."

Comment on Re: New to perl and regex Select or Download Code

Replies are listed 'Best First'.
Re^2: New to perl and regex by rovf (Priest) on Nov 19, 2012 at 09:18 UTC
I think it can be made even simpler than that: `/[A-Za-z\s]+\s-?\d\d?/` [download] -- Ronald Fischer <ynnor@mm.st>	[reply] [d/l]

In Section Seekers of Perl Wisdom