K
kozmos241
Hi,
i am new to perl and i am wondering how to change this script to show one
houer more, i will change it back for daylight saving.
#!/usr/bin/perl
use strict;
(my $secT, my $minT, my $hourT, my $mdayT, my $monT, my $yearT, my $wdayT,
my $ydayT, my $isdstT) = localtime();
$yearT += 1900;
$monT += 1;
$monT = (length($monT)==1?"0$monT":$monT);
$mdayT = (length($mdayT)==1?"0$mdayT":$mdayT);
my $fechaT = $yearT.$monT.$mdayT;
my $diferencia;
if (
($fechaT >= "20020407" && $fechaT <= "20021027" ) ||
($fechaT >= "20030406" && $fechaT <= "20031026" ) ||
($fechaT >= "20040404" && $fechaT <= "20041031" ) ||
($fechaT >= "20050403" && $fechaT <= "20051030" ) ||
($fechaT >= "20060402" && $fechaT <= "20061029" )
){
$diferencia = 3600;
}else{
$diferencia = 7200;
}
(my $sec, my $min, my $hour, my $mday, my $mon, my $year, my $wday, my
$yday, my $isdst) = localtime(time + $diferencia);
$year += 1900;
$mon += 1;
if ($mon == 1){
$mon = "Januar";
}elsif ($mon == 2){
$mon = "Februar";
}elsif ($mon == 3){
$mon = "März";
}elsif ($mon == 4){
$mon = "April";
}elsif ($mon == 5){
$mon = "Mai";
}elsif ($mon == 6){
$mon = "Juni";
}elsif ($mon == 7){
$mon = "Juli";
}elsif ($mon == 8){
$mon = "August";
}elsif ($mon == 9){
$mon = "September";
}elsif ($mon == 10){
$mon = "Oktober";
}elsif ($mon == 11){
$mon = "November";
}elsif ($mon == 12){
$mon = "Dezember";
}
$mday = (length($mday)==1?"0$mday":$mday);
$hour = (length($hour)==1?"0$hour":$hour);
$min = (length($min)==1?"0$min":$min);
my $fecha = $mday.". ".$mon." ".$year.", ".$hour.":".$min."h";
print "content-type: text/html\n\n";
print << "FIN";
<tr>
<td width=185 valign=top height=15>
<p>
<B>City, State</B><br>
$fecha
</p>
</td>
</tr>
FIN
i am new to perl and i am wondering how to change this script to show one
houer more, i will change it back for daylight saving.
#!/usr/bin/perl
use strict;
(my $secT, my $minT, my $hourT, my $mdayT, my $monT, my $yearT, my $wdayT,
my $ydayT, my $isdstT) = localtime();
$yearT += 1900;
$monT += 1;
$monT = (length($monT)==1?"0$monT":$monT);
$mdayT = (length($mdayT)==1?"0$mdayT":$mdayT);
my $fechaT = $yearT.$monT.$mdayT;
my $diferencia;
if (
($fechaT >= "20020407" && $fechaT <= "20021027" ) ||
($fechaT >= "20030406" && $fechaT <= "20031026" ) ||
($fechaT >= "20040404" && $fechaT <= "20041031" ) ||
($fechaT >= "20050403" && $fechaT <= "20051030" ) ||
($fechaT >= "20060402" && $fechaT <= "20061029" )
){
$diferencia = 3600;
}else{
$diferencia = 7200;
}
(my $sec, my $min, my $hour, my $mday, my $mon, my $year, my $wday, my
$yday, my $isdst) = localtime(time + $diferencia);
$year += 1900;
$mon += 1;
if ($mon == 1){
$mon = "Januar";
}elsif ($mon == 2){
$mon = "Februar";
}elsif ($mon == 3){
$mon = "März";
}elsif ($mon == 4){
$mon = "April";
}elsif ($mon == 5){
$mon = "Mai";
}elsif ($mon == 6){
$mon = "Juni";
}elsif ($mon == 7){
$mon = "Juli";
}elsif ($mon == 8){
$mon = "August";
}elsif ($mon == 9){
$mon = "September";
}elsif ($mon == 10){
$mon = "Oktober";
}elsif ($mon == 11){
$mon = "November";
}elsif ($mon == 12){
$mon = "Dezember";
}
$mday = (length($mday)==1?"0$mday":$mday);
$hour = (length($hour)==1?"0$hour":$hour);
$min = (length($min)==1?"0$min":$min);
my $fecha = $mday.". ".$mon." ".$year.", ".$hour.":".$min."h";
print "content-type: text/html\n\n";
print << "FIN";
<tr>
<td width=185 valign=top height=15>
<p>
<B>City, State</B><br>
$fecha
</p>
</td>
</tr>
FIN