topic Re: manipulate string with perl in Operating System - Linux

manipulate string with perl

steven Burgess_2 — Fri, 08 Sep 2006 07:00:57 GMT

Hi,

I have a date

my $date = 200609061700;

That I need to look like

2006-09-06 17:00

At the moment I have got as far as

my @date=split(//, $date);

my $newdate = "@date[0,1,2,3]-@date[4,5]-@date[6,7] @date[8,9]:@date[10,11]";

$newdate =~ s/\s//g;

Which gives

2006-09-0617:00

Any help appreciated

TIA

Steve

Re: manipulate string with perl

H.Merijn Brand (procura — Fri, 08 Sep 2006 07:09:55 GMT

my ($y,$m, $d, $H, $M) = unpack "A4A2A2 A2A2", $date;

You can also look at modules Date::Calc, and Date::Manip

http://search.cpan.org/search?query=Date%3A%3A&mode=all

Enjoy, Have FUN! H.Merijn

Re: manipulate string with perl

H.Merijn Brand (procura — Fri, 08 Sep 2006 07:11:17 GMT

and the output then

my $newdate = "$y-$m-$d $H:$M";

Enjoy, Have FUN! H.Merijn

Re: manipulate string with perl

steven Burgess_2 — Fri, 08 Sep 2006 07:11:45 GMT

Hi

Sorry, I have obtained the date from a file name. I need to insert that date into my database in the format that it expects for the column

Thanks

Steve

Re: manipulate string with perl

Marvin Strong — Fri, 08 Sep 2006 07:13:59 GMT

Maybe not the best solution.

#!/usr/bin/perl

$date=200609061700;

$year=substr $date, 0, 4;
$mnth=substr $date, 4, 2;
$day=substr $date, 6, 2;
$time=substr $date, 8, 5;

my $newdate = "$year-$mnth-$day $time\n";

print $newdate;

Re: manipulate string with perl

steven Burgess_2 — Fri, 08 Sep 2006 07:14:48 GMT

Hi

I was also looking a substr but could only work out from the examples how to insert one character.

TIA

Steve

Re: manipulate string with perl

H.Merijn Brand (procura — Fri, 08 Sep 2006 07:18:44 GMT

TIMTOWTDI:

my $newdate = sprintf "%04d-%02d-%02d %02d:%02d", unpack "A4A2A2 A2A2", $date;

# perldoc -f pack
# man perlpacktut
# man perlfunc

Enjoy, Have FUN! H.Merijn

Re: manipulate string with perl

Marvin Strong — Fri, 08 Sep 2006 07:20:06 GMT

opps I missed that you need a : between hour and min. You could just add two more substr for hour and min, then combine with mine.

of course the unpack is a better solution than mine. I'm going to have dig into unpack more one of these days.

Re: manipulate string with perl

steven Burgess_2 — Fri, 08 Sep 2006 07:24:43 GMT

Thanks again

Steve