Aiuto con script perl su stringhe

sagarbsa · #1 (**permalink**) 04-28-2008

Hai,

Ho stringhe come segue.

0 INDICE MODE: ANALISI (UNIQUE SCAN) DI 'SYS_C0030166' (INDEX (UNIQUE))

1 INDICE MODE: ANALISI (UNIQUE SCAN) DI 'SYS_C0029845' (INDEX (UNIQUE)

9 INDICE MODE: ANALISI (RANGE SCAN) DI 'BR_RELATED_PARTY_DETAILS_IDX1' (INDICE)

5 INDICE MODE: ANALISI (RANGE SCAN) DI 'IM_ASSET_HOLDING_IDX2' (INDICE)

Ho per estrarre ciò che è presente all'interno della singola Quotazioni vale a dire, ho solo per estrarre 'SYS_C0030166', 'SYS_C0029845', 'BR_RELATED_PARTY_DETAILS_IDX1', 'IM_ASSET_HOLDING_IDX2'. Sono di nuovo perl. Come faccio a farlo in perl?
Grazie in anticipo.

cbkihong · #2 (**permalink**) 04-29-2008

Questo è uno dei modi:

Codice:

if ($string =~ /'([^']*)'/) {
    print $1;
}

KevinADC · #3 (**permalink**) 04-29-2008

un modo:

Codice:

use strict;
use warnings;
my @data = ();
open (IN, 'path/to/file') or die "$!";
while(<IN>) {
   push @data,$1 if (/'([^']+)'/);
}
close IN;
print "$_\n" for @data;

Più di UNIX e Linux Forum Argomenti potreste trovare utili
Filo	Thread Starter	Forum	Risposte	Ultimo Post
Perl RegExp per rimuovere l'ultimo carattere da stringhe	ospreyeagle	Shell scripting e di programmazione	2	04-03-2008 02:55 PM
confronto di stringhe in UNIX shell scripting	piscean_n	Shell scripting e di programmazione	1	01-11-2008 01:24 PM
idee per script perl - stringhe, condizionali, ecc ..	sharatz83	Shell scripting e di programmazione	4	09-17-2006 11:47 PM
sort () array di stringhe in Perl	fotone	Shell scripting e di programmazione	2	10-19-2004 01:27 PM
Perl scripting	jikyj	UNIX for Dummies Domande & Risposte	4	05-20-2002 02:25 PM

Thread Tools	Cerca in questo Thread
Visualizza Versione stampabile Invia questa pagina	Cerca in questo Thread: Ricerca Avanzata
Modalità di visualizzazione	Vota questo thread
Passa alla modalità lineare Hybrid Mode Switch to Threaded Mode	Vota questo thread:


	Powered by