Help for this page

Select Code to Download


  1. or download this
    
my $date = '23/06/2003';

$date =~ m!([0-9]{2})/([0-9]{2})/([0-9]{4})!;
  2. or download this
     
$date =~ m!(\d{2})/(\d{2})/(\d{4})!;

...
__DATE__

2003-06-23
  3. or download this
    my $date = '23/06/2003';
$date =~ s!(\d{2})/(\d{2})/(\d{4})!$3-$2-$1!;
...
__DATE__

2003-06-23