Probleme mit crypt in Perl/CGI: Probleme mit crypt in Perl/CGI - #6968 (Perl/CGI)

Strat

2006-02-23 00:19

User since
2003-08-04
5246 Artikel
ModeratorIn

Code: (dl )

while (chop($PWS = <USERLIST>)) {

ist fehleranfaellig; chop schneidet stur das letzte zeichen ab, waehrend chomp nur ein eventuellen zeilenumbruch am ende abschneidet (oder was auch immer in $/ gespeichert ist)

Code: (dl )

1
2
3

while (my $PWS = <USERLIST>)) {
  chomp($PWS);
  ...

Code: (dl )

$PASSWORD = chomp(param('code'));

funktioniert vermutlich nicht so, wie du es denkst, siehe perldoc -f chomp. Du willst vermutlich:

Code: (dl )

chomp( $PASSWORD = param('code') );

aber wenn das feld 'code' bei dir ein normaler input type="text" ist, kann da eigentlich kein zeilenumbruch am ende vorkommen, also reicht:

Code: (dl )

$PASSWORD = param('code');

\n\n

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/