Opened by seraphim at 2008-06-15 17:48
User since
2003-08-21
2614 Artikel
ModeratorIn
2003-08-21
2614 Artikel
ModeratorIn
seraphim+2008-06-15 20:31:33--hmm das sind nur ca 170 zeilen, und da was drum rum zu bauen ist naja ^^
und Nachspielen wird für welche ohne ircD recht schwer teilweise
Oh Mann. Ich verstehe echt nicht, warum einige das Konzept von "Script zur Fehlersuche herunterkuerzen" nicht verstehen.
Drehen wir es mal um. Ich kuerze Dein Script so weit herunter, dass der Fehler gerade noch enthalten ist. Das Tolle daran ist dann, dass man keinen ircD und kein Netzwerk mehr braucht, um es auszufuehren:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
my $input = ":seraphim!seraph\@Testserver-3A93D94C PRIVMSG Prsc :remove 127.0.0.1\r\n";
my @line = split ' ', $input;
chomp @line;
local $/ = "\r";
chomp @line;
my $search = $line[4];
my @file = ("line1\n", "127.0.0.1\n");
for my $x (@file) {
chomp $x;
if ($x ne $search) {
print "($x)\n";
}
}
So, jetzt kannst Du weitermachen mit der Fehlersuche. Ich gebe Dir einen Tipp: Kuerze das Script noch weiter. Spiel damit rum, bis die 127.0.0.1 nicht mehr ausgegeben wird.
Naja, aber Linuxer hat es eigentlich schon verraten.
Fuer's naechste Mal: Bitte erst so weit kuerzen, dann posten.
Lieblingsmodule: 
IPC::System::Simple, Path::Class
IPC::System::Simple, Path::Class