taking year out of localtime function. 4

[perlTest]

Hello,

I have this for my local time, which generated by perl: Sat Dec 21 17:38:24 2002. How do I take out the year and leave the rest? Thanks if you can help.

 

[svar]

If you are willing to get what you want directly, you can call
for instance the Unix date system command with the right flags
e.g.
my $string= system("echo `date %Y`);

if you have the string you say above and just want the year


my $string='Sat Dec 21 17:38:24 2002';
die unless $string=~/(.*)\s(.*)$/;
my $year=$2;
print "year=$year\n";

 

[perlTest]

Hi,

I want to take out the year and print just the date. Like for an example, I want to print following:

Sat Dec 21 17:38:24

Thank you for your reply!

 

[obscurifer]

You could try something like splitting the date string on the space character, then pop the last element off the existing array, then join the array back together with spaces, then print the string. It's a little messy, but it works.

============
$thetime = scalar localtime;
@timearray = split / /, $thetime;
pop @timearray;
$thetime = join ' ', @timearray;
print "$thetime\n";
=============

 

[goBoating]

$string=~ s/(.*\s)\d{4}$/$1/s; 'hope this helps

If you are new to Tek-Tips, please use descriptive titles, check the FAQs, and beware the evil typo.

 

[perlTest]

Thanks Guys!

 

[tanderso]

Localtime has an array output too!

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime;
print qq~$wday $mon $mday $hour:$min:$sec~;

Then, you could also easily rearrange any of the items you want. Go to

http://perldoc.org

and search for "localtime" for more info about this function.
Sincerely,

Tom Anderson
CEO, Order amid Chaos, Inc.

http://www.oac-design.com