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

Perlについての質問箱 ..

237:デフォルトの名無しさん
08/01/30 05:50:31
>>231
ドラゴンボールの中でフリーザが一番好きです　まで読んだ

238:デフォルトの名無しさん
08/01/30 08:52:31
>>233
そうなのですか。参考にします。

>>232 >>234
とんだ誤解ですね。私は決めつけられた誤解に対して答えただけですよ。
うらむ相手が間違っています。
それに私は私の哲学をどこで語っているんでしょうか。
Perlに関する質問のやりとりのなかで、致命的な誤解が生じてしまったので、
事情説明をしてコミュニケーションの修復を図っただけですよ。
どこにも私の主観・思想が語られておらず、ただ私に関する事実が述べられているのみです。
(もう一度お読みになってみることをお勧めします。)
それなのにその部分だけとりあげて哲学を語っているからスレ違いだとするのは
あまりに早計ではないでしょうか。

>>235
それだけの英語力があるかはやや不安です。
やはり、日本人だから日本語のほうが話しやすいものです。

239:デフォルトの名無しさん
08/01/30 09:00:21
>>238
つうかもっと完結に書く能力はないの？
どうせ「誤解のない詳しく書いてどうのこうの」ってくどくど書くんだろ？
その妙な書き方前に見たような気がするが…

240:デフォルトの名無しさん
08/01/30 09:10:20
>>238
> うらむ相手が間違っています。
>>232 >>234がお前さんを「うらんでいる」という解釈こそ、この場で最も大きい「とんだ誤解」では。
どこから「うらむ」という発想が出てきたのか、まるで見えてこない。

241:デフォルトの名無しさん
08/01/30 10:03:47
自分がなんで注意されてるかさっぱり理解できない天然さんぽいから放置で。

242:デフォルトの名無しさん
08/01/30 10:28:45
なんという入れ食い

243:デフォルトの名無しさん
08/01/30 10:34:40
>>239
確かに簡潔に書くことは大切ですが、私が簡潔に書く能力がないとするのは論理の飛躍です。
それに、私の文章が簡潔でないというのも偏見ではないでしょうか。
文字数が特別多いわけでもないでしょう。
あと、簡潔に書けるのになぜ簡潔に書かなかったかというと、その必要を感じたからです。
つまり、あらぬ誤解をかけられて、それがために質問者としての目的の遂行に障害が発生したので、
必要なだけの対策を講じたまでです。
そうした些末なことはまさにスレ本題ではないので、>>241の言うように放置をお勧めします。
それから、2chは私は数年前から定期的に利用しているので、私の文章をあなたが見た可能性は否定
できませんが、私の今回の文章を見ただけで、あなたが過去に見た特定の文章の書き手と同一視して
しまうのは早計ではないでしょうか。
そもそも、仮にあなたが過去に見たような気がするというその文章が私のものだったとしても、
だからどうしたというんですか？
発言の意図が見えてこないし、スレ違いもはなはだしいので自重お願いします。

>>240
うらむという表現は「敵対的な言い方をされる」という表現に置換することも可能です。
要するに、表現方法の問題です。
そもそも、仮に、私が>>238で「とんだ誤解」といったときに最大な過ちが私の表現方法
にあったのだとしても、>>232 >>234が誤解をしていることには何ら変わりがありません。

>>241
具体的にどんな点で私が注意されるべきなのでしょうか。
もっとも、>>241が私に向けた発言でないことは明白ですが。

244:デフォルトの名無しさん
08/01/30 10:39:18
にゃーにゃー

245:デフォルトの名無しさん
08/01/30 10:42:17
日本語として成立しなくなったら釣りも終わりだな。

246:デフォルトの名無しさん
08/01/30 10:54:08
しねばいいのに・・・

247:デフォルトの名無しさん
08/01/30 12:47:15
日本語の得意な朝鮮人が来てますねwww

248:デフォルトの名無しさん
08/01/30 12:52:09

895 名前：デフォルトの名無しさん[sage] 投稿日：2008/01/07(月) 02:32:27
頭が悪いのに口だけは達者な馬鹿の典型だなｗ

249:デフォルトの名無しさん
08/01/30 13:13:01
会社で嫌われてんだろうなぁ・・・

250:デフォルトの名無しさん
08/01/30 13:15:37
>>243
早くインストールしろよｗ

251:デフォルトの名無しさん
08/01/30 13:18:17
>>243
> そうした些末なことはまさにスレ本題ではないので、>>241の言うように放置をお勧めします。

オマエガナ

252:デフォルトの名無しさん
08/01/30 13:23:42
祭りと聞いて（ｒｙ

253:デフォルトの名無しさん
08/01/30 13:32:31
ごめんなさい。釣りでした。

254:デフォルトの名無しさん
08/01/30 13:39:22
続きまだぁ？

255:デフォルトの名無しさん
08/01/30 13:50:44
Perlでは珍しいタイプの狂人だな

256:デフォルトの名無しさん
08/01/30 16:52:12
この無駄な冗長さはコボラー

257:デフォルトの名無しさん
08/01/30 21:53:12
珍しく伸びてると思ったら
…珍しくもないか

258:デフォルトの名無しさん
08/01/30 22:51:58
それに、あと、つまり、それから、そもそも、

こんな接続詞が多用されている時点で
簡潔に書けてない事がよく分かるな。

259:デフォルトの名無しさん
08/01/30 23:22:35
みんな、楽しそう。

260:デフォルトの名無しさん
08/01/31 00:11:09
あーこんな文章をどこかで見たことがあると思ってたらアレだ
精神病の人が医者に「これこれで私は精神病じゃないです」って言ってるのにそっくりなんだわ
たとえばこれとか
URLﾘﾝｸ(www.so-net.ne.jp)

261:デフォルトの名無しさん
08/01/31 00:16:37
3行でおｋ

262:デフォルトの名無しさん
08/01/31 00:43:52
ス
レ
違い

263:デフォルトの名無しさん
08/01/31 02:25:46
なぜこのスレに、精神異常者チェイサーズが集結しているのか?

264:デフォルトの名無しさん
08/01/31 11:37:30
後に現れるのは、もちろんキティガイ

265:デフォルトの名無しさん
08/01/31 20:03:28
エンターキーを押さなくてもキーボードから
一字だけ入力を受け付けたいときはどうすればいいでしょうか？

266:デフォルトの名無しさん
08/01/31 20:08:05
>>265
っ[Term::ReadKey]

267:デフォルトの名無しさん
08/01/31 20:19:17
できました。ありがとうございました。

268:デフォルトの名無しさん
08/01/31 22:23:46
$count = $x =~ tr/0-9/0-9/;
で数字の桁数を数えられるようですが、どういう仕組みなのか分かりません・・・
くだ質の類だと思いますが、よろしくお願いします。

269:デフォルトの名無しさん
08/01/31 22:47:50
tr演算子は置換した文字の数を返す

270:デフォルトの名無しさん
08/01/31 22:48:16
$xの数字を同じ数字に置換して，置換した回数を$countに入れてる．
$xが数字だけなら桁数と一致するわな．

271:デフォルトの名無しさん
08/01/31 23:32:10
目からウロコが落ちた。確かに数えられるねぇ。
でもなんか違う気がする。

272:デフォルトの名無しさん
08/01/31 23:46:35
面白いコードと実用的なコードには差があるからな。

273:デフォルトの名無しさん
08/02/01 00:59:15
できるこたできるけど中身が数字列の場合に限るし
それが保証されてるならlengthでもいい気はする。

274:デフォルトの名無しさん
08/02/01 03:09:51
>>273
my $num = '-123,456';
print $num =~ tr/0-9//, "\n"; # 6
print length $num; # 8

275:デフォルトの名無しさん
08/02/01 08:49:13
実戦での桁数は計算で出すよね

276:デフォルトの名無しさん
08/02/01 10:18:25
計算てｗ

277:デフォルトの名無しさん
08/02/01 11:53:20
n進数の桁数は計算だすよ

278:デフォルトの名無しさん
08/02/01 11:54:25
>>274
いや数字だけの列と保証されてる場合よ。

279:デフォルトの名無しさん
08/02/01 12:08:24
電話番号やカード番号みたいに、ハイフンがあったりなかったりのチェックで・・
・・・文字数だけじゃあんまり意味ないか

280:268
08/02/01 14:12:06
trは置換した文字列を返すんですね。
処理の順番も勘違いしてました。↓の順番なんですね
$count = ( $x =~ tr/0-9/0-9/ );

ありがとうございました。

281:デフォルトの名無しさん
08/02/01 14:25:00
「置換した文字列」ではない。
置換もしくは削除した文字数を返す。

282:デフォルトの名無しさん
08/02/01 14:32:45
while ($x =~ m/\d/gs) { $count++ }

283:268
08/02/01 14:41:11
>>281
書き間違えでしたｽｲﾏｾﾝ

284:デフォルトの名無しさん
08/02/01 15:47:47
重箱の隅だけど、
tr/a/a/
ってのは置換したことになるの？

285:デフォルトの名無しさん
08/02/01 16:05:17
やってみろ。

286:デフォルトの名無しさん
08/02/01 17:08:30
tr/hoge/hage/

の hoge にマッチした回数でいいんじゃね？

287:デフォルトの名無しさん
08/02/01 18:12:45
>>284
文法上は置換する(したことになる)が、実際の置換は行われない。
tr/X// や tr/X/X/ は対象に含まれるXを数える為の記述で、この場合には対象が
左辺値である必要もない。

perl -le "print q/123,456/ =~ tr/0-9a/0-9a/" # エラーにならない
perl -le "print q/124,456/ =~ tr/0-9a/0-9b/" # エラーになる
perl -le "print int(1234.56) =~ tr/0-9a//" # エラーにならない

288:デフォルトの名無しさん
08/02/01 21:17:49
ちょっと自分で試してみればすぐ答えが出るのに。
なんで試さないのかなぁ。
もしかして、ナイコン？

289:デフォルトの名無しさん
08/02/02 13:24:32
確かにわけわからん
レスを書くよりキーを叩く回数が少ないのに。

290:デフォルトの名無しさん
08/02/02 13:55:00
重箱の隅とか言いつつperlバイナリのソースコードのレベルの話を求めてるんじゃね？

291:デフォルトの名無しさん
08/02/02 15:24:02
% perl -MO=Deparse -e 'print q/aaaaa/ =~ tr/a//'
print 'aaaaa' =~ tr/a//;
-e syntax OK
% perl -MO=Deparse -e 'print q/aaaaa/ =~ tr/a/a/'
print 'aaaaa' =~ tr/a//;
-e syntax OK

292:デフォルトの名無しさん
08/02/02 17:10:44
5.00503だと 'aaaaa' =~ tr/a// は
Can't modify constant item in character translation
と怒られてdieした。5.6.1なら置換回数が返された。

293:デフォルトの名無しさん
08/02/03 23:24:30
質問です。
だいぶ前に書かれたライブラリ（*.pl）が現役で動いているとします。
色々な箇所で使われているため、（動いている限りは）できるだけこれを修正したくありません。

このライブラリの中に、以下のようなサブルーチンがあります。

　　sub Func
　　{
　　　　local *data = $_[0];

　　　　#ハッシュにいろいろ詰め込む
　　}

このサブルーチンは、以下のように呼び出すようにとサンプルコードが示されています。

　　local %hash;
　　&Func(*hash);

これを呼び出し側だけでもlocalを排除しようと、以下のように書き換えました。
実行してみた結果、ちゃんと動いているように見えます。

　　my %hash;
　　Func(\%hash);

この場合、
1.呼び出し元だけを書き換えることに意味はあるのか？
2.あるとしたら正しい書き方は？（cron、CGI、mod_perlで動かすことを想定）

よろしくお願いします。

294:デフォルトの名無しさん
08/02/04 02:17:53
バージョンによる

295:デフォルトの名無しさん
08/02/04 02:25:32
>>293
一般論としては、その修正で得られるのが自己満足だけなら、さわらないことをお勧めする。

296:デフォルトの名無しさん
08/02/04 10:16:16
>294
あ、バージョン書き忘れてました。

　Perl 5.005
　Apache/1.3.28 (Unix)
　mod_perl/1.29

※下2つはCGIやmod_perl動作時のもの。

>295
自分がlocalの挙動をきちんと理解していないこともあり、予期せぬバグを生み出す原因になるので
なるべくmyで統一したいと考えています。

それに、そのサブルーチンを呼ぶときだけlocalなのも変かなーと。

297:デフォルトの名無しさん
08/02/04 10:21:10
>>296
> 自分がlocalの挙動をきちんと理解していないこともあり、予期せぬバグを生み出す原因になるので
> なるべくmyで統一したいと考えています。

そんな変質的行為に突入する前に、localの挙動をきちんと理解しろ。

298:デフォルトの名無しさん
08/02/04 10:41:31
localだと値を追いかけるのが面倒で……。

299:デフォルトの名無しさん
08/02/04 11:08:20
基本的にはそれで正しく動くはず。
ただ、1.2.の問いがあるから「書き換える必要はないんじゃないの？」って言われてるわけで。

300:デフォルトの名無しさん
08/02/04 11:38:30
ありがとうございます。

ライブラリの方を修正したいけど……中途半端に手を出したら悲惨なことになりそう……

301:デフォルトの名無しさん
08/02/04 11:52:29
古いライブラリをmod_perlで使おうとは思わないなぁ

302:デフォルトの名無しさん
08/02/04 12:18:11
古いライブラリをmod_perlで使うんじゃないんです
古いライブラリがmod_perlで動いてるんです……

303:デフォルトの名無しさん
08/02/04 12:22:08
自分なら、そんな動作よくわからない関数mod_perlで使わないが･･･
なんかラッパー関数作ってそっち使うようにしてけば
そのうち古い関数は淘汰されるんでは？

304:デフォルトの名無しさん
08/02/04 12:51:20
まあ、その少しずつやってます……。

305:デフォルトの名無しさん
08/02/04 13:53:56
他人の書いたperlの読みにくさは異常
書き換えるよりも書きなおしたほうが早いことさえある

306:デフォルトの名無しさん
08/02/04 14:38:28
読みながら書き直したりする。

以前、「どう見てもPrologです。本当にありがとうございました」な
プログラムをもらったことがある。

307:デフォルトの名無しさん
08/02/04 18:33:33
よくわからない物はよくわかるようになるまで触らない方がいいとは思うな。
localが気になるならコメント添えてここはこういう理由って記述しときゃ後で見たときにもわかるし。
せめてそのライブラリの流れ把握できるくらいになってからでないと。

308:デフォルトの名無しさん
08/02/04 19:53:07
localの98%くらいはmyにしてしまっても問題なくね？

309:デフォルトの名無しさん
08/02/05 00:06:02
いや、97%くらいだろ。

310:デフォルトの名無しさん
08/02/05 05:09:26
動いてんならいじるなよ

311:デフォルトの名無しさん
08/02/05 18:09:00
懸念してるのは想定外の２％だか３％のバグの発生だからな。
上でも言われてるがいじるメリットが自己満足だけなら俺もそのままのがいいとは思う。

312:デフォルトの名無しさん
08/02/05 20:11:35
Exporter　が import を強制的にexportしなくなったのって、
仕様変更はいつから？
実装変更は、perl 5.9から？

313:デフォルトの名無しさん
08/02/06 00:30:23
人狼ってゲームのＣＧＩ設置したいんだけど(nifftyに）
できなくて質問ＣＧＩが動かないんだけど、以下エラー
Wed Feb 06 00:22:09 2008 Client Abort 2-- detected during CGI/SSI process
Wed Feb 06 00:22:10 2008 Warning: Connection closed and CGI process ID=400 still alive
Wed Feb 06 00:22:11 2008 Warning: Connection closed and CGI process ID=400 still alive
Wed Feb 06 00:22:12 2008 Warning: Connection closed and CGI process ID=400 still alive
Wed Feb 06 00:22:14 2008 Warning: Connection closed and CGI process ID=400 still alive
Wed Feb 06 00:22:15 2008 Warning: Connection closed and CGI process ID=400 still alive
Wed Feb 06 00:22:16 2008 Warning: Connection closed and CGI process ID=400 still alive
Wed Feb 06 00:22:18 2008 Warning: Connection closed and CGI process ID=400 still alive
Wed Feb 06 00:22:19 2008 Warning: Connection closed and CGI process ID=400 ・・・・・・
以下の文法あやしい？
sub sub_lock {
# 1分以上古いロックは削除する
if (-e $lock_path) {
local($mtime) = (stat($lock_path))[9];
if ($mtime < time - 60) { &sub_unlock; }
}
local($retry) = 5;
# mkdir関数式ロック
while (!mkdir($lock_path, 0755)) {
if (--$retry <= 0) { &error('LOCK','LOCK is BUSY'); }
sleep(1);
}
$sys_lockflag=1;
}

ニフティで設置してる人いたからできるとは思うんだけども誰か助けて（；；）。。。

314:デフォルトの名無しさん
08/02/06 01:18:29
鼬害です

315:デフォルトの名無しさん
08/02/06 03:27:35
>>1 の冒頭くらい読んでね。
ここはプログラムの板でってＣＧＩの板じゃないよ。はい移動。
ｽﾚﾘﾝｸ(php板)

316:デフォルトの名無しさん
08/02/06 16:20:24
Perlって数ヶ月書かないだけでかなり忘れるんだけど、
おまいらPerlは毎日のように書いてるの？
俺のような記憶力弱いやつはPythonに替えるべき？

317:デフォルトの名無しさん
08/02/06 16:22:52
$str =~ tr/a-z/A-Z/g;

として小文字を大文字に変換しようとしてますが、

Bareword found where operator expected～

とか言ってエラーになります。
何度ググってもこれであってるぽいんですが…。わけがわかりません助けて。

318:デフォルトの名無しさん
08/02/06 16:26:31
その前後が問題なんじゃないの？

319:デフォルトの名無しさん
08/02/06 16:29:44
>>317自己レス
gをなくしたら通りました。g使えないの？
ぐぐってでてきた複数の例で使われてるんだけど。
試したVerは5.8.2と5.8.8。

320:デフォルトの名無しさん
08/02/06 16:31:36
tr///はcdsだけみたいね

321:デフォルトの名無しさん
08/02/06 17:01:29
uc($str);

322:デフォルトの名無しさん
08/02/06 17:26:53
>>316
そんな毎日やるわけないけど
忘れたらリファレンスのページとか参考にすりゃいんじゃないの？

>>319
ｇはm s // だけのはず。
tr y は>>320
似てるけど一応動作は別もんだからね。

323:デフォルトの名無しさん
08/02/06 18:47:07
>>316
Pythonでも、クラスのメソッドとか多くて覚えられないけどね。
ただ、Pythonに乗り換えたらPerlには戻れないと思う。

324:デフォルトの名無しさん
08/02/06 20:38:28
>>316
使うときはWebサイトか昔書いたソースを見ながらやってる

325:デフォルトの名無しさん
08/02/06 22:47:26
>>316
毎日とは言わないが、けっこう頻繁に使ってるな。
１回しか使わないような使い捨てスクリプトは perl で書いてる。
何度も使うのはＣやｊａｖａやＶＢやＶＢＳｃｒｉｐｔや・・・・
ｐｅｒｌって便利ですよ。
バッチファイルみたいに手軽にかけて、バッチファイルよりも遥に高度な処理ができるからね。

ｐｅｒｌが嫌われてる理由を俺なりに考えてみた。
・漢字（ShiftJIS）に対応していない
・サーバアプリに向かない（ＣＧＩは負荷が重い）
・ソース丸見えだから業務アプリに向かない（納品できない）

でも使いようによっては超強力だよ。

326:デフォルトの名無しさん
08/02/06 22:56:53
perlって嫌われてるのか？
ところでperlで自分で書いたものって一月も前に書いたものは修正したくてならなくなるんだがwww

327:デフォルトの名無しさん
08/02/06 22:58:19
> 漢字（ShiftJIS）に対応していない
Encode.pmがあるじゃない
> サーバアプリに向かない（ＣＧＩは負荷が重い）
Hatena, Mixi, その他探せば色々あると思うんだけど

Perlが糞な理由はOOPやリファレンス回りの小汚い記法と
省略の美学（笑）によって解読不能なコードが書けるからだろう

きちんと書けば（『Perlベストプラクティス』みたいに）大分ましだが
Perlの特長を削いでる感じがするね

328:デフォルトの名無しさん
08/02/07 00:21:34
>>325
>ソース丸見えだから業務アプリに向かない
暗号化する仕組みがあるよ。

329:デフォルトの名無しさん
08/02/07 00:33:04
個人で使うならRubyかPythonのほうが幸せになれる？

330:デフォルトの名無しさん
08/02/07 00:46:13
>>329
個人で使うだけなら、迷わずPerl。

まぁ、好き好きだけどね。

331:デフォルトの名無しさん
08/02/07 00:57:31
理由はユーザーが多いから？年期の入った言語ゆえにソースが転がってるから？？
後発の言語のほうが練られてそうなんですが。
初学者なんでこのままマスターしようか乗り換えようか迷ってるのですわ。

332:デフォルトの名無しさん
08/02/07 01:02:24
perlなんて簡単なバッチ処理を書いて使い捨てにするようなのに向いてる言語だから、
マスターした！って達成感を味わいたいなら別の言語にしたほうがいいよ。

333:デフォルトの名無しさん
08/02/07 01:05:36
perlを使う理由なんて「どこにでもある」「たいていのものはCPANにある」しかないよ。

334:デフォルトの名無しさん
08/02/07 01:08:19
マスターてのがどういう状態を指してるのか分からんが、
一通り文法覚えて書けるようになるだけなら、RubyもPythonも大して変わらんね

335:デフォルトの名無しさん
08/02/07 01:24:51
Perlぐらい憶えときゃええがな。他言語へも１，２週で移行できるわな
そんな人生の選択みたいに迷うほどのことちゃいまっせ

336:331
08/02/07 01:43:10
マスターって言葉使いましたが単にテキスト処理ならなんでもってレベルです。
レスありがとうございました。とりあえずPerl覚えときます。

337:デフォルトの名無しさん
08/02/07 01:50:17
>>327
横入りだけどJcode使ってた身としてはEncodeはかゆいとこに手が届かないなぁ。
あと、今はPHPとかエディタの機能とかで知れてるけど正規表現に腰が引けてる人もいたかもね。
使いこなせば強い味方だけどいきなりだとさっぱりわからんだろうし。
記述の簡略化はあるねー即興で組んだやつはファイルのクローズせずに終わらせたりかなり乱暴なことしてる。

338:デフォルトの名無しさん
08/02/07 02:12:19
良くも悪くも無茶な書きかたができるよね

339:デフォルトの名無しさん
08/02/07 09:46:44
コード書く
→後日、意味もなく省略化を施す
→さらに後日、自分の書いたものが理解できず解読作業

ひとつのコードで３回も楽しめるPerlｻｲｺｰ＼(^o^)／

340:デフォルトの名無しさん
08/02/07 10:38:16
>>339
あるあるwwwありすぎて困るwww

341:デフォルトの名無しさん
08/02/07 11:22:36
日々のperlは書き捨て

342:デフォルトの名無しさん
08/02/07 12:13:33

激しくスレ違いかもしれませんが、質問です。

PCゲームを多重起動しようと試みたのですがダメでした。
大抵のゲームはWindowsのアカウントを２つ作成し、別々のアカウントで起動すれば問題ありません。

現在、Vistaを使っているのでXPではどうなるかはわかりませんが（XPは右クリックから別ユーザーで起動が可能）、
Vistaでその手法をとる場合、runasコマンドを使用することになります。
しかしこのコマンドで別々に起動しても、後から起動したほうが無効になってしまいました。

で、ここからがわけわかめなのですが、同一のデスクトップからの起動はダメでも、
Windowメニュー→ユーザー切り替えをし、別々に起動すればうまくいきました。

この違いはいったいなんなのでしょうか？
　

343:デフォルトの名無しさん
08/02/07 12:17:36
このゆとりはいったいなんなのでしょうか？

344:デフォルトの名無しさん
08/02/07 12:27:32
単なる誤爆じゃね？　と思いたいが

345:デフォルトの名無しさん
08/02/07 15:02:53
use utf8;
use Encode;
use WWW::Mechanize;

my $start = "URLﾘﾝｸ(***.com)";
my $mech = WWW::Mechanize->new( autocheck => 1 );
$mech->get( $start );

my $phrase = 'こんにちは';
$mech->follow_link( text_regex => qr/$phrase/);
.....

見たいなコードを書いて日本語のページ(shiftjis)をとりに行ってるんだけど、
getのときの文字コードの判別がうまくいかないので、
text_regexがうまく動かないんですが、いい方法ないですか？

346:デフォルトの名無しさん
08/02/07 17:29:33
>>345
裏２ｃｈにあります

●裏2chの入り方
１・”名前欄”に「ura2ch.czfusianasana.net」と入力します。
　　裏２ｃｈへ飛ぶためのコマンドです、間違えないように”「」”の内側の文字をコピーペーストして下さい。　
２・メール欄に閲覧したい板の関連キーワードを入力してください。
　例：ロリ、グロ、無修正など
３・”本文欄”にIDとパスワードを入力します。
　　ID/パスワード＝「guest/guest」
４・書き込みが終了すると2ｃｈのTOPに戻るのでもう一度入場
５・背景が暗転していたら成功、裏2ｃｈに侵入出来ています。

ちなみに裏2ｃｈに既存の板は勿論存在します、それにｻｰﾊﾞｰは外国のｻｰﾊﾞｰなので日本のややこしい法律に抵触する事も無いです
週末や２ちゃんねるで話題の事件があるときはアクセス数が増えサーバーに負荷がかかる為、つながりについ場合があります
スポーツ選手のコラや無臭性画像も多数UPされている板も存在します
それに完全な匿名性を誇るので違法行為を繰り返しても逮捕される事はまずありません

347:デフォルトの名無しさん
08/02/07 18:01:32
すごい久々にそのコピペ見た。

348:デフォルトの名無しさん
08/02/07 18:07:56
:content_cbで変換するとか?

349:p4143-ipbfp205otsu.shiga.ocn.ne.jp ◆TWARamEjuA
08/02/07 20:57:18 BE:3811875-2BP(6825)
wktk♪

名前が長すぎるようです♪

350:デフォルトの名無しさん
08/02/07 21:41:57
コマンドプロンプトでperl -vと打ち込むところでperlと打ち込んだら
exitと打ち込んでもコマンドプロンプトが終了できなくなってしまいます・・・

351:デフォルトの名無しさん
08/02/07 22:03:10
__END__

352:デフォルトの名無しさん
08/02/07 22:08:09
kill -KILL `pidof perl`

353:デフォルトの名無しさん
08/02/07 22:10:53
^D

354:デフォルトの名無しさん
08/02/07 23:16:05
CTRL+Z
エンター

355:デフォルトの名無しさん
08/02/08 01:33:02
ctrl+s押して右往左往したことはある

356:デフォルトの名無しさん
08/02/08 09:05:11
>>355
あるある。リンクが切れたのかと思っちまう。

＃ちなみに、Ctrl+Qでぬける。

357:３４５
08/02/08 11:45:09
自己解決しました。
裏２ちゃんねるにはいけませんでした、残念ｗ

358:デフォルトの名無しさん
08/02/09 00:38:06
>>332
>perlなんて簡単なバッチ処理を書いて使い捨てにするようなのに向いてる言語だから、

したり顔でそんな放言出来るなんて、おまいはまだまだだな。
perlでも信頼性と保守性を担った、アプリケーションと呼べるレベルのものまで書けるわさ。

359:デフォルトの名無しさん
08/02/09 00:57:31
でっていう

360:デフォルトの名無しさん
08/02/09 01:14:05
さくっと書いてさくっと終わるようなものに「も」向いている言語だというのは間違いないんじゃないかな

361:デフォルトの名無しさん
08/02/09 01:32:18
いっしょけんめいＰｅｒｌのコアなプログラミングを学習したところで、
就職にはなんの役にも立たない。
それどころか、履歴書や職務経歴書に「Ｐｅｒｌ」などと書こうものなら
面接のその場で不採用決定。
Ｃ言語とか覚えとけば、ｊａｖａやその他の言語にも生かせるが
Ｐｅｒｌじゃ「つぶしが利かない」からねぇ。

362:デフォルトの名無しさん
08/02/09 01:38:34
まあ、趣味のプログラマな人間には全く関係ない話題ではあるなあ。

363:デフォルトの名無しさん
08/02/09 01:52:55
ウチの会社なら…履歴書の審査は通るぞ！
(他の履歴とか面接でダメになる可能性はるけど)

364:デフォルトの名無しさん
08/02/09 01:54:14
VBとか書いてあるよりはマシ。
まあ、会社の分野というか方向性によって違うんだろうけど。

365:デフォルトの名無しさん
08/02/09 06:17:51
「特技: 自転車に乗れます」と書くようなもんだからな。

366:デフォルトの名無しさん
08/02/09 06:38:44
参照渡しについて質問。

$a = 'aa';
$b = \$a;
print $$b;

のデリファレンスを

print $b;

この形で行いたいんですが、良い代入方法は無いでしょうか？
*b = *a;は配列とかも同じになるので無しで。

PHPの
$b = &$a;
みたなのを希望。

367:デフォルトの名無しさん
08/02/09 07:02:56
>>366
URLﾘﾝｸ(www.kt.rim.or.jp)
$b = \$a;

368:デフォルトの名無しさん
08/02/09 07:07:50
>>367
ありがとうございます。
読んで来ます。

369:デフォルトの名無しさん
08/02/09 09:14:46
比較で一致しないのはなぜ？整数だと一致するし、直接比較しても一致する。 $b = $b+0.1;
がみそ？

$a = 5.5;
$b = 4.5;

for($i = 0; $i< 11 ; $i++)
{
if($a == $b)
{
printf("match :");
}
else
{
printf("unmatch :");
}

printf( "%2.2f %2.2f \n",$b,$a);

$b = $b+0.1;
}

結果

unmatch :5.40 5.50
unmatch :5.50 5.50 　　（-　一致しない

370:デフォルトの名無しさん
08/02/09 09:24:45
>>369
異なる値が一致しないのは当然。

371:デフォルトの名無しさん
08/02/09 09:50:00
浮動小数点を==で比較してはいけない。プログラミングの常識。

372:デフォルトの名無しさん
08/02/09 09:51:09
差の絶対値がある閾値より小さいかどうかで調べるよね。

373:デフォルトの名無しさん
08/02/09 09:58:13
へーそうなんだ。整数しか使ったことがないから知らなかった。
369じゃないけど勉強になったわ。

374:デフォルトの名無しさん
08/02/09 10:12:53
cygwinのPerlだと
perl -e '$A=5.5;$B=5.500000000000001;print "match\n"if $A eq $B'
これがイコールになっちゃうみたいですね

375:デフォルトの名無しさん
08/02/09 11:18:45
浮動小数点表現では0.1が循環小数になる。
(だからお金の計算に浮動小数点使っちゃだめ)

376:デフォルトの名無しさん
08/02/09 12:02:59
>>374
eqの意味知っていて意図的に使ってるの?

377:デフォルトの名無しさん
08/02/09 14:08:21
>>374
こりゃ便利だな。

378:デフォルトの名無しさん
08/02/09 17:17:17
>>371
FAQのようですね。確かに今回初めて浮動小数点の比較を使ったんだけど、知らなかった。

379:デフォルトの名無しさん
08/02/09 17:29:41
>>378
> FAQのようですね。

ちゃう。ちゃんとした教育を受けた人なら、質問を出す前に教わるくらいの事柄。

380:デフォルトの名無しさん
08/02/09 17:32:41
>>375
じゃあ、お金の計算には何使えばいいんだ？
利息計算とかでいやでも小数使うと思うんだが。

381:デフォルトの名無しさん
08/02/09 17:40:17
10進浮動小数点数

382:デフォルトの名無しさん
08/02/09 17:45:35
>>379
スマソ。
教育は受けてない。

383:デフォルトの名無しさん
08/02/09 17:49:14
Perlの場合はBigDecimalだったっけ?

384:デフォルトの名無しさん
08/02/09 18:20:08
>>380
例えば消費税なら価格に5かけてから100で割る。
要するに細かい計算は整数で計算する。

385:デフォルトの名無しさん
08/02/09 18:50:44
それでは、コボラーさんどうぞ
↓↓↓↓↓↓↓↓↓↓↓↓↓↓

386:デフォルトの名無しさん
08/02/09 18:52:56
固定小数点という便利な言い方があると思うんだが（笑）

387:デフォルトの名無しさん
08/02/09 19:02:22
固定小数点でも底が2なら0.1は表せないだろ。

388:デフォルトの名無しさん
08/02/09 20:29:27
ある既存のシステムからもらってきたデータの中に４バイトの単精度実数が入ってるんです。
それを受け取りたいんですが、画面表示すると丸め誤差ってヤツ？が出てしまうんです。
ためしにやってみたこと

$x=pack('f', 123456 ); $y=unpack('f', $x); print $y,"\n";
$x=pack('f', 0.05 ); $y=unpack('f', $x); print $y,"\n";
$x=pack('f', 0.0000001); $y=unpack('f', $x); print $y,"\n";

結果
123456
0.0500000007450581
1.0000000116861e-007

元の数字に戻すには、どうしたらいいですか？

389:デフォルトの名無しさん
08/02/09 20:32:19
>387
「固定少数点」でググれ

390:デフォルトの名無しさん
08/02/09 20:34:52
>388
精度を指定すれば?

391:386
08/02/09 20:36:48
>387
すまん、>384への補足のつもりだったんだ

392:デフォルトの名無しさん
08/02/09 20:52:05
>>390
精度の指定の仕方を教えてください。

393:デフォルトの名無しさん
08/02/10 00:44:37
>>388
$x=pack('f', 0.0000001 ); $y=unpack('f', $x); ($z = sprintf("%.7f\n", $y)) =~ s/\.?0*$//;print $z;

394:デフォルトの名無しさん
08/02/10 16:23:05
標準入力を待つため以下の様に書いたがうまくいきません。
何がまずいのでしょうか。ActivePerl5.8です。

use IO::Select;
$sel = IO::Select->new;
$sel->add(\*STDIN);
while(1){
print "can_read\n";
@a = $sel->can_read;
foreach $fh (@a){
if($fh == STDIN){
print "STDIN\n";
}
exit;
}
}

395:デフォルトの名無しさん
08/02/10 16:51:18
>394
perlport より
>select
>Only implemented on sockets. (Win32, VMS)

396:394
08/02/10 18:23:33
>395
そう言う事かー。納得しました。ありがとうございました。

397:デフォルトの名無しさん
08/02/11 02:25:54
現在、与えられた文字列を読み込み、それを元にHTMLを出力するプログラムを作成しています。
与えられた文字列の中に特定のキーワードを見つけると、それをリンクに変換するようにしたいと考えています。

例：
　　[google:hoge]　→　<a href="URLﾘﾝｸ(www.google.co.jp)">Googleでhogeを検索</a>
　　[mixi:xxxxx]　 →　<a href="URLﾘﾝｸ(mixi.jp)">mixi</a>
　　URLﾘﾝｸ(xxx.xx)<)">URLﾘﾝｸ(xxx.xx<)

こういった置換を行うコードを1つずつ書くのではなく、
例えば、以下のような置換パターンをセットしたハッシュを用意しておき

　　%hash = (
　　　　'\[google:\w+\]'　=>　'<a href="URLﾘﾝｸ(www.google.co.jp)">Googleで$1を検索</a>',
　　)

forやforeachで回しながら自動的に置換したいのですが、どのようにすればよいでしょうか。
（エンコードとかは考えない方向で）

　foreach my $key (keys %hash)
　{
　　　$input_str =~ s/$key/$hash{$key}/g;
　}

とやった場合、変換後の文字列の中に「$1」そのものが入ってしまいます。

398:デフォルトの名無しさん
08/02/11 02:29:35
$input_str =~ s/$key/$hash{$key}/gee;

できるかは知らん

399:デフォルトの名無しさん
08/02/11 10:43:55
>>397
クロスサイトスクリプティングって知ってるか?
素人のCGI作成は法律で禁止して欲しい。

400:デフォルトの名無しさん
08/02/11 11:28:03
>>397
答えそのものは書かないけど、以下のことが必要。
'\[google:\w+\]'の部分は'\[google:(\w+)\]'でしょうね。そうしないと
$1で受け取れないから。
置換をするなら、
$input_str =~ s/$key/conv($1, $hash{$key})/eg;
などとしておいて、
sub conv {
　　 my ($word, $str) = @_;
　　 $str =~ s/\$1/$word/g;
　　 $str;
}
などとでもしておくとか。
で、
URLのクエリー部分に仕込む文字列はURIエスケープが必要。
そんで、マルチバイトの場合、どの文字コードにしてからエスケープするかも
考える必要あり。
さらに、<a>と</a>の間の文字列に使用するときはサニタイズ処理が必要(XSS対策)。
>>398 の方法だと、perlコードをそのまま解釈してしまうので、別の危険あり。
「与えられた文字列」は誰が与えるのかがとても大きな問題です。
URLにリンクを張るのは、大崎氏のPerlメモが使えると思います。

401:デフォルトの名無しさん
08/02/11 11:57:26
>399
もちろん知ってます。
置換条件と置換パターンを配列などに保持しておく（または外部から読み込む）という考え方自体が
セキュアではないということでしょうか？

>400
( )で括って無かったのは書き込み時のミスです、すみません。
手元のソースでは書かれてたんですが、適当な条件に直すときに忘れてしまったようです。

402:デフォルトの名無しさん
08/02/11 12:22:23
置換パターンにperlの$1を流用しようとしてるところがセキュアでない。

'<a href="URLﾘﾝｸ(www.google.co.jp)(utf8)}">Googleで${1:htmlsafe}を検索</a>'

とかして、これを解釈するようにすればよい。

403:デフォルトの名無しさん
08/02/11 17:27:17
ありがとうございます。

自分用のツールをさくっと作るつもりだったけど、そこまでやろうとすると手間かなあ。
誰かモジュール作ってるかもしれないけど。

404:デフォルトの名無しさん
08/02/11 18:12:59
質問です。
'おまんこ'も'おちんこ'もマッチしないのですが、どこか間違いあるのでしょうか？

use strict;
use warnings;
use utf8;
binmode STDOUT, ':utf8';

while (my $str = <STDIN>) {
chomp($str);
last if ($str eq 'end');
if ($str =~ /お.んこ/) {
print "$& --- マッチしたお\n";
} else {
print "マッチしないお\n";
}
}

405:デフォルトの名無しさん
08/02/11 18:16:55
binmode STDIN, ':utf8';

追加したらマッチしますた。

406:デフォルトの名無しさん
08/02/12 05:34:25
質問です。

use Encode;
binmode STDOUT, ':iso-8859-1';
open READ , '<:encoding(utf8)', "$ARGV[0]" ;
while (my $data = <READ>){
print "$data";
}
close READ;

exit;

でutf8でencodeされたファイルをiso-8859-1に変換しようとしたら、
標準出力ではうまくいって、リダイレクトすると文字化けしました。

おわかりになる方、いらっしゃるでしょうか。

407:デフォルトの名無しさん
08/02/12 05:45:10
lv でみれないだけで、less したらみれました…すいません。

408:デフォルトの名無しさん
08/02/12 09:07:43
>>407
lvのほうがlessより優秀ってイメージなんだけど、lvが文字コードを誤判定しちゃったのかな。

409:デフォルトの名無しさん
08/02/12 12:12:12
use CGI;
my $delimiter = "\t";
my $q = new CGI;
my $save = $q->param('name') . $delimiter . $q->param('mail');
my ($name, $mail) = split /$delimiter/, $save;

入力はHTMLフォームからを想定しています。
こういった場合に適切なデリミタは何でしょうか。
たまに<>を見かけますが<>を><に変換してる場合じゃないと有効で無いですし
\tは入力が可能、\0は良い方法だと思いますがCGI.pmと衝突します。
\a等が良いのでしょうか。

410:デフォルトの名無しさん
08/02/12 12:14:45
× たまに<>を見かけますが<>を><に変換してる場合じゃないと有効で無いですし
○ たまに<>を見かけますが<>を<>に変換してる場合じゃないと有効で無いですし
ミスりました汗

411:デフォルトの名無しさん
08/02/12 12:52:41
板違いっぽいがスペースじゃだめ？

412:デフォルトの名無しさん
08/02/12 13:13:53
$save の前に入力チェックしてタブ文字を消せばいいだろ

413:デフォルトの名無しさん
08/02/12 14:12:21

my $save = join("&&", map { my $i = $q->param($_); $i =~ s/&/&/g; $i } ("name","mail"));
my($name,$mail) =~ map { s/&/&/g; $_ }(split("&&",$save));

414:デフォルトの名無しさん
08/02/12 18:08:01
>>409
<SOME_UNPREDICTABLE_STRING_XXX> でおｋ

415:デフォルトの名無しさん
08/02/13 11:16:04
投資家板で名高いプログラマの書いたコードですが
初心者が多く、下記コードについて評価できません
プロの目から見た下記コードの評価を教えて下さいませ

ｽﾚﾘﾝｸ(market板:454番)

$vict++;
$vict100++;
print $_ ."$riekiプラス！持ち越し成功！\n";
}
if($end < $start2){
$loss=$start2-$end;
$loss=~s/\-//;
$totall =$loss + $totall;
$totall100 =$loss + $totall100;
$lost++;
$lost100++;
print $_ ."$loss マイナス！持ち越し失敗！\n";
}
}

416:デフォルトの名無しさん
08/02/13 11:16:34
つづきです

if(($cost < 1000)&&($cost > 300 )){
if($end > $start2){
$rieki=$end -$start2;
$rieki=~s/\-//;
$totalr =$rieki+$totalr;
$totalr1000 =$rieki+$totalr1000;
$vict++;
$vict1000++;
print $_ . "$riekiプラス！持ち越し成功！\n";
}
if($end < $start2){
$loss=$end-$start2;
$loss=~s/\-//;
$totall =$loss + $totall;
$totall1000 =$loss + $totall1000;
$lost++;
$lost1000++;
print $_ . "$lossマイナス！持ち越し失敗！\n";
}

417:デフォルトの名無しさん
08/02/13 11:22:13
>>415
前の部分が欠けてて途中からになってるけど…？

418:デフォルトの名無しさん
08/02/13 11:35:29
書きかたはまるっきり初心者

処理内容としては
1．コストで場合分け（ここで見えてるのは300から1000まで）
2．スタートとエンドの差をとって，スタートがエンドより低ければ利益，逆なら損害として出力
3．利益または損害をトータルに加算
4．利益の出た回数と損害の出た回数をカウント．コストの範囲ごとにもカウント

なんつうか小学生でも計算できる内容だ

419:デフォルトの名無しさん
08/02/13 11:43:46
計算さえ出来ればいいんでしょ？
合ってりゃいいと思うよ

420:デフォルトの名無しさん
08/02/13 11:54:35
>>415
軽くスレ読んだが名高いプログラマじゃなくて単に周りに避けられてる面倒くさい人じゃん。
コードは上で言われてるように初心者でも書ける程度のもん。
プログラム書かない人にけん制になると思ったのかもしれんが
こんなの書いて自慢する人より電卓持ってる事務員のがずっとマシ。

421:デフォルトの名無しさん
08/02/13 12:08:22
ちゃんと動いて計算が合ってるならいいんじゃないの？
それ以外に評価しようが無い。

422:デフォルトの名無しさん
08/02/13 12:11:02
「名高いプログラマ」ってとこは確かにどうかと思うコードではあるｗ

423:デフォルトの名無しさん
08/02/13 12:17:13
あっちのことはよく知らないけど，変な演算する能力よりもデータを見極める目のほうが大事なんじゃないの？

424:デフォルトの名無しさん
08/02/13 12:25:14
主婦が、余った材料で栄養バランスの取れた料理を作るようなイメージ。
プロの料理人と比較しちゃいけない。

425:デフォルトの名無しさん
08/02/13 12:27:12
典型的なうんコードだな

426:デフォルトの名無しさん
08/02/13 12:31:07
>>421
あ、ごめん。機能満たすだけなら充分。
でも向こうのでの使い方が目的あって出してるコードじゃなく
素人にコード見せて牽制してるだけだからこんなの自慢にならんなぁって。

427:デフォルトの名無しさん
08/02/13 12:36:31
データを集積して処理するならともかく、この程度のことなら電卓+ノートのほうがいいと思うがな

428:デフォルトの名無しさん
08/02/13 12:40:32
サイタマン　は　やっぱり　うんこだった！

429:415のスレ住人
08/02/13 12:41:56
名高いプログラマーというより彼は社長だそうです。
年収3000万だったそうです。
ですからプログラムの内容というよりは
アイデアで儲けている方なのかもしれませんね。
真実が定かでは無いのですが彼がIT企業の社長という点はどう思われますか？

430:デフォルトの名無しさん
08/02/13 12:42:37
>>424
だが余った食材をそのまま食べたほうが味も見た目も栄養も手間も優れていたというパターン
ただの自己満足にしかなってないという…

431:デフォルトの名無しさん
08/02/13 12:43:04
こっちに来られると困るからノーコメント。

432:デフォルトの名無しさん
08/02/13 12:44:33
内容云々じゃなくて、これくらいすばらしいコードを書けるスキルがあれば年収2000万くらいは最低限ある、
という内容のことを言っていたのですが、株板では判断できる人が少なかったので参考になりました。

433:デフォルトの名無しさん
08/02/13 12:45:27
　　　　　　　　　　　＿＿　　　　　　　　♪
　　　ﾖﾎﾎ♪　　　＼　＼　　　　　　　　♪
　　　　　　　　　　　　＼/　｀' ==‐‐-- 、　　♪
　　　　　　ξﾐﾐﾐﾐﾐ　　./＼　　　　　　　 .ヽ,
.　　　　　　｜´_｀| 　/　 .＼　　　　　　　 ,l
　　　　　　　/.__)￣￣￣|￣￣￣￣￣￣|
　　　　　～l└‐L、＿,==.,――=,==r′
　　　　　 l~~｀ゝつ.l l |||/ | l´　　　　　l |
　.　　　　 ´||￣||´ |.|≠　 ||　　　　　　||

434:デフォルトの名無しさん
08/02/13 12:46:12
>>429
とりあえず
2chに入りびたってコテハンつけてる
そんなIT社長はイヤだ

435:デフォルトの名無しさん
08/02/13 12:46:21
サイタマン社長の名言集です。
どうぞ全部読んであげてください

ｽﾚﾘﾝｸ(market板)l50

436:デフォルトの名無しさん
08/02/13 12:46:32
　　　　　　　　　　　　__,,γ⌒ヽ　　　　　　　　　　　　　　　　＿
　　　　　　　　　　 ,,-''", ―‐―ｲ―ュ---､,,,,,,,,,,_　　　　　　　　三＼
　　　　　　　　　／ ∠　　ム＿ゝ三i二二(山山ｱｦ　　　　　 -=　二）
　　　　　　　 γ √　　イ,, -"　　　　　　　　　　　　　　　　　　.三／
　　　　　　 .ん､_(γ７''"　　　　　　　　　　　　　　　　　　　￣
　　　　　　　r㍉,ノ''こ!､,,┴．
　　　　　　　.|　 ‘''く′ ,／ │
　　　　　　　.r'ﾍ,、　｀'ｲﾞ＞'"
　　　　　　　.厂|,`'-,,　 .|'ヽ、
　　　　　　　.～へ-―‐＾''ｰ"

437:デフォルトの名無しさん
08/02/13 12:47:22
「○○なら年収○○万くらいは最低限ある」なんて言い方する時点で中二病
ここは２ｃｈだぞ

438:デフォルトの名無しさん
08/02/13 12:48:36
個人のスレがたってるような奴を信じるなよｗ

439:デフォルトの名無しさん
08/02/13 12:50:03
>>437
投資板はcisっていうイレギュラーの塊のような人が住んでるから
うそつきが住みやすいんですよ

440:デフォルトの名無しさん
08/02/13 12:51:27
コテで自慢する人は注目されたいだけ。

>>435
いりません。お引き取りください。

441:デフォルトの名無しさん
08/02/13 12:51:27
2レス目まで読んだ

Results 1 - 10 of about 1,040 Japanese pages for 金拝主義. (0.21 seconds)
Results 1 - 10 of about 5,450 Japanese pages for ボラリティ. (0.14 seconds)
Results 1 - 10 of about 3,130,000 Japanese pages for シュミレーション. (0.10 seconds)
Results 1 - 7 of 7 Japanese pages for イートレイドワラッパー. (0.35 seconds)
プロフィールをていぞう
愚かの骨頂

個性的な語彙を持ってることはわかった

442:デフォルトの名無しさん
08/02/13 12:51:45
サイタマン社長はゴールドカードもupしてるし
信じたいんですがやっぱり嘘なのでしょうか。
客観的に見てあのくらいのプログラムが書ければ年収二千万はいけるのでしょうか

443:デフォルトの名無しさん
08/02/13 12:53:43
>>442
すでに必要な情報は提示されてる。あとは自分で考えれ。
ここは２ｃｈだぞ。

444:デフォルトの名無しさん
08/02/13 12:55:09
おー。変数名に数字つかうってスゴいセンスだな。
でどこの幼稚園の子供よ？

445:デフォルトの名無しさん
08/02/13 12:55:13
これだけ持ち上げられるってことはなにか持った奴なんじゃない？

446:デフォルトの名無しさん
08/02/13 12:57:50
どうやら面白ワード生成機として有名みたいだな。

447:デフォルトの名無しさん
08/02/13 12:59:57
サイタマン先生の今までupした物は
200万円くらいのお金と60万円の証券会社の口座と
ゴールドカード4枚ですね。
プログラムのｽｷﾙでよく株のツールなどを作ろうかなどと言ったりします

448:デフォルトの名無しさん
08/02/13 13:12:34
>>447
なんだかんだで君も彼にぞっこんっぽいなｗ

449:デフォルトの名無しさん
08/02/13 13:14:02
>>446
2ch語を適当に組み合わせるしか脳のない「普通の厨」なら、
似たようなクオリティの人工無能も書けるかもしれないけど、
天然素材は模しようがないなｗ

450:デフォルトの名無しさん
08/02/13 13:19:08
>>449
実は本人はスーパーハカーで，2chに書き込んでるのはサイタマンに作られた人工知能なんじゃないか…
そしてあのコードも学習して自動生成されたんじゃないかと妄想してみたwww

451:デフォルトの名無しさん
08/02/13 13:29:30
>>447
ゴールドポイントカードならぼくも持ってるよ。

次ページ