Dato i perl

Følgende funktion skulle returnere en pæn tekst i det ønskede format:

sub klokken {
        my($timeString);
        my($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime();
        if ($hour < 10) { $hour = \"0$hour\"; }
        if ($min < 10) { $min = \"0$min\"; }
        if ($sec < 10) { $sec = \"0$sec\"; }
        if (++$mon < 10) { $mon = \"0$mon\"; }
        if ($mday < 10) { $mday = \"0$mday\"; }
        $year = 1900 + $year;

        $timeString = \"${mday}/${mon}/${year} ${hour}:${min}\";

        return $timeString;

};

${hour}:${min} skal naturligvis klippes ud hvis du ikke ønsker tid :-)

jeg prøver sub funtionen klokken således:


$tid=&klokken;
print $tid;
sub klokken {
        my($timeString);
        my($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime();
        if ($hour < 10) { $hour = \"0$hour\"; }
        if ($min < 10) { $min = \"0$min\"; }
        if ($sec < 10) { $sec = \"0$sec\"; }
        if (++$mon < 10) { $mon = \"0$mon\"; }
        if ($mday < 10) { $mday = \"0$mday\"; }
        $year = 1900 + $year;

        $timeString = \"${mday}/${mon}/${year} ${hour}:${min}\";

        return $timeString;

};
og får følgende fejl-
C:\\Mosaic\\bin>perl dato.pl
syntax error in file dato.pl at line 8, next 2 tokens \"my(\"
Execution of dato.pl aborted due to compilation errors.

Jeg kunne ikke lige gennemskue hvilken der var din linje 8, men prøv følgende:

#!/usr/local/bin/perl -w
my $tid = klokken();
print \"$klokken\\n\";

sub klokken {
        my $timeString;
        my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime();
        if ($hour < 10) { $hour = \"0$hour\"; }
        if ($min < 10) { $min = \"0$min\"; }
        if ($sec < 10) { $sec = \"0$sec\"; }
        if (++$mon < 10) { $mon = \"0$mon\"; }
        if ($mday < 10) { $mday = \"0$mday\"; }
        $year = 1900 + $year;

        $timeString = \"$mday/$mon/$year\";
        return $timeString;
};

Jeg for stadig fejl, det er ligesom at my keyword ikke vil fortolkes.

C:\\Mosaic\\bin>perl DATO.pl
syntax error in file DATO.pl at line 4, next 2 tokens \"my $tid \"
syntax error in file DATO.pl at line 8, next 2 tokens \"my $timeString\"
Execution of DATO.pl aborted due to compilation errors.

Jeg kører det fra NT sådan her.

c:\\perl dato.pl

mangler jeg et eller andet, jeg har en masse andre scripts der fungere fint, men dem har jeg jo heller ikke selv lavet :-)

Jeg har lige prøvet følgende på min Win2000, og det kører:

#!/usr/bin/perl -w
use strict;

my $tid = klokken();
print \"$tid\\n\";

sub klokken {
        my $timeString;
        my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime();
        if ($hour < 10) { $hour = \"0$hour\"; }
        if ($min < 10) { $min = \"0$min\"; }
        if ($sec < 10) { $sec = \"0$sec\"; }
        if (++$mon < 10) { $mon = \"0$mon\"; }
        if ($mday < 10) { $mday = \"0$mday\"; }
        $year = 1900 + $year;

        $timeString = \"$mday/$mon/$year\";
        return $timeString;
};

--
Hvilken version af perl kører du?

Jeg har fået det til at køre ved at bruge local istedet for my

sub klokken {
  local ($timeString);
  local ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst);
  ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime;
        if ($hour < 10) { $hour = \"0$hour\"; }
        if ($min < 10) { $min = \"0$min\"; }
        if ($sec < 10) { $sec = \"0$sec\"; }
        if (++$mon < 10) { $mon = \"0$mon\"; }
        if ($mday < 10) { $mday = \"0$mday\"; }
        $year = 1900 + $year;

        $timeString = \"$mday/$mon/$year\";
        return $timeString;
}


$tid = &klokken();
print \"$tid\\n\";

;


Hvad er forskellen på local og my.

øhhh...

I et forsøg på at lave en enkel forklaring, så er my normalt lokale variable, mens local oftest bruges til at lave en lokal kopi af en global variabel.

Man vil normalt altid skulle bruge my fremfor local,  og jeg har bestemt aldrig hørt om at my ikke skulle fungere.

Det er også lidt underligt, men jeg har fundet ud af at jeg kører med en perl 4.1 eller noget i den retning, så jeg prøvede at installere en ny version og ekskvere dit script under den og det virkede også udemærket. Så det ved jeg faktisk ikke. Men tak for hjælpen