ip138.com のスクリプトで、perl で ip 属性を照会する。
2022-01-28 17:03:08
これは昨年以前に書かれたperlスクリプトです おい、それ以来perlを見てないぞ。
コピーコード
コードは以下の通りです。
#! /usr/bin/perl
use LWP::Simple;
open (FILE,"<file");
while(<FILE>){
s/^IP1.*//g;
my @file =split(/\,|\s+/,$_);
my @file1="$file[0] $file[1]";
my $IP = "$file[1]" ;
my $domain="$file[0]";
my $url="http://ip138.com/ips138.asp?ip=$IP&action=2″;
my $connet =get("$url");
my @connet =split(/\n/,$connet);
foreach my $sc (@connet){
if($sc =~ m/td align="center"><ul><li>(. *?) <. */){
printf "%-40s %-20s %s\n",$domain,$IP,$1 ;
}
}
}
close(FILE);
ファイルの形式は次のとおりです。
コピーコード
コードは以下の通りです。
conf.f.360.cn 113.105.246.71,113.105.246.78
u.qurl.f.360.cn 218.30.117.155,218.30.117.156
config.dengluqi.net 127.0.0.1
www.sina.com 61.172.201.194,61.172.201.195
dns.msftncsi.com 131.107.255.255
ptlogin2.qq.com 222.73.82.34
結果
コピーコード
コードは以下の通りです。
perl ip138.pl
関連
-
Perl uc,lc,ucfirst,lcfirst 大文字・小文字変換関数群
-
perlでsignalを使用する例
-
python urllibでのエンコード処理例
-
Windowsにperlとkomodo IDEをインストールする詳細な手順
-
Perlの特殊な組み込み変数の詳細
-
Perlによるディレクトリの探索とLinuxコマンドによるログの解析 コード例共有
-
perl による生物学的突然変異のランダムシミュレーションコード
-
Perlのファイルハンドルの説明
-
[解決済み] Hashに重複したキーや値を持たせることができるか
-
[解決済み] Perlでディレクトリを丸ごとコピーするにはどうしたらいいですか?
最新
-
nginxです。[emerg] 0.0.0.0:80 への bind() に失敗しました (98: アドレスは既に使用中です)
-
htmlページでギリシャ文字を使うには
-
ピュアhtml+cssでの要素読み込み効果
-
純粋なhtml + cssで五輪を実現するサンプルコード
-
ナビゲーションバー・ドロップダウンメニューのHTML+CSSサンプルコード
-
タイピング効果を実現するピュアhtml+css
-
htmlの選択ボックスのプレースホルダー作成に関する質問
-
html css3 伸縮しない 画像表示効果
-
トップナビゲーションバーメニュー作成用HTML+CSS
-
html+css 実装 サイバーパンク風ボタン
おすすめ
-
PerlとStrawberryPerl、ActivePerlの違いを詳しく解説
-
perlのsrand()とtime関数の使い方の紹介
-
プロポーズ用Perlコードの書き換えについて
-
長さを指定し、ランダムなDNA配列を生成するperlスクリプトコード
-
perlの$aおよび$bの紹介
-
perlのour-my-localスコープ宣言の紹介
-
[解決済み] ディレクトリで終わるパスに対してcatfileを使用した場合の危険性?
-
[解決済み] Perlで「ハッシュの代入の要素数が奇数である」という警告が出る
-
[解決済み] Perl で STDOUT->autoflush(1) は何をするのですか?
-
[解決済み] Perlスクリプトにコンパイルエラーがないことを確認する方法は?