use curl::easy;
$ok=1;
$username="****username";
#欲解使用者名稱
open(dict,"password.txt");
#字典檔
while ($passwdtemp=and $ok!=0)
else }}
if ($ok!=0) else
sub clas**e_crack_check, $chunk;
return length($chunk); # ok
}$curl->setopt(curlopt_writefunction, /&body_callback);
my @body;
$curl->setopt(curlopt_file, /@body);
my $retcode=$curl->perform();
if ($retcode!=0) else
#print $body;
# print join("",@body);
# print "/n/n";
$temp=$body[1];
($e,@body)=@body;
# print "begin/n";
#print $e;
#$e中存放curl的返回值
print "/n/n/n";
if ($e =~ /錯誤的使用者名稱/ ) else
}
perl學習 perl除錯命令
除錯命令列表如下 所有命令都在除錯提示符下頂格輸入,命令大小寫有關 h 顯示偵錯程式的幫助資訊。h 以分頁形式顯示偵錯程式的幫助資訊。hh 顯示一個壓縮的幫助資訊。h除錯命令 顯示某個除錯命令的幫助。perl偵錯程式用法中p表示式 顯示變數或表示式的值,不顯示覆雜變數嵌入的結構和資料。x表示式 顯示...
Perl入門(三)Perl的陣列
perl陣列的宣告方式 perl使用 符號宣告一個陣列 array 使用 或 qw 宣告陣列中元素 一個完整的宣告方式為 array 12,123 abc var 方法一 或者 array qw 12 123 abc 方法二 或者 array 1.10 方法三 perl陣列的存取 陣列通過下標進行存...
perl 簡單學習,安裝perl模組
檢查是否安裝了某個perl模組 有多種方式 0.perldoc perlinstall 列出所有的模組及版本號 1.perl m模組名 e 1 模組名不加空格 沒有返回值則說明有此模組 2.perl e use dbd oracle print dbd oracle version n window...
Perl語言入門 Perl變數簡介
在編寫perl程式時,需要準備好兩樣工具 一個文字編輯器和一個perl直譯器,前者用來書寫 後者用來完成程式的編譯 解釋和執行工作。perl變數支援三種基本資料型別 標量 陣列和關聯陣列。1 標量只能儲存單個值 單個字串或單個數字。必須以美元符號 開頭。示例 number 15 name judy ...
Perl簡易教程(1) perl 介紹
perl的簡介 perl作為一個排名程式語言前十的語言,必然有其特到之處。1.簡單的資料型別 2.內建正規表示式 3.強大的cpan支援 雜項介紹 1.perl的檔案以pl為字尾,perl的模組檔案以pm為字尾。2.perl檔案開頭是 usr bin perl 3.註釋。i.行註釋以 作為開頭。ii...