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

1 名前：デフォルトの名無しさん mailto:sage [2006/12/21(木) 22:35:39 ] "The duct tape of the Internet" こと、Perlについての質問箱です。 "There's more than one way to do it" ということで、Perlの奥深さについて皆で語り合い、追求してまいりましょう。 CGIについての質問は板違いです。WEBプログラミング板でどうぞ。 CGIとPerlの区別がつかない人もWEBプログラミング板に行ってください。 (WEBプログラミング板 pc8.2ch.net/php/ ) CGIの質問は答えがPerlと全然関係ない話に帰着する場合が多かったりするのでWEBプログラミング板に行って聞いたほうが得ですよ。 このスレでは(CGI以外の)純粋にPerlのみに関係する質問を取り扱っていこうと思います。 スレ違いの質問にはスルーか、速やかな誘導をお願いします。 www.perl.org/get.html ● 2006/12/21現在の最新版: 5.8.8 ● 2006/12/21現在の開発版: 5.9.3 前スレ Perlについての質問箱 28箱目 pc8.2ch.net/test/read.cgi/tech/1162273941/ リンク集は>>2-3 過去スレは>>4 403 名前：401 mailto:sage [2007/01/20(土) 15:51:23 ] >>400 あと、Snifferというソフトを使って、専用ブラウザが出しているＩＰパケットと、 自作のスクリプトが出しているＩＰパケットとを比べれば解決するかもしれないよ。 404 名前：デフォルトの名無しさん mailto:sage [2007/01/20(土) 22:02:59 ] use threads; use threads::shared; # 終了の合図 my $kill:shared = 0; # スレッド作成 my $thread = threads->new(\&loop); 処理... $kill = 1; $thread->join; sub loop { 　　while (!$kill) { 　　　　処理... 　　　　sleep(60); 　　} } 少し長くてすみません…。 マルチスレッドでwaitを挟みつつ処理を行い 任意のタイミングで終了させるプログラムを組んでいるのですが、 このコードだと終了用の変数をセットしてから処理が戻るまで60秒もかかってしまいます。 何かいい方法はないでしょうか よろしくお願いします。 405 名前：デフォルトの名無しさん mailto:sage [2007/01/20(土) 22:24:10 ] >>400 UAをMonazilla/1.00にするとか 406 名前：デフォルトの名無しさん mailto:sage [2007/01/20(土) 22:47:00 ] >>404 threads::sharedにcond_ナントカというのがいくつかあるので よく説明読め。たぶんお前が求めているものはそれだ。 407 名前：デフォルトの名無しさん mailto:sage [2007/01/20(土) 22:55:23 ] >>406 ありがとうございます 調べてみます 408 名前：デフォルトの名無しさん mailto:sage [2007/01/20(土) 23:33:03 ] Perl Hacks ttp://www.amazon.co.jp/dp/4873113148/ これ今日発売だけど買った奴居る？ 中身どうですか？ 409 名前：デフォルトの名無しさん mailto:sage [2007/01/20(土) 23:57:59 ] そんな本が出るこそさえ知らなかったわさ 410 名前：デフォルトの名無しさん mailto:sage [2007/01/21(日) 00:14:29 ] >>406 cond_timedwait cond_signal を併用する事でできました 昨日からずっと悩んでいたので助かりました ありがとうございました 411 名前：デフォルトの名無しさん mailto:sage [2007/01/21(日) 00:19:55 ] >408 O'Reillyで目次見れるから、だいたい判断つくんじゃない？ 俺は英語版持ってるから買わないけど。 ttp://www.oreilly.co.jp/books/9784873113142/toc.html 412 名前：デフォルトの名無しさん mailto:sage [2007/01/21(日) 00:54:41 ] 第1章の1項ってテクニック？ 413 名前：デフォルトの名無しさん mailto:sage [2007/01/21(日) 01:23:23 ] 1章2章はツールの話だろ 414 名前：デフォルトの名無しさん mailto:sage [2007/01/21(日) 01:24:15 ] 「firefoxから簡単にCPAN検索できるようにする」だからテクニックといえばテクニックだろ。 俺はsleipnirもfirefoxもCPAN検索できるようにしてある。 あとはローカルにppmリポジトリを立てればすごく便利。 415 名前：デフォルトの名無しさん mailto:sage [2007/01/21(日) 05:57:20 ] >>408 買った買った。ペラペラとめくってからほぼ衝動買い。 お前も買え。 416 名前：デフォルトの名無しさん [2007/01/21(日) 12:10:31 ] すみません @week = ("Sun","Mon","Tue","Wed","Thr","Fri","Sat"); $i = 0; for($i=0; $i <= 7; $i++){ print $week[${i}]; } このソースで-wオプション付けて実行すると Use of uninitialized value in print at ./hairetu.pl line 7. と警告が出るのですが何故でしょうか？ 見たところ変数はきちんと初期化していると思うのです。 417 名前：デフォルトの名無しさん [2007/01/21(日) 12:12:55 ] わかりました 7じゃなくて6ですた… 自己解決染ました 418 名前：デフォルトの名無しさん mailto:sage [2007/01/21(日) 12:41:03 ] >>417 > 7じゃなくて6ですた… 植木算のミスといいます。そして Perl では「必要がなければ添え字を扱わない」ことで、このリスクを回避できます。 foreach my $wday (@week) {     print $wday; } あるいは、 print for @week; 419 名前：デフォルトの名無しさん mailto:sage [2007/01/21(日) 13:30:56 ] すごい省略できるんですね… 420 名前：デフォルトの名無しさん mailto:sage [2007/01/21(日) 16:25:18 ] Perlの省略記法は、芸術ですから。 いろいろ言われるところもあるけど、ラリー・ウォール先生もPGは傲慢であれとおっしゃっていることだし。 うん。大丈夫。半年前に書いたスクリプトがさっぱり分からなくても大丈夫。泣くことなんて無いよ。 421 名前：デフォルトの名無しさん mailto:sage [2007/01/21(日) 16:39:35 ] > foreach my $wday (@week) { > print $wday; > } "my" なんて入れる必要ないだろ 422 名前：デフォルトの名無しさん mailto:sage [2007/01/21(日) 16:45:32 ] PBP6.9に入れた方がいいと書いてあるだろ 423 名前：デフォルトの名無しさん mailto:sage [2007/01/21(日) 18:36:44 ] 自分のフォルダのtextファイル(1000行〜1500行)を ひとつの変数に入れる方法を教えてください open(IN,"< foo.txt"); foreach(IN){ ・・・ } のように一行づつ処理ではなく、全部の行をまとめて処理したいのです。 (正規表現で複数の行に渡って処理したいため) 何かいい方法はないでしょうか？ よろしくお願いします 424 名前：デフォルトの名無しさん mailto:sage [2007/01/21(日) 18:40:53 ] read関数 425 名前：デフォルトの名無しさん mailto:sage [2007/01/21(日) 18:47:46 ] my $txt = join('', (<IN>)[999 .. 1499]); 426 名前：423 mailto:sage [2007/01/21(日) 18:49:16 ] >>424 >>425 ありがとうございます。 無事解決できました 427 名前：デフォルトの名無しさん mailto:sage [2007/01/21(日) 19:00:13 ] いいのかおい 428 名前：デフォルトの名無しさん mailto:sage [2007/01/22(月) 23:22:29 ] 正規表現の量指定子{}に変数は使えますか？ 429 名前：デフォルトの名無しさん mailto:sage [2007/01/22(月) 23:25:53 ] すいません、自己解決しました てか自分で試せばよかった・・・ 430 名前：デフォルトの名無しさん mailto:sage [2007/01/23(火) 17:27:38 ] すみません。 教えてください。 my @aaa = () ; my @bbb = () ; for(my $i=0;$i<5;$i++) { @aaa = ($i,$i+1) ; @bbb = (@bbb,\@aaa) ; } foreach(@bbb){ print "$_\n" ; } foreach(@bbb){ foreach(@$_){ print "$_\n" ; } } 上を実行すると下の結果になります。 ARRAY(0x13c93c) ARRAY(0x13c93c) ARRAY(0x13c93c) ARRAY(0x13c93c) ARRAY(0x13c93c) 4 5 4 5 4 5 4 5 4 5 >>↓に続く 431 名前：430 mailto:sage [2007/01/23(火) 17:28:11 ] >>↑の続き 出力させたい結果は以下なのですがどうも リファレンスの中がARRAY(0x13c93c)で全て同じになってしまっているようです。 （同じ@aaaという配列名をリファレンスしているせい？） ループさせてリファレンスを増やしていきたいのですが どのようにしたら下記のような出力結果に出来ますでしょうか。 0 1 1 2 2 3 3 4 4 5 432 名前：デフォルトの名無しさん mailto:sage [2007/01/23(火) 17:40:06 ] レキシカルスコープ 433 名前：デフォルトの名無しさん mailto:sage [2007/01/23(火) 17:41:40 ] >>430-431 ループのなかでmyするようにする。 my @aaa = ($i,$i+1) ; 若しくは無名配列のコンストラクタを使う。 @bbb = (@bbb,[@aaa]) ; ループの外では@aaaを使っていないのだから、 スコープをループ内に縛る前者をお勧めする。 434 名前：デフォルトの名無しさん mailto:sage [2007/01/23(火) 17:48:50 ] 質問です。 テキストファイルから顔文字を除去しようと考えていますが、いい方法がみつかりません。 正規表現でうまく除去する方法というのはないでしょうか？ 現在考えていますのが、括弧の中に記号あると顔文字であると判断するとしています（例＝(゜Д゜)　(ノ∀｀*)　など。 この正規表現を書く場合全ての記号を書かないといけないでしょうか？ 質問が2つとなりましたが、よろしくお願いします 435 名前：デフォルトの名無しさん mailto:sage [2007/01/23(火) 17:52:37 ] >>434 まず正規表現を勉強しろ。 顔文字のリスト作ってそれと比較するのが単純で速いと思うが。 436 名前：デフォルトの名無しさん mailto:sage [2007/01/23(火) 17:55:52 ] (゜o゜)これはおｋ？ （TへT）これもおｋだね 437 名前：434 mailto:sage [2007/01/23(火) 17:57:28 ] >>435 リスト作ったほうが早いですか。 その場合、リストにない顔文字は一致しませんけど、しょうがないか… 全部の顔文字をうまく除去するなんて、難しいですよね 438 名前：デフォルトの名無しさん mailto:sage [2007/01/23(火) 18:01:19 ] 上手く作ったとしても 　テンプレート・ツールキット(TT) なんて文脈じゃ誤判定は避けられないな 439 名前：デフォルトの名無しさん mailto:sage [2007/01/23(火) 18:04:54 ] >>437 "ヽ(`Д´)ﾉ" とかが、"ヽﾉ"になってもいいのかってこったわな。 結局は、顔文字の辞書ファイルを保守するしかないだろ。 440 名前：434 mailto:sage [2007/01/23(火) 18:18:05 ] "ヽ(`Д´)ﾉ"の場合は前後が記号ならそれも弾くとか考えてたんですよね まぁ、ノのほうが記号じゃないんで、残りますが。 顔文字の辞書作ってるけど。結構ﾒﾝﾄﾞｸｾ 441 名前：430 mailto:sage [2007/01/23(火) 18:21:54 ] >>433 解決しました。 ありがとうございました。 >>432 こういうのをレキシカルスコープって言うんですね。 ありがとうございます。 442 名前：デフォルトの名無しさん mailto:sage [2007/01/24(水) 01:40:36 ] 文字の置換の際に、「マッチした文字列になんらかの処理をする」ということは可能でしょうか？ $str = "ABCDEF"; $str =~ s/(B)/&conv($1)/; のように、マッチした文字列を、関数を使って、返り値で置換したいのですが・・・ （ちなみの、このコードだと、 A&conv(B)CDEF という文字列になってしまいました。。。） 443 名前：デフォルトの名無しさん mailto:sage [2007/01/24(水) 02:25:10 ] e 444 名前：デフォルトの名無しさん mailto:sage [2007/01/24(水) 04:16:24 ] v 445 名前：デフォルトの名無しさん mailto:sage [2007/01/24(水) 06:30:30 ] >>442 Windowsならコマンドプロンプト開いて perldoc perlre でperlの正規表現のドキュメント読めるよ。 ドキュメントにざっと目を通してれば人に質問するような内容じゃないぞ。 446 名前：4442 mailto:sage [2007/01/24(水) 07:16:24 ] >443 >445 ありがとうございます。 /e で、できました。 ドキュメントを確認せずに質問してしまって 済みませんでした。 プログラミングPerlにも、 /e が載ってました・・・ 447 名前：デフォルトの名無しさん mailto:sage [2007/01/24(水) 14:10:56 ] CGI作るつもりでperl始めたんだけど、テンプレにあるようなCGIとは無関係な使い方ってどんな使い方するの？ 例えばどんな仕事でどう使うとか教えてほしい 448 名前：デフォルトの名無しさん mailto:sage [2007/01/24(水) 14:14:36 ] >>447 スクリプトとして使えるじゃん。　バッチ処理とかさ。 449 名前：デフォルトの名無しさん mailto:sage [2007/01/24(水) 14:26:58 ] >>447 CGIと関係なく、データベースとのやりとりとか。 450 名前：デフォルトの名無しさん mailto:sage [2007/01/24(水) 14:27:35 ] >>447 えーと、えーと 451 名前：デフォルトの名無しさん mailto:sage [2007/01/24(水) 14:29:52 ] こんな質問するやつに教えても理解できないと思うよ 452 名前：デフォルトの名無しさん mailto:sage [2007/01/24(水) 14:31:22 ] エロ画像エロ動画収集に決まってるだろ 453 名前：デフォルトの名無しさん mailto:sage [2007/01/24(水) 14:32:40 ] 分類したエロ画像ファイルをリネームする 454 名前：デフォルトの名無しさん mailto:sage [2007/01/24(水) 15:02:24 ] CUIだから単純で且つ面倒くさい処理やらせてる。すぐ書けるしね >>452 漏れ以外にPerlをエロ収集に使おうと考える奴がいるとは・・・ 455 名前：デフォルトの名無しさん mailto:sage [2007/01/24(水) 16:01:07 ] >452-454 あれ、俺が何人もいる… 456 名前：デフォルトの名無しさん mailto:sage [2007/01/24(水) 17:03:32 ] たしかにエロ収集に便利、というよりエロ収集してる時が一番はかどるな。 457 名前：デフォルトの名無しさん mailto:sage [2007/01/24(水) 17:06:36 ] 組みたくなってきた・・・ エロパワーは絶大だな 458 名前：デフォルトの名無しさん mailto:sage [2007/01/24(水) 17:31:07 ] 　▀▄　　　　▀▄　　　　　　▄█　　　　▄█　　▀▀▀▀█ 　　　▀▄　　　　▀▄　　　▄▀█　　　▄▀█　　　　　▄▀ 　　　　▄▀　　　　▄▀　▄▀　█　　▄▀　█　　　　　█ 　　▄▀　　　　▄▀　　　▀▀▀█▀　▀▀▀█▀　　　█ 　▀　　　　　▀　　　　　　　　▀　　　　　▀　　　　▀ 　　　█　▄▄▄　　　█　　　　▀▀▀▀　　　　▄　　　　　　▄█　█ 　　█　　█▄▄　█　█　　▄▄▄▄▄▄▄　　　█　　▄▄▄▄█▄▄ 　▀█　▄█　█　█　█　　　　　　▄▀　　　　█　　　　　　█ 　　█　▀　█▀　█　█　　　　▄▀▀▄　　　　█　　　▄▄▄█ 　　█　　▄▀　　　　█　　▄▀　　　█　　　　█　　█　　　█▀▄ 　　▀　　▀　　　　▀▀　▀　　　　　　▀▀▀　▀　　　▀▀▀ こんなスレアラシに使える。 459 名前：デフォルトの名無しさん mailto:sage [2007/01/24(水) 18:27:19 ] 正規表現が使いやすいからPerlで組んだ でもCUIなのがなぁ 460 名前：デフォルトの名無しさん mailto:sage [2007/01/24(水) 18:34:47 ] Perlでは、ワンライナーか数行程度のスクリプトでテキストをいじったりとか しかしてないが Unicode対応がボミョウなので、たまに困ったことになる use encoding('cp932')とかって、-n/-pスイッチとかと一緒に使うと うまく動かなくね？つか、これって基本的に非推奨なんだべ？ Unicode文字列のリテラルや正規表現を直接記述できないので、 use encoding()しないとなると途端にウザい事態になるわPerlは 461 名前：デフォルトの名無しさん mailto:sage [2007/01/24(水) 18:39:55 ] スクリプトをutf8で書けばuse encodingいらないし特に問題ないけどね。 462 名前：460 mailto:sage [2007/01/24(水) 18:43:07 ] >>461 それはスクリプトも入力もUTF-8を仮定できるときだけだべ？ 少なくともWindows環境でそれは仮定できないなぁ UTF-8なファイル名でファイル開いたりできないし 463 名前：デフォルトの名無しさん mailto:sage [2007/01/24(水) 19:11:42 ] >>115 464 名前：デフォルトの名無しさん mailto:sage [2007/01/24(水) 21:44:41 ] >462 ttp://aspn.activestate.com/ASPN/Mail/Message/2996684 465 名前：460 mailto:sage [2007/01/24(水) 23:34:35 ] >>463 -pスイッチや-nスイッチを使わない場合はそれで上手く行くようです。 そもそも毎度毎度こんなに長いのではワンライナーは書けませんし、 簡単な仕事を簡単にやっつけられないのなら、Perlとしての魅力は 激減ですが。 やっつけ仕事によく使う-pスイッチや-nスイッチと use utf8を共存させる方法はありますか。 #!/usr/bin/perl -pi.bak なスクリプトで>>115の方法を試すと全くおかしなことになります。 >>464 なるほど、便利なモジュールがあるのですね。 466 名前：デフォルトの名無しさん mailto:sage [2007/01/25(木) 00:31:18 ] 間違いなく合ってない。 煽りとかではなく。 別の言語にしたほうが幸せになれるとおもうよ。 467 名前：デフォルトの名無しさん mailto:sage [2007/01/25(木) 01:21:17 ] Perl/Tk で GUI でエロ画像を集めてるよ。 468 名前：デフォルトの名無しさん mailto:sage [2007/01/25(木) 02:46:48 ] エロのエネルギーはおよそ12kW/hです。 469 名前：デフォルトの名無しさん mailto:sage [2007/01/25(木) 09:55:07 ] 質問 use strict; warn $c; だとstrictが効くのに use strict; warn $a; だとstrictが効かないのはなぜ？ $bも効かない 470 名前：デフォルトの名無しさん mailto:sage [2007/01/25(木) 10:04:09 ] sort() で使われるから例外扱い perlvar嫁 471 名前：デフォルトの名無しさん mailto:sage [2007/01/25(木) 10:16:32 ] 質問します。 for(my $i=0;$i<=$#aaa;$i++){ $out = $aaa[$i] ; if( $aaa[$i+1] ){ while($aaa[$i+1] =~ /^\+/){ $i++ ; $out = "$out $aaa[$i]" ; } } print "$out\n" ; } これのforをforeachで書いたらどんな記述でかけますでしょうか。 やりたいことは、ある要素のアタマに"+"があれば その要素は一つ前の要素とつなげようとしています。 foreachで回している最中に強制的に次の要素にアクセスすることは出来るのでしょうか。 472 名前：デフォルトの名無しさん mailto:sage [2007/01/25(木) 10:18:14 ] from>>469 to>>470 perldoc perlvar $a $b Special package variables when using sort(), see "sort" in perlfunc. Because of this specialness $a and $b don’t need to be declared (using use vars, or our()) even when using the "strict ’vars’" pragma. Don’t lexicalize them with "my $a" or "my $b" if you want to be able to use them in the sort() comparison block or function. thx! 473 名前：デフォルトの名無しさん mailto:sage [2007/01/25(木) 10:27:06 ] >>foreachで回している最中に強制的に次の要素にアクセスすることは出来るのでしょうか。 foreachでは今アクセスしている要素が何番目かを知ることはできない。 もちろん、中で別に変数を$i++とかすりゃ別。 俺ならこんな感じに書く。 foreach (@aaa) { if (/^\+/) { $out[-1] .= " $_"; } else { push @out, $_; } } 474 名前：デフォルトの名無しさん mailto:sage [2007/01/25(木) 10:34:48 ] すまん、なぜかソラ目でprintがpushに見えていた。 printだとこうかな。printが2つあるのがいまいち気に入らないが... my $buf = undef; foreach (@aaa) { if (/^\+/) { $buf .= " $_"; } else { print $buf, "\n" if defined $buf; $buf = $_; } } print $buf, "\n" if defined $buf; 475 名前：デフォルトの名無しさん mailto:sage [2007/01/25(木) 10:38:17 ] >>473 の後 print map { "$_\n" } @out; でもすりゃいいんだから別にいいんじゃ 476 名前：デフォルトの名無しさん mailto:sage [2007/01/25(木) 15:20:56 ] print "$_\n" for @out; このほうが短い。 477 名前：デフォルトの名無しさん mailto:sage [2007/01/25(木) 15:30:03 ] print join "\n", @out; の方がわかり安い 478 名前：デフォルトの名無しさん mailto:sage [2007/01/25(木) 15:49:57 ] どれが速いんですかね＾＾ 479 名前：デフォルトの名無しさん mailto:sage [2007/01/25(木) 16:05:03 ] >>477 ダウト。それだと最後の要素の後に改行が出ない。 480 名前：471 mailto:sage [2007/01/25(木) 16:31:27 ] >>473 できました！！ すっきりしてわかりやすくなりました。 ありがとうございます。 481 名前：デフォルトの名無しさん mailto:sage [2007/01/25(木) 16:40:25 ] >>479 そういう細かい部分ってすっごい大事だよね 後で泣き見たりする しかし「ダウト」って使う人はあんまり見たことが無い 482 名前：デフォルトの名無しさん [2007/01/25(木) 18:24:14 ] クイズのゲームを作っているのですが、問題を回答したら次ってどんどん進んでいき 正解したら各問ごとに正解数をカウントしていってりうのですちゃんとカウントされません。 perlはテキストでも作ってそれに書き込んでそのあと読み込んでしないと記憶した 変数が消えるのですか・・・？ 変な質問ですみません。HSPからperlに乗り換えてみたんですが混乱してしまって 483 名前：デフォルトの名無しさん mailto:sage [2007/01/25(木) 18:28:08 ] >>482 日本語でおｋ HSPで作ったほうがいいんじゃね？ 484 名前：デフォルトの名無しさん mailto:sage [2007/01/25(木) 18:30:01 ] >>483 perlの勉強をしてみたいと思いましたので・・・ myで定義をしてるんですけど、なんかいろいろと定義の仕方があるみたいですねperlは 485 名前：デフォルトの名無しさん mailto:sage [2007/01/25(木) 18:32:17 ] さっさとソースを見せろ 486 名前：デフォルトの名無しさん mailto:sage [2007/01/25(木) 18:45:37 ] if($tugi eq "Q1"){ if($toi eq "t"){ $sum=$seikai+1; } &mon0; } if($tugi eq "Q2"){ if($toi eq "t"){ $sum=$seikai+1; } &mon1; } if($tugi eq "Q3"){ if($toi eq "t"){ $sum=$seikai+1; } &goukei; } sub goukei{ print "正解は"+$sum+"個"; } 487 名前：デフォルトの名無しさん mailto:sage [2007/01/25(木) 18:45:40 ] 次の問題へ進むたびに正解数を my してるんだろうな 488 名前：デフォルトの名無しさん mailto:sage [2007/01/25(木) 18:47:08 ] sub mon0{ print "<P>"; print "<SELECT name='answer' size='3'>"; print "<OPTION value='true'>みかん</OPTION>"; print "<OPTION value='false'>アップル</OPTION>"; print "<OPTION value='false'>ばなな</OPTION>"; print "</SELECT>"; print "</P>"; print "<INPUT type=hidden name=tugi value=Q2>"; print "<P><INPUT type='submit' value='次の問いへ'></P>"; } sub mon0{ print "<P>"; print "<SELECT name='answer' size='3'>"; print "<OPTION value='false'>インコ</OPTION>"; print "<OPTION value='true'>ふくろう</OPTION>"; print "<OPTION value='false'>鳩</OPTION>"; print "</SELECT>"; print "</P>"; print "<INPUT type=hidden name=tugi value=Q3>"; print "<P><INPUT type='submit' value='次の問いへ'></P>"; } こんな感じです 489 名前：デフォルトの名無しさん mailto:sage [2007/01/25(木) 18:48:04 ] webprogでやれ 490 名前：487 mailto:sage [2007/01/25(木) 18:49:27 ] はずした。 > $sum=$seikai+1; 491 名前：デフォルトの名無しさん mailto:sage [2007/01/25(木) 18:49:59 ] $sum=$sum+1 じゃないの？ 492 名前：デフォルトの名無しさん mailto:sage [2007/01/25(木) 18:53:22 ] >>491 そこは修正しました。 上のほうで my $sum; と定義してるのが問題なんでしょうか？ 493 名前：デフォルトの名無しさん mailto:sage [2007/01/25(木) 18:57:38 ] 上のほうで、とか言われてもわからないから全部見せろ 494 名前：デフォルトの名無しさん mailto:sage [2007/01/25(木) 18:58:39 ] そもそもCUIなのかCGIなのか 495 名前：デフォルトの名無しさん mailto:sage [2007/01/25(木) 18:59:02 ] ↓こっちのがいいんでね？ pc10.2ch.net/test/read.cgi/php/1164519503/ 496 名前：デフォルトの名無しさん mailto:sage [2007/01/25(木) 19:08:30 ] ttp://www.vipper.net/vip166431.zip.html ここに書き込むと長いのでアップしてきました 497 名前：デフォルトの名無しさん mailto:sage [2007/01/25(木) 19:19:26 ] htmlなんだろｗ 498 名前：デフォルトの名無しさん mailto:sage [2007/01/25(木) 19:22:30 ] 板違いっぽいですね（−− 499 名前：デフォルトの名無しさん mailto:sage [2007/01/26(金) 05:44:42 ] >>477 は最後の改行もそうだが、メモリ内で一旦展開するから、 効率よくないんでない？ 500 名前：デフォルトの名無しさん mailto:sage [2007/01/26(金) 07:40:35 ] さらに、文字列を連結するためにメモリの再割り当てが何度も起きる悪寒 501 名前：デフォルトの名無しさん mailto:sage [2007/01/26(金) 11:44:01 ] UTF8 で並んでいる名前の一覧があるのですが、それをあいうえお別に分類したいのですが どういう方法が良いでしょうか。 青木 -> @AGyou へ 斉藤 -> @SaGyou へ という感じにしたいとおもいます。 502 名前：デフォルトの名無しさん mailto:sage [2007/01/26(金) 12:04:33 ] 読み仮名付けなきゃ無理だね 503 名前：デフォルトの名無しさん mailto:sage [2007/01/26(金) 12:07:36 ] >>502 お返事ありがとうございます。やっぱり難しいですね orz 別の手段を考えて見ます。

---

---

[ 続きを読む ] / [ 携帯版 ]

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