🚀 go-pugleaf

Pawel Krawczyk (kravietz@echo.ceti.com.pl) wrote:
: Jak wczytac tekst ze standardowego wejscia bez echa? Chodzi mi
: dokladnie o zrobienie odpowiednika getpass() z libc. 

Hmmm, właściwie to chyba nie ma czegoś takiego w standardowej dystrybucji
perla. ioctl() też nie ma, więc nie ma za bardzo jak zrobić. Może jest
w jakimś module, ale nie chce mi się głęboko grzebać.

Można natomiast na szybko zrobić interfejs do getpass() z libc:

$ h2xs -A -n getpass
$ cd getpass
$ vi getpass.xs

Dopisz na końcu pliku:

char *
getpass(prompt)
	char *prompt

$ vi getpass.pm

Do tablicy @EXPORT dopisz słowo 'getpass'

$ perl Makefile.PL
$ make
$ su
Password:
# make install

I masz gotowy moduł getpass.pm
Używasz:

use getpass;

$pass = getpass("Password:");


No chyba, że nie masz roota, to musisz zrobić przed use

BEGIN {push @INC, './getpass/blib/arch', './getpass/blib/lib';}


Przenośność zerowa, ale działa...

--
Piotr Auksztulewicz                 piotras@zeus.polsl.gliwice.pl
Centrum Komputerowe Politechniki Śląskiej, Gliwice, Akademicka 16

Pawel Krawczyk (kravietz@echo.ceti.com.pl) wrote:
: Jak wczytac tekst ze standardowego wejscia bez echa? Chodzi mi
: dokladnie o zrobienie odpowiednika getpass() z libc. 
hm... to proste
man perlfunc
/ crypt 
w załączonym przykładzie jest napisane. a konkretniej:
system "stty -echo";
print "Password: ";
chop($pass=<STDIN>);
print "\n";
system "stty echo";

	Krzysztof. 

Krzysztof Osiecki <krzycho@amba.matrix.com.pl> wrote:
> system "stty -echo";
> print "Password: ";
> chop($pass=<STDIN>);
> print "\n";
> system "stty echo";

Dzieki, dokladnie o to chodzilo. Nabieram coraz wiecej szacunku
dla perldoca :)

-- 
Pawel Krawczyk, CETI internet, Krakow. http://www.ceti.com.pl/
info: oferta@ceti.com.pl.  Home: http://ceti.com.pl/~kravietz/