Aktuelles Datum in Variable - #158122 (Allgemeines zu Perl)

Linuxer

2012-05-07 11:34

User since
2006-01-27
3890 Artikel
HausmeisterIn

user image

2 einfache Subroutinen, die Datum bzw. Zeit als String zurückliefern:

Code (perl): (dl )

# return date as string in format: YYYYMMDD
sub date2str {
    # see 'perldoc -f localtime' for details
    my ( $sec, $min, $hour, $mday, $mon, $year ) = localtime;

    return sprintf "%04d%02d%02d", $year+1900, $mon+1, $mday;
}

Code (perl): (dl )

# return time as string in format: hhmmss
sub time2str {
    my ( $sec, $min, $hour ) = localtime;

    return "%02d%02d%02d", $hour, $min, $sec;
}

meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!