2000/08/20 (日) 03:23:01 ▼ ◇ [mirai]#ニュースサーバーに接続してARTTICLEを取ってくるプログラム
#grouplistfileからgroupを読み込みます。
#Binaryらしきものを巡回して保存します。
#起動 perl binary_down.unix [grouplistfile]
########################
#最終更新日 00/08/20
#base64でエンコードされているものを抽出します。
#デコード部分はすべての投稿に該当しているというわけではなく、よくあるタイプに絞っています。
#デフォルトはUnix用です。Winで使用する場合は
#1.改行、文字コード問題
#2.ディレクトリ区切り文字問題
#の二つがあります
#解決法
#1-------->ブラウザで表示してあるものをメモ帳にコピーペーストする
#2-------->設定の部分でWin用の区切り文字を使う
########################
#設定
#どのサーバーを使うか?
$newsserver='news.ne.jp';
#保存する基準ディレクトリ(絶対パス、ディレクトリをルートから一つ)
#Winでは $dir="c:\\newsspool\\"; などとする
$dir="\/newsspool\/";
#ヘッダーのなかにある Lines: で出てくる長さの制限(だいたい100kbで1500行)
$nagasa=3000;
#出来るだけ要らないファイルは消す(0:yes,1;no)
$iranainohakesu=0;
#同名ファイルがある場合スキップする(0)
#上書き保存する(1)
$doumeishori=0;
########################