topic Perl scalar help in Operating System - Linux

Perl scalar help

J. Callender — Wed, 20 Sep 2006 07:23:21 GMT

All,

How do I assign the following to a variable, or print to a file.

print scalar localtime($event->{'TimeGenerated'});

output: Wed Sep 20 08:01:36 2006

What I'm looking to get out of above output is the hour. (08)

Appreciate all help.

Re: Perl scalar help

Alexander Chuzhoy — Wed, 20 Sep 2006 07:47:25 GMT

try:
$hour=localtime($event->{'TimeGenerated'});
$hour=~s/.*?\s+(\d+?)\:.*/$1/;
print $hour;

Re: Perl scalar help

g33k — Wed, 20 Sep 2006 07:50:38 GMT

OK it's easy:

$tmp=scalar localtime($event->{'TimeGenerated'});

@temp = split(" ",$tmp);
$time = @temp[30];
@temp = split(":",$time);
$hour = @temp[0];
print $hour;

Re: Perl scalar help

J. Callender — Wed, 20 Sep 2006 07:50:51 GMT

Thanks, Alexander.

Thread Close