Segítség a perl script a vonósok

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

Hai,

Én vonósok a következő.

0 INDEX MODE: elemeztük (UNIQUE SCAN) OF 'SYS_C0030166 "(INDEX (UNIQUE))

1 INDEX MODE: elemeztük (UNIQUE SCAN) OF 'SYS_C0029845 "(INDEX (UNIQUE)

9 INDEX MODE: elemeztük (RANGE SCAN) OF 'BR_RELATED_PARTY_DETAILS_IDX1 "(INDEX)

5 INDEX MODE: elemeztük (RANGE SCAN) OF 'IM_ASSET_HOLDING_IDX2 "(INDEX)

Nekem van-hoz kivonat, ami jelen belül egységes árajánlatok azaz nekem van-hoz kivonat csak "SYS_C0030166 ',' SYS_C0029845 ',' BR_RELATED_PARTY_DETAILS_IDX1 ',' IM_ASSET_HOLDING_IDX2". Én új-hoz perl. Hogy tehetem ezt perl?
Thanks in Advance.

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

Ez az egyik módja:

Kód:

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

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

egyik módja:

Kód:

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;

Több, UNIX és Linux fórum témák Ön által talált Hasznos
Szál	Thread Starter	Fórum	Válaszok	Utolsó hozzászólás
Perl RegExp eltávolítani utolsó karaktert strings	ospreyeagle	Shell programozás és Scripting	2	04-03-2008 02:55 PM
Összehasonlítás stringen UNIX shell scripting	piscean_n	Shell programozás és Scripting	1	01-11-2008 01:24 PM
ötletek Perl script - strings, conditionals stb ..	sharatz83	Shell programozás és Scripting	4	09-17-2006 11:47 PM
sort () tömb strings in perl	photon	Shell programozás és Scripting	2	10-19-2004 01:27 PM
Perl script	jikyj	A UNIX a dummies Kérdések és válaszok	4	05-20-2002 02:25 PM

Téma eszközök	Keresés a téma
Show Nyomtatható verzió Küldés e-mailben	Keresés a téma: Részletes keresés
Megjelenítési módok	Rate this thread
Váltás Linear Mode Hibrid üzemmód Switch to Threaded Mode	Rate this thread:


	Powered by