use strict funktioniert nicht bei folgendem Programm - #144107 (Allgemeines zu Perl)

Gast Byonik

2011-01-05 18:03

Hallo
warum funktioniert hier das use strict nicht?

Code (perl): (dl )

#!/usr/bin/perl -W

use strict

my @namen =qw(Fred Dino Sascha Julia Drache Amin);

my $ergebnis = &welches_element_ist("Dino", @namen);

sub welches_element_ist{
my ($was , @array) =@_;#das @_ kommt aus der Sub

        foreach (0..$#array){
                if ($was eq $array[$_]) { # das $_ kommt aus der schleife
                return $_;
                }               
     }
        -1;
}

$ergebnis+=1;
print "'$ergebnis'\n";

Die Fehlermeldung:

Code: (dl )

1
2

 Unknown 'strict' tag(s) 'Fred Dino Sascha Julia Drache Amin' at sub_return_operator.72.pl line 5
BEGIN failed--compilation aborted at sub_return_operator.72.pl line 5.

Kann man das qw bei my nicht anwenden?
Vielen Dank für eure Hilfe

Mit freundlichen Grüßen

Byonik