alle Dateien eines Ordners nach String durchsuchen (Seite 2) (Allgemeines zu Perl)

[thread]7152[/thread]

alle Dateien eines Ordners nach String durchsuchen (Seite 2)

Leser: 1

coax

2005-07-23 20:11

User since
2003-08-11
457 Artikel
BenutzerIn
[default_avatar]

[quote=Guest,22.07.2005, 11:38]Würde mich mal interessieren, wieviele Zeilen es sind,wenn man es perfekt macht !?[/quote]
Mag bezweifeln dass es in irgendeiner Weise perfekt ist, aber es langt hin ;-)

Code: (dl )

$ perl -nle '$ARGV eq $O && next;!/logging/&&($O=$ARGV)&&print $O' -- files/*

Hier wird Perl ueber die Kommandozeile mit bestimmten Schaltern (-n -l -e) aufgerufen, -n sorgt dafuer dass Perl den durch -e angegebenen Code fuer jede Zeile der nach '--' angegebenen Dateien aufgerufen wird. -l sorgt dafuer dass nach dem Aufruf von print automatisch ein Zeilenumbruch erfolgt.

Und angewendet sieht das dann so aus:

Code: (dl )

coax@ae:~$ mkdir files
coax@ae:~$ echo "etwas text" > files/file_a
coax@ae:~$ echo "noch etwas text" > files/file_b
coax@ae:~$ echo "der gesuchte string: logging" > files/file_c
coax@ae:~$ perl -nle '$ARGV eq $O && next;!/logging/&&($O=$ARGV)&&print $O' -- files/*
files/file_a
files/file_b

Grusz Christian.\n\n

,,Das perlt aber heute wieder...'' -- Dittsche

View all threads created 2005-07-22 13:38.