Opened by Gast at 2005-07-22 13:38
User since
2003-08-11
457 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-11
457 Artikel
BenutzerIn
[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 ;-)
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:
Grusz Christian.\n\n
<!--EDIT|coax|1122135167-->
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
)
1
2
3
4
5
6
7
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
<!--EDIT|coax|1122135167-->
,,Das perlt aber heute wieder...'' -- Dittsche