perl getopt 的用法
作者:cross 日期:2009-08-21 19:56
perl 執行程式時 hash 後面帶的參數
作者:cross 日期:2009-08-20 18:10
vi hash.pl
my $hash_ref;
if (@ARGV) {
foreach my $option (@ARGV) {
my ($key,$value) = split /=/, $option;
$hash_ref->{"$key"} = "$value";
}
}
# 這是一個 HASH
print $hash_ref . "
";
# 將 key 及 value 取出來
while (my($key,$value) = each %$hash_ref) {
print "$key $value
";
}
perl hash.pl a=1 b=2 c=3
結果
c 3
a 1
b 2
perl 建置一個 hash 反回 ref
作者:cross 日期:2009-08-20 17:58
一個 function
sub foo {
my ( $login, $p, $uid, $gid, $gecos, $dir, $s );
my %HoH = ();
my $file = '/etc/passwd';
open( PASSWD, "< $file" ) or die "Can't open $file : $!";
while( <PASSWD> ) {
( $login, $p, $uid, $gid, $gecos, $dir, $s ) = split( ':' );
$HoH{ $login }{ 'uid' } = $uid;
$HoH{ $login }{ 'gid' } = $gid;
$HoH{ $login }{ 'dir' } = $dir;
}
close PASSWD;
return \%HoH;
}
my $aaa = &foo();
這時 print $aaa 會看到它是個 HASH
perl 另一種 hash 表示方式
作者:cross 日期:2009-08-20 16:31
CPU利用率和Load Average的區別
作者:cross 日期:2009-08-20 11:15
引用: http://www.blogjava.net/cenwenchu/archive/2008/06/30/211712.html
CPU利用率在過去常常被我們這些外行認為是判斷机器是否已經到了滿負荷的一個標准,看到50%-60%的使用率就認為机器就已經壓到了臨界了。CPU利用率,顧名思義就是對于CPU的使用狀況,這是對一個時間段內CPU使用狀況的統計,通過這個指標可以看出在某一個時間段內CPU被占用的情況,如果被占用時間很高,那麼就需要考慮CPU是否已經處于超負荷運作,長期超負荷運作對于机器本身來說是一種損害,因此必須將CPU的利用率控制在一定的比例下,以保証机器的正常運作。
Load Average是CPU的Load,它所包含的信息不是CPU的使用率狀況,而是在一段時間內CPU正在處理以及等待CPU處理的進程數之和的統計信息,也就是CPU使用隊列的長度的統計信息。為什麼要統計這個信息,這個信息的對于壓力測試的影響究竟是怎麼樣的,那就通過一個類比來解釋CPU利用率和Load Average的區別以及對于壓力測試的指導意義。
毒網網馬 解密利器 FreShow 公開發布
作者:cross 日期:2009-08-06 10:22
perl 程式存取 MS Access MDB 資料庫
作者:cross 日期:2009-07-22 17:23
use strict;
use DBI;
# mdb 資料庫
my $mdb = 'C:\access.mdb';
# SQL 語法
my $sql = 'select * from notifications';
# 連線到資料庫
my $dbh = DBI->connect("dbi:ODBC:driver=microsoft access driver (*.mdb);dbq=$mdb");
# 執行 SQL 語法
my $sth = $dbh->prepare("$sql");
$sth->execute || die " Could not execute SQL statement ... maybe invalid?";
# 顯示出結果
while (my @row = $sth->fetchrow_array()){
print "@row\n";
}



