[vienna.pm] Date

Peter Seitz seitz at bzs.tu-graz.ac.at
Wed May 24 15:06:18 CDT 2000


* * * vienna-pm-list * * *


On Tue, 23 May 2000 9:40:54 +0200
   Florian Helmberger <fhe at mmm.at> wrote:

Hallo Mihi,

> * * * vienna-pm-list * * *
> 
> 
> At 08:18 23.05.00 +0200, mihi wrote:
> 
> >Hallo leute, wie kann ich auf date zugreifen?
> >danke mihi
> 
> Kommt drauf an was Du machen willst - aber für "wildere" Sachen als einfach 
> abzufragen, was das aktuelle Datum ist, schau Dich bei
> 
>          http://www.cpan.org
> 
> in der Unterkategorie Date.
> 
> Für ersteres
> 
>          perldoc -f localtime
> 

ich mach das wie folgt:

#!/usr/bin/perl -w

  ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
  $year += 1900;        # $year is years since 1900
# for the timezone, we need a special package
#  $tzoffset = tz_local_offset();
#  $tzone =  sprintf("%s%02d%02d", $tzoffset >= 0 ? "+" : "-",
#              int(abs($tzoffset)/3600), int(abs($tzoffset)/60%60));
#  print "Timezone='$tzone'\n" if $debug;
#  $date =  sprintf("%3s, %2d %3s %4d %02d:%02d:%02d %5s",
#             $DoW[$wday], $mday, $MoY[$mon], $year, $hour, $min, $sec, $tzone);
  $date = sprintf("%4d-%02d-%02d", $year, $mon+1, $mday);
  print $date;

Somit steht in $date das aktuelle Datum.

Ich habe dazu aber gleich eine Frage. Wenn ich nun obiges Programm 
ausfuehre, dann kommt die Warnung:
Name "Main::sec" used only once: possible typo at c:\tmp\t in line 2
Die Warnung an sich ist mir schon klar, nur wie bekomme ich sie weg?

Ich benoetige in diesem Beispiel die Werte $min, $sec, etc nicht. 
Ich hab auch schon probiert die Werte einfach wegzulassen doch das 
hat nicht funktioniert.

Bin fuer professionelle Tips sehr dankbar :-)


With best compliments

           Peter Seitz
--

  Technische Universitaet Graz, Austria  - Fak. f. Bauingenieurwesen
  mailto:seitz at bzs.tu-graz.ac.at - http://wwwbzs.tu-graz.ac.at/~seitz/

              Mitglied der Pegasus Mail Supportgruppe
        Koordinator des Pegasus Mail Uebersetzungsprozesses

Die (In)Offizielle deutschsprachige Support Seite fuer Pegasus Mail:
Original: http://wwwbzs.tu-graz.ac.at/software/pegasus/
Mirror:   http://ftp.uni-mannheim.de/mirror/pmail/



###
You are subscribed to vienna-pm-list as "Peter Seitz" <seitz at bzs.tu-graz.ac.at>
http://www.fff.at/fff/vienna.pm/



More information about the Vienna-pm mailing list