Copyright 2001 by Trevize (Wladimir Palant)
Perl-Quellcode
- #!/usr/bin/perl
- $chatdir = ".";
- $vardir = "$chatdir/Variables";
- open(FILE, "$vardir/online.txt");
- @entries = <FILE>;
- close(FILE);
- print "Content-type: text/plain\n\n";
- foreach my $entry (@entries)
- {$entry =~ s/[\n\r]//g;
- ($name,$nick,$room,$ipcid) = split(/\|/, $entry);
- print "($nick) ($room)\n ";
- }
2.988 mal gelesen