作者wnick (淺龍勿用)
看板perl
標題[問題] 關於字元
時間Thu Apr 26 03:43:57 2007
想請問一個問題
我把TCPDUMP的檔案作解析
其中IP的部分我用UNPACK('H4',$ip)解出
如此型式:4136ab0f
這是ASCII的形式 一個字是4 bit
因為PERL沒有處理8 BIT的函式
又無法把他轉成BINARY
所以我上面拆成四BIT唯一單位
用my @hexarray = split (//,$ip_src);
然後我用$a = $hexarray[$c];
if($a==1) {$b = "0001";}
elsif($a==2) {$b = "0010";}
elsif($a==3) {$b = "0011";}
elsif($a==4) {$b = "0100";}
elsif($a==5) {$b = "0101";}
elsif($a==6) {$b = "0110";}
elsif($a==7) {$b = "1111";}
elsif($a==8) {$b = "1000";}
elsif($a==9) {$b = "1001";}
elsif($a==a) {$b = "1010";}
elsif($a==b) {$b = "1011";}
elsif($a==c) {$b = "1100";}
elsif($a==d) {$b = "1101";}
elsif($a==e) {$b = "1110";}
elsif($a==f) {$b = "1111";}
elsif($a==0) {$b = "0000";}
來把它變成BINARY處理
但是a到f就是比對不出
而且$hexarray[$c]很詭異
我用LENTH函式去算有會顯示4
但是明明就是一個字
但是指定給$b變數算長度就是一
還是有更好的方法轉變成IP的形式?
謝謝你的幫助
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.134.21.194
※ 編輯: wnick 來自: 140.134.21.194 (04/26 05:13)
1F：→ iFEELing: 'eq' 跟 '==' ??? 04/26 10:59
2F：→ wnick:懂了~~~~原來是這種錯誤~~感恩 04/26 21:58