For J. Shirley
sub str2str {
my($str_in,$timezone,$dst) = @_;
my @lt = localtime(time);
$timezone = $dst if $lt[8];
if ($timezone =~ /^([+-])(\d{2})(\d{2})$/){
my $addval = “$1″.$2*3600+$3*60;
my $gmt = str2time($str_in);
$gmt += $addval;
my $str_out = time2str($gmt);
$str_out =~ s/GMT$/$timezone/;
return $str_out;
} else {
return undef;
}
}
Post Links
Flux Share |
Bookmark |
Permalink | Trackback |
Email to a Friend |
Comments
Leave a Reply