Splitting YYYYMMDD date into 3 parts in Perl

Question

How do I split a date that has the form YYYYMMDD into its components?

my ($yyyy, $mm, $dd) = $date =~ /(\4d+)(\2d+)(\2d+)/;

Answer 1

my ($year, $month, $day) = unpack "A4A2A2", $date;

packand unpackuses invalid built-in functions that can be used for high power.

Answer 2

my ($year, $month, $day) = $date =~ /^(\d{4})(\d{2})(\d{2})\z/a
    or die "bad date: $date";

Answer 3

#!/usr/bin/perl -w

use strict;

   sub main{
      my $date = "some text with the numbers 2010063011 and more text";
      print "Input Date: $date\n";

      my ($year, $month, $day) = $date =~ /\b(\d{4})(\d{2})(\d{2})\b/;      
      print qq{
               Date:  $date
               Year:  $year
               Month: $month
               Day:   $day\n} if (defined $year && defined $month && defined $day);
   }

   main();

, , 2010063011, , 20100630, .

Answer 4

, DateTime. CPAN.

Answer 5

, \d Unicode, .

So, if you want to do an input check, use '[0-9]' instead of '\ d'.