Benutzername u. Passwortabfrage mit Perl/CGI - #133016 (Perl/CGI)

pktm

2010-02-15 20:17

User since
2003-08-07
2921 Artikel
BenutzerIn

Außer der gegebenen Antwort: kannst du das, was du da geschrieben hast überhaupt lesen? Wirst du es morgen / in einer Woche auch noch können? Mir fällt es zumindest schwer. Gewöhne dir doch besser gleich an, Code-Blocks einzurücken.

Beispiel:

Code: (dl )

# dein Code, unschön:
while ($zeile = <LESEN>)
{
chomp($zeile);
($username, $userpasswort) = split(/,/, $zeile);
if ($name eq $username && $passwort eq $userpasswort)
{
$login = 1;
last;
}
}

# zum Vergleich, selber Code, eingerückt:
# (so mache ich das gerne)
while ($zeile = <LESEN>) {
    chomp($zeile);
    ($username, $userpasswort) = split(/,/, $zeile);
    if ($name eq $username && $passwort eq $userpasswort) {
        $login = 1;
        last;
    }
}

# eingerückt, mit anderem Klammer-Stil:
while ($zeile = <LESEN>) 
{
    chomp($zeile);
    ($username, $userpasswort) = split(/,/, $zeile);
    if ($name eq $username && $passwort eq $userpasswort) 
    {
        $login = 1;
        last;
    }
}

Den Tipp mit strict kann ich dir nur wärmstens an Herz legen ;-)
Alle meine Programme fangen so an:

Code: (dl )

#!/usr/bin/perl

use strict;
use warnings;

Grüße, pktm

http://www.intergastro-service.de (mein erstes CMS :) )