Hjelp med perl-skripting på strenger

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

Hai,

Jeg har strenger som følger.

0 INDEX MODUS: analyseres (UNIK SCAN) OF 'SYS_C0030166' (indeks (UNIK))

1 Index MODUS: analyseres (UNIK SCAN) OF 'SYS_C0029845' (indeks (UNIK)

9 INDEX MODUS: analyseres (OMRÅDE SCAN) OF 'BR_RELATED_PARTY_DETAILS_IDX1' (INDEX)

5 INDEX MODUS: analyseres (OMRÅDE SCAN) OF 'IM_ASSET_HOLDING_IDX2' (INDEX)

Jeg må trekke ut hva som finnes inne i enkle anførselstegn vil si, jeg har til å trekke ut bare 'SYS_C0030166', 'SYS_C0029845', 'BR_RELATED_PARTY_DETAILS_IDX1', 'IM_ASSET_HOLDING_IDX2'. Jeg er ny på perl. Hvordan gjør jeg dette i perl?
Takk på forhånd.

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

Dette er en av måtene:

Code:

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

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

en måte:

Code:

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;

Mer UNIX og Linux Forum Emner Du kan finne nyttig
Tråd	Tråd startet	Forum	Svar	Siste innlegg
Perl regexp å fjerne siste tegnet fra strenger	ospreyeagle	Shell programmering og Skripting	2	04-03-2008 03:55
sammenligning av strenger i unix shell scripting	piscean_n	Shell programmering og Skripting	1	01-11-2008 01:24
ideer til perl scriptet - strenger, conditionals .. osv.	sharatz83	Shell programmering og Skripting	4	09-18-2006 12:47
sort () tabellen over strenger i perl	foton	Shell programmering og Skripting	2	10-19-2004 02:27
Perl skripting	jikyj	UNIX for Dummies Spørsmål og svar	4	05-20-2002 03:25

Thread Tools	Søk i denne tråden
Vis Printable Version Email denne siden	Søk i denne tråden: Avansert søk
Visningsmoduser	Ranger denne tråden
Switch to Linear Mode Hybridmodus Switch to gjengede Mode	Ranger denne tråden:


	Powered by