Perl
Grundsätzlich
Jedes Perl-Script sollte use strict; enthalten. Es verhindert schwer zu findene Bugs!
BuchTipp
BuchTipp: "Higher-Order Perl" von Mark Jason Dominus
Das Buch taugt nix um mit Perl anzufangen, aber wer Perl schon kann und noch besser programmieren will, dem empfehle ich dieses Buch.
Man kann es sogar kostenlos, für den privaten Gebrauch, herunterladen.
Higher-Order Perl
Passwort-Eingabe
Es gibt mehrere Möglichkeiten die Ausgabe eines Passworts auf der Shell zu verhindern.
Meissten findet man im Internet Term::ReadKey
require Term::ReadKey;
Term::ReadKey::ReadMode('noecho');
print "Bitte Passwort eingeben: ";
my $passwort = Term::ReadKey::ReadLine(0);
Term::ReadKey::ReadMode('restore');
chomp $passwort;
print "\n\n";
Term::ReadKey::ReadMode('noecho');
print "Bitte Passwort eingeben: ";
my $passwort = Term::ReadKey::ReadLine(0);
Term::ReadKey::ReadMode('restore');
chomp $passwort;
print "\n\n";
Auch möglich, ohne perl-modul (mit shellhilfe):
print "Bitte Passwort eingeben: ";
system('stty','-echo');
my $passwort = <STDIN>;
chomp $passwort;
system('stty','echo');
print "\n\n";
system('stty','-echo');
my $passwort = <STDIN>;
chomp $passwort;
system('stty','echo');
print "\n\n";