Hilfe bei Perl-Scripts für Streicher - Das UNIX-und Linux-Foren

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

Hai,

Ich habe Zeichenketten wie folgt.

0 Index MODE: Analyzed (UNIQUE SCAN) der SYS_C0030166 '(INDEX (UNIQUE))

1 INDEX MODE: Analyzed (UNIQUE SCAN) der SYS_C0029845 '(INDEX (UNIQUE)

9 Index MODE: Analyzed (RANGE SCAN) der BR_RELATED_PARTY_DETAILS_IDX1 '(INDEX)

5 INDEX MODE: Analyzed (RANGE SCAN) der IM_ASSET_HOLDING_IDX2 '(INDEX)

Ich habe zu extrahieren, was ist innerhalb der einzelnen Zitate Das bedeutet, ich habe zu extrahieren nur "SYS_C0030166 ',' SYS_C0029845 ',' BR_RELATED_PARTY_DETAILS_IDX1 ',' IM_ASSET_HOLDING_IDX2". Ich bin neu auf perl. Wie kann ich das in perl?
Vielen Dank im Voraus.

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

Dies ist eine der Möglichkeiten:

Code:

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

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

eine Möglichkeit:

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;

Mehr UNIX-und Linux-Forum Themen Vielleicht finden Sie hilfreiche
Faden	Thread Starter	Forum	Antworten	Last Post
Perl RegExp zu entfernen letzten Zeichen von Strings	ospreyeagle	Shell Programmierung und Scripting	2	04-03-2008 02:55 PM
Vergleich von Zeichenketten in der Unix-Shell-Scripting	piscean_n	Shell Programmierung und Scripting	1	01-11-2008 01:24 PM
Ideen für ein Perl-Script - Strings, Konditionen etc. ..	sharatz83	Shell Programmierung und Scripting	4	09-17-2006 11:47 PM
Art () Array von Zeichenketten in Perl	Photon	Shell Programmierung und Scripting	2	10-19-2004 01:27 PM
Perl-Scripts	jikyj	UNIX for Dummies Questions & Answers	4	05-20-2002 02:25 PM

Thread Tools	Suche diesen Thread
Zeige Druckversion E-Mail Diese Seite	Suche diesen Thread: Erweiterte Suche
Anzeige-Modi	Rate this thread
Wechseln Sie in den Linear-Modus Hybrid-Modus Switch to Threaded Mode	Rate this thread:


	Powered by