免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
12下一页
最近访问板块 发新帖
查看: 3934 | 回复: 17
打印 上一主题 下一主题

屏蔽密码。 [复制链接]

论坛徽章:
0
跳转到指定楼层
1 [收藏(0)] [报告]
发表于 2009-03-09 14:59 |只看该作者 |倒序浏览
PERL如何屏蔽密码,

在交互式的操作中,如何不让屏幕出现输入密码的明码。
谢谢。

论坛徽章:
1
2015年辞旧岁徽章
日期:2015-03-03 16:54:15
2 [报告]
发表于 2009-03-09 15:06 |只看该作者
use Term::ReadLine;

论坛徽章:
0
3 [报告]
发表于 2009-03-09 17:10 |只看该作者

回复 #2 flw 的帖子

Hi flw,
能否给个例子,谢谢。

$ ./13.pl
Input your password: 23
23
$ cat 13.pl
#!/usr/bin/perl -w
  use Term::ReadLine;
  my $term = new Term::ReadLine('Password') ;
  my $prompt = "Input your password: ";
  my $i= $term->readline($prompt);
  print $i,"\n";

论坛徽章:
1
2015年辞旧岁徽章
日期:2015-03-03 16:54:15
4 [报告]
发表于 2009-03-09 17:18 |只看该作者
Term::ReadKey
这两个一般都是一起安装的。

[ 本帖最后由 flw 于 2009-3-9 17:20 编辑 ]

论坛徽章:
0
5 [报告]
发表于 2009-03-10 11:11 |只看该作者
:wink: 恩

论坛徽章:
0
6 [报告]
发表于 2009-03-10 14:10 |只看该作者
thanks, flw! 可以了。

$ ./13.pl
Input your password:
123456
$ cat 13.pl
#!/usr/bin/perl -w


  use Term::ReadKey;
  use Term::ReadLine;
  my $prompt = "Input your password: ";
  my $term=new Term::ReadLine('Password');
  ReadMode 2;
  my $i=$term->readline($prompt);
  ReadMode 0;
  print "\n",$i, "\n";

论坛徽章:
0
7 [报告]
发表于 2009-03-11 15:56 |只看该作者
不错 学习了~

论坛徽章:
0
8 [报告]
发表于 2009-03-13 16:06 |只看该作者
报错:
Can't locate Term/ReadKey.pm in @INC (@INC contains: /usr/lib/perl5/5.8.5/i386-linux-thread-multi /usr/lib/perl5/5.8.5 /usr/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.4/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.3/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.2/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.1/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.0/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.5 /usr/lib/perl5/site_perl/5.8.4 /usr/lib/perl5/site_perl/5.8.3 /usr/lib/perl5/site_perl/5.8.2 /usr/lib/perl5/site_perl/5.8.1 /usr/lib/perl5/site_perl/5.8.0 /usr/lib/perl5/site_perl /usr/lib/perl5/vendor_perl/5.8.5/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.4/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.3/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.2/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.1/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.0/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.5 /usr/lib/perl5/vendor_perl/5.8.4 /usr/lib/perl5/vendor_perl/5.8.3 /usr/lib/perl5/vendor_perl/5.8.2 /usr/lib/perl5/vendor_perl/5.8.1 /usr/lib/perl5/vendor_perl/5.8.0 /usr/lib/perl5/vendor_perl .) at ./perlPassword.sh line 3.
BEGIN failed--compilation aborted at ./perlPassword.sh line 3.

论坛徽章:
95
程序设计版块每日发帖之星
日期:2015-09-05 06:20:00程序设计版块每日发帖之星
日期:2015-09-17 06:20:00程序设计版块每日发帖之星
日期:2015-09-18 06:20:002015亚冠之阿尔艾因
日期:2015-09-18 10:35:08月度论坛发贴之星
日期:2015-09-30 22:25:002015亚冠之阿尔沙巴布
日期:2015-10-03 08:57:39程序设计版块每日发帖之星
日期:2015-10-05 06:20:00每日论坛发贴之星
日期:2015-10-05 06:20:002015年亚冠纪念徽章
日期:2015-10-06 10:06:482015亚冠之塔什干棉农
日期:2015-10-19 19:43:35程序设计版块每日发帖之星
日期:2015-10-21 06:20:00每日论坛发贴之星
日期:2015-09-14 06:20:00
9 [报告]
发表于 2009-03-13 19:24 |只看该作者
原帖由 kjchen 于 2009-3-13 16:06 发表
报错:
Can't locate Term/ReadKey.pm in @INC (@INC contains: /usr/lib/perl5/5.8.5/i386-linux-thread-multi /usr/lib/perl5/5.8.5 /usr/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi /usr/lib/perl ...

把 Term::ReadKey 装上呗

论坛徽章:
0
10 [报告]
发表于 2009-03-13 23:15 |只看该作者
我在XP下运行该代码,没有达到屏蔽效果,why?
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号-6 北京市公安局海淀分局网监中心备案编号:11010802020122 niuxiaotong@pcpop.com 17352615567
未成年举报专区
中国互联网协会会员  联系我们:huangweiwei@itpub.net
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP