Il vecchio modo era invece quello di aggiungere un'opzione -w sulla cosiddetta linea sh-bang, ovvero la prima linea del vostro script contenente l'invocazione di perl:

#!/usr/bin/perl -w

Ci sono alcune differenze, ma siccome use warnings è ormai disponibile da 12 anni, non c'è alcuna ragione per non usarlo. In altre parole:

Usate sempre use warnings;!

Torniamo al warning che volevo spiegare.

Una spiegazione veloce

Use of uninitialized value $x in say at perl_warning_1.pl line 6.

Il senso del messaggio è che la variabile $x non ha un valore (o meglio, ha il valore speciale undef). Potrebbe non avere mai avuto un valore o averlo avuto prima che, ad un certo punto, le sia stato assegnato undef.

Dovreste cercare il punto dove è stato fatto l'ultimo assegnamento alla variabile oppure cercare di capire perché un certo pezzo di codice non è stato eseguito.

Un semplice esempio

L'esempio seguente genera quel tipo di warning.

use warnings;
use strict;
use 5.010;

my $x;
say $x;

Perl è così gentile da dirci quale file ha generato il warning e a quale linea.

È solo un warning

Come ho già detto, questo è solo un warning. Se lo script ha altre istruzioni dopo l'istruzione say, tali istruzioni verranno eseguite:

use warnings;
use strict;
use 5.010;

my $x;
say $x;
$x = 42;
say $x;

Questo codice stampa

Use of uninitialized value $x in say at perl_warning_1.pl line 6.

42

Output in ordine sparso

Attenzione però che, se il vostro codice ha stampato qualcosa prima della linea dove viene generato il warning, come in questo esempio:

use warnings;
use strict;
use 5.010;

print 'OK';
my $x;
say $x;
$x = 42;
say $x;

il risultato potrebbe essere un po' strano.

Use of uninitialized value $x in say at perl_warning_1.pl line 7.
OK
42

Come vedete, il risultato della print appare dopo il warning, anche se essa è stata eseguita prima del codice che ha generato il warning.

Questa anomalia è causata dal buffering dell'IO. DI default Perl applica il buffering a STDOUT, il canale standard di output, mentre non lo applica a STDERR, il canale standard per i messaggi di errore.

Quindi, mentre la parola 'OK' è in attesa che il buffer venga svuotato, il messaggio di warning viene emesso sullo schermo.

Disattivare il buffering

Se volete evitare questo comportamento potete disattivare il buffering su STDOUT.

A questo scopo dovete aggiungere il seguente codice: $| = 1; all'inizio dello script.

use warnings;
use strict;
use 5.010;

$| = 1;

print 'OK';
my $x;
say $x;
$x = 42;
say $x;

OKUse of uninitialized value $x in say at perl_warning_1.pl line 7.
42

(Il warning è sulla stessa linea di OK perché non abbiamo emesso un carattere di a capo \n dopo OK.)

Lo scope indesiderato

use warnings;
use strict;
use 5.010;

my $x;
my $y = 1;

if ($y) {
  my $x = 42;
}
say $x;

Anche questo codice genera Use of uninitialized value $x in say at perl_warning_1.pl line 11.

Mi è successo molte volte di commettere questo errore. Ho inserito distrattamente my $x dentro al blocco if, creando un'altra variabile $x e assegnandole il valore 42 senza accorgermi che sarebbe uscita dal proprio scope alla fine del blocco. (L'assegnamento $y = 1 sta al posto di un vero pezzo di codice e di una vera condizione. Serve solo a rendere questo esempio un po' più realistico.)

Ovviamente in alcuni casi dichiaro la variabile nel blocco if perché è necessario, ma in altri casi no. E nei casi in cui la dichiaro per errore è difficile trovare il bug.