Grundsätzlich
Jedes Perl-Script sollte use strict; enthalten.
Es verhindert schwer zu findene Bugs!
Es verhindert schwer zu findene Bugs!
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
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
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";
Directory in ein array einlesen
opendir(DIR,$path);
my @files = readdir(DIR); #alle Files und Subdirs
closedir(DIR);
my @files = readdir(DIR); #alle Files und Subdirs
closedir(DIR);