Perlコーディング初心者質問スレ Part 43
レス数が1000を超えています。これ以上書き込みはできません。
0001nobodyさん
2005/08/12(金) 01:26:47ID:mHnZWvqz【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
「コマンドの意味がわかんない」とかはマニュアル見ましょう。
回答者さんは何でも屋じゃありません。
1： 自分はこういう事がしたい。
2： それでこんな風にやってみたが･･･
3： こんなエラーが出て上手く行かなかった。
最低でも1と3が無いと誰も答えられないよ。
ソース貼る時は、全角スペースでインデント忘れずに。
良い回答は良い質問から。一緒に勉強しましょう。
過去ログやお勧めサイトは >>2-10
0916nobodyさん
2005/10/13(木) 00:42:22ID:???sleepだと5%ぐらい使ってしまってるみたいで･･･
0918909
2005/10/13(木) 00:46:02ID:???ご教示有難うございます。
ぐぐって調べてみましたが、どうやらこれは
(?<!...) ゼロ幅の否定後読み表明
みたいですね。
私には少し敷居が高そうなので、もう少し勉強してみます。
とにかく有難うございます。
0919909
2005/10/13(木) 00:52:49ID:???すみません、行き違いになりました。
なるほど、と試してみましたが、なぜか引っかからなくなって
しまいました。
調べてみます。
0921909
2005/10/13(木) 01:00:44ID:???× (^|\W)c=1
× (^)c=1
○ ^c=1
なんででしょうね。。
もう少し調べてみます。
0922766
2005/10/13(木) 01:07:08ID:???>>777
遅ればせながらレス有難うございます。
しかしながらいまだcsvへの書き込みが上手くいきません。。
やりたいのは、csv開いたときに
名前,Q1の回答,Q2の回答,Q3の回答。。。。
空欄,Q1の正解,Q2の正解,Q3の正解。。。。
と横並びにカンマ区切りで出したいのですがいろんなソースを入れてみても
上手くいきません。。泣
しかも名前を普通にFORM POSTからとりたいんだけど、どこにソース入れてもエラーになる。。
0923766
2005/10/13(木) 01:08:08ID:???【question_1cgi】
# 質問の取得
&ReadParse;
if(open(IFILE,"question_1.tsv")) {
while(<IFILE>) {
chomp();
push(@question,$_);
}
close(IFILE);
}
0924766
2005/10/13(木) 01:09:22ID:???my($qnum) = 0;
foreach (@question) {
($qval,$aval,@column) = split(/\t/);
next if($qval eq "");
$qnum++;
$key = "Q".$qnum;
$val = $in{$key};
if($val eq $aval) {
$check = "○";
} else {
$check = "×";
}
$anum = 0;
$answer[$anum] = " ";
foreach (@column) {
next if(!$_);
$anum++;
$answer[$anum] = $_;
}
0925766
2005/10/13(木) 01:09:56ID:???open(WRITE_BBSDAT , ">> file.csv");
print WRITE_BBSDAT"ここがわかりません。。。";
print WRITE_BBSDAT"$val,$aval ←じゃ縦にならんじゃう。横にそれぞれ上下で表示したい。";
close(WRITE_BBSDAT);
どなたかお助けください。。お願い申し上げます。
0926nobodyさん
2005/10/13(木) 01:12:17ID:???my $query = 'c=0&d=1';
とか
my $query = 'ac=1&c=0&dc=0';
c=0 だけにマッチさせたいんだよな？
if ($query =~ /(?:^|(?<=\W))c=0(?:(?=\W)|$)/) {
print 'ok?';
}
でない？
0927nobodyさん
2005/10/13(木) 01:13:53ID:???ありゃ、もしかしてPerlのバージョンが古いと動かなかったりするのかな
バージョンいくつか分かる？とりあえず5.6.1と5.8.7では動作したけど・・・
Perl4探してこよう・・・
0929909
2005/10/13(木) 01:18:14ID:???おっしゃるとおりの条件にマッチさせたいと思っております。
そしてご回答有難うございます。
ちょっと私にはもう少し理解する時間が必要になりそうですが、
一つ一つ勉強していきたいと思います。有難うございます。
>>927
v5.8.4ですので、バージョンは問題ないかと思います。
検証してみます。お手数おかけしましてすみません。
0930nobodyさん
2005/10/13(木) 01:28:27ID:???$query =~ /(?:^|(?<=\W))c=0(?:(?=\W)|$)/
分解すると
:^c=0 : $query の最初に c=0 があるとマッチ
(?<=\W)c=0 : c=0 の前に "[_0-9a-zA-Z] 以外" があったらマッチ
c=0(?=\W) : c=0 の後に "[_0-9a-zA-Z] 以外" があったらマッチ
c=0$ : $query の最後に c=0 があるとマッチ
(c=0(?=\W)) ってやらないで (c=0\W) ってやると、$1 に \W の文字が入ってしまうし、次のマッチの開始も \W の後の字からになってしまう。
つか正規表現スレにいくのはどうか。
0931nobodyさん
2005/10/13(木) 01:37:50ID:???相変わらず何やってるのかわからんｗ
もうちょっとソースの中に #コメント を入れてみたらどうか。
自分で見て何やってるか分かったとしても、他人はそうではないのだから。
csv なのに
split(/,/); じゃなくて split(/\t/); ってやってるのはいいんだっけ？
あと
> print WRITE_BBSDAT"$val,$aval ←じゃ縦にならんじゃう。横にそれぞれ上下で表示したい。";
わからん。
縦になったのなら 「それぞれ上下」 にはなったんではないのか。
$val,$aval
ってなりたいのか
$val
$aval
ってなりたいのか。
とりあえず入力されたデータに改行が入ってるままファイルに書き出したらアホなことになるから、
foreach my $k (keys %in) {
$in{$k} =~ s/\x0D?\x0A/<br>/g;
}
とか &ReadParse; の後にやってみたら？
0932nobodyさん
2005/10/13(木) 01:47:35ID:???ふう、やっとやりたいことがわかった
まず処理手順が問題。今の処理手順だと質問一つずるに対して出力処理をしようとしているけれど、
全ての質問を一つの行にまとめたいなら、保存しておいて後で出力しないと。
# 回答の表示
の頭で
my @vals = ();
my @avals = ();
の二変数を作ってforeachの最後で
push @vals, $val;
push @avals, $aval;
で、foreachを閉じてから、cvs出力で、
print WRITE_BBSDAT join(',', $in{name}, @vals);
print WRITE_BBSDAT join(',', '', @avals);
って感じ。
0935909
2005/10/13(木) 03:20:42ID:???すみません、色々と勉強してました。
試してみましたが、おかげさまでうまくいきました。
しかしながら私の知識がまだ追いついていないこともございますので、
これから精進していきたいと思います。
本当にご親切に有難うございました。
0936766
2005/10/13(木) 11:12:08ID:???レス有難う御座います。勉強足らずで申し訳ないです。
教えていただいたとおりにやってみますた。
でもやっぱりcsvをexcelで開いた時に思う通りになつてなかた。。なんでだろう
もうわからん。。
最終的にはexcelで開いた時
$in{name} ←これはくり返さない。1回だけ表示(下のセルへ)
$val ←これはその問題数分だけ横にくり返し。excelの横セルはひとつずつ違うセルに。(下のセルへ)
$aval ←同様。(下のセルへ)
次の人
$in{name}
$val
$aval
てなっててほしいんです。
説明へたでごめんなさい。
0937766
2005/10/13(木) 11:16:18ID:???# 回答の表示
my @vals = (1,2,3);
my @avals = (1,2,3);
my($qnum) = 0;
foreach (@question) {
($qval,$aval,@column) = split(/,/);
next if($qval eq "");
$qnum++;
$key = "Q".$qnum;
$val = $in{$key};
if($val eq $aval) {
$check = "○";
} else {
$check = "×";
}
$anum = 0;
$answer[$anum] = " ";
foreach (@column) {
next if(!$_);
$anum++;
$answer[$anum] = $_;
push (@vals, $val);
push (@avals, $aval);
}
0938766
2005/10/13(木) 11:17:24ID:???open(WRITE_BBSDAT , ">> file.csv");
print WRITE_BBSDAT join(',', $in{name}, @vals);
print WRITE_BBSDAT join(',', '', @avals);
close(WRITE_BBSDAT);
すいません。。ここまで教えてもらったのに。。
0939nobodyさん
2005/10/13(木) 17:05:23ID:tGcMLHwK入力されたデータによって、5文字目だったり12文字目の2文字分を
こちらで用意している（これも種類がいくつかある）2文字に置き換えたいんです
aaaaabbbbccddddeee → aaaaxxbbbccddddeee
aaabbbbcccdddddeef → aaabbbbcccddyydeef
一応
・置き換えたい位置を確認
・それより前をまず転記
・置き換え文字を転記
・置き換えたい位置よりあとを転記
という風にすれば可能だとは思うのですが、もう少しスマートな方法というのはあるのでしょうか？
0940ヽ(´ー`)ノ ◆.ogCuANUcE
2005/10/13(木) 17:12:57ID:???substr() は？置換もできる。
my $str = 'foobarbaz';
substr($str, 1, 2) = 'OO'; # $str is 'fOObarbaz'
0941nobodyさん
2005/10/13(木) 17:16:09ID:???s/// か
substr() をあたりなされ。
aaaaabbbbccddddeee → aaaaxxbbbccddddeee
5文字目から2文字分を置換なら、
my $str = 'aaaaabbbbccddddeee';
substr($str, 4, 2) = 'xx';
お、先に書き込みが。
0942nobodyさん
2005/10/13(木) 22:16:24ID:NiH4hrTCなんとか徹夜で終えて、明日の朝に間に合わせたいと思ってます。
思ったより疲れていて思い出せないのですが、
Text::CSV_XSの使い方何ですが、
「あいうえお
かきくえこ」
これってcombineを使えば改行をエスケープしてくれて、parseをしたときに自動で
元に戻してくれると思ってたのですが、勘違いですかね？
改行などその他すべての文字は必要に応じて自分でエスケープなどしないといけないのでしょうか？
でもそれだとこのモジュールの意味がないですよね・・・・；
CSVでのメタ文字？をエスケープしてくれた記憶があるのですが。。。。
どうぞよろしくお願いします。自分でも調べてみます。
0943nobodyさん
2005/10/13(木) 22:19:27ID:???>>1
http://search.cpan.org/~jwied/Text-CSV_XS-0.23/CSV_XS.pm
0944942
2005/10/13(木) 22:26:57ID:NiH4hrTC英語は読めないので
http://www.perldoc.jp/docs/modules/Text-CVS_XS-0.23/Text-CVS_XS-0.23.pod
これは見ました。
ここに書いてないということは自分で<br>に変換するものでしたっけ？
よくよく考えたら別に自分でやっても大して面倒でもないレベルなのでどうでもいいですが。
"これだけかな？大丈夫なのは。
0945942
2005/10/13(木) 22:50:16ID:NiH4hrTCもういいや
0947nobodyさん
2005/10/13(木) 23:23:07ID:???0948nobodyさん
2005/10/13(木) 23:34:41ID:???ここﾜﾛﾀ
0949nobodyさん
2005/10/13(木) 23:40:28ID:???＜⌒／ヽ-、_＿_
／＜_/＿＿＿＿／
0950nobodyさん
2005/10/14(金) 01:39:33ID:???入れる場所そこじゃなーいorz
配列の初期データはテストデータだろうから置いておくとしても…
foreach (@question) {
...
foreach (@column) {
next if(!$_);
$anum++;
$answer[$anum] = $_;
} # このforeachの中じゃない
push (@vals, $val);
push (@avals, $aval);
} # pushしたらforeach (@question)のブロックは終わり
# csvへ書き込み
...
だ。も一つ問題点。ログ出力するとき改行忘れてた。ｽﾏｿ
print WRITE_BBSDAT join(',', $in{name}, @vals), "\n";
print WRITE_BBSDAT join(',', '', @avals), "\n";
> $in{name} ←これはくり返さない。1回だけ表示(下のセルへ)
> $val ←これはその問題数分だけ横にくり返し。excelの横セルはひとつずつ違うセルに。(下のセルへ)
> $aval ←同様。(下のセルへ)
>>922といってることが違う気がするのだが。
名前を別の行にしたいなら、そこだけ出せばよろし
>>931が指摘してる点の修正もお忘れなく
> とりあえず入力されたデータに改行が入ってるままファイルに書き出したらアホなことになるから、
0951nobodyさん
2005/10/14(金) 02:57:23ID:???日本語で。
0954766
2005/10/14(金) 14:02:22ID:???レス有難う御座います。ほんとうに感謝です。
やっぱり配列の初期データ違いますよね。。。orz
この場合は何をいれたらいいんでしょうか？
$valは自分の選択した解答番号、&avalは正解解答番号
なので、これでいいとおもったんですが。。。
oreach my $k (keys %in) {
$in{$k} =~ s/\x0D?\x0A/<br>/g;
}
とか &ReadParse; の後に。。。
ていうのもどこにそのそーすいれたらいいのか
わかりません。。
0955766
2005/10/14(金) 14:05:19ID:???# 回答の表示
my($val) = ????; ←不明
my($aval) = ????; ←不明
my($qnum) = 0;
foreach (@question) {
($qval,$aval,@column) = split(/,/);
next if($qval eq "");
$qnum++;
$key = "Q".$qnum;
$val = $in{$key};
if($val eq $aval) {
$check = "○";
} else {
$check = "×";
}
$anum = 0;
$answer[$anum] = " ";
foreach (@column) {
next if(!$_);
$anum++;
$answer[$anum] = $_;
}
0956766
2005/10/14(金) 14:06:55ID:???push (@aval, $aval);
} # pushしたらforeach (@question)のブロックは終わり
#csvへの書き込み
open(WRITE_BBSDAT , ">> file.csv");
print WRITE_BBSDAT join(',', $in{name}, @val), "\n";
print WRITE_BBSDAT join(',', '', @aval), "\n";
close(WRITE_BBSDAT);
0958nobodyさん
2005/10/15(土) 05:56:59ID:???おまい…配列(@)とスカラ($)を混同してるだろ…
初期化のところは何も入れなくて良いんだよ。中身はpushのところで入れてるんだから
my @vals = ();
my @avals = ();
で。むしろ混乱しているならこの部分自体なくてもよろしい
> ていうのもどこにそのそーすいれたらいいのか
だから&ReadParse;の後だって。>>923のソースの一番最初にあるでしょ
ってか、そのソースなら間違ってるところもあるがとりあえずは動くはずなんだが…
ソース全体をうｐして見たらどうだろう。期待する出力結果についても、$valとか使わず、
実際にどういう風に出力されて欲しいのかを具体的に書いてもらえないと多分みんな分かってない。
漏れの認識としては、
1問目の正解:1 1人目の回答:2 2人目の回答:3
2問目の正解:2 1人目の回答:3 2人目の回答:1
3問目の正解:3 1人目の回答:1 2人目の回答:2
なら
----------------------
1人目の名前,1,2,3
,2,3,1
2人目の名前,1,2,3
,3,1,2
----------------------
という感じなんだが…
漏れの説明能力も限界ですorz 誰か他の人に任...
0959nobodyさん
2005/10/15(土) 13:04:17ID:???とりあえず誰かが作ったほうが早いことはわかったｗ
0960nobodyさん
2005/10/15(土) 14:18:15ID:???アレだと配列もスカラもハッシュも$だからなぁ。（あの仕様はどうかと思う）
0961nobodyさん
2005/10/15(土) 14:28:17ID:???どうせ $ つけるなら perl に合わせてくれてもいいのにな、とは思った。
0962nobodyさん
2005/10/15(土) 15:59:18ID:vVuUdULb改行をどうしようか悩んでます。
\nなどを見つけたら<br>にしてから書き込んで見ました。
しかし読込表示処理の法で、HTMLエスケープしてるので<br>がエスケープされてしまいました。
それで改行を<br>以外にちかんして、読み込むときにそれを<br>に戻してやろうと思いました。
で、何に置換するかで悩んでます。
いまのところ\tとかしかないかなと思ってますが、ほかにもっといいのはありますか？
0963962
2005/10/15(土) 16:19:46ID:vVuUdULbもういいや
0964nobodyさん
2005/10/15(土) 16:27:50ID:???つか最近こらえ性の無い人が多いですね。
0965nobodyさん
2005/10/15(土) 16:33:09ID:???# 回答員はこのスレべったり張り付いてるわけじゃないということをry
phpBBに習った構造なんかもありだと思うよ。[br]みたいにしておいて出力時にtr/[]/<>/
こっちのほうがちと冗長だけど汎用性はある
0966nobodyさん
2005/10/15(土) 16:51:14ID:???ちなみに俺の回答は読み込み表示処理の見直しかな。
0967nobodyさん
2005/10/15(土) 17:30:53ID:???エンティティは書き込み時に行うのが一番いいと思うなり
0968nobodyさん
2005/10/15(土) 17:31:58ID:???掲示板とはどういうものかすらわかってない池沼はスルーで。
0969nobodyさん
2005/10/15(土) 17:50:45ID:???0970nobodyさん
2005/10/15(土) 18:07:03ID:???もいいかもね。
0971nobodyさん
2005/10/15(土) 18:38:22ID:???そうすると 'hogehoge\n\\n<改行>' と書いたときに 'hogehoge\\n\\\\n\n' ってなるんだけど、
一発で '\\n' や '\\\\n' にマッチしないで '\n' だけにマッチするのって難しくない？
0972nobodyさん
2005/10/15(土) 20:53:21ID:???えっと、言ってる意味がよくわからないんだけど、コレじゃダメかな？
$txt = "hogehoge\\n\\\\n\n";
$txt =~ s/\\/\\\\/g; $txt =~ s/\r?\n/\\n/g; # escape
$txt =~ s/\\(.)/($1eq'n')?"\n":$1/ge; # unescape
0973nobodyさん
2005/10/15(土) 23:27:59ID:???<f\o\r\m \n\a\m\e="test" />
こうなってるHTMLタグから\を消そうと思い
$str = '<div>\\<f\o\r\m \n\a\m\e="test" />\\<br />';
$str =~s/(<[^>]*)?\\([^<]*>)/$1$2/g;
とやったのですがうまくいきません。結果として$strには
<div>\\<form name="test" />\\<br />
と、タグ内だけの\を省きたいのですがどのようにすればよいでしょうか？
0974nobodyさん
2005/10/15(土) 23:41:42ID:???ここでの問答や今やってる事を全て忘れて、
入門書を一冊買って読めばいいんじゃないかな。
もしくはつきっきりで教えてくれる人でも探すとか。
今の状態だと何スレ消費しても先に進まなそうだし。
0975nobodyさん
2005/10/15(土) 23:43:09ID:???0977nobodyさん
2005/10/15(土) 23:51:09ID:???http://pc8.2ch.net/test/read.cgi/php/1105930285/
0978nobodyさん
2005/10/16(日) 00:09:56ID:???タグ内だけ処理がしたいと。
my $str = '<div>\\<f\o\r\m \n\a\m\e="test" />\\<br />';
my @tag = ();
$str =~ s/(<.*?>)/push(@tag,$1);'<>';/eg;
foreach (@tag) {
s/\\//g;#好き勝手に処理
}
$str =~ s/<>/shift(@tag);/eg;
そもそもなんでそんな処理が必要なの？仕様の方を疑っちゃうよ。
0979nobodyさん
2005/10/16(日) 00:33:05ID:???サンキューです。
深い意味は無いですが、昔Perl使ってたの思い出してもう一度使おうかと思いとりあえず正規表現思い出すために自分で作った例題みたいな。
0980nobodyさん
2005/10/16(日) 18:58:16ID:???その正規表現で最初のキャプチャはこう
<div>\\<f\o\r\m \n\a\m\e="test" />\\<br />
|← $1 →| |← $2 →|
\e が最初なのは [^>]* が \ も食う最大マッチだからね
で、formタグ側は既にマッチし終えたから
（gオプションの）次はbrの方に行っちゃうのが一番大きい間違いだと思う
あとシングルクォート内でも \\ は \ に置き換えられるよ
gを使うならルックアラウンドアサーション使うか
1 while $str =~ s///; の形にするか
>>978のように2段階に分けて
sub myfunc { my $tmp = shift; $tmp =~ s/\\//g; $tmp; }
$str =~ s/(<[^>]*>)/ myfunc($1) /eg;
とかすればいいと思う
0981766
2005/10/16(日) 21:56:12ID:???わけわかってなくてほんとうにゴメンなさい。。レス有難うございます。
ｃｓｖに書き出して、それをDLしてExcelで開いたときに表示させたいのは、
１人目の名前: name１
その人の1〜3問目の回答番号: hoge1, hoge2, hoge3,
1〜3問目の正解番号: anser1,anser2,anser3
2人目の名前: name2
・
とすると
name１、hoge1, hoge2, hoge3,
”空欄”,anser1,anser2,anser3
name2、hoge1, hoge2, hoge3,
”空欄”,anser1,anser2,anser3
・
です。
現状は
name１、hoge1
”空欄”,anser1
name１、hoge2
”空欄”,anser2
name１、hoge3
”空欄”,anser3
・
て縦に並んでしましまいます。。
0982766
2005/10/16(日) 22:17:35ID:???今の全ソースです。普通のFORM ＰＯＳＴ .htmlから飛ばしてます。
【question1.cgi】
#!/usr/bin/perl
require "cgi-lib.pl";
# 質問の取得
&ReadParse;
foreach my $k (keys %in) {
$in{$k} =~ s/\x0D?\x0A/<br>/g;
}
if(open(IFILE,"question_1.tsv")) {
while(<IFILE>) {
chomp();
push(@question,$_);
}
close(IFILE);
} else {
&Print_Error("質問設定ファイルを読み込めませんでした。");
}
0983766
2005/10/16(日) 22:18:42ID:???print "Content-type: text/html\n\n";
print qq!
<HTML>
<HEAD>
<META Http-Equiv="Content-Type" Content="text/html;charset=EUC-JP">
<TITLE>回答</TITLE>
</HEAD>
<BODY BGCOLOR="#FFFFFF">
<TABLE BORDER=1 WIDTH="800px" BGCOLOR="#ffffff">
<TR BGCOLOR="E2E2EE">
<TD WIDTH="60px"><FONT SIZE=2><B>質問番号</B></FONT></TD>
<TD><FONT SIZE=2><B>あなたの回答</B></FONT></TD>
<TD WIDTH="50px"><FONT SIZE=2><B>結果</B></FONT></TD>
</TR>
!;
0984766
2005/10/16(日) 22:19:34ID:???my($qnum) = 0;
foreach (@question) {
($qval,$aval,@column) = split(/\t/);
next if($qval eq "");
$qnum++;
$key = "Q".$qnum;
$val = $in{$key};
if($val eq $aval) {
$check = "○";
} else {
$check = "×";
}
$anum = 0;
$answer[$anum] = " ";
foreach (@column) {
next if(!$_);
$anum++;
$answer[$anum] = $_;
}
push (@val, $val);
push (@aval, $aval);
0985nobodyさん
2005/10/16(日) 22:23:39ID:???0986766
2005/10/16(日) 22:25:05ID:???open(WRITE_BBSDAT , ">> file.csv");
print WRITE_BBSDAT join(',', $in{name}, $val), "\n";
print WRITE_BBSDAT join(',', '', $year), "\n";
close(WRITE_BBSDAT);
print qq!
<TR BGCOLOR="#ffffff">
<TD><FONT SIZE=2><B>$key</B></FONT></TD>
<TD><FONT SIZE=2>$val</FONT></TD>
<TD><FONT SIZE=2>$aval</FONT></TD>
</TR>
!;
}
print qq!
</TABLE>
</HTML>
!;
あとこれに名前がはいっていなかったら送信できないようにする機能も
つけたいです。。
csvの書き込みと名前はいってなかったらエラーが動いたら完成なんです。
perlとかこれがほんとに初めてで、なんとかここまでやりました。。
どうかご指導お願いいたします。。実は仕事なんです。助けてください。。泣
0987nobodyさん
2005/10/16(日) 22:31:22ID:???0988nobodyさん
2005/10/16(日) 22:38:54ID:???おまいのコードのデバッグをしてやるスレじゃないよ。
問題が再現する最短のコードを載せるべし。
> 今の全ソースです。
今の全ソースなど載せるなよ。
0989766
2005/10/16(日) 22:51:45ID:???0993766
2005/10/16(日) 23:51:24ID:???何卒宜しくお願いいたします。。
0994nobodyさん
2005/10/16(日) 23:56:43ID:???がんばって勉強してください。
仕事ならなおさらです。
0995nobodyさん
2005/10/16(日) 23:59:50ID:???正直、このスレに完璧な答えが出てる。
これでわからないならもうその仕事は破棄しなさいな。
それが先方とお前の為だよ。
0996nobodyさん
2005/10/17(月) 00:15:20ID:???よもまつですな。
ヒキがいうのもなんだけど。
0997932=950=958
2005/10/17(月) 00:45:14ID:???>>766のところに上げて欲しかったんだけどな…
とりあえず次スレたててくる
0998nobodyさん
2005/10/17(月) 00:48:33ID:???ttp://pc8.2ch.net/test/read.cgi/php/1129477637/
0999nobodyさん
2005/10/17(月) 00:48:38ID:???やるぞ♪ 余裕余裕 週末家で・・・ 怒られればいいか・・・
∧∧ ∧∧ ∧∧ . .::::::::::::::::::::::::::┃:::::::::::::::::::::::::::::::::::::::::::: ∧||∧
(・∀・) ∩・∀・) (・∀・)∩..::: ∧∧:::::::::::┃:::::::::::::::::::::::::::::::::::::::::::::::::（ ⌒ヽ
/ ⊃⊃ ヽ ⊃ノ /⊃ / .. :::('д` ）::::::::┃::::∧ ∧::::::::::::::::::::::::::::::::::: ∪ ﾉ
（ ( ヽ ）つ〜（ ヽノ ...:::と ヽ::::::::┃: ('д` )::::::( )⌒ヽ;:::::::::: ∪∪
（/（/' (／ し^ Ｊ.. ...:::⊂,,_UＯ〜:┃:::(∩∩ ):::::|/.|/uと )〜:::::::::::::::
まだ２日間しか 残業すれば・・・ ２chで聞けば・・・
↑
今ここら辺
1000nobodyさん
2005/10/17(月) 00:49:51ID:???Perlコーディング初心者質問スレ Part 44
http://pc8.2ch.net/test/read.cgi/php/1129477637/
1001１００１
Over 1000Threadもう書けないので、新しいスレッドを立ててくださいです。。。
レス数が1000を超えています。これ以上書き込みはできません。