Opened by jemand at 2004-07-17 20:18
User since
2003-08-04
7321 Artikel
ModeratorIn
2003-08-04
7321 Artikel
ModeratorIn
mit foreach würde ich das ganze so schreiben
mit while, so
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
sub login
{
my($name, $pwd) = @_;
my $dati; # so muss ein filehandle aussehen :)
my $out = "";
if(open($dati, '<', 'iuser.dat'))
{
flock($dati, 2);
my @daten = <$dati>;
close($dati);
$out = "User nicht identifiziert oder falsches Passwort!";
foreach (@daten)
{
my @ud = split(/\*\*/, $_);
if($ud[1] eq $name and $pwd eq $ud[19])
{
$out = "User als $name identifiziert!";
last;
}
}
}
return $out;
}
mit while, so
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
sub login
{
my($name, $pwd) = @_;
my $dati; # so muss ein filehandle aussehen :)
my $out = "";
if(open($dati, '<', 'iuser.dat'))
{
flock($dati, 2);
$out = "User nicht identifiziert oder falsches Passwort!";
while(<$dati>)
{
my @ud = split(/\*\*/, $_);
if($ud[1] eq $name and $pwd eq $ud[19])
{
$out = "User als $name identifiziert!";
last;
}
}
close($dati);
}
return $out;
}