当前位置: 技术问答>linux和unix
linux perl脚本文件问题（在线等待）
来源: 互联网 发布时间：2015-07-16
本文导语: passwdgen.pl文件的内容： #!/usr/bin/perl srand (time()); my $randletter = "(int (rand (26)) + (int (rand (1) + .5) % 2 ? 65 : 97))"; my $salt = sprintf ("%c%c", eval $randletter, eval $randletter); my $plaintext = shift; my $crypttext = crypt ($p...
passwdgen.pl文件的内容：
#!/usr/bin/perl
srand (time());
my $randletter = "(int (rand (26)) + (int (rand (1) + .5) % 2 ? 65 : 97))";
my $salt = sprintf ("%c%c", eval $randletter, eval $randletter);
my $plaintext = shift;
my $crypttext = crypt ($plaintext, $salt);
print "${crypttext}n";
系统提示如下：
[root@DSS CVSROOT]# bash passwdgen.pl
passwdgen.pl: line 2: syntax error near unexpected token `(time('
passwdgen.pl: line 2: `srand (time());'
错了吗？错在那里。
代码出自http://www.51cmm.com/CasePanel/CM/No053.htm
#!/usr/bin/perl
srand (time());
my $randletter = "(int (rand (26)) + (int (rand (1) + .5) % 2 ? 65 : 97))";
my $salt = sprintf ("%c%c", eval $randletter, eval $randletter);
my $plaintext = shift;
my $crypttext = crypt ($plaintext, $salt);
print "${crypttext}n";
系统提示如下：
[root@DSS CVSROOT]# bash passwdgen.pl
passwdgen.pl: line 2: syntax error near unexpected token `(time('
passwdgen.pl: line 2: `srand (time());'
错了吗？错在那里。
代码出自http://www.51cmm.com/CasePanel/CM/No053.htm
|
哈,代码是没有错的!
你运行错了吧?!
[root@DSS CVSROOT]# bash passwdgen.pl
这样可是错了!!!
应该是:
#perl passwdgen.pl
或者
#./passwdgen.pl
你运行错了吧?!
[root@DSS CVSROOT]# bash passwdgen.pl
这样可是错了!!!
应该是:
#perl passwdgen.pl
或者
#./passwdgen.pl
您可能感兴趣的文章:
本站(WWW.)旨在分享和传播互联网科技相关的资讯和技术，将尽最大努力为读者提供更好的信息聚合和浏览方式。
本站(WWW.)站内文章除注明原创外，均为转载、整理或搜集自网络。欢迎任何形式的转载，转载请注明出处。
本站(WWW.)站内文章除注明原创外，均为转载、整理或搜集自网络。欢迎任何形式的转载，转载请注明出处。