Prevenire perl di stampare i messaggi di avviso identici

Question

Si consideri il seguente script di sciocchezze come esempio:

use strict; 
use warnings; 

my $uninitialisedValue; 

while(<>){ 
    print ${$uninitialisedValue}{$_},"\n"; 
} 

cui viene eseguito dalla riga di comando:

$ perl warningPrinter.pl < longfile.txt 

Indipendentemente da ciò che STDIN contiene, lo STDOUT sarà essere pieno di:

Use of uninitialized value in print at warningPrinter.pl line 16, <> line 1. 

Use of uninitialized value in print at warningPrinter.pl line 16, <> line 2. 

Use of uninitialized value in print at warningPrinter.pl line 16, <> line 3. 

Use of uninitialized value in print at warningPrinter.pl line 16, <> line 4. 
... 

Io lavoro con file molto lunghi, quindi ricevere questo come output quando il mio copione è per lo meno lievemente irritante. Il processo può richiedere un po 'di tempo per rispondere a un segnale di terminazione CTRL-c e il mio terminale viene improvvisamente riempito con lo stesso messaggio di errore.

Esiste un modo per far stampare a Perl solo la prima istanza di un messaggio di avviso identico e ricorrente o semplicemente rendere i messaggi di avviso fatali per l'esecuzione dello script? Vedendo come non ho mai prodotto una sceneggiatura che funziona nonostante abbia avvertimenti in loro, accetterei entrambi. Ma probabilmente è più comodo se riesco a far perl stampare avvisi identici una sola volta.

Answer 1

Ho pensato di mostrarti come è possibile creare una logica di avviso univoca. Non consiglio, però:

my %printed; 
local $SIG{__WARN__} = sub { 
    my $message = shift; 
    my ($msg, $loc) = $message =~ m/(.*?) at (.*?line \d+)/; 
    print $message unless $printed{$loc}{$msg}++; 
}; 

dovrei dire che io non consiglio questo come un generale pratica . Perché è meglio avere una politica di avviso. È un'operazione che può assumere un valore indefinito o non si desidera gestire un valore undef. Provo a rimuovere tutti gli avvisi dal mio codice completato.

Nel primo caso, mettendo no warnings 'uninitialized'; nel ciclo for è un molto più facile - e regolare cosa da fare. Nel secondo caso, probabilmente vorrai fallire.

Tuttavia, se si tratta di qualcosa che in realtà si vorrebbe gestire ma si avverte una volta, si supponga di volere una gestione affidabile dei dati, ma si desidera avvisare i processi upstream che si ottengono alcuni dati errati, si potrebbe andare a creare un sub warn_once:

{ use Carp(); 
    my %warned; 
    sub warn_once { 
     my $message = shift; 
     my ($msg, $loc) = $message =~ m/(.*?) at (.*?line \d+)/; 
     Carp::carp($message) unless $warned{$loc}{$msg}++; 
    }; 
} 

E chiamare in questo modo:

while (<>) { 
    warn_once('$uninitialisedValue is uninitialized') 
     unless defined($uninitialisedValue) 
     ; 
    no warnings 'uninitialized'; 
    print ${$uninitialisedValue}{$_},"\n"; 
} 

Allora avete deciso qualcosa.