Perl scalar help

[J. Callender]

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.

[Alexander Chuzhoy · Accepted solution]

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

[g33k]

OK it's easy:

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

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

[J. Callender]

Thanks, Alexander.

Thread Close