くだすれPerl（超初心者用）

くだすれPerl（超初心 ..

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

45:nobodyさん
 06/10/26 22:03:37 
>コピペするのみの形に整形したテキスト 
ここに質問するまではそれをベースに作っていたんですが、楽にできないものかと……。 
勘違いされると確かにまずいですよね、保守ツールだったらよく見かけるんですけど……。 
 
>Perlの2ch書き込みソフト 
ありがとうございます、早速探してみます。

46:nobodyさん
 06/10/27 02:03:16 
use LWP::UserAgent; 
use HTTP::Cookies; 
use HTTP::Request::Common; 
use HTTP::Headers; 
print 'URI > '; chomp ( $entry = <> ); 
$entry =~ 'http://([^/]*)/([^/]*)/([^/]*)/([^/]*)/([0-9]*)'; 
($uriServer, $uriBbs, $uriKey, $uri) = ($1, $4, $5, "http://$1/test/bbs.cgi"); 
print 'MESSAGE > '; chomp ( $msg = <> ); 
$ua = new LWP::UserAgent; 
$request  = POST ($uri, [ 
subject => '', 
FROM    => '', 
hana    => 'mogera', 
submit  => '書き込む', 
mail    => 'sage', 
MESSAGE => $msg, 
bbs     => $uriBbs, 
key     => $uriKey, 
time    => time]); 
$request -> referer($uri); 
$request -> user_agent('Monazilla/1.00'); 
$cookie_jar = HTTP::Cookies -> new( file => 'ume.cook', autosave => 1 ); 
$cookie_jar -> add_cookie_header($request); 
$ua         -> cookie_jar($cookie_jar); 
$response = $ua       -> request($request);

次ページ