Font
Wiki:Tipp zum Debugging: use Data::Dumper; local $Data::Dumper::Useqq = 1; print Dumper \@var;
[thread]582[/thread]

Überprüfung von Passwort: stimmt die Struktur eines Passwort (page 2)



<< |< 1 2 >| >> 15 entries, 2 pages
elfe
 2005-09-27 00:35
#5685 #5685
User since
2005-09-26
6 articles
BenutzerIn
[default_avatar]
Ich habe mit diesem scheinbar Erfolg - sicherlich erst durch die Berücksichtigung des Formular mit $FORM {'ID'} =~ /^\d{4,6}01$/ )

hier also
Code: (dl )
1
2
3
4
5
6
7
8
9
elsif ($action eq 'add_account'){
# START - Nur Anmelder mit einer passenden ID mit 01 am Ende sind zur Anmeldung berechtigt
if($FORM{'ID'} =~ /^\d{4,6}01$/ ){
 &Add_Account;
 } else {
&Show_Error('Your ID is not correct.<br>Ihre ID ist nicht richtig.');
}
}
# ENDE - Nur Anmelder mit einer passenden ID mit 01 am Ende sind zur Anmeldung berechtigt


Danke für eure Ideen und jetzt folgende Kommentare zu meiner/eurer Lösung

elfe
Taulmarill
 2005-09-27 15:55
#5686 #5686
User since
2004-02-19
1750 articles
BenutzerIn

user image
sieht von der syntax gut aus, und die eigendlichen aktionen hast du ja auch schon in subroutinen ausgelagert.

du könntest das nur einheitlicher einrücken (oder ist das beim pasten ins forum verrutscht?) und dich auf eine zeilenlänge von 80 Zeichen beschränken, siehe perldoc perlstyle. du könntest dir auch mal perltidy anschauen, die standartformatierung davon gefällt mir sehr gut.
$_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78
0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0
F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B
Strat
 2005-09-27 20:05
#5687 #5687
User since
2003-08-04
5246 articles
ModeratorIn
[Homepage] [default_avatar]
zieh dir vielleicht mal die "Einfuehrung in Perl" auf meiner HP unter Vortraege rein, dann verstehst du vermutlich besser, was du da machst.
perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/
elfe
 2005-09-29 11:48
#5688 #5688
User since
2005-09-26
6 articles
BenutzerIn
[default_avatar]
Das kommt teilweise vom Pasten - aber ich bin ja noch Anfänger und Perltidy und Perlstyle kommt nach den Basics in Perl - und ich bin wirklich noch am Anfang!

Die Einführung habe ich auch gerade downgeloadet und werde diese durcharbeiten - ordentliche Seite die Du da hast Strat!

Gruß
elfe
Strat
 2005-09-29 16:59
#5689 #5689
User since
2003-08-04
5246 articles
ModeratorIn
[Homepage] [default_avatar]
@elfe: dankeschoen
perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/
<< |< 1 2 >| >> 15 entries, 2 pages



View all threads created 2005-09-26 11:24.