Perlを使って２ちゃんねるにHello Worldを書き込む

**デフォルトの名無しさん** · 2007/07/15(日) 16:16:50

俺、がんばる。みてて。

**デフォルトの名無しさん** · 2007/07/16(月) 16:25:06

はいはい、またーりいくよ。
テスト用に、サーバーに送信したデータをそのまま表示するだけのphpコード
ちゃんと送られているかこれで確認！

<?php
header("Content-Type: text/plain");
print "[REQUEST]\n"; print_r(apache_request_headers());
print "[SERVER]\n"; print_r($_SERVER);
print "[GET]\n"; print_r($_GET);
print "[POST]\n"; print_r($_POST);
print "[COOKIE]\n"; print_r($_COOKIE);
print "[FILES]\n"; print_r($_FILES);
?>

IEはダウンロードしやがるぜ。けっ

**デフォルトの名無しさん** · 2007/07/16(月) 20:07:51

さあて、いよいよpostだ。実際に動かすときは自分のサーバーに置いた
スクリプト（>>45でいい)に向けてpostするように。

use LWP::UserAgent;

$ua = LWP::UserAgent->new;
$ua->agent("Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; SV1)");

$req = HTTP::Request->new(POST => 'http://www.example.com/test.php?getdata=gettest');
$req->header(
'Accept' => '*/*',
'Accept-Language' => 'ja-JP,en-US;q=0.5',
'Referer' => 'http://www.example.com/',
);
$req->content_type('application/x-www-form-urlencoded');
$req->content('postdata=posttest');

print $ua->request($req)->as_string;

**デフォルトの名無しさん** · 2007/07/16(月) 21:23:57

Hello World

**デフォルトの名無しさん** · 2007/07/16(月) 21:31:30

なんか資料見つけたので追加
http://age.s22.xrea.com/talk2ch/

**デフォルトの名無しさん** · 2007/07/16(月) 22:12:37

Hello World 2

**デフォルトの名無しさん** · 2007/07/16(月) 22:22:18

うーん。postするときのtimeの数字ってなんだろう？
日付に直すと Sun, 02 Jan 2005 17:55:08 GMT なんだが、
どこから取得すればいいのだ？
htmlのフォームから取得できるのはわかるが・・・

**デフォルトの名無しさん** · 2007/07/16(月) 22:37:29

Hello World 3

**デフォルトの名無しさん** · 2007/07/16(月) 22:38:34

Hello World 3

**デフォルトの名無しさん** · 2007/07/16(月) 22:40:05

Hello World 3

**デフォルトの名無しさん** · 2007/07/16(月) 22:41:19

Hello World 3

**デフォルトの名無しさん** · 2007/07/16(月) 22:42:24

よくわからんが、現在時刻マイナス？で書き込めるようだ。

**デフォルトの名無しさん** · 2007/07/16(月) 23:03:50

ここでテストするのはやめれ。運営にチクるぜー？

**デフォルトの名無しさん** · 2007/07/17(火) 00:09:52

通報しますた

**デフォルトの名無しさん** · 2007/07/17(火) 01:46:58

あぼーんだらけの某板に書いてみるとか

**デフォルトの名無しさん** · 2007/07/17(火) 08:54:34

最悪板あたりでやればいいのでは

**デフォルトの名無しさん** · 2007/07/26(木) 18:14:07

結局どこいったん＞

**デフォルトの名無しさん** · 2007/07/27(金) 01:20:27

>>60
書き込めるようになって、飽きました。

**デフォルトの名無しさん** · 2007/07/27(金) 01:49:01

他の鯖でも試してみた？

**デフォルトの名無しさん** · 2007/07/27(金) 14:21:01

Hello, World

**ヒッキーの達人** ◆MEIDO...W. · 2007/07/29(日) 03:50:50

僕も最近Perlを始めたので hello, world を作ってみました

#!/usr/bin/perl
use strict;
my $hello = "hello, world";
my $tmp = './hello.world';

open OUT, "> $tmp" or die "$!";
flock OUT, 2;
print OUT $hello;
close OUT;

open IN, $tmp or die "$!";
flock IN, 2;
my @in = <IN>;
close IN;

unlink $tmp;

foreach(@in){
　s/$hello/herro, world/i;
}

my $res = `ping -c 4 www.google.com`;
undef $res;

print $hello;

my @n = qq|\n|;
foreach(@n){
　print;
}

**デフォルトの名無しさん** · 2007/07/29(日) 20:40:58

Unrecognized character \x81 at C:/Users/Dai/workspace/PerlTest1/MainTest2.pl line 19.

**デフォルトの名無しさん** · 2007/07/29(日) 20:52:03

ヒント：全角スペース

**デフォルトの名無しさん** · 2007/09/08(土) 00:57:04

このスレは車輪の再発明をするスレのようですね

Age2ch Part14
http://pc11.2ch.net/test/read.cgi/software/1118219419/l50

**デフォルトの名無しさん** · 2007/09/08(土) 14:36:00

みんな車輪の再開発をして技術を身に付けるんだよ。
弟子は師匠の筆の跡を盗むもんだ。

**デフォルトの名無しさん** · 2007/10/04(木) 13:01:14

perlだけでなくrubyやpythonその他
いろいろな言語でこれをするならどれが一番きれいだと思う?

**デフォルトの名無しさん** · 2007/10/05(金) 09:53:41

elisp

**デフォルトの名無しさん** · 2008/01/10(木) 11:13:45

>>22
これってどうやって調べたん？

**デフォルトの名無しさん** · 2008/01/10(木) 12:04:21

hello world

**デフォルトの名無しさん** · 2008/01/10(木) 23:37:44

http://pc11.2ch.net/test/read.cgi/unix/1019380983/

**デフォルトの名無しさん** · 2008/01/11(金) 09:22:43

pythonだったら2ch書込用ライブラリ作ったけど

**デフォルトの名無しさん** · 2008/01/11(金) 11:51:26

omaeka

**デフォルトの名無しさん** · 2008/01/15(火) 05:41:47

うんこ

**デフォルトの名無しさん** · 2008/01/15(火) 05:42:50

cgiからも書き込めるようにしてみた。
だからアク禁くらってもレンタルサーバーにcgiぶっこめばいくらでも書き込める。

**デフォルトの名無しさん** · 2008/01/15(火) 05:45:20

うんこ

**デフォルトの名無しさん** · 2008/01/15(火) 05:46:25

うんこ

**デフォルトの名無しさん** · 2008/01/28(月) 11:56:22

てすと

80 · 2008/01/28(月) 12:02:46

すまん
誤爆した。

80 · 2008/01/28(月) 12:04:16

すまん
誤爆した。

80 · 2008/01/28(月) 12:09:40

すまん
誤爆した。

**デフォルトの名無しさん** · 2008/01/31(木) 05:50:43

てすと

**デフォルトの名無しさん** · 2008/01/31(木) 05:53:43

てすと

**デフォルトの名無しさん** · 2008/03/19(水) 02:51:43

ActivePerl-5.10.0.1002-MSWin32-x86-283697.msi
を保存して
ダブルクイックすると
『インストール　パッケージを開くことができませんでした。アプリケーションベンダに問い合わせ、このパッケージが有効なWindowｓインストーラパッケージであることを確認してください。』　　と出るのですが
何が問題あるのでしょうか

**うっかり八兵衛** · 2008/03/19(水) 06:04:17

>>86　
インストーラパッケージが壊れていまし。
保存のインスト不良でした
早とちり
で、しまったシマッタ！島倉千恵子！
(;^_^A フキフキ

**デフォルトの名無しさん** · 2008/03/19(水) 07:27:01

とりあえず乙

**デフォルトの名無しさん** · 2008/03/29(土) 00:38:42

>>86
亀レスだがそれはファイルが壊れてるだけ。
俺もこの前WIN再インスコしたときになった。
activeperlのある鯖が不安定っぽいからリジューム機能のついてるツール使ってダウソしたほうがいいよ。

**デフォルトの名無しさん** · 2008/05/14(水) 13:50:09

test

**デフォルトの名無しさん** · 2008/05/16(金) 17:59:54

クライアントがクッキーを受け入れているかどうかってどうやって判断しているんでしょうか？

**デフォルトの名無しさん** · 2008/05/16(金) 20:42:21

食わせたクッキーを吐き出させればいいよ。

**デフォルトの名無しさん** · 2008/08/22(金) 22:09:35

test

**デフォルトの名無しさん** · 2008/08/22(金) 22:10:36

wget --referer=http://pc11.2ch.net --save-cookie=c --load-cookie=c --post-data='hana=mogera&bbs=tech&key=1184483810&time=1&mail=&FROM=&MESSAGE=test' http://pc11.2ch.net/test/bbs.cgi

**デフォルトの名無しさん** · 2008/08/31(日) 11:33:21

#!/usr/bin/perl

use warnings;
use strict;
use WWW::Mechanize;

my $url = 'http://pc11.2ch.net/test/read.cgi/tech/1184483810/';
my $mail = 'sage';
my $text = 'Hellow World;

my $mech = WWW::Mechanize->new;
$mech->agent_alias('Linux Mozilla');
$mech->get($url);
$mech->submit_form(
form_number => 2,
fields=>{
FROM => '',
mail => $mail,
MESSAGE => $text,
},
);
print $mech->content;
$mech->submit;
print $mech->content;
なんで、これでじゃかきこめないわけ?

**デフォルトの名無しさん** · 2008/09/07(日) 15:18:17

hello world

**デフォルトの名無しさん** · 2008/09/15(月) 20:22:15

ゆきさん、好きだ。

**デフォルトの名無しさん** · 2008/10/10(金) 18:19:28

そんぽぷへるめ

**デフォルトの名無しさん** · 2008/12/07(日) 20:49:28

http://pc11.2ch.net/test/read.cgi/software/1118219419/850 より

use utf8;
binmode STDOUT => ":encoding(cp932)";
binmode STDIN => ":encoding(cp932)";
use open IO => ":encoding(cp932)";
use Win32::IEAutomation;
use Encode;

$ie = Win32::IEAutomation->new( visible => 1, maximize => 0);
$ie->gotoURL('http://pc11.2ch.net/test/read.cgi/software/1118219419/l1n');
$ie->getTextBox('name:', 'FROM')->SetValue(encode('cp932', "名無しさん＠お腹すいた") );
$ie->getTextBox('name:', 'mail')->SetValue('sage');
$ie->getTextArea('name:', 'MESSAGE')->SetValue(encode('cp932', ">>845\nソースきぼ～ん") ) ;
$ie->getButton('name:', 'submit')->Click(1) ;
sleep(10);
$ie->getButton('name:', 'submit')->Click(1) ; # 初回投稿時の確認ウィンドウ用

**デフォルトの名無しさん** · 2008/12/10(水) 02:24:59

Hellow World

**デフォルトの名無しさん** · 2008/12/10(水) 02:28:25

test

**デフォルトの名無しさん** · 2008/12/10(水) 02:40:04

Hellow world

**デフォルトの名無しさん** · 2008/12/10(水) 02:44:02

Hellow Fuck!

**名無しさん＠お腹すいた** · 2008/12/10(水) 02:46:30

うんこちんちん

**hage** · 2008/12/10(水) 03:14:51

Hellow Fuck!

**hage** · 2008/12/10(水) 03:26:37

Hellow Fuck!

**hage** · 2008/12/10(水) 03:34:42

Hellow Fuck!

**test** · 2008/12/10(水) 03:35:28

test

**hage** · 2008/12/10(水) 03:36:04

Hellow Fuck!

**hage** · 2008/12/10(水) 05:40:53

Hellow Fuck!

**デフォルトの名無しさん** · 2009/01/19(月) 09:19:05

じゃあ、PHPで書き込むにはどうしたらいいですか？

**デフォルトの名無しさん** · 2009/01/19(月) 11:23:50

>>111
スレ立てました。

PHPを使って２ちゃんねるにHello Worldを書き込む
http://pc11.2ch.net/test/read.cgi/tech/1232331701/l50

**デフォルトの名無しさん** · 2009/01/19(月) 14:16:06

>>112
おお、ありがとうございます！！そのやり方も教えて下さい！！

**デフォルトの名無しさん** · 2009/02/08(日) 18:28:52

じぐもとらせてください

**デフォルトの名無しさん** · 2009/04/09(木) 22:28:09

スレ違い

**デフォルトの名無しさん** · 2009/05/31(日) 23:18:29

WWW::Mechanize使わずにやろうとしたらどうなるんだろう。

**デフォルトの名無しさん** · 2009/06/07(日) 15:00:39

Coco豚肉一辛カレー、ガーリックかけたらおいしかったけれど、全部食べきれなかった。

**デフォルトの名無しさん** · 2009/07/11(土) 12:55:52

Hallo World!

**デフォルトの名無しさん** · 2009/07/11(土) 19:26:21

Hello World!

**デフォルトの名無しさん** · 2009/07/11(土) 19:28:02

Hello World!

**デフォルトの名無しさん** · 2009/07/11(土) 19:39:10

Hello World! ｱﾋｬ

**デフォルトの名無しさん** · 2009/07/11(土) 19:42:16

これならプロバイダ規制受けても書き込みできるな
ｲﾔｯﾎｳ

**デフォルトの名無しさん** · 2009/07/11(土) 22:47:56

helohelo

**デフォルトの名無しさん** · 2009/07/22(水) 20:56:08

hello worldｗｗ

**デフォルトの名無しさん** · 2009/07/22(水) 20:58:49

hello worldｗｗ

**デフォルトの名無しさん** · 2009/07/22(水) 20:59:30

hello worldｗｗ

**デフォルトの名無しさん** · 2009/07/22(水) 21:00:12

hello worldｗｗ

**デフォルトの名無しさん** · 2009/07/22(水) 21:09:14

teest

**デフォルトの名無しさん** · 2009/07/22(水) 21:12:00

test2

**デフォルトの名無しさん** · 2009/07/22(水) 21:15:49

hello world??

**デフォルトの名無しさん** · 2009/07/22(水) 21:17:59

test

**デフォルトの名無しさん** · 2009/07/22(水) 21:18:06

hello world??

**デフォルトの名無しさん** · 2009/07/22(水) 21:23:40

てｓｔ

**デフォルトの名無しさん** · 2009/07/22(水) 21:43:07

てｓｔ

**デフォルトの名無しさん** · 2009/07/23(木) 17:33:47

test

**デフォルトの名無しさん** · 2009/07/23(木) 17:48:11

test

**デフォルトの名無しさん** · 2009/07/28(火) 22:22:06

姉歯さんのまんこは１３センチ

**デフォルトの名無しさん** · 2009/07/29(水) 00:31:09

>>> message = ' What's up, Mr?'
>>> message
'What's up, Mr?
>>> print message
Wha's up, Mr?

**デフォルトの名無しさん** · 2009/07/29(水) 00:33:05

>>> message = ' What's up, Mr?'
>>> message
'What's up, Mr?'
>>> print message
Wha's up, Mr?

**デフォルトの名無しさん** · 2009/07/29(水) 00:45:10

mit のコンピューター工学見てるひと　いる？

**デフォルトの名無しさん** · 2009/07/29(水) 00:54:46

ボクの目標は　いろんなビデイオディスクの場面を　つなげて　いろんな
ショートムービー　とか　つくる　ソフトをつくることなんだ
それを　発展させて　人工知能系に　つなげる
英国f１とかの大画面モニター　1日中　遊んでるらしいから
ジェット旅客機の　飛行中の映画モニターに映す
世界をつなげる　ソフト
世界が一体感をもてる　世界平和に貢献できるようなそんな気がする
それと　コンピューター工学を基礎から考えることなんだ。

ぼくは　タイムマシンとかつくって　現在光速で飛行中　自室のコックピットから　書き込んでる　だから　時間はいっぱいあるんだ。　

**デフォルトの名無しさん** · 2009/07/31(金) 01:36:37

>>140
それがどうした？

**デフォルトの名無しさん** · 2009/10/28(水) 21:54:10

まんこ、めぐりあい。そしてかくれんぼ。

**test** · 2009/11/05(木) 18:26:43

hello world