Leser: 22
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
#!/usr/bin/perl use warnings; use strict; use Term::Getch; my ($in, $psw); print "Bitte das Passwort\n"; while(1) { $in = getch(); if (defined $in) { last if $in =~ /\r/; $psw .= $in; print "*"; } } print $psw;
2009-10-29T11:33:51 pqwo ist der bezug zu gwendragons posting?
2009-10-29T12:17:31 pqund welchen bezug hat es zu moritz' posting? bin verwirrt...