Richard Lee <[EMAIL PROTECTED]> asked: > What is the best way to indicate past hour from current time > without using a module? [...]
#!/usr/bin/perl -w use strict; printf "%d:%02d to %d:%02d\n", (localtime time - 3600 )[2,1], (localtime time)[2,1]; __END__ > my $time = localtime; > my @time_1 = split / /, $time; Don't use a variable name like $time, it'll introduce hard to find bugs in your code should you ever forget the sigil $. Also splitting scalar localtime for hours and minutes is redundant. If you want individual values instead of a time stamp, use localtime in scalar context, i.e. my @time_1 = localtime; Once you know that my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime; you can pick out individual values like this: my( $min, $hour ) = ( localtime )[1,2]; or even my( $hour, $min ) = ( localtime )[2,1]; HTH, Thomas -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/
