Beiträge von LukeGee

Zitat von Bild.de

Schland Gottes!

(Man kann gegen Bild sagen, was man will, aber denen fallen schon tolle Sachen ein :D)

Zitat von Sje

4:0 Bye Bye Argentinien
Ich bin begeistert, mit einem 4:0 hätte ich nicht gerechnet.
Ich würde mal sagen das wir im Halbfinale auf Spanien treffen und im Finale wird es wohl den Klassiker Deutschland - Holland geben !!!

Ack, wenn mir jemand gesagt hätte, dass wir 4:0 gewinnen hätt ich den in die Klapse geschickt.

4:0 gegen Argentinien, ich glaub ich hab iwi Haluzinationen

FICK JA!

Zitat von gandro

Ghana ist leider draussen.

Damit ist die WM für Afrika leider vorbei, was ich sehr schade finde. Stellt euch vor in Europa wäre eine WM und es wären nur noch Mannschaften aus Südamerika und Afrika (oder Asien), das wäre auch öde.

Jo, kacke dass Gahna daußen ist. War extrem knapp. Dämliches Elfmeter....b2

Mini-Skript um meine syslog-Ausgabe einzufärben

#!/usr/bin/perl -w


use strict;


use constant BLANK    => "\e[0m";
use constant RED    => "\e[1;31m";
use constant GREEN    => "\e[1;32m";
use constant YELLOW    => "\e[1;33m";
use constant BLUE    => "\e[1;34m";
use constant MAGENTA    => "\e[1;35m";
use constant CYAN    => "\e[1;36m";
use constant WHITE    => "\e[1;37m";


my ($date, $time, $host, $process, $msg);


while (<STDIN>) {
    if ( m/(\w{3}\s+\d{1,2})\s+(\d{2}:\d{2}:\d{2})\s+([\w\-\.]+)\s+([\w\d\s\-\.\[\]]+):\s+(.+)/ ) {
        $date     = $1;
        $time     = $2;
        $host     = $3;
        $process = $4;
        $msg     = $5;


        if ( m/warning|error|critical|corrupt|bad|exiting|alert/i ) {
            printf("%s%s %s%s %s%s %s%s: %s%s%s\n", WHITE, $date, CYAN, $time, BLUE, $host, YELLOW, $process, RED, $msg, BLANK);
        } else {
            printf("%s%s %s%s %s%s %s%s: %s%s%s\n", WHITE, $date, CYAN, $time, BLUE, $host, YELLOW, $process, WHITE, $msg, BLANK);
        }
    }
}

Wie geil, da ist das Fluch der Karibik Theme mit drin

Zitat von gandro

Eben fertig geguggt: The Machinist.

Kannte ich bisher noch nicht, ist aber ein grossartiges "Mindfuck"-Drama mit Christian Bale. Sehr empfehlenswert.

Hab grad die Beschreibung durchgelesen, klingt interessant.

With a bottle of rum and a yo-ho-ho

Zitat von niwax

Eig sind jetzt fast alle Favoriten raus:
- Spanien
- England
- Frankreich
- Italien
- usw

Spanien ist noch nicht raus?!

Ack. Ich mein das Original ist schon scheiße, was soll man da besser machen können.

Lamb Of God - Now You've Got Something To Die For

Für die Engländer

Epic Win!

Bei den Vorraussetzungen würd ich einfach zu Ubuntu raten.

Ghana gewinnt 2:1 gegen USA !!!!!

Wann genau tritt denn der Fehler auf? Habs kurz bei mir probiert und d ausgewählt und das ging. Auf Anhieb seh ich da nicht direkt was falsches.

Aber ich würde dir btw empfelen auf jeden Fall

use strict;

zu nutzen und auch bei so sachen wie open() oder close() sowas machen wie:

open(my $fh, ">", "foobar") or die $!;

Damit er im Falle eines Fehlers nicht weitermacht.

Primfaktoren einer Zahl rausfinden:

#!/usr/bin/perl -w


use strict;


my $arg = undef;


if ( defined($ARGV[0]) ) {
	$arg = $ARGV[0];
} else {
	die("Missing arg!");
}


sub check_prime
{
	my $n = shift;


	for ( my $i = 2; $i <= sqrt($n); $i++) {
		if ( ($n % $i) == 0) {
			return 0;
		}
	}


	return 1;
}


my @factors = ();


my $n = $arg;
my $i = 2;
while ( $i <= $n ) {
	if ( check_prime($i) ) {
		while ( ($n % $i) == 0 ) {
			$n = $n / $i;


			push @factors, $i;
		}
	}


	$i++;
}


print "$arg = " . join(' * ', @factors) . "\n";

Zitat von Alpha

Deutschland spielt ziemlich scheiße
Mit WM-Meister wird das definitiv nix...

Jo war sehr sehr holprig imho, aber immerhin im Achtelfinale...