🚀 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