Markus Wolf schrieb: > habe ein SQL Script, das verschiedene Objecte anlegt (Tabelle, Index, > Materialized View, und co). Alle diese Objekte haben einen gemeinsamen > Namens-Stamm READANDUNDERSTOOD. Ich habe nun ein Perl-Script > geschrieben, das mir die Länge aller dieser Namen ausgibt (wegen der > Beschränkung innerhalb von Oracle auf 30 Zeichen). > > Das funktioniert auch soweit, es liefert leider nur ein Match einer > jeden Zeile (hier ein modifiziertes Beispiel): > > $ echo 'jkl IFDGQC_QM_READANDUNDERSTOOD_SP ghi > QC_QM_READANDUNDERSTOOD_SP def QC_QM_READANDUNDERSTOOD_SP_ abc > QM_READANDUNDERSTOOD_SP mno' | \ > perl -Wlne '/(\w*READANDUNDERSTOOD\w*)/ && print $1' > > $ _SP def QC_QM_READANDUNDERSTOOD_SP_ abc QM_READANDUNDERSTOOD_SP mno' > | \ < >> perl -Wlne '/(\w*READANDUNDERSTOOD\w*)/ && print $1' > IFDGQC_QM_READANDUNDERSTOOD_SP > $ > > Wie bekomme ich es einfach hin, dass ALLE Matches aller Zeilen > gefunden werden? Bin für jeden Tip dankbar :-))
Und mal wieder keine Problemstellung, sondern nur ein gescheiterter
Lösungsansatz. :-(
Mein Versuch, die richtige Aufgabenstellung zu erraten:
perl -ane 'for(@F){/_READANDUNDERSTOOD_/&&print"$_\n"}'
-martin
signature.asc
Description: OpenPGP digital signature
-- ---------------------------------------------------------------------------- PUG - Penguin User Group Wiesbaden - http://www.pug.org
