localtime timelocal - #103616 (Allgemeines zu Perl)

styx-cc

2007-12-08 12:36

User since
2006-05-20
533 Artikel
BenutzerIn

user image

Hallo, ich habe hier einen Quelltext, den ich vor etwa nem Jahr geschrieben habe, was er macht ist mir klar und funktionieren tut er auch. Aber ich frage mich, warum er funktioniert.

Code (perl): (dl )

sub getDayName {
    use Time::Local;

    my $day = shift; # DD || D
    my $month = shift; # MM || M
    my $year = shift; # YYYY

    my $info = scalar( localtime( timelocal(0,0,0,$day,$month-1,$year) ) );
    my @parts = split / /, $info;
    my %days = (
                "Mon" => "Mo",
                "Tue" => "Di",
                "Wed" => "Mi",
                "Thu" => "Do",
                "Fri" => "Fr",
                "Sat" => "Sa",
                "Sun" => "So"
                );
    my $weekDay = $days{$parts[0]};
    return $weekDay;
}

Uebergeben wird ein Datum, und zurueckgegeben der dazugehoerige Wochentag.
In Zeile 8 muss ich doch eine Zahl als Wert bekommen, wegen dem Aufruf von scalar();, oder nicht?

Code: (dl )

 my $info = scalar( localtime( timelocal(0,0,0,$day,$month-1,$year) ) );

Dann frage ich mich, warum ich das in Zeile 9 splitte, und wie in Zeile 19 der Hashaufruf klappt:

Code: (dl )

my $weekDay = $days{$parts[0]};

Vielen Dank!
MfG

Pörl.