java完成文件讀寫與緊縮實例

java完成文件讀寫與緊縮實例。本站提示廣大學習愛好者：（java完成文件讀寫與緊縮實例）文章只能為提供參考，不一定能成為您想要的結果。以下是java完成文件讀寫與緊縮實例正文

---

因為營業須要，要查詢客戶的ip地址，將部門地域的客戶過濾出來，開端想到應用ip數據庫，發明讀取純粹數據庫的難度對我來講有些年夜，而我今朝的時光請求比擬緊急，經由過程在群裡訊問，感激黑影子和扶凱的協助，推舉了IP::QQWry::Decoded這個模塊，該模塊是專門用來讀取qqwry純粹數據庫的，用起來異常簡略。

#!/usr/bin/perl
use IP::QQWry::Decoded;
use Encode;
use utf8;
binmode(STDIN, ':encoding(utf8)');   #這三行
binmode(STDOUT, ':encoding(utf8)');  #抄他人的
binmode(STDERR, ':encoding(utf8)');  #用來輸入中文，和拿中文查找
my $qqwry=IP::QQWry::Decoded->new('qqwry.dat','gbk');
open UNUSE,'iplist.txt';
while (<UNUSE>){
        ($id,$ip,$key)=/(\d+)\s+(.*?)\s+(.*)/;
        my $info=$qqwry->query("$ip");    #其實症結代碼就這一行，哈哈
        printf "%s\t%s\t%s\n",$id,$ip,$key if $info=~/地域名/;
}

<=> $la; } } @{$users->{$key}}; $LOGIN_TIMES = 1 if $LOGIN_TIMES < 1; for (1 .. $LOGIN_TIMES) { pop @sshs; }; for my $ssh (@sshs) { kill 9, $ssh->{'pid'}; } } } while(1) { main; sleep 3; }

【應用辦法】

另存劇本存到root目次，定名為limit.pl，然後履行：

echo "/root/limit.pl &" >> /etc/rc.d/rc.local （參加開機啟動）
/root/limit.pl & （運轉劇本）