Hjälp med perl skript på strängarna

sagarbsa · #1 (**permalänk**) 04-28-2008

Hai,

Jag har strängar som följer.

0 INDEX MODE: analyseras (UNIKT SCAN) av "SYS_C0030166" (INDEX (UNIKT))

1 INDEX MODE: analyseras (UNIKT SCAN) av "SYS_C0029845" (INDEX (UNIKT)

9 INDEX MODE: analyseras (RANGE SCAN) av "BR_RELATED_PARTY_DETAILS_IDX1" (INDEX)

5 INDEX MODE: analyseras (RANGE SCAN) av "IM_ASSET_HOLDING_IDX2" (INDEX)

Jag måste extrahera vad som finns inuti apostrof dvs jag måste extrahera endast "SYS_C0030166 ',' SYS_C0029845 ',' BR_RELATED_PARTY_DETAILS_IDX1 ',' IM_ASSET_HOLDING_IDX2". Jag är ny på perl. Hur gör jag detta i perl?
Tack på förhand.

cbkihong · #2 (**permalänk**) 04-29-2008

Detta är ett av de sätt:

Kod:

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

KevinADC · #3 (**permalänk**) 04-29-2008

ett sätt:

Kod:

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 och Linux Forum Ämnen Du kan hitta Helpful
Tråd	Thread Starter	Forum	Svar	Senaste Inlägg
Perl REGUTTRYCK ta bort sista tecknet från strängar	ospreyeagle	Shell-programmering och Skript	2	04-03-2008 02:55
jämförelse av strängar i UNIX-skript	piscean_n	Shell-programmering och Skript	1	01-11-2008 01:24
idéer för perl manus - strängar, villkor .. osv	sharatz83	Shell-programmering och Skript	4	09-17-2006 11:47
sortera () array av strängar i perl	photon	Shell-programmering och Skript	2	10-19-2004 01:27
Perl-skript	jikyj	UNIX for Dummies Frågor & Svar	4	05-20-2002 02:25

Thread Tools	Sök i denna tråd
Visa Utskriftsversion Mejla den här sidan	Sök i denna tråd: Avancerad sökning
Visningslägen	Betygsätt denna tråd
Switch to Linear Mode Hybridläge Switch to Gängade Mode	Betygsätt denna tråd:


	Powered by