Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl

...
my $s = '2011-02-15';
my ($y, $m, $d) = ($s =~ /$regex/)[0, 1, 2];
print Data::Dumper->Dump([$y, $m, $d], [qw/y m d/]);
  2. or download this
    #!/usr/bin/perl

...
my $s = '2011-02-15';
my ($y, $m, $d) = ($s =~ /&{[REGEX]}/)[0, 1, 2];
print Data::Dumper->Dump([$y, $m, $d], [qw/y m d/]);