#$ua->credentials('127.0.0.1:8080', '網域名稱稱', 'username' => 'passwd');
my $content = $ua->get($new_throme_url);
die "couldn't get it: $!" unless defined $content;
print $content->status_line,"/n";
my $new_chrome_version = $content->content;
print '最新版本號為: ',$new_chrome_version,"/n" if ($content->status_line eq '200 ok');
perl 測試指令碼
修改日期 2010年01月09日 1.系統環境 系統版本 fedora6 x86 64 db2版本 db2 v9.5.0.3 perl版本 v5.8.8 系統自帶 perl dbi版本 perl dbi 1.52 1.fc6 系統自帶 dbd db2版本 dbd db2 1.76 2.安裝dbd d...
perl指令碼練習
題目 12 34 56 78 24 65 87 90 76 11 67 87 100 89 78 99 求出文字中數字的最大 小值 我看很多的朋友都用shell的awk實現了，但本人對awk不是很了解，試著用perl簡單的寫了一下，也能實現 code usr bin perl w use stric...
指令碼入門（2） perl指令碼
一 注釋 pod 這裡的是注釋 cut 二 chomp 去掉換行符 n 去掉 chomp text 讀入，但不含換行符 三 line 一次讀一行，效能好。會帶有換行符，通常都會加上chomp 操作符去掉換行符，四 鑽石尖括號 使用兩個尖括號表示讀取來自檔案的輸入，可以從命令列中傳遞檔案到 當不注釋掉...