Ci sono dei casi d'uso in cui l'eval di stringa è necessario in Perl?

Question

Potete fornire qualche esempio in cui l'utilizzo di eval EXPR è davvero necessario? Chiedo perché è generalmente scoraggiato.

Answer 1

Parecchio anni fa, ho scritto un generatore di siti Web statici che utilizzava Perl (< - interessante il fatto che il mio correttore ortografico suggerisce "Pericolo" in sostituzione di quello) come linguaggio di scripting. Permetteva all'utente di inserire informazioni su diversi livelli di una gerarchia: il primo al mercato era per un cimitero in cui si avevano clienti (clienti paganti) che possedevano memoriali (per i defunti, ovviamente).

Aveva una GUI dove siete entrati variabili quali (tremare le mie capacità grafiche qui):

+------------+----------------------------+ 
| ClientName | Pax Diablo     | 
+------------+----------------------------+ 
| Address | 666 Hades St, Washinton DC | 
+------------+----------------------------+ 

e le variabili di immagine pure.

Inoltre, per ogni mercato (come il citato), c'era uno script di controllo che fondamentalmente eseguiva ed elaborava ogni record a più livelli gerarchici per generare il contenuto statico. Prima di allora, il programma aveva girato tutte queste variabili in cose come:

$Var{"ClientName"} = "Pax Diablo"; 

(credo che la sintassi è giusto, non ho fatto qualsiasi sviluppo Perl per un po '). Il risultato finale è stato un sito web completo con un sacco di clienti, un sacco di memoriali, pagine di ricerca e un bel po 'di soldi mentre è durato (sono stato buttato fuori dal mercato dai direttori di pompe funebri fornendo la stessa cosa di un servizio "gratuito" all'interno i loro pacchetti regolari).

Ma il tutto è stato praticamente scritto in Perl minima cui solo fatto due cose:

• trasformato le variabili in istruzioni di assegnamento Perl; e
• ha eseguito il codice Perl specifico del mercato.

Sia l'esecuzione delle istruzioni di assegnazione sia il codice Perl specifico del mercato sono state eseguite con eval.

Quindi non è così inutile come si potrebbe pensare. Era un modo economico per introdurre lo scripting in un'applicazione.

Answer 2

La valutazione delle stringhe è l'unico modo per creare un nuovo codice con le stringhe. Questo è raramente necessario, ma ci sono alcuni casi d'uso validi, ad esempio quando si convertono modelli in codice eseguibile. Oltre a questo, ci sono pochissimi usi validi per questo. eval "require $module_name" è un idioma ben noto, ma l'utilizzo ad esempio di Module::Load è un'idea migliore di quella IMO.

Answer 3

eval EXPR può essere utilizzato per meta-programmazione nel caso in cui non si può fare affidamento su Moose o simili quadri per creare le classi al volo. Dai un'occhiata alla fonte di Exception::Class per vedere l'orrore pieno di questa tecnica.

Addendum: (@friedo)
Una caratteristica che fornisce oltre eval simbolo tavolo manipolazione è la capacità di utilizzare Super e farlo funzionare come previsto:

package Foo; 
sub msg { return 'Foo' } 

package MyCodeGenerator; 

use strict; 
use warnings; 

eval <<'EOPERL'; # '' -> no variable interpolation 
    package FooBar; 
    @FooBar::ISA = qw/Foo/; 
    sub msg { 
    my $self = shift; 
    return $self->SUPER::msg() . 'Bar'; # calls &Foo::msg 
    } 
EOPERL 

Anche se questo sarà (si spera) morire durante run-time, oppure è impostato per un lungo ore sessione di debug :

package BROKEN_Generator; 

@FooBar::ISA = qw/Foo/; 
*{'FooBar::msg'} = sub { 
    my $self = shift; 
    return $self->SUPER::msg() . 'Bar'; # tries to call &BROKEN_Generator::msg 
} 

facilmente in il mio Top 5 of things I hate about Perl!

Answer 4

String eval è l'unico modo per:

1. eseguire nuovo codice in un pacchetto runtime deciso
2. metti sovraccarico a un pacchetto in fase di esecuzione (almeno secondo overload.pm)
3. esecuzione arbitraria stringhe di Perl
4. compilare tipo di macro sostituzioni

String eval non deve essere utilizzato per:

1. valutare riferimenti simbolici
2. eseguire qualsiasi codice da parte dell'utente
3. intercettare gli errori
4. se c'è qualche altro modo per farlo

eval può essere utilizzato anche per creare Ad- protocolli di comunicazione ad hoc tra diversi sistemi o lingue diverse che hanno anche eval (a condizione che tutto sia sicuro, ovviamente. JSON può essere visto come un sottoinsieme più sicuro, ma limitato di questo metodo)