sub MAIN(Str $host) {
use DBIish;
my $file = open 'password.txt';
while $file.get -amp;amp;gt; $line {
my $password = $line.chomp;
say 'Guess: '~$password;
#错误处理
try {
...……
http://stackoverflow.com/questions/5703705/print-current-directory-using-perl?rq=1
1)
The following get the script's directory, which is not the same as the current directory. It's not clear which ...……
#!/usr/bin/perl -w
print “which directory?(Default is your home directory)”;
chomp(my dir=amp;amp;amp;lt;STDINamp;amp;amp;gt;);if(dir=amp;amp;amp;lt;STDINamp;amp;amp;gt;);
if(dir=amp;amp;lt;STDINamp ...……
perl一行式程序系列文章:Perl一行式
假如文件file.log内容如下:
root x 0 0 root /root /bin/bash
daemon x 1 1 daemon /usr/sbin /usr/sbin/nologin
bin x 2 2 bin /bin /usr/sb ...……