Articles of perl

Espressione regolare Perl (usando una variabile come stringa di ricerca con caratteri operatore Perl inclusi)

$text_to_search = “example text with [foo] and more”; $search_string = “[foo]”; if ($text_to_search =~ m/$search_string/) print “wee”; Si prega di osservare il codice sopra. Per qualche motivo mi piacerebbe trovare il testo “[foo]” nella variabile $ text_to_search e stampare “wee” se lo trovo. Per fare ciò dovrei assicurarmi che [e] sia sostituito con [e] per […]

Come posso cercare e sostituire su più righe con Perl?

$ perl –version This is perl, v5.10.1 (*) built for x86_64-linux-gnu-thread-multi $ echo -e “foo\nbar” > baz.txt $ perl -p -e ‘s/foo\nbar/FOO\nBAR/m’ baz.txt foo bar Come posso far funzionare questo ricambio?

Come ordinare l’hash perl sui valori e ordinare le chiavi in ​​modo corrispondente (magari in due array)?

In Perl, voglio ordinare le chiavi di un hash per valore, numericamente: { five => 5 ten => 10 one => 1 four => 4 } producendo due array: (1,4,5,10) and (one, four, five, ten) E poi voglio normalizzare la matrice dei valori in modo tale che i numeri siano sequenziali: (1,2,3,4) Come faccio a […]

Convertire il percorso relativo in un percorso assoluto?

Non sono sicuro che questi percorsi siano duplicati. Dato il percorso relativo, come posso determinare il percorso assoluto usando uno script di shell? Esempio: relative path: /x/y/../../a/b/z/../c/d absolute path: /a/b/c/d

Modificatore Perl Regex ‘e’ (eval) con s ///

Sto avendo un piccolo problema a comprendere questo semplice uso del modificatore / regex. my $var = ‘testing’; $_ = ‘In this string we are $var the “e” modifier.’; s/(\$\w+)/$1/ee; print; Restituisce: “In questa stringa stiamo testando il modificatore” e “.” Non riesco a capire perché siano necessari due modificatori ‘e’. Per quanto posso vedere, […]

Come posso stampare elementi unici nell’array Perl?

Sto spingendo gli elementi in un array durante una dichiarazione while. Ogni elemento è il nome di un insegnante. Finiscono per essere nomi di insegnanti duplicati nella matrice quando termina il ciclo. A volte non sono l’uno accanto all’altro nell’array, a volte lo sono. Come posso stampare solo i valori univoci in quell’array dopo aver […]

Qual è il miglior parser XML per Perl?

Ho provato molti dei parser XML Perl. Ero abbastanza interessato al Sablotron Parser, ma è un problema da installare su una scatola di Windows. Attualmente ho iniziato a utilizzare XML :: LibXML e XML :: LibXSLT, entrambi sembrano fare tutto ciò di cui ho bisogno. Sembrano essere abbastanza standard pure. Ci sono migliori parser XML […]

Come posso verificare che un valore sia presente in un array (elenco) in Perl?

Ho una lista di possibili valori: @a = qw(foo bar baz); Come faccio a verificare in modo conciso che un valore $val è presente o assente in @a ? Un’implementazione ovvia è quella di scorrere l’elenco, ma sono sicuro che TMTOWTDI . Grazie a tutti coloro che hanno risposto! Le tre risposte che vorrei evidenziare […]

Perl DBD :: Installazione del modulo Oracle

Qualcuno potrebbe guidarmi come installare il modulo Perl DBD::Oracle ? Ecco cosa ho fatto finora: Piattaforma: RHEL 5.8 64 bit Installato pacchetto Perl DBI Installato client Oracle Instant per Linux a 64 bit (basi + sdk + componente sqlplus per il client istantaneo Hanno impostato $ORACLE_HOME e $LD_LIBRARY_PATH corretti Quindi quando perl Makefile.pl fallisce con […]

Posso sostituire più elementi in una singola espressione regolare in VIM o Perl?

Diciamo che ho una stringa “La volpe marrone veloce salta sul cane pigro” posso cambiare questo a “La volpe marrone lenta salta sul cane energico” con una sola espressione regolare? Attualmente, io uso due serie di espressioni regolari per questa situazione. (In questo caso, utilizzo s/quick/slow/ seguito da s/lazy/energetic/ .)