Opened by jemand at 2004-07-17 20:18
User since
2004-05-14
231 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2004-05-14
231 Artikel
BenutzerIn
Hi,
ich hab ne foreach mit nem split innen drin und da soll dan rausgesucht werden welche Zeile auf etwas passt
hab statt dem split auch schon nen regexp versucht aber nichts geht
wenn ich aber ohne foreach mach un nur die zeile in split gebe die gefunden werden soll gehts
hier mal der code für die einzelne subroutine:
ich hab ne foreach mit nem split innen drin und da soll dan rausgesucht werden welche Zeile auf etwas passt
hab statt dem split auch schon nen regexp versucht aber nichts geht
wenn ich aber ohne foreach mach un nur die zeile in split gebe die gefunden werden soll gehts
hier mal der code für die einzelne subroutine:
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
26
27
28
29
sub login{
my($name, $pwd)= @_;
open(DATI, '<', 'iuser.dat');
flock(DATI, 2);
my @daten = <DATI>;
close(DATI);
my $out;
my $dat = @daten;
$i=1;
while($i<=$dat){
@ud = split(/\*\*/, $daten[$i]);
if($ud[1] eq $name){
if($pwd eq $ud[19]){ $out='User als '.$ud[1].' identifiziert!'; }else{ $out='Falsches Passwort'; }
}else{
$out='User nicht identifiziert!';
}
$i++;
}
print "Content-type: text/html\n\n";
print <<"EOF";
<html><head>
<title>Output Tester</title>
</head><body>
Hier ist die Ausgabe:<br><br>
EOF
print $out.'<br><br>';
print $_.'<br>' for @ud;
print '</body></html>';
}print uc 'i',chr(29*4).q+'s +.++($_=q-m-),++$_;
print chr for 116,$_[0],97,$_[0],98;
print 'ug,',chr(), scalar reverse qq?!erutaef a s'ti?;
print chr for 116,$_[0],97,$_[0],98;
print 'ug,',chr(), scalar reverse qq?!erutaef a s'ti?;