Help for this page

Select Code to Download


  1. or download this
    $date = '05-02-2003';
my($d,$m,$y) = $date =~ /(\d+)-(\d+)-(\d+)/;
  2. or download this
    use Time::Local;
my $time = timegm(0, 0, 0, $d, $m-1, $y);
  3. or download this
    print scalar gmtime($time);
  4. or download this
    Wed Feb  5 00:00:00 2003