Copyright 29.10.2001 by Wladimir Palant.
Perl-Quellcode
- #!/usr/bin/perl
- require "Directories.dat";
- open(FILE,"$memberdir/memberslist.txt") || die "Could not open $memberdir/memberslist.txt";
- print "Content-Type: text/html\n\n";
- my $first=1;
- while (<FILE>)
- {
- my ($nick,$name)=split(/\|/,$_);
- if ($first)
- {
- first=0;
- }
- else
- {
- print ',';
- }
- print "$nick";
- }
- close(FILE);
3.571 mal gelesen