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

1 名前：nobodyさん mailto:sage [2008/08/06(水) 22:54:32 ID:???] Perlのコーディングで困ってる人のスレです。 【投稿する際の注意】 質問するときは内容をよく吟味してから投稿してください。 「コマンドの意味がわかんない」とかはマニュアル見ましょう。 回答者さんは何でも屋じゃありません。 1： 自分はこういう事がしたい。 2： それでこんな風にやってみたが･･･ 3： こんなエラーが出て上手く行かなかった。 最低でも1と3が無いと誰も答えられないよ。 良い回答は良い質問から。一緒に勉強しましょう。 お勧めサイトは >2 以降 前スレ　pc11.2ch.net/test/read.cgi/php/1203935151/ 過去ログ倉庫　ttp://user.ftth100.com/mirrorhenkan/perl/ 49 名前：nobodyさん mailto:sage [2008/08/14(木) 15:40:50 ID:???] ありがとうございました。 最終的にこうしました。 $str = 'XXX,YYY'; $aa = $ARGV[0]; # (.+),(.+) $bb = $ARGV[1]; # $2-$1 $bb = "\"".$bb."\"" if($bb =~ /[\$]\d/); $str =~ s/$aa/$bb/ee; # YYY-XXX になるようにしたい 50 名前：nobodyさん [2008/08/16(土) 16:45:37 ID:oiXxzTPY] .qmailからパイプにて呼び出すプログラムで MIME::Parserを使用してメールを処理したいのですが my $parser = MIME::Parser->new(); $parser->parse(\*STDIN); のparseを呼び出した時点で処理がとまってしまいました。 無限ループではまったかのようにとまっています。 falseも返ってきません。 ネットを調べても、上記の状態でとまったという事例を 発見することができませんでした。 原因として考えられることはどのようなことでしょうか？ 51 名前：nobodyさん mailto:sage [2008/08/16(土) 16:54:48 ID:???] STDIN の内容を一旦読み込んで、読み込んだ変数に対してやってみて 52 名前：nobodyさん [2008/08/16(土) 17:02:50 ID:oiXxzTPY] my $buf; while(<STDIN>){ $buf .= $_; } my $entity = $parser->parse($buf); ありがとうございます。 この形でよろしいでしょうか？ 上の形にしても現状の解決はできませんでした。 新しくわかったこととして、メールに画像を添付した際に とまってしまっていることがわかりました。 ファイル添付をしていないメールならば $parser->parse()を抜けてきているようです。 53 名前：nobodyさん mailto:sage [2008/08/16(土) 17:46:56 ID:???] まさか・・・Win/LinuxでのSTDIOの扱いはわかってるよね？ 54 名前：nobodyさん [2008/08/16(土) 18:02:12 ID:oiXxzTPY] > まさか・・・Win/LinuxでのSTDIOの扱いはわかってるよね？ 正直今ひとつわかっていないと思います。 どこか、大前提のようなものが抜けているのでしょうか？ 55 名前：nobodyさん mailto:sage [2008/08/16(土) 23:56:28 ID:???] 何かの理由で eof が来ていなくてずっと待機しとるのではないかな。 qmail 使ったことないんでわからんけど。 56 名前：nobodyさん mailto:sage [2008/08/17(日) 01:13:43 ID:???] 問題を切り分けろよ。 57 名前：nobodyさん mailto:sage [2008/08/17(日) 03:07:34 ID:???] qmail のログとか、qmail のインストールで null に出してる内容を出させるとか .qmail 使わずに添付ファイルの受信は出来てるのかとか、色々問題を切り分けてみてよ あと止まる直前か直後の文字コードを、正常に受信出来たときのコードで憶測してみるとか まだまだやることはあるんじゃないの？ 58 名前：nobodyさん mailto:sage [2008/08/17(日) 04:50:10 ID:???] 変数ではなくて、ファイルにキャプチャして、 そのファイルが展開できるかどうかをチェックしてみればいいんじゃないのか。 あと、エラートラップは、きっちり書いて。 59 名前：nobodyさん mailto:sage [2008/08/18(月) 10:53:12 ID:???] 読み込んでる時に止まってるんだからファイルに落とせないのでは？ 質問者が特定場所以降のドロップっ意味で止まってるって書いてるならやる意義は十分ありますが… 60 名前：nobodyさん mailto:sage [2008/08/18(月) 11:46:03 ID:???] ファイルに取れないのなら、Perlの問題じゃないってこった。 61 名前：nobodyさん mailto:sage [2008/08/18(月) 12:32:24 ID:???] おまえら親切だな 62 名前：nobodyさん mailto:sage [2008/08/18(月) 14:52:08 ID:???] >>59 おまえの想像はどうだっていい 63 名前：nobodyさん mailto:sage [2008/08/19(火) 18:06:14 ID:???] 練習がてらVBのコードをPerlで書き直していますがうまく通りません。 項目を数字で指定しない方向で同等の処理は出来ないでしょうか。 お願いします。 ' VB+oo4o OraDynaset = OraDataBase.DbCreateDynaset(SQL_STR, 0&) aaa = OraDynaset.Fields("AAA").Value # Perl+oo4o my OraDynaset = OraDataBase.DbCreateDynaset(SQL_STR, 0) $aaa = $OraDynaset->Fields('AAA')->{Value}; 結果：Can't call method "Fields" on an undefined value at ***. $aaa = $OraDynaset->{Fields('AAA')}->{Value}; 結果：Undefined subroutine &main::Fields called at **** 64 名前：nobodyさん mailto:sage [2008/08/19(火) 18:26:43 ID:???] そもそもVBでもうまく通ってないじゃないかｗｗｗｗｗｗｗｗｗｗｗｗ 65 名前：nobodyさん mailto:sage [2008/08/19(火) 23:26:21 ID:???] >>63 自覚はないのかも知れないけれど、なんだかすごく混乱しているみたい。 VB, Oracle, oo4o, OLE, Perl のそれぞれに分けて把握を整理したほうがよさげ。 66 名前：nobodyさん mailto:sage [2008/08/20(水) 10:57:24 ID:???] oo4oのマニュアルではFieldsはプロパティと成っています。 エラーメッセージから分かるのは、Fieldsをメソッド／サブルーチンとして呼び出そうとしている。 それを踏まえてPerlの文法をもう少し勉強してみます。 67 名前：nobodyさん mailto:sage [2008/08/20(水) 23:15:22 ID:???] >>63 perlの文法は行の最後にセミコロン；が必要だよ 68 名前：nobodyさん mailto:sage [2008/08/20(水) 23:50:12 ID:???] すんません、教えてください 文字列で、"20080820"となっている 前日（昨日）を求めるコーディングを 教えてください。 69 名前：nobodyさん mailto:sage [2008/08/20(水) 23:54:12 ID:???] 20080820 - 1 70 名前：nobodyさん mailto:sage [2008/08/20(水) 23:58:55 ID:???] >>69 それだったら、 20080801 の場合はどうするのかな。 71 名前：nobodyさん mailto:sage [2008/08/21(木) 00:34:14 ID:???] Date::* なモジュールを使え。 72 名前：nobodyさん mailto:sage [2008/08/21(木) 01:40:28 ID:???] 20080800になってしまうので困ります 73 名前：nobodyさん mailto:sage [2008/08/21(木) 01:50:41 ID:???] perl -MDateTime::Format::HTTP -e 'print DateTime::Format::HTTP->parse_datetime('20080821')->subtract(days => 1)->ymd("")' 74 名前：nobodyさん mailto:sage [2008/08/21(木) 02:22:39 ID:???] use Date::Calc qw(Add_Delta_Days); とか use Date::Manip qw(UnixDate DateCalc Date_Init); とか。 75 名前：nobodyさん mailto:sage [2008/08/21(木) 02:56:24 ID:???] timelocalでepochタイムに戻して-24*60*60してlocaltimeに食わせる 日付の話がでたついでに質問なのですが、Nヶ月後とかNヶ月前ってどうやって計算してる？ (というよりどう定義してるかの問題？) Q1. 1月31日の一ヶ月後 Q2. 2月28日の一ヵ月後 Q3. 3月31日の一ヶ月前 Q4. 3月31日の一ヵ月後 76 名前：nobodyさん mailto:sage [2008/08/21(木) 03:46:07 ID:???] >>75 ttp://www5d.biglobe.ne.jp/~Jusl/TomoLaw/KikanKeisan.html 77 名前：63 mailto:sage [2008/08/21(木) 08:04:49 ID:???] >>67 ";"は当たり障りある部分を消すときに一緒に消えたのでしょう。 一応、文字コードが変な様ですが、通ることは通るようになりました。 項目指定にリテラル数字／リテラル文字列を指定すると変なままですけど。 my $OraSession = Win32::OLE->new ("OracleInProcServer.XOraSession"); my $OraDatabase = $OraSession->DBOpenDatabase("orcl", "scott/tiger", 0); my $oDyna = $OraDatabase->CreateDynaset("SELECT * FROM ****", 0); my %FN; my $i; for ($i = 0; $i < $oDyna->Fields->Count ; $i++){ $FN{$i} = $oDyna->FieldName($i); } while(!($oDyna->{EOF})) { for ($i = 0; $i < $oDyna->Fields->Count ; $i++){ print $oDyna->Fields($FN{$i})->Value, "\n"; } print "\n"; $oDyna->MoveNext; } 78 名前：nobodyさん [2008/08/21(木) 09:39:20 ID:VetJG0Vx] $OraDatabase->CreateDynasetが転けていただけでした。 print $OraDynaset->Fields('ABCD')->Value."\n"; は普通に通ります。 79 名前：nobodyさん mailto:sage [2008/08/23(土) 09:30:39 ID:???] こっそりとsageて質問します。 ギャル文字の正規化モジュールとか知りませんか。ギャル文字への変換じゃなく、ギャル文字からの変換。 手作業で対応表を組もうとかも考えましたが、無謀すぎた……orz 80 名前：nobodyさん mailto:sage [2008/08/23(土) 10:04:39 ID:???] 文字コードの変換について質問です。 今様々なWEBページからHTMLを取得して、それをShiftJISに変換しているのですが、 JcodeでもEncodeでも一部のページで文字化けが起こって困っています。 文字化けを極力起こしたくない場合、どのような変換方法がいいのでしょうか？ 81 名前：nobodyさん mailto:sage [2008/08/23(土) 10:17:15 ID:???] 文字化け起こしたページの原因を把握すればいいかと 元ページ自体が文字化けしてるかどうか目視することも一考 82 名前：nobodyさん mailto:sage [2008/08/24(日) 04:03:35 ID:???] >>80 decoded_contentが一番楽っぽい。 gzip/deflateにも対応してるみたいだし。 $r->is_success or die $r->status_line; my $content = $r->decoded_content(); defined $content or ...; utf8で出てくるから、あとは適当に変換で。 83 名前：80 mailto:sage [2008/08/25(月) 20:08:13 ID:???] >>81 文字化けするページは一部文字化けしている場合が多いですね。 もともとそのページに問題があるのかも知れません。 >>82 そんな方法あったんですね、初めて知りました…。 近いうちに試してみようと思います。 返信ありがとうございました。 84 名前：nobodyさん [2008/08/27(水) 11:11:12 ID:???] Web上で動作するToDoリスト（img04.shop-pro.jp/PA01011/131/product/2544732.jpg）を作りたいのですが、 自分で内容を追加していくといった物ではなくて、既存のHTMLにチェックボックスがあり、 そこにチェックを入れ、「保存する」ボタンを押したら、ログファイルにチェックされているか否かを保存し、 更新後にチェックされている状態が保存されている物を作りたいのですが、このような処理はどのようにしてやれば良いのでしょうか？ 最終的には自分でToDoの内容も掲示板みたく追加出来るようにしたいです。 85 名前：nobodyさん mailto:sage [2008/08/27(水) 12:03:04 ID:???] Queryデータ受け取って条件分岐してデータ読み書きしてHTML表示すればいいんじゃないかな 86 名前：nobodyさん mailto:sage [2008/08/27(水) 15:59:09 ID:???] 既存のHTMLってのがどの程度のものかわからないが、cgiにそれを出力させる必要がある。 外部のものなら、パーサーで解析してチェックボックスを割り込ませて出力、とかいうことになるんじゃないか。 この作業が一番めんどくさい。 87 名前：nobodyさん mailto:sage [2008/08/27(水) 19:52:46 ID:???] 古い本読んでたら、cgi-lib.plとかいうのが 紹介されていたんだけど、これって現役？ 88 名前：nobodyさん mailto:sage [2008/08/27(水) 20:00:37 ID:???] 既に退役。 89 名前：nobodyさん mailto:sage [2008/08/27(水) 20:35:39 ID:???] まじで。じゃあどうすればいいのかな？ 90 名前：nobodyさん mailto:sage [2008/08/27(水) 20:45:09 ID:???] 別に使ってもいいんじゃね 91 名前：nobodyさん mailto:sage [2008/08/27(水) 21:02:23 ID:???] CGI.pmが最新ですか？ 92 名前：nobodyさん mailto:sage [2008/08/27(水) 21:25:25 ID:???] CGI.pmが標準。いささか古いが。 お好みでCGI::MinimalでもCGI::Simpleでも。 93 名前：nobodyさん mailto:sage [2008/08/27(水) 21:49:46 ID:???] 引数の取得は自前でするのが一番軽いから自前でというのは外道ですか？ 車輪の再発明？ 94 名前：nobodyさん mailto:sage [2008/08/27(水) 22:34:42 ID:???] やれるんなら自前だってなんだっていいさ。 トレーニングのための再発明にゃあ手頃な車輪だろ。 よそに迷惑かけないようにさえすりゃ誰も止めねえよ。 95 名前：nobodyさん mailto:sage [2008/08/28(木) 10:53:23 ID:???] クエリの分割は、RFCの決まりとブラウザの仕様で面倒なことになっているので、 CGIやCGI::Liteやフレームワークに丸投げした方がいい、と昔Perlスレで言われた 96 名前：nobodyさん mailto:sage [2008/08/28(木) 16:12:26 ID:???] CGI.pmと CGI::Minimalと CGI::Simpleとで、 どれを使えばいいの？ 97 名前：nobodyさん mailto:sage [2008/08/28(木) 16:28:55 ID:???] とりあえずCGI.pm 98 名前：nobodyさん mailto:sage [2008/08/28(木) 20:19:56 ID:???] 勉強を目的に作る分には何も言わないが、 実際のサービスの為に作りこむのはアンチパターンの"高慢"。 99 名前：nobodyさん [2008/08/28(木) 22:31:17 ID:oELFSwba] スレチだったのでもう一度こちらで質問させていただきます PHPで言うところのupload_max_filesizeやpost_max_sizeは、 Perlではどこら辺を設定すればいいんですか？ 100 名前：nobodyさん mailto:sage [2008/08/28(木) 22:57:12 ID:???] >>99 use CGI; $CGI::POST_MAX = $limit_by_byte; 101 名前：nobodyさん mailto:sage [2008/08/28(木) 23:59:40 ID:???] htmlやhttp勉強していたころからずっと今までCGI.pm使ってないな。。。LWPは使い出したが。 CGI.pmが簡単、は例からわかるんだが、 汚れた変なデータ渡されても誤動作しないのかとか デフォルト設定をちゃんと覚えないととかちょっとだけ不安。 102 名前：nobodyさん mailto:sage [2008/08/29(金) 08:08:31 ID:???] 古いPerlだとメモリーは無限で限界は考えなくて良いってコードが多いからその辺も気を付けるとか 何時の話だ 103 名前：nobodyさん mailto:sage [2008/08/29(金) 10:08:36 ID:???] そういう面倒なのをやってくれちゃってるのがそいつなんじゃないの？ 104 名前：nobodyさん mailto:sage [2008/08/29(金) 15:26:13 ID:???] XSS対策で、引数の記号を適度に変換してくれるモジュールを自己開発しました。 マルチパートのパースがむつかしい、、、というかめんどくさい。。 while(<STDIN>) ってしたら、大きい添付ファイルきたらいちどメモリに確保する分つらいしな。。 readでちょっとずつ読むしかないのか、、 105 名前：nobodyさん mailto:sage [2008/08/29(金) 15:27:54 ID:???] ん？　質問内容がわからん 106 名前：nobodyさん mailto:sage [2008/08/29(金) 15:45:42 ID:???] 質問じゃなくてチラシの裏に書こうとした文だろう。 107 名前：nobodyさん mailto:sage [2008/08/30(土) 09:40:00 ID:???] ソースのコメントにでも書いておけ 108 名前：nobodyさん mailto:sage [2008/08/31(日) 18:20:50 ID:???] >>101 (== >>99 ?) Perl は汎用言語として開発されています。 そのためその言語仕様は CGI (をはじめとする Web プログラミング) など他の周辺仕様と直行しており、その点で PHP とは事情が異なります。 Web アプリケーション開発のために生まれたのが PHP で、 Web アプリケーション開発にも流用されているのが Perl であると言うこともできます。 Perl は CGI で利用できる言語として広く普及しました。 その過程で生まれたノウハウを抽出したものが CGI::* などのモジュール群です。 幸い CGI.pm は pure Perl ですから、この機会に目を通してみてはいかがでしょう。 その上で、あなたが必要とする品質に達していないと判断したなら、それは新しい車輪を作るに充分な理由だと思います。 イイモノができたら CPAN で公開してください。使わせてもらいます。 109 名前：nobodyさん [2008/09/02(火) 08:28:05 ID:guk/QrQq] Flashゲームを作成しています 今スコアについて作成しているのですが どうにも反映されません、何が違うのでしょうか Flashのスコア登録コードは stop (); CGIFile = "test.cgi?" + Math.floor(Math.random() * 1000); mySaveVars = new LoadVars(); mySaveVars.score = score; mySaveVars.playername = playername; myLoadVars = new LoadVars(); myLoadVars.onLoad = function (success) { var _loc1; for (var _loc1 = 0; _loc1 < RANK_MAX; ++_loc1) { ranker[_loc1].playername = myLoadVars["name" + _loc1]; ranker[_loc1].score = myLoadVars["score" + _loc1]; } // end of for gotoAndStop("display"); }; mySaveVars.sendAndLoad(CGIFile, myLoadVars, "POST"); 110 名前：nobodyさん [2008/09/02(火) 08:30:11 ID:guk/QrQq] そしてtest.cgiには use CGI 'Vars'; my %in = CGI::Vars; open LOG, '+<score.dat'; my %rank = map { chomp; split /\t/, $_, 2; } <LOG>; $rank{$in{score}} = $in{name} if $rank{$in{score}} < $in{name}; my @rank = sort { $rank{$b} <=> $rank{$a} } keys %rank; truncate LOG, 0; seek LOG, 0, 0; print LOG map { "$_\t$rank{$_}\n" } @rank[0..9]; print "Content-type: text/plain\n\n"; print map { "score$_=$rank[$_]&name$_=$rank{$rank[$_]}&" } 0..9; test.cgiにはtop10の空欄表示はされますが 登録する画面にはいかずそのまま終わってしまいます score.datも空欄ですが、動いているようです 111 名前：nobodyさん [2008/09/02(火) 15:54:14 ID:XutqN0xS] 汎用のエラーサブルーチンで、 ログに場所や原因を特定できる情報を吐くために、 callerで大元の呼び出し元からのツリーを吐く方法を探してます。 力技でやれば、階層確認用の変数を作って mainから関数を呼ぶたびに1ずつインクリメントしていってエラー関数でforで 階層確認用の変数の分だけ回せば出来るとは思うんですが、 sub err { 　my ($sadd) = @_; 　my $s; 　for ($i=MAXVALUE; $i <= 0; $i--) { 　　$s .= caller($i).' / '; 　} 　print STDERR $sadd."\n".$s; } 手動でインクリメントすることなく、上記のMAXVALUEを取得する方法はありませんでしょうか。 112 名前：nobodyさん [2008/09/02(火) 17:08:26 ID:62/De0KZ] 以下の場合だと、$hogeにはIPアドレスが入ってます。 $hoge=gethostbyaddr(pack('C4',split/\./,$ENV{'REMOTE_ADDR'}),2)||$ENV{'REMOTE_ADDR'}; 以下の場合だと、$hogeは空になります。 $hoge=gethostbyaddr(pack('C4',split/\./,$ENV{'REMOTE_ADDR'}),2)or$ENV{'REMOTE_ADDR'}; 後者が空になってしまうのは何故ですか？ 113 名前：nobodyさん mailto:sage [2008/09/02(火) 17:20:16 ID:???] 後者は以下と同じこと ($hoge=gethostbyaddr(pack('C4',split/\./,$ENV{'REMOTE_ADDR'}),2)) or$ENV{'REMOTE_ADDR'}; 114 名前：nobodyさん mailto:sage [2008/09/02(火) 17:30:48 ID:???] >>111 confessじゃだめか 115 名前：nobodyさん [2008/09/02(火) 17:37:04 ID:62/De0KZ] >>113 そういうものなんですね。ありがとうございました。 116 名前：nobodyさん mailto:sage [2008/09/02(火) 17:44:36 ID:???] >>114 confessも読んでいくと my $pkg = caller(++$i); unless(defined($pkg)) { みたいなことをしてループでネストの深さ調べてるから インクリメントしていると言える。 見かけ上自分でインクリメントしなけりゃいいならこれで いいんだろうけどな。 117 名前：nobodyさん [2008/09/02(火) 17:52:27 ID:IiWNBMxF] バイオインフォマティックスについて詳しい方いらっしゃいますか？ 118 名前：nobodyさん mailto:sage [2008/09/02(火) 17:55:37 ID:???] >>114,116 ありがとうございます > my $pkg = caller(++$i); > unless(defined($pkg)) { こんなこと出来るんですね… すみません調べが足りず、callerに対して無効な範囲の引数を渡したら 落ちちゃうもんだとおもってました。 目的としては、余計な引数のリレーとかグローバル変数とか使わずに エラーサブだけでツリー生成することでしたので、下記のような感じでテストしてみます。 うまく行ったら〆報告します。 sub err { 　my ($sadd) = @_; 　my @return; 　my $i = 0; 　while(1) { 　　my $s = caller($i); 　　if (defined $s) { 　　　@return .= $s; 　　} else { 　　　last; 　　} 　　$i++; 　} 　print STDERR $sadd."\n".(join ' / ', reverse @return); } 119 名前：nobodyさん [2008/09/02(火) 17:58:31 ID:IiWNBMxF] perlを使って突然変異前後における終止コドンのカウントをしたいんですが、初心者なのでまったく分かりません・・・（涙） 120 名前：nobodyさん mailto:sage [2008/09/02(火) 18:34:27 ID:???] >>114,116 抜粋ですが、下記でツリーというかパンくずリストというかそれっぽいものが出力できました。 ただ、ファイル名はrequireした元ではなく全て実行ファイル名になるようで、 あんまり意味無かったかも… ＞my $i = 0; ＞while (($package, ＞　　$filename, ＞　　$line, ＞　　$subroutine, ＞　　$hasargs, ＞　　$wantarray, ＞　　$evaltext, ＞　　$is_require, ＞　　$hints, ＞　　$bitmask) = caller($i++)) { ＞　push @aTree, "$filename\($line\) $subroutine"; ＞} ＞my $sRev = join ' => ', (reverse @aTree); ＞print STDERR $sRev 以上、ありがとうございましたー >>118は無限ループっぽいのでご注意下さい 121 名前：nobodyさん mailto:sage [2008/09/02(火) 18:54:50 ID:???] ……(呆れている) 122 名前：nobodyさん mailto:sage [2008/09/02(火) 19:06:01 ID:???] >>121 なんで…？ と思ってよくよく考えたら、confessそのまま使えばよかったのか…orz すみませんなにか焦りのままにわけのわからない事をしてしまったようで…orz 123 名前：nobodyさん mailto:sage [2008/09/02(火) 23:30:34 ID:???] >>119 perlじゃなきゃダメなの？ 124 名前：nobodyさん mailto:sage [2008/09/02(火) 23:53:47 ID:???] >>123 > perlじゃなきゃダメなの？ bioinformaticといえばperlってくらい。 125 名前：nobodyさん mailto:sage [2008/09/03(水) 02:01:14 ID:???] >>119 何の初心者かと言えばまず間違いなく Perl の初心者さんで、 バイオなんとかについては専門 (恐らく受講中) ということであれば、 # (この程度の情報はよこしてもよかろう、ケチんぼめ) 「バイオインフォマティクスのためのPerl入門」(ISBN4-87311-103-X) を買え。 126 名前：125 mailto:sage [2008/09/03(水) 02:16:22 ID:???] 追伸: これを機会にPerlをイチから少々嗜んでおこうと考えたなら (または「バイオ(以下略)」のPerlに歯が立たなかったら)、 次の書籍から入るのが王道よん。 「初めてのPerl 第3版」(ISBN4-87311-126-9) いずれにせよこの手の応用なら計算のためのモデル化が必須で、 モデル化するためには当該分野の知識が必要、と。 数式にまで落し込んで示せば誰かコード例を書いてくれるかもね。 しかしそこまでできれば自分で書けちゃうよなあ。w 127 名前：nobodyさん mailto:sage [2008/09/03(水) 02:46:19 ID:???] 電算機言語を*嗜む*人向けのありがたいお話は 習い事板にでも書いて。 128 名前：nobodyさん mailto:sage [2008/09/03(水) 02:49:05 ID:???] Perlの入門書でいちばんいいのは 結城さんのだよ。 ほかのはむずかしすぎて（説明が下手すぎて）わかんないとおもう。 129 名前：nobodyさん mailto:sage [2008/09/03(水) 02:57:19 ID:???] 配布cgiを改造して覚えた。 ここをこう直せばこう行ける、みたいな経験則で。 130 名前：nobodyさん mailto:sage [2008/09/03(水) 05:15:42 ID:???] 経験則だけで行くと、習得に時間が掛かる上に変な癖がつく。 ラクダ本やPerldocなど読んで、基本をしっかりマスターすることが大切。 文法エラーが出なければ、なんでも良い訳じゃない事を知って欲しい。 特にファイルオープンのエラー処理を省く奴。 131 名前：nobodyさん mailto:sage [2008/09/03(水) 09:02:15 ID:???] >>128 お前の頭が悪すぎるだけ 132 名前：nobodyさん mailto:sage [2008/09/03(水) 09:20:14 ID:???] と変な癖が付いた人が言う 133 名前：nobodyさん mailto:sage [2008/09/03(水) 09:29:36 ID:???] Perl関係はドキュメント類が完備されているから、それでも質問に来るのは 頭の悪すぎる奴というのであってる。 134 名前：nobodyさん mailto:sage [2008/09/03(水) 11:33:27 ID:???] とドキュメントを残さない、不完全なドキュメントを残す人が言う そして素人に最初から完璧な探し方を要求する 135 名前：nobodyさん mailto:sage [2008/09/03(水) 11:37:02 ID:???] ドキュメント読むひまがあったら人に聞くだろ、常考 136 名前：nobodyさん mailto:sage [2008/09/03(水) 11:59:41 ID:???] 以前、人のプログラムを見ては「変な癖がついてる」「変な癖がついてる」と 連発する新人が来て、一週間で営業に飛ばしたのを思い出した。 137 名前：nobodyさん mailto:sage [2008/09/03(水) 13:16:42 ID:???] なあ、もしかして英語読めないやつっているんじゃね？ ありえないかな？ 138 名前：nobodyさん mailto:sage [2008/09/03(水) 13:22:49 ID:???] 俺読めない。 139 名前：nobodyさん mailto:sage [2008/09/03(水) 13:40:17 ID:???] sub hoge ($$\@) {} の($$\@)って何っていう名前だっけ？ 140 名前：nobodyさん mailto:sage [2008/09/03(水) 13:48:18 ID:???] >>139 プロトタイプ 141 名前：nobodyさん mailto:sage [2008/09/03(水) 14:20:13 ID:???] 使用目的だけを読んで使い方が判るんだ 凄いな 142 名前：nobodyさん mailto:sage [2008/09/03(水) 22:23:50 ID:???] >>139 の「何っていう名前だっけ？」という質問に対して >>140 はほぼパーフェクトな回答。 そもそもが知りもしないことを、余計な格好をつけるから そういう間の抜けたことになる。 143 名前：nobodyさん [2008/09/05(金) 06:53:30 ID:SLk/ayWJ] 読み込んだHTMLファイル内に直接書かれてる「@{foo[8..15]}」のような文字列を 配列として扱えるように置換したいんですが、どう書けばいいですか？ 144 名前：nobodyさん mailto:sage [2008/09/05(金) 07:00:40 ID:???] ５．１０動くレンタルサーバーの一覧はありますか？ 145 名前：nobodyさん mailto:sage [2008/09/05(金) 08:42:28 ID:???] >>143 もっと違う方法を考えた方がいいと思う。 146 名前：nobodyさん [2008/09/05(金) 11:12:25 ID:SLk/ayWJ] >>145 大したCGIではないのでぶっちゃけどんな方法でもいいのですが、 後学のためにもこの方法でお願いしたいです。 147 名前：nobodyさん [2008/09/05(金) 12:29:59 ID:hg/3f6aE] use File::Copy;を使って コピーする場合と、 OSのコピーコマンドを 使ってコピーする場合は どっちが高速ですか？ また、常に上書きされるのでしょうか？ 148 名前：nobodyさん mailto:sage [2008/09/05(金) 12:36:06 ID:???] >>147 最後に、 > 自分でマニュアルを読むのが面倒なので > 代わりに読んで説明してください。 とつけとけ。 149 名前：nobodyさん mailto:sage [2008/09/05(金) 12:59:01 ID:???] >>148 おまえがマニュアルを読んで 日本語で説明しろ！ そして死ね！

---

---

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

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