■ もちつけ2.0

[1 FOX ★ 2007/12/07(金) 16:51:58 ID:???0]

固有番号等をキーにして「もちつけ規制2.0」を作る会。

前スレ
どっかいってしまった。

携帯からの連投あらしが減ればいいなぁ(BBM2.0なのだ)

[810 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 17:59:49 ID:f3hnX8QG0]

あそこは強制IPだし

[811 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 18:01:58 ID:tEVaZSpe0]

>>809
いや、赤の他人

[812 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 18:02:12 ID:LQ1akEtc0]

仕込むなら仕込むでもう少し派手にやってくれ
今のところ目に見えた影響が少なすぎてしょぼすぎ

[813 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 18:02:54 ID:OxDPyMpQ0]

大阪はIP出ない。ちなみに同じ鳥を入れても違う鳥が出てくる。

[814 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 18:18:15 ID:uFdxUATtO]

>>811
知らなかった。
2ちゃんねるとまちBBSの関係がいまいち分からないなぁ。
確か、2ちゃんねるの前身がまちなんだよね。

[815 FOX ★ 2007/12/26(水) 18:20:58 ID:???0]

c-link というのがあってな・・・
以下(ty

[816 オッサン ◆2nFuckYouU 2007/12/26(水) 18:22:24 ID:f1V04//DP]

>>815
方向性が分からないと荒らしにくい
だから、どうしたいのか書いてくれ（笑

[817 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 18:24:43 ID:58INwjkyP]

(ty

[818 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 18:25:31 ID:N3xlm+bT0]

仰天!!驚天動地!!2chは「C-link」の客寄せ掲示板だった!!
http://mentai.2ch.net/mukashi/main/kako/949/949478273.html

Ｃ−Ｌｉｎｋ！鯖について
http://mentai.2ch.net/accuse/kako/961/961679367.html

[819 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 18:26:38 ID:p4M7whRwO]

携帯への認識が古く、長文投稿が全部の携帯で規制されているという認識がないみたい
携帯→2ch運用情報スレッド55
http://qb5.2ch.net/test/read.cgi/operate/1197901226/
548:FOX ★ 2007/12/26 17:00:22 ???0
一年くらいかけてみんなで熟成して
いいものが出来ればいいですね、
554:FOX ★ 2007/12/26 17:45:50 ???0
???
全部規制?

[820 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 18:27:57 ID:N3xlm+bT0]

今も昔も変わりないな

[821 FOX ★ 2007/12/26(水) 18:28:33 ID:???0]

PerlでPOSTってどうやるんだたっけ?

どっかで作ったと思うんだけどどこだったかなぁ・・・

[822 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 18:28:54 ID:N3xlm+bT0]

>>819
774 名前：FOX ★[] 投稿日：2007/12/26(水) 17:03:23 ID:???0
>>764
cgiのget methodってのの限界値なんですかねぇ
postでやったらもっと長くできるのか?

その辺の限界値は21世紀になってどうなっているのかなぁ

[823 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 18:29:30 ID:uFdxUATtO]

<form method=POST>

[824 FOX ★ 2007/12/26(水) 18:30:29 ID:???0]

my $host = "http://bbm2.2ch.net/xxxx/x.so?" ;
my $path = "srv=$ENV{'SERVER_NAME'}" ;
$path .= "&tane=$GB->{IDNOTANE}" ;
$path .= "&ua=$ENV{'HTTP_USER_AGENT'}" ;
$path .= "&subject=$GB->{FORM}->{'subject'}" ;
$path .= "&FROM=$GB->{FORM}->{'FROM'}" ;
$path .= "&mail=$GB->{FORM}->{'mail'}" ;
$path .= "&bbs=$GB->{FORM}->{bbs}" ;
$path .= "&key=$GB->{FORM}->{key}" ;
$path .= "&MESSAGE=$GB->{FORM}->{'MESSAGE'}" ;
my $ua = LWP::UserAgent->new() ;
$ua->agent('Mozilla/5.0 FOX(2ch.bbs)') ;
$ua->timeout(3);
my $request = HTTP::Request->new('GET', $host . $path);
my $response = $ua->request($request) ;#ここで GET 処理
my $db_content = $response->content();

# エラーチェック
if ($response->is_error)
{
return "通信エラー";
}
chomp($db_content);
return $db_content;

[825 FOX ★ 2007/12/26(水) 18:30:57 ID:???0]

これPOSTに出来る人あつまれー

[826 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 18:32:21 ID:N3xlm+bT0]

rootたん待ち

[827 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 18:34:25 ID:uFdxUATtO]

c-link なるものを軽く調べた。
....。

昔のひろゆきｶｺｲｲ。

[828 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 18:44:03 ID:N3xlm+bT0]

ほうほう

携帯→2ch運用情報スレッド55
http://qb5.2ch.net/test/read.cgi/operate/1197901226/586

586 名前：FOX ★[] 投稿日：2007/12/26(水) 18:39:00 ID:???0
ちょっと修正してみた、これで大丈夫になった人が少しでもいるといいなぁ

[829 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 18:48:17 ID:k5B95y6f0]

壷からきました。記念カキコ

[830 名無しの良心 2007/12/26(水) 18:48:37 ID:nYJejYVi0]

どうすりゃいいの？

[831 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 18:49:44 ID:PBw7XUFk0]

　┌○┐
　│　　|∧_∧
　│壷│´Д｀;)
　│　　|／/
　└○┘（⌒）
　　　　し⌒

[832 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 18:50:14 ID:0DcmBrCp0]

　┌○┐
　│　　|∧_∧
　│壷│´Д｀;)
　│　　|／/
　└○┘（⌒）
　　　　し

[833 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 18:50:15 ID:N3xlm+bT0]

ま〜た壷かよ

[834 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 18:50:21 ID:nYJejYVi0]

壷から

[835 FOX ★ 2007/12/26(水) 18:50:54 ID:???0]

通信エラーってことは >>824 の

if ($response->is_error)
{
return "通信エラー";
}

ここに引っかかっているんだな あいてが 500番台を返しているんだろうなぁ
つまり bbm2.2ch.netがですが、

文が短いとならないんだから
原因はやっぱり文が長いことによるんでしょうねぇ
ということは getじゃ無理だと、

[836 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 18:50:58 ID:2lQXhFmq0]

┌○┐
　│　　|∧_∧
　│壷│´Д｀;)
　│　　|／/
　└○┘（⌒）
　　　　し

[837 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 18:50:59 ID:i2zkX4Lo0]

壷ﾊﾟﾋﾟｺ

[838 FOX ★ 2007/12/26(水) 18:51:17 ID:???0]

ぐおっ
爆撃タイムか。。。

[839 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 18:52:06 ID:YRf5DJYf0]

何で作業スレに壷やねん。マァブ空気嫁

[840 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 18:52:09 ID:jvU+G7XU0]

なにすりゃいいの？

[841 [´・ω・｀] nttkyo203084.tkyo.nt.ftth.ppp.infoweb.ne.jp 2007/12/26(水) 18:52:35 ID:x0WxINYn0]

アク禁解いたら考える

[842 名無しの良心 2007/12/26(水) 18:52:40 ID:nYJejYVi0]

てすてす

[843 マァヴ ◆jxAYUMI09s 2007/12/26(水) 18:52:46 ID:kC2aQCYC0]

ふはははははははは(^_^;)無敵！

[844 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 18:52:48 ID:EWSRiSNG0]

　┌○┐
　│　　|∧_∧
　│壷│´Д｀;)
　│　　|／/
　└○┘（⌒）
　　　　し

[845 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 18:53:17 ID:9TqgNw1L0]

実に面白い

[846 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 18:53:18 ID:5PKSv9I+0]

...
my $request = HTTP::Request->new('POST', $host . $path);
my $response = $ua->request($request) ;

[847 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 18:53:47 ID:lWnvs9P10]

　┌○┐
　│　　|∧_∧
　│壷│´Д｀;)
　│　　|／/
　└○┘（⌒）
　　　　し

[848 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 18:53:59 ID:N3xlm+bT0]

>>840
携帯で何故か長文の時にエラー吐くのを修正

[849 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 18:54:43 ID:GlOSH2Vs0]

壷から呼ばれてきました

力になれません、ごめんなさい

[850 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 18:55:24 ID:mx8Xtegv0]

いちいち呼ぶなよバカ狐

[851 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 18:55:33 ID:EY62gjXv0]

ツボから来たよ

>823でPOSTになるんじゃ？

[852 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 18:56:35 ID:Gizx28w10]

壺から呼ばれて


何言ってんだ？まったく

[853 2ちゃんねる壷 ◆.2chtubo/Y ＠株主 ★ 2007/12/26(水) 18:56:51 ID:JG+YW2r80]

壷りました

[854 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 18:57:17 ID:QASJ8f1J0]

壷ぬっころす

狐は半年タムれ

[855 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 18:57:47 ID:nj2ODy/S0]

壷ならでわ

[856 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 18:57:57 ID:Gizx28w10]

>>841
ﾌｷﾞｬｱｱｱｱ

[857 Itadaki ★ 2007/12/26(水) 18:57:58 ID:???0]

これ？
http://www.tohoho-web.com/lng/200003/00030338.htm

[858 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 18:58:19 ID:Or1/e1Pw0]

my $host = "http://bbm2.2ch.net/xxxx/x.so?" ;
my $path = "srv=$ENV{'SERVER_NAME'}" ;
$path .= "&tane=$GB->{IDNOTANE}" ;
$path .= "&ua=$ENV{'HTTP_USER_AGENT'}" ;
$path .= "&subject=$GB->{FORM}->{'subject'}" ;
$path .= "&FROM=$GB->{FORM}->{'FROM'}" ;
$path .= "&mail=$GB->{FORM}->{'mail'}" ;
$path .= "&bbs=$GB->{FORM}->{bbs}" ;
$path .= "&key=$GB->{FORM}->{key}" ;
$path .= "&MESSAGE=$GB->{FORM}->{'MESSAGE'}" ;
my $ua = LWP::UserAgent->new() ;
$ua->agent('Mozilla/5.0 FOX(2ch.bbs)') ;
$ua->timeout(3);
my $request = HTTP::Request->new('GET', $host . $path);
my $response = $ua->request($request) ;#ここで GET 処理
my $db_content = $response->content();

# エラーチェック
if ($response->is_error)
{
return "通信エラー";
}
chomp($db_content);
return $db_content;

[859 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 18:58:20 ID:WeVXzkIt0]

マァヴ光臨してるｗｗｗｗｗｗ

[860 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 18:58:26 ID:uFdxUATtO]

>>851
狐さんはサーバーサイドで悩んでるぽいよ。

[861 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 18:59:31 ID:p449rvCi0]

壷からよばれますた。

[862 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 19:00:51 ID:C72nEpkqO]

とりあえず鎮まれ。
FOXは動いてるんだからいいじゃないか。荒らしてる馬鹿だけが駆逐されるだけなんだからいろいろ言うな。

まぁ、お前らが荒らしばっかしてる奴なら、ざまぁｗとしか言いようがないが。

[863 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 19:01:01 ID:W2rHjlfb0]

つぼうぜえｗ

[864 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 19:01:01 ID:INTSNopM0]

　 ＿＿_
　 |=====|　
　(　･ω･)　差し入れにＯＩＭＯ巻作ったんよ
　(っ　y つ＜⌒＞
　/　　　)
　( /￣∪

[865 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 19:01:27 ID:nJ2dogfR0]

my $host = "http://bbm2.2ch.net/xxxx/x.so?" ;
my $path = "srv=$ENV{'SERVER_NAME'}" ;
$path .= "&tane=$GB->{IDNOTANE}" ;
$path .= "&ua=$ENV{'HTTP_USER_AGENT'}" ;
$path .= "&subject=$GB->{FORM}->{'subject'}" ;
$path .= "&FROM=$GB->{FORM}->{'FROM'}" ;
$path .= "&mail=$GB->{FORM}->{'mail'}" ;
$path .= "&bbs=$GB->{FORM}->{bbs}" ;
$path .= "&key=$GB->{FORM}->{key}" ;
$path .= "&MESSAGE=$GB->{FORM}->{'MESSAGE'}" ;
my $ua = LWP::UserAgent->new() ;
$ua->agent('Mozilla/5.0 FOX(2ch.bbs)') ;
$ua->timeout(3);
my $request = HTTP::Request->new('GET', $host . $path);
my $response = $ua->request($request) ;#ここで GET 処理
my $db_content = $response->content();

# エラーチェック
if ($response->is_error)
{
return "通信エラー";
}
chomp($db_content);
return $db_content;

[866 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 19:01:32 ID:xrBUPR/d0]

壷からよばれますた。

[867 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 19:01:48 ID:eSMaxUCe0]

さて壷から来た１０分の７は
何の話してるか分かってないな

[868 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 19:01:56 ID:LVg67D5d0]

よくわかんないけど壷

[869 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 19:02:01 ID:HXTQoiVa0]

余裕だろｗｗｗｗｗｗ

[870 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 19:02:06 ID:uzYS9H200]

壷に呼ばれました
意味わかんないけど


がんばってください！！！

[871 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 19:02:22 ID:PdI6PsR20]

うっとうしいから壷の設定でお知らせ止められないかなぁ。。

カップ麺とかくだらないのばっかでうんざりんだけど

[872 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 19:02:56 ID:NVPJ38yw0]

壷からの記念カキコは荒らしとして規制しよう
ウザイしそれがいい

[873 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 19:02:58 ID:N3xlm+bT0]

ハクション大魔王かっつーの

[874 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 19:03:33 ID:YmfAzaNz0]

１０分の７じゃなくて７割って言えよｗｗｗｗｗｗｗｗｗｗｗ

[875 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 19:03:35 ID:9xvzWwY30]

スレタイの検索機能おかしいのも治してほしい

[876 FOX ★ 2007/12/26(水) 19:03:38 ID:???0]

>>857
SOCKETというか地道に組むんじゃなくてさ
Perl5のモジュール使ってさ、こうかっこよくやりたいー

#なんかスペースバーが押せたり押せなかったり
#怪奇現象ジャー

[877 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 19:03:54 ID:wURLhVQh0]

┌─┐
│　　|
│壷│
│　　|
└─┘

[878 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 19:03:58 ID:dEKdjh5G0]

壺

すぐにpostに投函いたしますです。

[879 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 19:03:58 ID:eSMaxUCe0]

壷カキコ規制は同意だな

[880 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 19:06:14 ID:GlOSH2Vs0]

>>871
そうですか？
カップ麺のCMを見ると「ああ、今日も平和なんだな」と安心するんですが

[881 Itadaki ★ 2007/12/26(水) 19:06:34 ID:???0]

えー地道が一番ッスよー

[882 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 19:07:37 ID:/JSW/9L/0]

壺

(　ﾟдﾟ)ｳｯｳｰ

[883 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 19:07:52 ID:EY62gjXv0]

これ？
read (STDIN, $PostData, $ENV{'CONTENT_LENGTH'});

[884 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 19:09:04 ID:jBnzuCBg0]

印刷してポストに投函すれば良いの？

[885 イソジンbrother 2007/12/26(水) 19:09:19 ID:CR0sjvLB0]

うん！
全くもって何を云ってるか解らん・・・

[886 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 19:09:39 ID:iH5KjwzVO]

壷壷うぜえよ

[887 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 19:10:27 ID:WeVXzkIt0]

50円切手でいい？投函日付は2007/12/26(水)でおｋ？

[888 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 19:10:53 ID:I5qB0spL0]

HTTPリクエストはSENDしか知らんがな

[889 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 19:12:17 ID:5PKSv9I+0]

>>883
サーバサイドで受けるんじゃなくて、プログラムがどっかにPOSTするんだろ
>>846でいいんじゃないの？

[890 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 19:12:18 ID:5eeXf/i/0]

2007/12/26 18:44 新規メッセージ
　 【緊急募集】これをpostにできる人を募集中です
集合場所http://qb5.2ch.net/test/read.cgi/operate/1197013918/

--------------------------------------------------------------------------------
↓これ
my $host = "http://bbm2.2ch.net/xxxx/x.so?" ;
my $path = "srv=$ENV{'SERVER_NAME'}" ;
$path .= "&tane=$GB->{IDNOTANE}" ;
$path .= "&ua=$ENV{'HTTP_USER_AGENT'}" ;
$path .= "&subject=$GB->{FORM}->{'subject'}" ;
$path .= "&FROM=$GB->{FORM}->{'FROM'}" ;
$path .= "&mail=$GB->{FORM}->{'mail'}" ;
$path .= "&bbs=$GB->{FORM}->{bbs}" ;
$path .= "&key=$GB->{FORM}->{key}" ;
$path .= "&MESSAGE=$GB->{FORM}->{'MESSAGE'}" ;
my $ua = LWP::UserAgent->new() ;
$ua->agent('Mozilla/5.0 FOX(2ch.bbs)') ;
$ua->timeout(3);
my $request = HTTP::Request->new('GET', $host . $path);
my $response = $ua->request($request) ;#ここで GET 処理
my $db_content = $response->content();

# エラーチェック
if ($response->is_error)
{
return "通信エラー";
}
chomp($db_content);
return $db_content;

[891 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 19:14:52 ID:EY62gjXv0]

>889
じゃあ>846でよさげだね

[892 root▲▲ ★ 2007/12/26(水) 19:15:14 ID:???0]

今北。すぐ出なきゃいけないんだけど。

私もPerlはしろーとですが、
単に、

> my $request = HTTP::Request->new('GET', $host . $path);

の GET を POST に変えるんじゃ、、、きっとだめなんでしょうね。
そのぐらいは試しているんだろうなと。

[893 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 19:15:58 ID:WeVXzkIt0]

rootたんｋｔｋｒ

ちょっくら抜いてくる

[894 FOX ★ 2007/12/26(水) 19:16:11 ID:???0]

POSTの時のパラメータを受け渡す方法がもんだいでして・・・

[895 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 19:17:22 ID:P2CvhieH0]

壺から。

ほい。細かいところは自分で書いてね。
my(%pm, $ua, $request) = ();
・・・
$pm{'srv'} = $ENV{'SERVER_NAME'};
・・・
$request = $ua -> post($host, \%pm);

[896 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 19:17:46 ID:4UstwLK6O]

もう止めたら？

[897 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 19:18:02 ID:btOxx8na0]

tubo

[898 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 19:18:05 ID:VYHPFIoV0]

壺壺壺壺壺壺
postって何？

[899 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 19:18:20 ID:qsW553wo0]

sendのときに一緒に入れてわたすんじゃないの？
先に"Content-Type: application/x-www-form-urlencoded;charset=UTF-8"
あたりをヘッダに入れてさ。

あー、wshのXMLHTTPでクッキーを送る方法がわかんねー。

[900 FOX ★ 2007/12/26(水) 19:19:07 ID:???0]

ぉっ　そんなやつ

>>895

あとは %pm を作ればいいのか
%pm = ();
$pm[0] = "a=1";
$pm[0] = "b=2";
$pm[0] = "c=3";


でいいのかしら・・・

[901 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 19:19:08 ID:+tjTxgQM0]

壺からきました
インターネット始めたばかりでよくわかりませんが
ポストにすればいいってどうゆう意味でしょうか？
赤いポストの事？

[902 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 19:20:42 ID:vZ8yuTlJ0]

ファミリーベーシックならコンテスト入賞経験アリです！
ぴゅう太の日本語ＢＡＳＩＣもＯＫです！！

音響カプラも持ってますが、ちからになれるでしょうか？

[903 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 19:20:55 ID:PdI6PsR20]

＞HTTP::Request->new('GET', $host . $path);

$pathじゃなくてHTTP::Headers->new(追加ヘッダー)の返す値で、第4パラメータがフォームデータをＵＲＬエンコードしたやつ


ＦＯＸがキライなＯＣＮユーザより

[904 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 19:21:35 ID:P2CvhieH0]

>>900
ダメ。%pmは配列じゃない。
こう。
$pm['a'] = "1";
$pm['b'] = "2";
$pm['c'] = "3";
コレ以降は自分で考えましょう

[905 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 19:21:46 ID:WeVXzkIt0]

>>903
誘導
http://www.bbs2ch.net/ocn/

[906 904 2007/12/26(水) 19:23:35 ID:P2CvhieH0]

カッコを間違えた。
こう
$pm{'a'} = "1";
$pm{'b'} = "2";
$pm{'c'} = "3";

[907 FOX ★ 2007/12/26(水) 19:23:56 ID:???0]

>>904
おー

やってみよー、そうしよう。

[908 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 19:27:50 ID:KxYs/IQT0]

my $host = "http://bbm2.2ch.net/xxxx/x.so?" ;
my $path = "srv=$ENV{'SERVER_NAME'}" ;
$path .= "&tane=$GB->{IDNOTANE}" ;
$path .= "&ua=$ENV{'HTTP_USER_AGENT'}" ;
$path .= "&subject=$GB->{FORM}->{'subject'}" ;
$path .= "&FROM=$GB->{FORM}->{'FROM'}" ;
$path .= "&mail=$GB->{FORM}->{'mail'}" ;
$path .= "&bbs=$GB->{FORM}->{bbs}" ;
$path .= "&key=$GB->{FORM}->{key}" ;
$path .= "&MESSAGE=$GB->{FORM}->{'MESSAGE'}" ;
my $ua = LWP::UserAgent->new() ;
$ua->agent('Mozilla/5.0 FOX(2ch.bbs)') ;
$ua->timeout(3);
my $request = HTTP::Request->new('GET', $host . $path);
my $response = $ua->request($request) ;#ここで GET 処理
my $db_content = $response->content();

# エラーチェック
if ($response->is_error)
{
return "通信エラー";
}
chomp($db_content);
return $db_content;

[909 動け動けウゴウゴ２ちゃんねる 2007/12/26(水) 19:29:26 ID:g0kfZWBv0]

my $host = "http://bbm2.2ch.net/xxxx/x.so?" ;
my $path = "srv=$ENV{'SERVER_NAME'}" ;
$path .= "&tane=$GB->{IDNOTANE}" ;
$path .= "&ua=$ENV{'HTTP_USER_AGENT'}" ;
$path .= "&subject=$GB->{FORM}->{'subject'}" ;
$path .= "&FROM=$GB->{FORM}->{'FROM'}" ;
$path .= "&mail=$GB->{FORM}->{'mail'}" ;
$path .= "&bbs=$GB->{FORM}->{bbs}" ;
$path .= "&key=$GB->{FORM}->{key}" ;
$path .= "&MESSAGE=$GB->{FORM}->{'MESSAGE'}" ;
my $ua = LWP::UserAgent->new() ;
$ua->agent('Mozilla/5.0 FOX(2ch.bbs)') ;
$ua->timeout(3);

my $request = HTTP::Request->new(POST => $host); #ここで POST 処理
$request->content_type('application/x-www-form-urlencoded');
$request->content($path);

my $response = $ua->request($request) ;
my $db_content = $response->content();

# エラーチェック
if ($response->is_error)
{
return "通信エラー";
}
chomp($db_content);
return $db_content;