awk, sed, cut -f -d

Re(12): awk, sed, cut -f -d

Psychopath — Sat, 19 Jul 2003 20:45:53 GMT

Wenn ich mich nicht irre sowas àla

while() { irgendwas mit $_ tun (ist die aktuelle Zeile, iirc) }

Re(11): awk, sed, cut -f -d

toor — Sat, 19 Jul 2003 20:41:54 GMT

eignet sich ideal um die kiste abzuwuergen (wenn ram kleiner als filesize ist)

einfach den fd in einem while bzw. foreach verwenden

wie gehe ich da vor

Re(10): awk, sed, cut -f -d

Robe — Sat, 19 Jul 2003 20:24:43 GMT

@lines = <[INFILE]>;

eignet sich ideal um die kiste abzuwuergen (wenn ram kleiner als filesize ist)

einfach den fd in einem while bzw. foreach verwenden; ist ramsparender und bringt sonst kaum nachteile mit sich (ausser das das logfile waehrend das script laeuft geoeffnet bleibt)...

Re(10): awk, sed, cut -f -d

toor — Sat, 19 Jul 2003 19:09:26 GMT

http://www.geocities.com/siliconvalley/7331/ten_perl.html

Re(9): awk, sed, cut -f -d

toor — Sat, 19 Jul 2003 18:41:27 GMT

I LOVE PERL

$ cat getdata.pl
#!/usr/bin/perl
$file = 'data.log' ;
open(INFILE,  "<$file") ;
@lines = <[INFILE]>; #hier natürlich ohne eckige klammer
close(INFILE) ;
foreach $line (@lines)
{
if ($line =~ /^(.*)(\s\-){2}\s\[(.*)\](.*)$/) {

  my ($host, $timestamp, $zeugdanach) = ($1, $3, $4);
  print("Host: $host, Time: $timestamp, Zeug: $zeugdanach\n");

} else {
  print("I didn't match, honey\n");
}
}
$ perl getdata.pl
Host: 10.14.7.1, Time: 07/Jul/2003:04:39:14 +0200, Zeug:  "GET / HTTP/1.0" 200 275
Host: 10.14.7.1, Time: 07/Jul/2003:04:39:14 +0200, Zeug:  "GET /openbsd_pb.gif HTTP/1.0" 304 -
Host: 10.14.7.1, Time: 07/Jul/2003:04:39:54 +0200, Zeug:  "GET / HTTP/1.0" 304 -
Host: 10.14.7.1, Time: 07/Jul/2003:04:39:54 +0200, Zeug:  "GET /openbsd_pb.gif HTTP/1.0" 304 -
Host: 10.14.7.1, Time: 07/Jul/2003:04:41:08 +0200, Zeug:  "GET / HTTP/1.0" 200 292
Host: 10.14.7.1, Time: 07/Jul/2003:04:41:08 +0200, Zeug:  "GET /openbsd_pb.gif HTTP/1.0" 304 -
Host: 10.14.7.1, Time: 07/Jul/2003:04:43:03 +0200, Zeug:  "GET /page.php HTTP/1.0" 200 44494

so schön kann coden sein

Re(9): awk, sed, cut -f -d

toor — Sat, 19 Jul 2003 18:07:29 GMT

so kann ich einen loop erzeugen, dieser liest die ganze zeile ein (variable $_) und gibt sie dann am bildschirm aus... so wie cat data.log...

-----

$ cat justread.pl
#!/usr/bin/perl
open(INFILE,  "data.log")       or die "Can't open data log: $!";
while () {
print ("$_");
}
$

-----

my $line = 'cc125510-a.hnglo1.ov.home.nl - - [16/Jul/2003:02:07:21 +0200] "GET /images/beachparty/beachparty_68.jpg HTTP/1.1" 404 251 "h
ttp://www.amd.co.at/images/beachparty/beachparty_68.jpg" "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"';

if ($line =~ /^(.*)(\s\-){2}\s\[(.*)\](.*)$/) {

  my ($host, $timestamp, $zeugdanach) = ($1, $3, $4);
  print("Host: $host, Time: $timestamp, Zeug: $zeugdanach\n");

} else {
  print("I didn't match, honey\n");
}

ich schaffe es nicht, die zeilen oberhalb dieser zeile in den while loop einzubauen
geht das überhaupt? man müsste irgendwie definieren können, dass $line = "$_"
ausserdem bin ich mir nicht sicher, ob man if zeugs mit while zeugs mischen kann

Re(10): awk, sed, cut -f -d

Psychopath — Sat, 19 Jul 2003 15:15:57 GMT

Biite nicht mit den eckigen Klammern... - die sind so oed zu tippen

Re(10): awk, sed, cut -f -d

Robert Craven — Sat, 19 Jul 2003 01:51:05 GMT

Sagst, schläft denn bei euch keiner?

Re(9): awk, sed, cut -f -d

mjy@geizhals.at — Sat, 19 Jul 2003 01:50:14 GMT

wir brauchen wohl ein [code]...[/code] feature

Re(8): awk, sed, cut -f -d

Robe — Sat, 19 Jul 2003 01:48:45 GMT

ich gebs auf, ich hoff es ist verstaendlich *nirg*

Re(7): awk, sed, cut -f -d

Robe — Sat, 19 Jul 2003 01:48:25 GMT

dann mal so

while () {

Re(6): awk, sed, cut -f -d

Robe — Sat, 19 Jul 2003 01:47:43 GMT

grarg

sollte


while () {

sein...

Re(5): awk, sed, cut -f -d

Robe — Sat, 19 Jul 2003 01:44:23 GMT

am einfachsten ist sowas mit einem

while () {
$line = chomp($_);
print("$line\n");
}

zu realisieren, und dann einfach ueber ein "cat logfile | lustigesskript.pl" die daten uebergeben...

falls du vor hast mehr mit perl machen zu wollen empfiehlt sich http://www.amazon.de/exec/obidos/ASIN/0596001320/qid=1058578979/sr=2-1/ref=sr_aps_prod_1_1/028-5919386-8938146

Re(4): awk, sed, cut -f -d

toor — Fri, 18 Jul 2003 22:27:41 GMT

wahnsinn!
ich habe den sourcecode einfach ins vi kopiert und:

$ perl getdata.pl
Host: cc125510-a.hnglo1.ov.home.nl, Time: 16/Jul/2003:02:07:21 +0200, Zeug: "GET /images/beachparty/beachparty_68.jpg HTTP/1.1" 404 251 "http://www.amd.co.at/images/beachparty/beachparty_68.jpg" "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
$

die variable hat man selbst definieren müssen, und ich probiere mal herauszufinden, wie ich einen loop erzeugen kann, der den input aus einem file holt

Re(4): awk, sed, cut -f -d

Psychopath — Wed, 16 Jul 2003 09:35:15 GMT

Hab's nicht probiert, sollte es aber mit (einer der vielen Varianten von) sed gehen, denk ich.

Re(3): awk, sed, cut -f -d

Robe — Wed, 16 Jul 2003 00:17:07 GMT

mjo, da muss man halt auf mehrere etappen arbeiten...

in perl geht das schoen einfach mit regexp, ich weiss nicht inwieweit sich das auf sed/awk umnuppeln laesst...

(mal schaun ob das forum die tags frisst)


#!/usr/bin/perl

use strict;
use warnings;

my $line = 'cc125510-a.hnglo1.ov.home.nl - - [16/Jul/2003:02:07:21 +0200] "GET /images/beachparty/beachparty_68.jpg HTTP/1.1" 404 251 "h
ttp://www.amd.co.at/images/beachparty/beachparty_68.jpg" "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"';

if ($line =~ /^(.*)(\s\-){2}\s\[(.*)\](.*)$/) {

  my ($host, $timestamp, $zeugdanach) = ($1, $3, $4);
  print("Host: $host, Time: $timestamp, Zeug: $zeugdanach\n");

} else {
  print("I didn't match, honey\n");
}

Re(2): awk, sed, cut -f -d

toor — Tue, 15 Jul 2003 23:55:52 GMT

you rule man!

das ist was ich gesucht habe!

awk 'BEGIN { FS = "-" } { print $1 | "sort" }' /var/www/logs/access_log
awk 'BEGIN { FS = "[" } { print $2 | "sort" }' /var/www/logs/access_log | cut -c1-26
awk 'BEGIN { FS = "]" } { print $2 | "sort" }' /var/www/logs/access_log

*rotfl* es geht wirklich

Re(2): awk, sed, cut -f -d

toor — Mon, 14 Jul 2003 15:23:07 GMT

das txt file ist sehr interessant, ich werde mal herumprobieren, wenn ich zuhause bin
danke

> kannst du mal einen beispielstring posten?

klar

xx.xx.x.x - - [datumstring-blabla] testtesttest test test
xx.xx.x.xxx - - [datumstring-blabla] blablabla blabla bla bla
xx.xxx.xx.xxx - - [datumstring-blabla] testtesttest blablabla
xx.xx.x.x - - [datumstring-blabla] testtesttest test test
xx.xx.x.xxx - - [datumstring-blabla] blablabla blabla bla bla
xx.xxx.xx.xxx - - [datumstring-blabla] testtesttest blablabla
xx.xx.x.x - - [datumstring-blabla] testtesttest test test
xx.xx.x.xxx - - [datumstring-blabla] blablabla blabla bla bla
xx.xxx.xx.xxx - - [datumstring-blabla] testtesttest blablabla
xx.xx.x.x - - [datumstring-blabla] testtesttest test test
xx.xx.x.xxx - - [datumstring-blabla] blablabla blabla bla bla
xx.xxx.xx.xxx - - [datumstring-blabla] testtesttest blablabla
xx.xx.x.x - - [datumstring-blabla] testtesttest test test
xx.xx.x.xxx - - [datumstring-blabla] blablabla blabla bla bla
xx.xxx.xx.xxx - - [datumstring-blabla] testtesttest blablabla
xx.xx.x.x - - [datumstring-blabla] testtesttest test test
xx.xx.x.xxx - - [datumstring-blabla] blablabla blabla bla bla
xx.xxx.xx.xxx - - [datumstring-blabla] testtesttest blablabla
xx.xx.x.x - - [datumstring-blabla] testtesttest test test
xx.xx.x.xxx - - [datumstring-blabla] blablabla blabla bla bla
xx.xxx.xx.xxx - - [datumstring-blabla] testtesttest blablabla

> ich loes sowas meistens in perl,..

und ich lös' sowas in DCL, aber das geht halt nicht auf UNIX

$ p1 = F$ELEMENT(0,"-",line)
$ p1 = F$EXTRACT(0,''F$LENGHT(p1)'-1,p1)
$ p2 = F$ELEMENT(0,"[",line)
$ p2 = F$EXTRACT(''F$LENGHT(p2)'+1,17,line)
$ p3 = F$ELEMENT(0,"]",line)
$ p3 = F$EXTRACT(''F$LENGHT(p3)'+2,35,line)

Re: awk, sed, cut -f -d

Robe — Mon, 14 Jul 2003 10:09:07 GMT

einge examples fuer awk, sed, etc. gibts unter

http://www.bordergatewayprotocol.net/~jon/helpful_stuff/unix/awk.txt

bzw. sed.txt

ich loes sowas meistens in perl, weil mir die syntax von den beiden anderen programmen (noch) nicht ganz so vertraut ist...

kannst du mal einen beispielstring posten?

Re(2): awk, sed, cut -f -d

toor — Sun, 13 Jul 2003 16:26:46 GMT

danke für deine antwort. das mit sed check ich noch immer nicht und von perl habe ich 0 ahnung

Re: awk, sed, cut -f -d

Psychopath — Sun, 13 Jul 2003 16:21:23 GMT

Fuer sollte sed reichen, denk ich. So àla sed s/\[(.*)\]/$1/ - ohne Garantie. Fuer Details irgendein regexps-Tutorial. D.b. Perl regular expressions quick start oder Perl regular expressions tutorial (auch wenn nicht alle regexp-Implementationen ganz gleich sind, so ist das doch einmal ein guter Anfang)

awk, sed, cut -f -d

toor — Sun, 13 Jul 2003 15:34:49 GMT

gibt es jemand, der sich mit awk oder sed auskennt.
konkret möchte ich eine datei zeile für zeile einlesen, und dann ein paar dinge substringen.

ich möchte meine apache logs in eine db laden...ein schlichtes cut reicht in diesem fall nicht, weil sich der zeileninhalt verschiebt (error_log)
also ich muss irgendwie "delimiter" verwenden... z.b. "[" oder "]"
wie kann ich jetzt hergehen, und sagen, lies' die zeile zeichen für zeichen ein und wenn du bei "[" ankommst, schneide alles davor aus und in eine variable umleiten, und dann weiterlesen bis ein "]" kommt, dann alles zwischen "[" und "]" ausschneiden und und in eine zweite variable speichern, und alles was nach "]" kommt ausschneiden und in eine dritte variable umleiten *yeah*

ich blick' das nicht durch
https://startpage.com/do/search?hl=de&ie=UTF-8&oe=UTF-8&q=awk+length+substr&btnG=Google+Suche&meta=

mit welcher sprache kann ich das am besten umsetzen, gibt's beispiele
bitte gebt's ma einen denkanstoss