Perl.it - Documenti

[27] Come si cancella un package?

Usate questo codice, fornito da Mark-Jason Dominus:

     sub scrub_package {
        no strict 'refs';
        my $pack = shift;
        die "Non si dovrebbe eliminare il package main"
            if $pack eq "" || $pack eq "main";
        my $stash = *{$pack . '::'}{HASH};
        my $nome;
        foreach $name (keys %$stash) {
            my $nomecompleto = $pack . '::' . $nome;
            # Elimino tutto con quel nome
            undef $$nomecompleto;
            undef @$nomecompleto;
            undef %$nomecompleto;
            undef &$nomecompleto;
            undef *$nomecompleto;
        }
     }

Oppure, se state usando una versione recente di Perl, al suo posto potete semplicemente usare la funzione Symbol::delete_package() .

vedi in inglese

AUTORE E COPYRIGHT

Questa documentazione è libera; puoi ridistribuirla e/o modificarla secondo gli stessi termini applicati al Perl.

Indipendentemente dalle modalitè di distribuzione, tutti gli esempi di codice in questo file sono rilasciati al pubblico dominio. Potete, e siete incoraggiati a farlo, utilizzare il presente codice o qualunque forma derivata da esso nei vostri programmi per divertimento o per profitto. Un semplice commento nel codice che dia riconoscimento alle FAQ sarebbe cortese ma non è obbligatorio.