Perl wymaga jawnej nazwy pakietu

Question

#!/usr/bin/perl 
# countlines2.pl by Bill Weinman <http://bw.org/contact/> 
# Copyright (c) 2010 The BearHeart Group, LLC 

use strict; 
use warnings; 

sub main { 
my @values = (43,123,5,89,1,76); 
my @values1 = sort(@values); 

    foreach $value(@values1){ 
    print "$value\n"; 
    } 
} 

Errors - 
"Global symbol "$value" requires explicit package name at task2.txt line 12 
"Global symbol "$value" requires explicit package name at task2.txt line 13 

Jestem początkujący w Perl, więc mam powyższych błędów. Proszę również powiedzieć mi, w jaki sposób perl sortuje liczby domyślnie (np. Co spowoduje sortowanie (wartości @)?).

Answer 1

Błąd jest, ponieważ nie jesteś deklarowania $value:

foreach my $value(@values1){ 
    print "$value\n"; 
    } 

Dokumentacja sortowania można znaleźć tutaj: http://perldoc.perl.org/functions/sort.html.

Answer 2

może okazać się pomocne, aby dodać use diagnostics; co daje tę dodatkową informację:

(F) Mówiłeś „use strict” lub „use strict vars”, co oznacza, że ​​wszystkie zmienne musi być leksykalnie zdefiniowany (używając "my" lub "stan"), zadeklarowany wcześniej przy użyciu "nasz" lub jawnie zakwalifikowany do powiedzieć, do którego paczki jest zmienna globalna (używając "::").

foreach $value(@values1){ powinny być foreach my $value(@values1){