convertire stringa a timestamp

[gianvituzzi]

Salve,

ho una stringa che rappresenta l'ora corrente in formato tipo:
"6:32pm" vorrei riportarlo in formato timestamp così posso po
aggiungere/togliere un ora (+3600 secs)

ho visto vari moduli cpan ma parsano solo le date e il time ma non da queto
formato...

grazie

[gianvituzzi]

Ho provato con il modulo Date::Manip

use Date::Manip;
Date_Init("TZ=CEST");
print scalar localtime( UnixDate("4:30pm","%s") + ( 3600 * 5 ) );

Ora peò avrei bisogno di ritornare nella forma HH:MMpm/am

grazie

[gianvituzzi]

Ho risolto così:

Date_Init("TZ=CEST");

my ($min,$hr) = ( localtime( UnixDate("5:30pm","%s") ) )[1..2];

my $ampm = "am"; 
if ($hr == 12) { $ampm = "pm" } 
if ($hr == 0) { $hr = 12 }
if ($hr > 12)
{
   $ampm = 'pm';
   $hr = ($hr - 12);
} 

print "$hr:$min$ampm\n";

[Mich_]

Dal punto di vista logico, si puo` migliorare.

my ($min,$hr) = ( localtime( UnixDate("5:30pm","%s") ) )[1..2];

my $ampm = ($hr >= 12) ? "am" : "pm"; 
$hr -= 12 if ($hr > 12); 
if ($hr == 0) $hr = 12;

print "$hr:$min$ampm\n";

[gianvituzzi]

grazie ma ho un problema...dovrei aggiungere gli zeri quando necessario...ad esempio:

01:05pm invece ora mi dice: 1:5pm

grazie

[Mich_]

Una cosa cosi`?

my ($min,$hr) = ( localtime( UnixDate("5:30pm","%s") ) )[1..2];

my $ampm = ($hr >= 12) ? "am" : "pm";
$hr -= 12 if ($hr > 12); 
if ($hr == 0) $hr = 12;

printf "%2d:%2d$s\n", $hr,$min,$ampm";

Oppure devi scrivere il tutto in una stringa. Eventualmetne ci risentiamo.

[gianvituzzi]

più che altro devo ritornare da una sub

[gianvituzzi]

mi da errore con $s

[Mich_]

Originariamente inviato da gianvituzzi
mi da errore con $s

E c'ha pure ragione ...
Ho scritto $ al posto di %.

Ma se quella e` una sub, devi usare sprintf e ritornare la stringa.

Con le indicazioni date e con il man sottomano (devi usare man perlfunc), dovresti riuscire a risolvere.

[gianvituzzi]

esatto,

return sprintf("%02d:%02d", $hr,$min) . $ampm;

grazie