一个简单的** mysql 远程连接脚本(perl6)

sub MAIN(Str $host) { use DBIish; my $file = open 'password.txt'; while $file.get -> $line { my $password = $line.chomp; say 'Guess: '~$password; #错误处理 try { my $dbh

>>阅读原文<<