On 2002-10-22 11:14:11, Heiner Iserloth wrote:
Antwort an: Re: Shell scripte Hallo Liste, vielen für die Antworten. Entschuldigung für die langen Zeilen (habe ein internes Mail Formular ausgewählt).
Die sind immer noch zu lang, dann mußt Du halt manuell auf die Returntaste drücken ...
z.b. Oct 22 09:27:00 192.168.1.1 %PIX-6-101001: TCP connection 910452 faddr 192.168.1.1/80 gaddr 192.168.1.1/80 laddr 192.168.1.1/80 duration 0:00:01 bytes 4190 (TCP Reset-I)
die regex (in perl) dafür: ($bytes) = $line =~ m/.*bytes (\d*)/;
Aus so einer Zeile möchte die Zahl hinter dem Wort "bytes" auslesen. Schön wäre die Zeichen Position von "b" vom dem Wort "bytes", dann könnte ich mit dem Programm cut die Zeilen wie gewünscht Schneiden.
Ich gehe mal davon aus, Du bekommst den Quatsch in einer Datei -------------%--------------------%-------------------%------------------------- #!/usr/bin/perl -w use strict; ## Programm ungetestet.... my $dat = $ARGGV[0] or die "Usage: $0 <FILENAME>\n"; open DAT, $dat or die "Cannot open $dat $!"; while (<DAT>) { my($bytes) = $_ =~ m/.*bytes (\d*)/; print STDERR "Got $bytes bytes\n"; } close DAT; print "Ich habe fertig\n"; print "HTH\nVolker\n"; -------------%--------------------%-------------------%------------------------- HTH V.