linux-l: squid Ausgabe lesbarer gestalten aber wie?

[phR]

Michael.Feldbinder at bo.dlr.de wrote:

> Aber wie kann ich das verketten? Besser ist noch, wenn ich gleich ein
> awk-Script basteln könnte in dem das Heraussuchen gleich mit erledigt und
> dann der ganze Quark angezeigt wird. 
>...
> Habt Ihr eine tolle Idee???

Ich weiss nicht, ob du es noch brauchst, aber hier ist ein
Perl-Programm, dass eben dies tut. Natuerlich selbsterklaerend :))))

------- schnipp -----------
#!/usr/bin/perl

$NAMENSDATEI="namen.dat";

open (nd, $NAMENSDATEI) or die "could not open \"$NAMENSDATEI\": $!\n";

%n=split(/cc\s*/, <nd>);
while ($l=<STDIN>) {
    if
($l=~/(\d{1,3}\.){3}(\d{1,3})\s*(\s|\w|\/|\:|\-|\[|\]|\+)*(\".*)/) {
	print $n{"0"."$2"};
	($j, $a, $f, $r)=split(/\"|\s+/, $4);
	print " $f ($a)\n";
    }
}
--------- schnapp --------

Der Pfad zum Interpreter und natuerlich der Name und der Pfad zur
Namensdatei (in $NAMENSDATEI) muessen natuerlich angepasst werden.
Wenn es dir nutzt, sag Bescheid. Wenn du Hilfe brauchst, auch.
Dokumentation ist auch erhaeltlich, muesste ich aber extra schreiben.
Keine Garantie usw. ist wohl selbstverstaendlich.

phr
-- 
foreach$j(split/\ /,"Just_ ano ther_ Perl_ Hac
ker\n"){do{$n="";foreach$c(@c=
split//,$j){$n.=$c[rand($#c+1)];}}until(crypt($j,"ph")eq
crypt($n,"ph"));$n=~
s/\_/ /g;print$n;}# The three great virtues of a programmer are
Laziness, ###
# Impatience, and Hubris (Larry Wall, Creator of Perl)
######################