8月 12

ご存知の人もいるかもしれませんが
CGIダウンロードセンターの「レス付き画像掲示板 imgboard (フリーウェア)」
を設置してるところも多く、「ここで張られている画像をすべて見れたらいいなぁ」
っと思う人もいるはず

そこで作った解析プログラムなんですが
必要なものが3つあります
・そこのサイトの掲示板ログ(デフォルトは file.dat)です
・Cpanから LWP::Simple のモジュールをインストールしてあること
・Perlが動く環境(Unix またはPerlをインストールしてあるWindows)

もしLWP::Simpleがない場合 以下のプログラムと同じところに配置してください
プログラム

#!/usr/local/bin/perl
use LWP::Simple;

$url="http://www.xxx.co.jp/cgi-bin/";#img-boxの上のディレクトリー
$file="$url/file.dat";
getstore($file,"./file.dat"); LWP::SimpleでFile.datをDL

open(F,"./file.dat");
@list=<F>;
close(F);
print "Content-type: text/html <html> <head> <title>IMGBOARD解析</title> </head> <body> ";

foreach(@list){
  ($subject,$name,$email,$date_data,$body,$img_location,$imgtitle,$new_seq_no,$t,$rmkey,$unq_id)=split(/ /,$_);
  if($img_location ne ""){
    s/.////g;
    print"$url$img_location<br> ";#アドレスだけ表示
    #print"<img src="$img_location"><br> ";#画像だけ表示
   }
  }
print "</body> </html> ";

で動くと思います

Tagged with:
5 / 512345
preload preload preload