Perlコーディング初心者質問スレ Part 38

**nobodyさん** · 04/10/07 23:23:08

Perlのコーディングで困ってる人のスレです。

【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
「コマンドの意味がわかんない」とかはマニュアル見ましょう。
回答者さんは何でも屋じゃありません。

1：自分はこういう事がしたい。
2：それでこんな風にやってみたが･･･
3：こんなエラーが出て上手く行かなかった。

最低でも1と3が無いと誰も答えられないよ。
ソース貼る時は、全角スペースでインデント忘れずに。
良い回答は良い質問から。一緒に勉強しましょう。

過去ログやお勧めサイトは >>2-10

**231** · 04/10/20 17:09:17

かぶった

**nobodyさん** · 04/10/20 17:14:10

>>229 = >>232みたいなﾔﾂは放置しよう。

**nobodyさん** · 04/10/20 17:17:40

>>232は皮肉で言ってるんだろ。>>229の名前欄が前書き込んだまま

**221** · 04/10/20 17:24:04

>>228氏
申し訳ないですが、もう少し方法を具体的に教えていただけないでしょうか。
「EUCで取り出した」とはどの部分を指すのでしょうか。
$temp_euc =~ s/([\x8E\xA1-\xFE])/'%'.unpack("H2", $1)/eg;
のように、一括で変換を行なうわけではないということですか？

**nobodyさん** · 04/10/20 17:28:45

>>236
その例でいくと

unpack("H2",$1)

のところを

unpack("H2",eucをsjisに変換する関数($1))

にすればいいってことでしょ。

**nobodyさん** · 04/10/20 19:48:35

>>236
いちいちEUCにしないで全部SJISでやればいいのに
エンコード対象が[^\w.-]ではダメなの？

**nobodyさん** · 04/10/20 20:16:04

>>238
sjisだとメタ文字がコード含まれれるから\wじゃ駄目でそ。
eucも最上位ビットに1立つから\w駄目でない？

**nobodyさん** · 04/10/20 22:12:07

>>238
SJISは正確なマッチングが出来ないんじゃなかったっけ？

**nobodyさん** · 04/10/20 22:16:04

>>240
　　　　　　　, -,:'　　　／￣） i{'r‐-､　｀ヽ､
.　　　　_...,,o‐y 　　,:'- '⌒　　　⌒ヽ.　｀ヽ' ,
　　　（o（　 ,' 　　/　／　　　､　｀ヾ.　　ヾ,
　　,:'´／/7,'　 ,' .,' ,:' 　 !　 } i　 !', ':, 　':, 　　ﾞ:,
　 ,' /　,'　{ｌ.　 !　{/ 　 ,ｲ　/ }| 　!|',　!. 　',　 ',　ﾞ,
　ﾊ〃　!　!|　 |　|　 ∠/ ,:'-ﾉ}　/ﾘ l ,ﾑ.　 !　 }　|!
　　ﾊヽ､ゝ!|　ｌ　| ,:',;='ｨ'､'´ ,'.ノﾉ.,;lﾉ=､l .,' ,' ,' ﾉ
　　　　{ 　 l　ｌ ', |'ｦi(_ノ.} 　´ 　　i(ノ.}ﾞ!ノ,:',:''´
　　　　 ',　 h. ', ',ﾞ､ ':ﾞﾞ_.ﾉ.　　　　　':ﾞ_ﾉ〃ン
　　　　　':, { ',', ':,':, 　　　　　丶　　,' l .}
　　　　　　ヾ ':,':, ':ヾ､._ 　　「´/ 　　,' | .,' 　　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　　　　　　　｀ヾ-､｀ヽ_ 　　｀´　_,.ィﾘ.ﾉ ,' 　＜　なんとなかるよ、絶対大丈夫だよ！
　　　　　　　　ﾘ';',ヾ| 　｀ ‐┬ ´　_ノノ,'/ 　　＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿
　　　　　　　　　ヾ,､-- ､ _ | 　　　´ノ'
　　　　　　　　　　f ヾ､..___ ヽ､　ｰ‐''
　　　　　　　　／_......_　　　　＼

**nobodyさん** · 04/10/20 22:31:34

ｷﾓAA貼るﾔｼ死ねよ

**nobodyさん** · 04/10/20 22:35:28

my ($abc, $def) = @_;

このコードの意味がさっぱり分からんのでオシエテクリソ-

**nobodyさん** · 04/10/20 22:56:55

@_ さんが袋に詰め込んでいる物を
$abc, $def の２人が「俺の物だ」って奪うんだよ。

でも不思議なことに奪われた袋の中身はなくなっていなーい。

**nobodyさん** · 04/10/20 23:02:27

ﾜﾛﾀｗ

**nobodyさん** · 04/10/20 23:14:24

>>244
@_は変数ではないですよね？
もう少しヒントクリソー

**nobodyさん** · 04/10/20 23:26:27

いや変数だよ。特殊変数。

**nobodyさん** · 04/10/21 01:10:59

SJISならこれでいいんでは？
$str =~ s/([\x81-\x9f\xe0-\xfc])([\x40-\x7e\x80-\xfc])/sprintf("%%%02X%%%02X",ord($1),ord($2))/eg;

っと、半角カナ用にもう一押し必要か。残念！
\xa0-\xdf斬り。

**nobodyさん** · 04/10/21 01:31:19

ASCII文字以外がある場合って書いてあるけど、
ASCII文字って厳密にはどこまでを指してんだ？
半角英数字記号をASCIIってとらえるんなら、

**nobodyさん** · 04/10/21 02:46:20

perl 特殊変数でググれば幾らでも出てくるよ。

**201** · 04/10/21 05:43:48

報告その1
LAN側からのみルーターにプライベートアドレスでtelnetでアクセス
で情報を得る。

**nobodyさん** · 04/10/21 10:50:09

>>243
my ($abc, $def) = @_;
print ($abc, $def);
print \n;
print @_;
する

**221** · 04/10/21 11:33:49

>>237氏

$temp_euc = $temp;　　　　　　　　　　　　　　# $tempはsjisで、ファイル名だけが入ってます
&jcode::convert (\$temp_euc, "euc");　　　# $tempをEUCにした$temp_eucを用意
if ($temp_euc =~ /[\x8E\xA1-\xFE]/) { 　# Perlメモの正規表現より「ASCII以外」の文字列がある場合
　$temp_euc =~ s/([\x8E\xA1-\xFE])/'%'.unpack("H2", &euc2sjis ($1))/eg;　# ここを変更
}
print <<"HTML";
<A href="$absolute_dir\/$temp_euc">$temp</A>　# 絶対パスとファイル名を結合したパスへとリンク
HTML

sub euc2sjis {　# 追加したサブルーチン
　my $str = $_[0];
　&jcode::convert (\$str, "sjis", "euc");
　return $str;
}

＞unpack("H2",eucをsjisに変換する関数($1))
と言って下さったように変えてみたのですが、HTML部に表示されるエンコードされたURLは変わらずEUCのままでした。
追加したサブルーチンが動いていないのかとも思って確認しましたが、
単体で動かして確認したところ、sub euc2sjisは正常に動いているようです。

他の方が提示してくださった方法も見てみます。

**nobodyさん** · 04/10/21 11:58:55

>>252
\nはダブルクオートで囲みやがれ

**nobodyさん** · 04/10/21 12:09:34

EUC->SJIS変換には最低２バイト必要なわけで。１バイトなら無変換なのもしょうがないかと。
なんか、そこはかと遠回りしている気がするよ。\Wをエンコードするだけじゃ動作しなかったっけ？別に正確なURLエンコードを目指さなくても動作すればそれでいいのでは？

**nobodyさん** · 04/10/21 12:24:56

ttp://pc5.2ch.net/test/read.cgi/php/1095633323/478
諦めるのかｗ

**nobodyさん** · 04/10/21 12:30:19

フォームから申し込みがあるたびに
a0001
a0002
a0003
という風に増加する変数を作りたいのですがどうすればいいでしょうか？
参考になるサイトなんかあったら教えてください。
宜しくお願いします

**nobodyさん** · 04/10/21 12:37:54

>>257
$hensu = a0001;
$hensu++;
print $hensu;

**nobodyさん** · 04/10/21 12:39:13

Perl マジカルインクリメントでぐぐれ

**nobodyさん** · 04/10/21 12:55:04

>>258
レスありがとうございます。素朴な疑問ですが、
アルファベット文字含んでても、++で問題なく a002 になるんでしょうか？
>>259
調べてみます。ありがとうｇざいます。

**258** · 04/10/21 13:00:50

>>260
やってみて言えよ

**259** · 04/10/21 13:05:48

>>260
ぐぐってから言えよ

**nobodyさん** · 04/10/21 13:25:31

ぐぐりますた、わかりますた、サンクスコ

**221** · 04/10/21 14:44:50

>>248氏の方法で実行してみたところ、
半角カナ以外では正常に実行できました。
とりあえずはこの方法で実装しようと思います。

あとは半角カナの対応ですか･･･

**nobodyさん** · 04/10/21 15:11:42

>>264
\x5Cを含む表や申が入っている漢字でも上手く行く？
気になったからやってみたけど
Win2k+Apache1.3.31+ActivePerl v5.6.1の環境で正常動作しないんだよな

**221** · 04/10/21 15:25:17

>>265氏

「Win2000Pro ActivePerl5.6.1 AN HTTP Daemon 1.42k」という環境で実行してます。
実際に導入するのは、悪名高い@ni○tyのCGI鯖ですが。

「―ソЫⅨ噂浬欺圭構蚕十申曾箪貼能表暴予禄.txt」
という、わざとらしく\x5Cを使った文字で構成されたファイル名を用意して、
このテキストファイル内の文字を検索して結果画面を出してみたところ、

<A href="%81%5C%83%5C%84%5C%87%5C%89%5C%8A%5C # 略 # .txt">―ソЫⅨ噂浬欺圭構 # 略 # .txt</A>

というHTMLが出力され、実際にそのリンクからファイルへアクセスできることは確認できました。

また、そのテキストファイル内に「―ソЫⅨ噂浬欺圭構蚕十申曾箪貼能表暴予禄」という内容を書き、
同じく「―ソЫⅨ噂浬欺圭構蚕十申曾箪貼能表暴予禄」で検索して正常に結果が表示されることから、
今のところは>>248氏の処理で半角カナを扱えない点以外での問題は無さそうです。

**nobodyさん** · 04/10/21 15:43:18

>>266
my @str = qw(
http://example.com/data/リンクの方法.txt
http://example.com/data/俺俺.txt
http://example.com/data/ﾊﾝｶｸｶﾅA.txt
http://example.com/―ソЫⅨ噂浬欺圭構蚕十申曾箪貼能表暴予禄.txt
);

s{([\x00-\x7F\xA1-\xDF]|[\x81-\x9F\xE0-\xFC][\x40-\x7E\x80-\xFC])}{
　　my $chr = $1;
　　$chr =~ /^[\x00-\x7F]\z/
　　　　? $chr
　　　　: join('', map sprintf('%%%X', ord), split //, $chr)
}eg for @str;

print join "\n", @str;

# SEE ALSO: http://homepage1.nifty.com/nomenclator/perl/shiftjis.htm

**265** · 04/10/21 16:25:51

>>266
エンコードは問題ないのにアクセスできないという不思議な現象に陥ってました
結局ANHTTPDに変更したらあっさり解決したのでApacheが悪かったようです

しかし何故Apacheじゃ見えなかったんだろう？
うーん気になるな・・・

**nobodyさん** · 04/10/21 16:33:29

>>225で言ってるのがﾋﾝﾄのﾖｶﾝ

**nobodyさん** · 04/10/21 16:52:10

すいません、色々見てて気になったんだけど、
for (@配列) { ～ }
って、これって
foreach (@配列) { ～ }
と繰り返す回数って違うの？

**nobodyさん** · 04/10/21 16:57:06

何　で　や　っ　て　か　ら　聞　か　な　い　？

**221** · 04/10/21 17:56:10

>>267氏、これで正常に動きました。感謝します。

が、肝心の s{ 以下の処理の部分が何をしているかが不明なので、ちょっとまだ導入できないです･･･
? と : が if else って事くらいしかわからない上に、色々と省略された書き方をされているようなので、
理解には時間がかかりそうです。
一文字ずつ分解して、[\x00-\x7F]以外のものはordで数値変換してsprintfで16進数に書き出しているということですよね。
splitを消すと\x5Cがおかしくなるようですが、何の処理をしているかもまだ理解の範疇にはないようです。

省略した書き方とかしたこと無いんで、冗長なコーディングしか出来ない自分が悲しい･･･
あと、省略できるものも極力省略しないという書き方をしているので（自分が理解できなくなると困るので）、
このソースをもとに何とか書き換えて実装してみようと思います。

**nobodyさん** · 04/10/21 20:11:32

作業に若干時間がかかるスクリプトを単体で起動させると問題ないのですが、
サブルーチンとして起動させると、作業を終える前に次のコードに移ってしまいます。
これはどうやって防げばいいでしょうか？

**nobodyさん** · 04/10/21 20:52:06

何も考えないで書くけど、
そのサブルーチンの最後に何かフラグを立てて、
それが立ってなければ待つってのは？

**nobodyさん** · 04/10/21 21:15:46

話がよく見えないのだが、
サブルーチンという言葉の使い方が間違っているように思えてならない。
ひょっとして「子プロセス」とかそういうモノを指しているのか?

**273** · 04/10/21 21:40:12

すいません、正しくはモジュールかもしれません。
いわゆる.plファイルです。
aというモジュールがあります。
b(.pl)というモジュールからaをuseしてます。
.cgi からbモジュールをrequireすると、aモジュールの作業を完了しないまま、
bモジュールの次のコードに移ってしまいます。
.cgiにから直接aモジュールをuseしたら、問題は
発生しませんでした。

**nobodyさん** · 04/10/21 22:08:58

ますます混迷の度合いが深まってきた気がする...

**nobodyさん** · 04/10/21 22:14:52

>>276
ああわかった。それはあれだ。

use したファイルはコンパイル時に読み込まれて実行されるが、
require したファイルはコード実行時に読み込まれて実行される。

b が require された時点ではコンパイルがとっくに終っているので
b の中で use した a が実行される機会は永遠に巡ってこない。

**273** · 04/10/21 22:21:30

>>277
ちょとわらた
>>278
改善策ありますか？

**278** · 04/10/21 22:31:20

b から a を use でなく require(+import) すれば良いんでないかと思うが試してない

**273** · 04/10/21 22:51:54

require してみますたが、変わらずでした。
require、use云々ではないかもしれません。
wait;ってのが気になってるのですが、
これはどうやって使えばいいのでしょうか？
ググッテも情報量がひっじょーに少ないとです。
ヒロシです

**nobodyさん** · 04/10/21 23:06:49

use や require は同一プロセス内での呼び出しだが、
wait は子プロセスの終了を待つ関数なので、使えない

**nobodyさん** · 04/10/22 10:48:37

Cだと入力がCtrl+D(windowsはCtrl+Z)だとプログラム終了ってのを
if (nyuryoku == '\0') {exit(0);}
て書けるけど、perlだとどう書きますか。以下の何入れても
quer!が出ちゃうんです。
$var=<STDIN>;
chomp($var);
if ($var eq "\0") {
exit(0);
} else {
print "quer!\n";
}

**nobodyさん** · 04/10/22 10:50:06

上げておきますね＾＾

**nobodyさん** · 04/10/22 11:17:20

>>283
行入力演算子(<>)はEOFでは未定義値を返すので、

if (!defined $var) {

**283** · 04/10/22 11:23:46

>>285
どうもだす。それで行けますた。

**nobodyさん** · 04/10/22 11:42:34

DBI.pm には Mysql.pm にあった fetchcol() メソッドがないみたいですが
自分で実装するしかないのでしょうか？

**nobodyさん** · 04/10/22 11:55:42

例えば　"掲示板"　という文字、UTF-8でエンコードすると

"E6%8E%B2%E7%A4%BA%E6%9D%BF"
となると思います。

そして本来UTF-8のコードである　"E6%8E%B2%E7%A4%BA%E6%9D%BF"　を誤って
$str =~ s/%([0-9A-Fa-f][0-9A-Fa-f])/pack("C",hex($1))/ge;
でデコードすると

"牙ず? "

となってしまいます。
この　"牙ず? "　を元のUTF-8のコード　"E6%8E%B2%E7%A4%BA%E6%9D%BF"　に戻すには
どのように処理したらいいのでしょうか？
どなたか教えて下さい。

**nobodyさん** · 04/10/22 12:20:13

>>288
バイト列としてはちゃんとデコードできているが、utf8として解釈すべき
バイト列をEUCだと思って見てるから変に見えるだけじゃない?

EUCで表示したければ適当にutf8→eucに変換すればいい。

use Jcode;

$str = "%E6%8E%B2%E7%A4%BA%E6%9D%BF";
$str =~ s/%([0-9A-Fa-f][0-9A-Fa-f])/pack("C",hex($1))/ge;

print Jcode->new($str)->euc,"\n";

**nobodyさん** · 04/10/22 12:45:55

すみません、教えて下さい。

手持ちのマニュアルで１６進定数の記述方法が

$a='/abcd';

となっていたので携帯用絵文字を定義しようとしたのですが、

print $a;

をやると、/abcdと出てしまいます。

' を " に変えたり色々してみたのですが上手くできません。
正しい１６進定数の代入の仕方を教えて下さい。m(__)m

**nobodyさん** · 04/10/22 13:17:36

バックスラッシュの間違えじゃないのか

**nobodyさん** · 04/10/22 13:17:37

$a= 0xabcd;

**nobodyさん** · 04/10/22 13:33:16

教則本だと\がバックスラッシュとかになるから気をつけれ

**nobodyさん** · 04/10/22 14:27:39

>>291-293さま
ありがとうございます。
今からやってみます。（；；

**nobodyさん** · 04/10/22 15:33:52

できましたー。
ありがとうございました！！！！！

**nobodyさん** · 04/10/22 17:38:09

web上のファイル（複数）をperlを使って圧縮・サーバー上に保存、することはできますか？
よろしくお願いします。

環境：FreeBSD 4.7 UNIX O/S
perl5.6.1

**296** · 04/10/22 17:45:28

web上、サーバー上と表記しましたが、両方とも同じ自分がレンタルしているwebサーバーのことです。
下手くそな文章で申し訳ありませんが、よろしくお願いします。

**nobodyさん** · 04/10/22 17:54:42

ttp://homepage3.nifty.com/hippo2000/perltips/perllha.htm

**nobodyさん** · 04/10/22 18:01:00

>>298
それは笑う所ですか？

**nobodyさん** · 04/10/22 18:02:41

>>296-297
http://perldoc.com/perl5.8.4/pod/func/system.html
http://www.jp.freebsd.org/cgi/mroff.cgi?subdir=man&lc=1&cmd=&man=tar&dir=jpman-4.7.0%2Fman§=1
http://www.kt.rim.or.jp/%7Ekbk/perl5.005/perlfaq8.html#How_can_I_capture_STDERR_from_an

**300** · 04/10/22 18:07:22

むぅ。
http://www.jp.freebsd.org/cgi/mroff.cgi?subdir=man&lc=1&cmd=&man=tar&dir=jpman-4.7.0%2Fman&;sect=1

**296** · 04/10/22 18:39:07

>>298
>>300
ありがとうございます。
これから見に行って勉強してみます。

**nobodyさん** · 04/10/22 19:26:58

print qq|<TITLE>テスト</TITLE>|;
としたら、
apacheのエラーログにUnrecognized characterというエラーが表示されました。
どうも、テストという日本語に問題があるようですが、
この場合、どうすれば日本語を利用できるようになるでしょうか？
phpを以前ちょっといじっていて、htmlの組み込み安さに感動したんですが、
perlは結構面倒なんですかね？

**nobodyさん** · 04/10/22 19:31:59

age

**nobodyさん** · 04/10/22 19:32:44

use CGI;
$data=new CGI;
$name=$data->param('name');
$mail=$mail->param('mail');
$message=$message->param('message');

こうやって取り出したデータの中の文字は、
URLエンコードされたままではなく元に戻されているのでしょうか？

**nobodyさん** · 04/10/22 19:41:09

>>305
プリントしてみりゃいいだろ

**305** · 04/10/22 19:50:08

>>306
プリントしてみたら元に戻っていたので、あれ？と思ったんです。
今までずっと$name=~s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
やってたんですけど。
実は要らなかったのかなと思いまして。

実際どうなんでしょう？
ついでに、文字コードなんかはどうなっているのでしょうか？

**nobodyさん** · 04/10/22 19:58:14

(´-`).｡oO(なんで自分で確かめられないんだろう)

**nobodyさん** · 04/10/22 20:02:09

>>303
ｴｽｹｰﾌﾟ文字について勉強しなおすことをすすめる

**nobodyさん** · 04/10/22 20:03:26

>>309
qqについて勉強しなおすことをすすめる

**nobodyさん** · 04/10/22 20:05:07

何にでも「自分でやってみて確かめろ」と返す人は多いが
漏れは敢えて「やってみなきゃわからんのは頭悪過ぎ。まず man を読め」と言うことにする

**nobodyさん** · 04/10/22 20:07:35

>>311
チラシの裏にでも書いてろ

**nobodyさん** · 04/10/22 20:56:34

最近のチラシは両面印刷です

**nobodyさん** · 04/10/22 20:57:46

>>313
プリントの裏にでも書いてろ

**303** · 04/10/22 21:00:19

調べましたが、やぱーりわかりません。
だれかヘルプみー

**nobodyさん** · 04/10/22 21:01:36

>>312-313
すまん、ﾜﾛﾀｗ

**nobodyさん** · 04/10/22 22:03:02

>>315
全角スペースでも入ってるんじゃないのか？

**nobodyさん** · 04/10/23 15:43:12

すいません、質問です。
perlには、Cにおけるfprintfのような関数はないのでしょうか？

print FILE hogehoge;

というのが何行も続いてしまい、違和感を感じるのですが。

**nobodyさん** · 04/10/23 16:40:33

>>318
Perlは元々レポート作成用言語ディスよ？

fprintfに限らず、テキストの、文字入出力、ファイル入出力においての利便性は
Cとは比較にならんて。

ヒアドキュメントでも、format でも sprintf でも好きなもので対処すれば?

**nobodyさん** · 04/10/23 16:41:54

if(hoge||hogehoge){

の「||」の意味が分かりません。
だれか教えてくださいませ

**nobodyさん** · 04/10/23 16:43:05

>>320
or と　ほぼ同じ。 or よりも優先順位が高いので or と書いておいたほうが
意図どおり動くことが多いはずだよ。

**nobodyさん** · 04/10/23 16:43:06

>>320
演算子

**nobodyさん** · 04/10/23 16:53:18

>>320
()だらけでウザイ時に良く使う。

**nobodyさん** · 04/10/23 17:39:11

>>319
318は printf FILE ほげほげと書けることを知らないに一票。

**nobodyさん** · 04/10/23 17:42:48

>>319

sprintfで解決しました。

printする文字列を関数呼び出しで作成するというのは考えが及びませんでした。
どうもありがとうございました。

**nobodyさん** · 04/10/23 19:41:00

mkdir使うみたいに sudo mkdir を
perlで利用することは不可能でしょうか？
権限ないディレクトリにはディレクトリ作成できなかったので、
sudoで特定のユーザにmkdirの権限与えたのはいいものの、
perlで使おうとしても使えないんですね。
telnet経由しかむりぽなのでしょうか？

**nobodyさん** · 04/10/23 19:55:17

コーディング　【coding】

プログラミング言語を使ってソフトウェアの設計図にあたるソースコードを作成すること。
（e-Wordsより）

自分の質問がPerlに関することなのか、
それともPerlではなくCGIやHTMLについてなのかを切り分けした上で、
質問して下さい。

**nobodyさん** · 04/10/23 19:55:48

>>326
いや、普通にできると思うけど。具体的にどうやってるか示されてない
のでこれ以上はなんともいえんがな。

でもmkdirのような引数しだいでどこにでもディレクトリ作れるコマンドを
sudoで許可するのはあまり感心しないな。

**326** · 04/10/23 20:20:45

perl で　my $makedir = `sudo mkdir $user_dir/new`;
としています。
aユーザからbユーザのディレクトリに newというディレクトリ
を作成するようにしていますが、
上記ではうまくいきません。
bユーザディレクトリの権限をaユーザのものにし、
my $makedir = `mkdir $user_dir/new`;
とした場合は問題なく作成されます。

宜しくお願いします

**nobodyさん** · 04/10/23 22:28:08

池沼には、それがコーディングの問題じゃないということがわからないのだろうか?

**nobodyさん** · 04/10/23 23:18:04

もういいよこの類に触るのはやめやめ
次の質問よろ

**nobodyさん** · 04/10/24 10:16:22

hogeほげって何ですか？
何か意味があるんですか？