Help for this page

Select Code to Download


  1. or download this
    use warnings;
use strict;
...
  $text =~ s/\s+$//;
  push @{$self->{_numbers}->{$self->{_now}}}, $text;
}
  2. or download this
    One=Monday, Six=Saturday, Three=Wednesday, Five=Friday, Two=Tuesday, S
+even=Sunday , Four=Thursday,