I hope this is not too late to be useful -- even on topics beyond the scope of the original question.

#!/usr/bin/perl
use 5.018;
use strict;     # NOT because it makes a difference here, but because 
+it will 
                # (OFTEN!) point out typos and other mistakes
use warnings;
# 1119420


(my $time) = scalar localtime();    
say "\t DEBUG \$time: |$time|";    # the vbars in the printout will he
+lp you spot 
                                   # mismatches between your expectati
+ons & 
                                   # the actual regex captures
$time =~ /\s([A-Z]{3})/i;          # you don't want to capture the pre
+ceding space; the other 
my $month = $1;                    # changes are merely for laziness (
+compactness) and 
say "\t DEBUG \$month: |$month|";  # rely on the fact that all localti
+me() months 
                                   # are just 3 chars

$time =~ /\s(\d+)\s/;
my $day = $1;

say "\t DEBUG \$day: |$day|";

say "\t ", $month, " " ,$day;      # when printing to console, I find 
+output with
                                   # leading tabs makes the output mor
+e legible. YMMV.
if ( $month eq 'Mar' ){            # reformatting makes (again, YMMV) 
+the reading easier.
    print "\t true\n";
} else {
    print "\t false\n";}

if ( $day =~ m{\d+} ) {            # regex instead of == to accomodate
+ days_of_month 10
    say "\t true";                 #  thru 31 but, would, of course ac
+cept "47" as a 
} else {                           # day_of_month so would be a baaad 
+idea for some 
                                   # origins of day_of_month.
    say "\t false";
}

[download]

Update: fixed typo  s/<c><#!.../<c>#!..../ in markup


Spirit of the Monastery


In reply to Re: value disappears in if statement by ww
in thread value disappears in if statement by ggadd

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.