lecture code viewer

downloads

Code

#!/home/martink/bin/perl

$\ = "\n";
$, = " ";

$date = localtime;
print $date;

@list = localtime;
printf("day %d month %d year %d\n",$list[3],$list[4]+1,$list[5]+1900);

($s,$min,$h,$d,$mm,$y) = @list[0,1,2,3,4,5]; 

use Time::Local;
# determine turn of epoch right now
print timelocal($s,$min,$h,$d,$mm,$y);
print timelocal( 0,0,0, (localtime)[3..5] );