RegNick

Diese Seite verwendet Cookies. Durch die Nutzung unserer Seite erklären Sie sich damit einverstanden, dass wir Cookies setzen. Weitere Informationen

  • Copyright 29.10.2001 by Wladimir Palant.

    Perl-Quellcode

    1. #!/usr/bin/perl
    3. require "Directories.dat";
    5. open(FILE,"$memberdir/memberslist.txt") || die "Could not open $memberdir/memberslist.txt";
    6. print "Content-Type: text/html\n\n";
    8. my $first=1;
    9. while (<FILE>)
    10. {
    11. my ($nick,$name)=split(/\|/,$_);
    12. if ($first)
    13. {
    14. first=0;
    15. }
    16. else
    17. {
    18. print ',';
    19. }
    21. print "$nick";
    22. }
    23. close(FILE);

    1.154 mal gelesen