Re: calling a subroutine as an element of a hash table...

[Dave K]

Peter,

#!/usr/bin/perl -w
use strict;
my %date_formats = (
 ccyymmdd => { now => sub {
  my @arr = localtime();
     print 'Year ', 1900 + $arr[5] . ' Month '. sprintf("%02d",$arr[4] + 1)
. ' Day ' . sprintf("%02d",$arr[3]);
    }
  } );
& { $date_formats{ccyymmdd}{now} };

Same output as previous post but same question (whay so complicated?)



-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]