* Steffen Dettmer wrote on Wed, Dec 21, 2005 at 14:59 +0100: [once upon a time in china...]
[Programm, um Plattenplatz zu prüfen]
df | perl -ane ' if ($F[3] < 100 * 1024) { print "$F[0]: disk low ($F[3]/$F[4]) on \n" }' [...] Überrascht mich auch nicht, es tut ja das gleiche (nur auf etwas umständlichere Art SCNR :)).
<precondition> Proportionalen Font? Terminal 80 breit und 50 lang? Sonst erkennt man die Kerze unten evtl. nicht :-) </precondition> Hier eine zeitlich hoffentlich von der Stimmung her gut passende (und noch etwas umständlichere) Version: =====8<---------------------------------------------------------- perl <<'EOT' eval eval '"'. ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( (( ( ( '#' ) ) ) ) ) ))))) ) )))))))) ) . '!'.'/'.( ( ( ( ('['))))^ '.').( ( '[') ^ ( ( '('))).( ( '[')^"\)"). '/'.('`'|"\"").( '`'|')').('`'|'.').'/' .('['^'+').('`'|'%').('['^ ')').('`'|',').('!'^'+').( '['^'+').('['^')').("\`"| ')').('`'|'.').('['^'/'). ('{'^'[').'<'.'<'."'".('`' ^'%').('`'^'/').('{'^"\/"). "'".('!'^'+').('!'^'+').('{' ^'+').('`'|',').('`'|'!'). ('['^'/').('['^'/').("\`"| '%').('`'|'.').('{'^'[' ).('['^'(').('`'|')').( '`'|'.').('`'|'$').('{' ^'[').('`'|'$').(('`')| '/').('`'|'#').('`'|'(' ).('{'^'[').('`'|'%').( '`'|"'").('`'|'!').('`' |',').':'.('!'^('+')).( '!'^'+').('`'^'&').('[' ^ ')').('`'|'/').('`'|'(' ).(('`')| '%').('{'^'[').('{'^',' ) . ('`'|('%')).( '`'|')').('`'|'(').('`' | '.').('`'| '!').('`'|"\#").( '`'|'(').('['^'/').('`' |'%').('`'|"\."). (( '!')).('!'^'+').('!'^'+').('`'^'%'). ('`'^'/').('{'^'/'). +( '!'^'+').'"';$:='.'^'~';$~='@'|'(';$^=')'^"\[";$/= '`'| '.';$,='('^'}';$\='`' |+ ( ( ( ( "\!"))));$:= ')'^'}';$~='*' |'`';$^='+'^'_';$/ ='&'|'@';$,=('[')& '~' ;#; #;# EOT --------------------------------------------------------->8====== Kann man so einer bash vorwerfen. Anmerkungen: - Wer unverständlichen Code aus ungesicherter Quelle (unsignierte eMails, mit unbekanntem Schlüssel signierte eMails, eMails - selbst wenn verifizierbar PGP signiert - von nicht persönlich bekannten) ausführt, ist selbst Schuld. --> Das macht man nicht! - Es gab schon "Scherze", mit denen sich Leute Dateien gelöscht haben oder ähnliches, weil es jemand lustig fand, etwas gemeines in einem Script zu verstecken. - Obige Kerze kann man auch in eine Datei schreiben (einschliesslich der Zeile mit "eval eval", aber ohne das "EOT" am Ende, also 50 Zeilen), die z.B. candle.pl nennen. Da kann man auch als erste Zeile hinzufügen: "#!/usr/bin/perl", dann kann man es als ./candle.pl starten. Sollte man aber nur machen, wenn man es versteht, weil ihr dürft dem Script ja sonst nicht trauen, könnte ja was gemeines sein! - "perl -MO=Deparse < candle.pl" bringt dann möglicherweise etwas Licht in das Programm, welches (neben eval, aber egal) nur eine einzige Perlfunktion aufruft. - Mit http://search.cpan.org/dist/Acme-EyeDrops/lib/Acme/EyeDrops.pm können alle mitspielen, aber bitte nicht auf der Liste :) oki, Steffen -- Dieses Schreiben wurde maschinell erstellt, es trägt daher weder Unterschrift noch Siegel.