[表示 : 全て 最新50 1-99 101- 201- 301- 401- 501- 601- 701- 801- 901- 2chのread.cgiへ]
Update time : 01/23 21:37 / Filesize : 239 KB / Number-of Response : 927
[このスレッドの書き込みを削除する]
[+板 最近立ったスレ&熱いスレ一覧 : +板 最近立ったスレ/記者別一覧] [類似スレッド一覧]


↑キャッシュ検索、類似スレ動作を修正しました、ご迷惑をお掛けしました

Perlについての質問箱 37箱目



1 名前:デフォルトの名無しさん mailto:sage [2008/08/11(月) 19:10:40 ]
"The duct tape of the Internet" こと、Perlについての質問箱です。
"There's more than one way to do it" ということで、
Perlの奥深さについて皆で語り合い、追求してまいりましょう。

CGIについての質問は板違いです。WEBプログラミング板でどうぞ。
CGIとPerlの区別がつかない人もWEBプログラミング板に行ってください。
( WEBプログラミング板 pc11.2ch.net/php/ )

CGIの質問は答えが Perlと全然関係ない話に帰着する場合が
多かったりするのでWEBプログラミング板に行って聞いたほうが得ですよ。
このスレでは(CGI以外の)純粋にPerlのみに関係する質問を取り扱っていこうと思います。
スレ違いの質問にはスルーか、速やかな誘導をお願いします。

www.perl.org/get.html
● 2008/08/11 現在の最新版(安定版): 5.10.0
● 2008/08/11 現在の開発版: 5.9.5

▼ 前スレ
Perlについての質問箱 36箱目
pc11.2ch.net/test/read.cgi/tech/1215569470/

リンク集は>>2-3
Perl 日本語処理の基礎の基礎 >>4
過去スレは>>5-6 あたり

841 名前:デフォルトの名無しさん mailto:sage [2008/09/13(土) 06:25:47 ]
このスレで良いか分からないのですけどお願いします。

CentOS5を導入したところなのですが、cpanコマンドを最初に立ち上げたとき、
画面にBundle::CPANを導入しろとか書いてありまして、その通りに
cpan> install Bundle::CPAN
cpan> reload cpan
とやったところ、

Missing right curly or square bracket at (eval 319) line 3441, at end of line
syntax error at (eval 319) line 3441, at EOF

といったエラーが出てしまいます。OSの再インストールもしてみたのですが再現します。
この状態で他のモジュールのインストールも出来ているようなのですが、何だか不安です。
このエラーの原因についてご存知のかたはいらっしゃいますでしょうか?
CPAN.pmのバージョンは1.9205です。


842 名前:デフォルトの名無しさん mailto:sage [2008/09/13(土) 09:50:11 ]
なにこれ
こんなやり方知らなかったんだけど。

Perl Tutorial 76 - Formats: Low-Level Formatting - Formline
jp.youtube.com/watch?v=voHCfl4lYmE&NR=1

843 名前:デフォルトの名無しさん mailto:sage [2008/09/13(土) 10:40:17 ]
do do do で die die die $!

844 名前:デフォルトの名無しさん mailto:sage [2008/09/13(土) 11:23:18 ]
Anonymous FTPはなんで匿名FTPなのに、
なんでAnonymous Arrayは無名アレイなの?

845 名前:デフォルトの名無しさん mailto:sage [2008/09/13(土) 11:51:34 ]
>>844

anonymous の意味には日本語で言うところの
匿名(本当は名前を持っているけど隠してる)ってのと
無名(そもそも名前がついてない)の両方がある。

それを考えないで匿名しか使ってないやつも多いけどね


846 名前:デフォルトの名無しさん mailto:sage [2008/09/13(土) 13:50:56 ]
>>841
Linux板で質問したほうがいいと思われ

847 名前:デフォルトの名無しさん mailto:sage [2008/09/13(土) 23:38:52 ]
土曜の夜だからって
書き込みがないのは
許さんぞ!!

848 名前:デフォルトの名無しさん mailto:sage [2008/09/14(日) 08:44:05 ]
stateがいたく気に入ったのですが、
5.10が動くレンタルサーバーが無い以上、
使うのをあきらめざるをえません。
本当に断腸の思いです。

849 名前:デフォルトの名無しさん mailto:sage [2008/09/14(日) 08:51:43 ]
レンタルサーバで動かすためのもんじゃないしなぁ・・・
5.8とかにすれば?



850 名前:デフォルトの名無しさん mailto:sage [2008/09/14(日) 08:54:42 ]
my $r;

my $r=['a','b','c',];
print "@$r\n";


オレ様の初の無名アレイのサンプル。

$rに格納された、無名アレイのアドレスを、
@を先頭につけることによって、
「デ・リファレンス」することによって
配列の中味を表示している、

これであってますよね。

851 名前:デフォルトの名無しさん mailto:sage [2008/09/14(日) 08:55:29 ]
>>849
まじで?
なんで?

852 名前:デフォルトの名無しさん mailto:sage [2008/09/14(日) 09:34:52 ]
my $r=['a','b','c',];
print "$$r[1]\n";

無名配列の
デリファレンスの
配列番号指定の
表示法。

['a','b','c',]
という無名配列の先頭アドレスを
$rに格納し、$$rとアタマに$をつけることによって
デリファレンンスして配列の中味を取り出して、
[1]と添え字をつけることで指定の番号の要素を
取り出して表示している。

853 名前:デフォルトの名無しさん mailto:sage [2008/09/14(日) 09:53:41 ]
なんで有名アレイは()パーレンで囲むのに、
無名アレイは[]スクエアブラケットで囲むのか?

なんで、有名ハッシュは()パーレンで囲むのに、
無名ハッシュは{}カーリーブラケットで囲むのか?

854 名前:デフォルトの名無しさん mailto:sage [2008/09/14(日) 10:06:16 ]
my $r;
$r={
'a' => 'b',
};
print "$$r{'c'}\n";

無名ハッシュの例。
{'a' => 'b',};
の無名ハッシュのアドレスを$rに格納。
$$rと先頭に$をつけて{’c’}とキーを指定して
バリューのbを出力している。

855 名前:デフォルトの名無しさん mailto:sage [2008/09/14(日) 10:07:28 ]
ねーねーもしかして
5.9.5
のほうが5.10よりも進んでいるの?

(安定性はきにしないとして)

856 名前:デフォルトの名無しさん mailto:sage [2008/09/14(日) 10:09:26 ]
>>853
認識が根本的に間違ってる。
() <= 無名アレイもしくは無名ハッシュ(状況によっては単なるリスト)
[] <= 無名アレイへの「リファレンス」
{} <= 無名ハッシュへの「リファレンス」
@arr = ( 1,2,3 ) ; する事によって初めて有名アレイ(んな言いかたするっけ?)と言える。
あくまでも@arrが有名アレイであって、(1,2,3) は単なるリストだ。
[ 1,2,3 ] は、() を省略してる。 [ (1,2,3 ) ]
{ 1,2,3,4 } は、略

文章の流れから、[] を無名アレイと言ったりする人もいるだけの事

857 名前:デフォルトの名無しさん mailto:sage [2008/09/14(日) 10:16:04 ]
>>856
事故レス
>() <= 無名アレイもしくは無名ハッシュ(状況によっては単なるリスト)
状況によっては => 厳密には

858 名前:デフォルトの名無しさん mailto:sage [2008/09/14(日) 10:34:59 ]
ふーん
デタラメ書くと親切にしてもらえるんだな

859 名前:デフォルトの名無しさん mailto:sage [2008/09/14(日) 14:02:51 ]
なぁ、、、
もしかして、ハッシュって、フラグの管理に便利に
使えるんじゃないのか...?

ダンジョンに入った→1

とか。



860 名前:デフォルトの名無しさん mailto:sage [2008/09/14(日) 14:13:24 ]
もしかしても何も無いだろ。
ハードコーディングでもするつもりなのか?

861 名前:デフォルトの名無しさん mailto:sage [2008/09/14(日) 16:02:21 ]
>>859
なんでもいいからモジュールのコード嫁

862 名前:デフォルトの名無しさん mailto:sage [2008/09/14(日) 21:42:11 ]
バカでかいファイルのアップロード処理で
ttp://www.bioinfo.jp/tips.html#background1
ここに描いてるやりかたを使いたいのですが
よくわかりません

何か簡単な例でおしえてくだしあ

863 名前:デフォルトの名無しさん mailto:sage [2008/09/14(日) 22:00:32 ]
>>862
コメント入れてもたったの10行やん。
これ以上簡単な例?

864 名前:デフォルトの名無しさん mailto:sage [2008/09/14(日) 22:04:33 ]
use HTML::TreeBuilder::XPath;

my $html = '<html><head><title>foo & bar</title></head><body></body></html>';

my $tree = HTML::TreeBuilder::XPath->new;
$tree->parse($html)->eof;
print $tree->findvalue('//title');

このコードを実行すると、
foo & bar
と表示されるんだけど、
foo & bar
って結果を返すようにできない?


865 名前:デフォルトの名無しさん mailto:sage [2008/09/14(日) 22:10:09 ]
存在を忘れそうになるけど実体参照地雷はよく働いてるな

866 名前:デフォルトの名無しさん mailto:sage [2008/09/14(日) 22:13:20 ]
LWP::UserAgentとHTTP::Requestで簡単なhttpクライアントを作っています。
$ua = LWP::UserAgent->new;
$req = HTTP::Request->new(GET => 'ja.wikipedia.org/wiki/Perl');
$req->push_header('User-Agent' => 'Mozilla/4.0');
$ua->request($req);
を実行すると、パケットキャプチャの結果
GET /wiki/Perl HTTP/1.1
TE: deflate,gzip;q=0.3
Connection: TE, close
Host: ja.wikipedia.org
User-Agent: Mozilla/4.0
という設定していない"TE"を含むリクエストを投げつけています。
この"TE"を含まないリクエストを投げたいときにはどのようにするのが簡単で自然でしょうか?
(パケットキャプチャをする都合上、圧縮はして欲しくないです)

ソースを読んだところ、LWP::Protocol::httpにてSendTE => 1という値を設定していて、
巡り巡ってNET::HTTP::Methodsでその値を参照して有効(1)ならば
push(@h2, "TE: deflate,gzip;q=0.3");
push(@connection, "TE");
をするという処理をしていました。
ttp://questionbox.jp.msn.com/qa1758666.html?StatusCheck=ON
には
>LWP::Protocol::httpモジュールのソースファイル40行目付近を改造(SendTE => 1を0)し
とありますが、それだけはしたくないです・・・

867 名前:864 mailto:sage [2008/09/14(日) 22:51:46 ]
あー、地雷踏んだ… もう1回。

use HTML::TreeBuilder::XPath;

my $html = '<html><head><title>foo &amp; bar</title></head><body></body></html>';

my $tree = HTML::TreeBuilder::XPath->new;
$tree->parse($html)->eof;
print $tree->findvalue('//title');

このコードを実行すると、
foo & bar
と表示されるんだけど、
foo &amp; bar
って結果を返すようにできない?

868 名前:デフォルトの名無しさん mailto:sage [2008/09/14(日) 23:11:16 ]
&をエスケープする...?

869 名前:デフォルトの名無しさん mailto:sage [2008/09/14(日) 23:14:25 ]
結果文字列を実体参照に変換すりゃいいんじゃね?




870 名前:デフォルトの名無しさん mailto:sage [2008/09/15(月) 00:18:36 ]
それしかないかなぁ。実態参照の種類たくさんあるから、できればやりたくないんだよなぁ。

871 名前:デフォルトの名無しさん mailto:sage [2008/09/15(月) 00:31:53 ]
そんなモジュールがCPANにあったりして。

872 名前:デフォルトの名無しさん mailto:sage [2008/09/15(月) 00:40:39 ]
わざわざ探さなくても HTML::Entities が入ってたりして。

873 名前:デフォルトの名無しさん mailto:sage [2008/09/15(月) 01:01:13 ]
>>866
push(@LWP::Protocol::http::EXTRA_SOCK_OPTS, ぽにょ => ぽにょ);

でオーバーライドできるって、宇宙からのテレパシーが言ってた

874 名前:デフォルトの名無しさん mailto:sage [2008/09/15(月) 02:17:39 ]
>>873
わーvarsってこんな風に使えるんですね!
瑠璃子ちゃん、電波、届いたよ!ありがとう!

875 名前:デフォルトの名無しさん mailto:sage [2008/09/15(月) 07:58:28 ]
>874
どう見てもバッドエンドフラグじゃねーか

876 名前:デフォルトの名無しさん mailto:sage [2008/09/15(月) 09:27:05 ]
>>873に便乗なのですが、LWP::Protocol::httpを見ると

sub _extra_sock_opts # to be overridden by subclass
{
return @EXTRA_SOCK_OPTS;
}

my $sock = $self->socket_class->new(PeerAddr => $host,
PeerPort => $port,
Proto => 'tcp',
Timeout => $timeout,
KeepAlive => !!$conn_cache,
SendTE => 1,
★$self->_extra_sock_opts($host, $port),
);

という処理になっていますが、例えば
push(@LWP::Protocol::http::EXTRA_SOCK_OPTS, SendTE => 0);
としていた場合、★のところってどのように解釈されるのでしょうか?
特に$host, $portの解釈がよくわかりませんorz

877 名前:デフォルトの名無しさん mailto:sage [2008/09/15(月) 10:07:17 ]
>>876
# LWP::Protocol::http のソースは見ずに。
== 例 ==
use Data::Dumper ;
my @arr= qw( hoge foo ) ;
my %hash = ( hoge => 1, @arr, ) ;
print Dumper \%hash ;
== 例終り ==

これと同じで、@EXTRA_SOCK_OPTS ; で設定した key, value(SendTE => 0)
にて、デフォの挙動の key, value(SendTE => 1)が上書きされる。
>★$self->_extra_sock_opts($host, $port),
がどう解釈もくそも、まんま LWP::Protocol::http の内部サブルーチン呼んでんじゃん。
# $host,$port がどうにも謎なんだが



878 名前:876 mailto:sage [2008/09/15(月) 10:16:13 ]
>>877
サブルーチン呼んでいるというのは分るのですが、自分の知識だと
># $host,$port がどうにも謎なんだが
が解決しないのです

879 名前:デフォルトの名無しさん mailto:sage [2008/09/15(月) 10:20:27 ]
再定義するとき必要になる情報列挙しといたんだろ。



880 名前:デフォルトの名無しさん mailto:sage [2008/09/15(月) 10:44:16 ]
>>878
「どうにも謎」と書いたが、それは「作者の意図が分らん」って意味であって
perl の挙動としては $host,$port 完全無視である事は明白。


881 名前:デフォルトの名無しさん mailto:sage [2008/09/15(月) 11:56:08 ]
おしえてくだしあ

wc -l ファイル名

でファイルの行数を取得したくて
$count = system("wc -l ファイル名");

みたいにしてるのですが、0が入ります
コマンドで取得した行数を変数にぶち込むのはどういうやり方でやるんですか

882 名前:デフォルトの名無しさん mailto:sage [2008/09/15(月) 12:19:45 ]
open使え

883 名前:デフォルトの名無しさん mailto:sage [2008/09/15(月) 12:24:11 ]
>>880
# to be overridden by subclass
これが作者の意図だろ。
サブクラスで使うかもしれない情報を渡しているだけ。

884 名前:デフォルトの名無しさん mailto:sage [2008/09/15(月) 12:25:01 ]
>>881
systemのマニュアルエントリに書いてあるお

885 名前:デフォルトの名無しさん mailto:sage [2008/09/16(火) 00:28:39 ]
>>881
`wc -l ファイル名`

886 名前:デフォルトの名無しさん mailto:sage [2008/09/16(火) 03:58:16 ]
my $ref_array = [10, 20, 30];

print "@$ref_array[1]\n";   ←1
print "$ref_array->[1]\n";  ←2

1と2で、どっち使うの?

887 名前:デフォルトの名無しさん mailto:sage [2008/09/16(火) 05:19:04 ]
my $a = "a";

print "$main::a";

これで何も表示されないのですが、
この時のmy $aは何パッケージに
なっているのでしょうか?

888 名前:デフォルトの名無しさん mailto:sage [2008/09/16(火) 06:13:33 ]
古い処理 → シンボリック レファレンス
新しい処理 → ハード レファレンス

古いやり方 → &をつけたサブルーチン呼び出し
新しいやり方 → ()をつけたサブルーチン呼び出し

古いやり方 → パッケージ
新しいやり方 → モジュール


、、、まだある?

889 名前:デフォルトの名無しさん mailto:sage [2008/09/16(火) 06:44:35 ]
$v="aaa";
$r="v";
print "$r\n";
print "$$r\n";

これが シンボリック レファレンス か。

キモイな。



890 名前:デフォルトの名無しさん mailto:sage [2008/09/16(火) 07:09:33 ]
アロー演算子は
デリファレンスの時と
オブジェクト指向のときと、
二つの場合で使われるの?

891 名前:デフォルトの名無しさん mailto:sage [2008/09/16(火) 08:13:10 ]
モニタのインチ数を指定すると、画面の縦横サイズを
出力するスクリプトを書きたいのですが、どうしたらいいでしょうか?

my $in = 19; # 指定されたモニタのインチ数
my $rt = 2.54; # 一インチは2.54センチメートル
my $a; # これを求めたい
my $x = 4; # 横の比率
my $y = 3; # 縦の比率

# 三平方の定理
# $in**2 = (($x*$a)**2)+(($y*$a)**2)
# $in = ((($x*$a)**2)+(($y*$a)**2))**(1/2)

892 名前:デフォルトの名無しさん mailto:sage [2008/09/16(火) 08:15:49 ]
>>891の続き

$in から $a の値を導き出すことが出来たら、
縦横サイズをセンチメートルで出力するのは簡単なのですが、
式の整理が上手くいかず躓いています。

もし宜しければご教授お願いいたします。

893 名前:デフォルトの名無しさん mailto:sage [2008/09/16(火) 08:22:57 ]
>>892の続き

自己解決することが出来ました。
4:3モニタの場合は、インチ数である対角線の比率が5、
16:9モニタの場合は、18.36になるようです。

894 名前:デフォルトの名無しさん mailto:sage [2008/09/16(火) 08:54:26 ]
多次元配列とか使わないでも
MySQLとかで解決したほうが速いよね?

895 名前:デフォルトの名無しさん mailto:sage [2008/09/16(火) 09:43:18 ]
kabocha.org/jelfe/07/28.html

このページわかりやすいね。

896 名前:デフォルトの名無しさん mailto:sage [2008/09/16(火) 10:09:05 ]
regex::ってなに?
正規表現をかんたんにするためのモジュール?

897 名前:デフォルトの名無しさん mailto:sage [2008/09/16(火) 10:29:14 ]
Perl Tutorial 93 - Arrays of Arrays
jp.youtube.com/watch?v=oAW7E3pmBCM

これちょっとごちゃごちゃしてて
よくわからんなー

898 名前:デフォルトの名無しさん mailto:sage [2008/09/16(火) 11:14:56 ]
つか、perlで$aと$bは普通の変数として使うな。

899 名前:デフォルトの名無しさん mailto:sage [2008/09/16(火) 12:24:20 ]
>>887
myで宣言された変数はレキシカル変数といい、パッケージ変数とは別物。
レキシカル変数は、パッケージに属するのではなく、レキシカルスコープに属する。



900 名前:デフォルトの名無しさん mailto:sage [2008/09/16(火) 15:25:09 ]
>>899
でもメインパッケージの中に属しているわけだから
$main::aで表示できるはず、、、、
ってなにか変なこと言ってます?

901 名前:デフォルトの名無しさん mailto:sage [2008/09/16(火) 15:25:58 ]
もしかしてこないだやってた議論と
本質的に同じ?

902 名前:デフォルトの名無しさん mailto:sage [2008/09/16(火) 15:35:53 ]
タダの自演

903 名前:デフォルトの名無しさん mailto:sage [2008/09/16(火) 15:48:35 ]
>>900
$main::aとすると、mainに属するパッケージ変数を参照することになります。
my $a は、レキシカル変数であり、パッケージ変数ではないです。

パッケージ変数を作りたければ、
our $a;
と、宣言しましょう。

904 名前:デフォルトの名無しさん mailto:sage [2008/09/16(火) 15:59:20 ]
ふーん
デタラメ書くと親切にしてもらえるんだな


905 名前:デフォルトの名無しさん mailto:sage [2008/09/16(火) 18:09:55 ]
sortでハマるんですね。わかります。

906 名前:デフォルトの名無しさん mailto:sage [2008/09/16(火) 18:26:56 ]
独り言書かなきゃ死ぬ人と教えなきゃ死ぬ人で需給が成り立ってるから
sort でハマっても解決される仕組みになってるはず。

いろいろループしてますよね。>>541>>562-563

907 名前:デフォルトの名無しさん mailto:sage [2008/09/16(火) 18:50:20 ]
教えなきゃ死ぬ人はあまりにも少なく、あまりにも短命。

908 名前:デフォルトの名無しさん mailto:sage [2008/09/16(火) 20:17:56 ]
「初心者がPerlを頑張るblog」みたいなのを開設したら
結構な面白いサイトになりそうなのが惜しまれる

909 名前:デフォルトの名無しさん mailto:sage [2008/09/16(火) 20:48:04 ]
こいつはだめだろ。全然成長していない。

リア厨かと思ってたけど、昼間も書き込んでるんだな。



910 名前:デフォルトの名無しさん mailto:sage [2008/09/16(火) 22:31:08 ]
その話題も既出

911 名前:デフォルトの名無しさん mailto:sage [2008/09/17(水) 00:13:58 ]
ファイルの一番外側に見えない { } があると思うと良いんじゃないかな。
{
 my $a = "a";
}


912 名前:デフォルトの名無しさん mailto:sage [2008/09/17(水) 02:42:47 ]
じゃあどこの会社のブログで
開設したらいいか調べてよ

アクセス解析ないとやだけど。
できればアパッチの生ログに近い感じで
見れるとこ。勝手に統計的にまとめて表示
するのはだめ。

それとアホがきたときにはきちんと
アク禁できること。

これが条件。perlお得意のムーバブルタイプで
対応できる?

913 名前:デフォルトの名無しさん mailto:sage [2008/09/17(水) 07:42:44 ]
kabocha.org/jelfe/07/21.html

クロージャーの説明読んだが、さっぱりわけが
わからんな。

もしかして、最新言語だったら、
オブジェクト指向でやるようなことなのか?

914 名前:デフォルトの名無しさん mailto:sage [2008/09/17(水) 08:30:44 ]
>912
何時何分何秒、地球が何回まわったときなのか答えろよ!
って反論する小学生を思い出した

915 名前:デフォルトの名無しさん mailto:sage [2008/09/17(水) 11:04:08 ]
(1)
型グロブと、グロブって違うものだよね?

(2)
グロブって普通に使うものなの?

916 名前:デフォルトの名無しさん mailto:sage [2008/09/17(水) 11:45:52 ]
perlの予約語一覧ってどこにあるの?
getkeyが予約語かどうか、知りたいんだが。

917 名前:デフォルトの名無しさん mailto:sage [2008/09/17(水) 11:55:11 ]
ぐぐったらわかった。
予約語じゃないってさ。

なんか、perlのマニュアルに載ってるらしい。
mapの使用例として。

918 名前:デフォルトの名無しさん mailto:sage [2008/09/17(水) 13:19:23 ]
スペースキーを押したら
メッセージを出す、ってできないの?

919 名前:デフォルトの名無しさん mailto:sage [2008/09/17(水) 13:35:25 ]
今、レファレンスの勉強をしているんだが、

$a=1;

こうした時に、$aには何が
入っているのか?
1がはいっているのか、あるいは
1のアドレスが入っているのか。
あるいは、1のアドレスを指し示した物が
入っているのか。



920 名前:デフォルトの名無しさん mailto:sage [2008/09/17(水) 13:41:16 ]
1だろ。

あと$a,$bはsortが使うので以下略

921 名前:デフォルトの名無しさん mailto:sage [2008/09/17(水) 13:43:50 ]
>>920
だってレファレンスの解説サイト見たら
「違う」って書いてあったもん

922 名前:デフォルトの名無しさん mailto:sage [2008/09/17(水) 13:46:42 ]
$a = \1;

923 名前:デフォルトの名無しさん mailto:sage [2008/09/17(水) 13:50:37 ]
y///



↑なにこれ。
入門書にのってないんだけど。

924 名前:デフォルトの名無しさん mailto:sage [2008/09/17(水) 14:13:09 ]
レファレンスなの?
リファレンスなの?

925 名前:デフォルトの名無しさん mailto:sage [2008/09/17(水) 15:58:22 ]
バファレンス

926 名前:デフォルトの名無しさん mailto:sage [2008/09/17(水) 16:57:33 ]
>>923
>sed の信仰者のために y が tr の同義語として提供されています。

だそうです。






[ 新着レスの取得/表示 (agate) ] / [ 携帯版 ]

前100 次100 最新50 [ このスレをブックマーク! 携帯に送る ] 2chのread.cgiへ
[+板 最近立ったスレ&熱いスレ一覧 : +板 最近立ったスレ/記者別一覧]( ´∀`)<239KB

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef