Aide avec les scripts perl sur les cordes

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

Hai,

J'ai les chaînes de caractères comme suit.

0 INDEX MODE: ANALYSER (UNIQUE SCAN) OF 'SYS_C0030166' (INDEX (UNIQUE))

1 INDEX MODE: ANALYSER (UNIQUE SCAN) OF 'SYS_C0029845' (INDEX (UNIQUE)

9 INDEX MODE: ANALYSER (RANGE SCAN) OF 'BR_RELATED_PARTY_DETAILS_IDX1' (INDEX)

5 INDEX MODE: ANALYSER (RANGE SCAN) OF 'IM_ASSET_HOLDING_IDX2' (INDEX)

J'ai extrait de ce qui est présent à l'intérieur des guillemets simples c'est-à-dire, je dois extraire uniquement "SYS_C0030166 ',' SYS_C0029845 ',' BR_RELATED_PARTY_DETAILS_IDX1 ',' IM_ASSET_HOLDING_IDX2». Je suis nouveau à perl. Comment puis-je faire dans la perl?
Merci à l'avance.

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

C'est l'une des façons suivantes:

Code:

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

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

un titre:

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;

Plus d'UNIX et Linux Forum Sujets Vous trouverez peut-être utile
Fil	Thread Starter	Forum	Réponses	Last Post
Perl RegExp pour supprimer dernier caractère de cordes	ospreyeagle	De programmation et de script Shell	2	04-03-2008 02:55 PM
comparaison de chaînes de caractères dans les scripts shell unix	piscean_n	De programmation et de script Shell	1	01-11-2008 01:24 PM
des idées de script perl - cordes, etc .. conditionals	sharatz83	De programmation et de script Shell	4	09-17-2006 11:47 PM
trier () tableau de chaînes en perl	photon	De programmation et de script Shell	2	10-19-2004 01:27 PM
Script Perl	jikyj	UNIX pour les nuls Questions et réponses	4	05-20-2002 02:25 PM

Thread Tools	Recherche sur ce Thread
Voir la version imprimable Envoyer cette page	Recherche sur ce Thread: Recherche avancée
Modes d'affichage	Rate this thread
Switch to Linear Mode Mode Hybrid Switch to Threaded Mode	Rate this thread:


	Powered by