瀏覽模式: 普通 | 列表

perl getopt 的用法

程式

use strict;

use Getopt::Std;

getopt('a:b:c:');

our ($opt_a,$opt_b,$opt_c);

print "$opt_a\n" if $opt_a;
print "$opt_b\n" if $opt_b;
print "$opt_c\n" if $opt_c;


執行 perl cross.pl -a 1 -b 2 -c 3

結果
1
2
3


如果一定要 -aw 才可以顯示 1 的話

[閱讀全文]

標籤: perl

perl 執行程式時 hash 後面帶的參數

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

結果
HASH(0x8c81c20)
c 3
a 1
b 2
標籤: perl hash

perl 建置一個 hash 反回 ref

一個 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

perl 另一種 hash 表示方式

use strict;

my $ph = {age => 47, eyes => 'brown', weight => 168};

print $ph;

得到 HASH(0x8825c20)

就可以知道 $ph 是一個 hash

再來可以
my %hash = %$ph 把它表示成 hash

print $hash{age} 就可以得到 47

或者直接

print $ph->{age} 也可以得到 47

標籤: perl

CPU利用率和Load Average的區別

引用: http://www.blogjava.net/cenwenchu/archive/2008/06/30/211712.html


CPU利用率在過去常常被我們這些外行認為是判斷机器是否已經到了滿負荷的一個標准,看到50%-60%的使用率就認為机器就已經壓到了臨界了。CPU利用率,顧名思義就是對于CPU的使用狀況,這是對一個時間段內CPU使用狀況的統計,通過這個指標可以看出在某一個時間段內CPU被占用的情況,如果被占用時間很高,那麼就需要考慮CPU是否已經處于超負荷運作,長期超負荷運作對于机器本身來說是一種損害,因此必須將CPU的利用率控制在一定的比例下,以保証机器的正常運作。

Load AverageCPULoad,它所包含的信息不是CPU的使用率狀況,而是在一段時間內CPU正在處理以及等待CPU處理的進程數之和的統計信息,也就是CPU使用隊列的長度的統計信息。為什麼要統計這個信息,這個信息的對于壓力測試的影響究竟是怎麼樣的,那就通過一個類比來解釋CPU利用率和Load Average的區別以及對于壓力測試的指導意義。

毒網網馬 解密利器 FreShow 公開發布

http://www.avpclub.ddns.info/ss-xs/index.php/389/action_viewspace_itemid_245.html

2008-01-20 09:45:28 / 個人分類:addoption

FreShow 公開發布有很多人問我一些腳本是如何解密的,是否有可用的工具。其實一切客戶端的加密都是紙老虎(neeao),如果對于一些基本的腳本知識和潛在的解密函數有所了解的話,一切也就迎刃而解了,一切也就清晰可見了。所以我不希望他們盲目地滿足于簡單地按几下按鈕,而是從一些基礎了解起,這樣最后再用到工具時,只是起到減少机械計算和驗証的作用,也會有融會貫通的豁然。

      一般會推荐大家看看這篇文章:

      輕輕松松解密各種網頁木馬,由于網上多次輾轉復制,原作者不詳。可自行百度或google。


      FreShow也是隨著這個想法誕生的產物。從最初沒有名字的一個網頁元素篩選器,到逐漸有了几種算法的積累,到逐漸地有了雛型,最后到了有個工具的樣子。見証了自己學習的過程,從一無所知的混沌到逐漸明晰的腳本,從黑不溜秋的控制台程序到友好的交互界面,一切的一切恍如昨日。一些算法和功能的實現過程中,不時會遇到一些攔路虎,也了解到自身的局限性,但是逐個擊破他們的爽快感是沒有什麼可以比擬的,lovewei說這個大概就是傳說中的成就感吧,我笑著默許,我希望一點一點的累積這種感覺,一步一步地走好每一步,對于未來我也依稀看到延展的那一條路。

[閱讀全文]

標籤: freshow

perl 程式存取 MS Access MDB 資料庫

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";
}

標籤: per mdb access