[HPADM] Perl Script to TCL Script
From: Neeraj Lal (neeraj_lal_at_fastmail.us)
Date: 06/11/04
- Previous message: Ruby Domalanta: "[HPADM] Ignite-UX 10.2"
- Messages sorted by: [ date ] [ thread ] [ subject ] [ author ]
To: "HPADM LIST" <hpux-admin@dutchworks.nl> Date: Fri, 11 Jun 2004 11:35:49 -0400
hi Admins
Can anyone help me I know Perl and Korn Shell Scripting but never did the
TCL so I need the following code to be converted in TCL from Perl
My Perl Code is
my $sec;
my $min;
my $hour;
my $mday;
my $mon;
my $year;
my $wday;
my $yday;
my $isdst;
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime();
if ($isdst=0)
{
print("no\n");
$date = &Date_ConvTZ($date,"GMT","CST");
print $date;
}
else
{print("yes\n");
$date = &Date_ConvTZ($date,"GMT","CDT");
print $date;
}
but i want the same code in TCL.
Can anyone help me out in this
TIA
Neeraj Lal
-- http://www.fastmail.fm - IMAP accessible web-mail -- ---> Please post QUESTIONS and SUMMARIES only!! <--- To subscribe/unsubscribe to this list, contact majordomo@dutchworks.nl Name: hpux-admin@dutchworks.nl Owner: owner-hpux-admin@dutchworks.nl Archives: ftp.dutchworks.nl:/pub/digests/hpux-admin (FTP, browse only) http://www.dutchworks.nl/htbin/hpsysadmin (Web, browse & search)
- Previous message: Ruby Domalanta: "[HPADM] Ignite-UX 10.2"
- Messages sorted by: [ date ] [ thread ] [ subject ] [ author ]
Relevant Pages
|
|
