くだすれPerl（超初心者用）

1 名前：nobodyさん mailto:sage [2006/09/10(日) 13:33:48 ID:???] このスレッドは、他のスレッドでは書き込めない超低レベル、   もしくは質問者自身何が何だが分からない質問を勇気を持って書き込むスレッドです。   Perl使いが優しくコメントを返しますが、   お礼はPerlの布教と初心者の救済をお願いします。   766 名前：nobodyさん mailto:sage [2008/01/25(金) 15:27:50 ID:???] VBAでわからないなら　Perlでも無理だと思う。 767 名前：nobodyさん mailto:sage [2008/01/25(金) 18:34:06 ID:???] VBとVBAの違いが分かっていない時点で、 プログラムそのものをあきらめた方がいいと思ったりｗ 768 名前：nobodyさん mailto:sage [2008/01/26(土) 00:07:47 ID:???] VBAだけでもVB組めるんだが・・・釣られた？ 769 名前：nobodyさん mailto:sage [2008/01/26(土) 18:10:44 ID:???] cgiファイルにアクセスして来た内容（GETやPOSTのデータなど）を ログに保存する場合、すべて独自でプログラミングするしかないのでしょうか。 自分で作りはしたのですが、こういう状況は頻繁にあるので、 モジュールがあるのでは、と思ったりしたのですが。 770 名前：nobodyさん mailto:sage [2008/01/26(土) 18:32:06 ID:???] なぜ、そう思うならドキュメントを読もうと思わないのだろうか? search.cpan.org/dist/CGI.pm/CGI.pm#DUMPING_OUT_ALL_THE_NAME/VALUE_PAIRS 771 名前：nobodyさん mailto:sage [2008/01/27(日) 01:37:41 ID:???] >>770 レスありがとうございます。 ドキュメント読んでやってみます。m(_ _)m 772 名前：nobodyさん [2008/01/27(日) 12:37:53 ID:TNan8zlF] 日本でperlの良いサイトが見当たりません。 perlの英語サイトでお勧めありますか？ 773 名前：nobodyさん mailto:sage [2008/01/27(日) 13:13:35 ID:???] きみの言う”良いサイト”を説明しないことには・・ 774 名前：nobodyさん mailto:sage [2008/01/27(日) 13:32:38 ID:???] perlはネット上では情報量は多い方だぞ。 一方で某社の言語のは情報量は少なく、高い公式文書とかを 買うしかなかったりするし、簡潔すぎて分かりにくい説明を 一生懸命読む羽目にもなる。 775 名前：nobodyさん [2008/01/27(日) 19:07:45 ID:TNan8zlF] >>773 良いサイトを教えて欲しいのではなくて良いサイトが日本ではないと思うので 海外のお勧めサイトを教えて欲しいんです。 切実な要求ではなくて、ハックな皆さんが常日頃どんな英語サイトを見ているかを気軽に尋ねたつもりなんですが。 776 名前：nobodyさん [2008/01/27(日) 19:26:24 ID:TNan8zlF] >>774 分かる気がします。 定番ですがperl mongerは良く見ますが、かなり突っ込んだトピックでも有益な情報がたくさん引っかかることがあったりしますね。 例えば、insideout objectはこのサイトで勉強しました。 あとGoogleの最近更新されたページ検索とはてブとCPANサーチを使えば目的のページが見つかることが多いですね。 皆さんはどうやってperl情報を検索してますか？ お勧めあったら教えてください。 で、上で質問したのは、RSSで読みたくなったりブラウザーのお気に入りに入れておきたくなるような良いサイトが なかなか日本のperl関係では少ないかなということです。 まあそのあたり実際どう思います？ 個人の主観なので、まあそのあたりは適当にスルーしてくださっても結構です。 777 名前：nobodyさん mailto:sage [2008/01/28(月) 00:30:45 ID:???] おれは perlbuzz.com/2007/08/top-10-perl-blogs.html search.cpan.org/author/ use.perl とか色々。 778 名前：nobodyさん mailto:sage [2008/01/28(月) 00:32:33 ID:???] あ、authorぢゃなくて search.cpan.org/recent こっち。 779 名前：nobodyさん mailto:sage [2008/01/28(月) 00:36:50 ID:???] うーん、なんか半端だな・・・ www.perlcast.com/ perlmonks.org/ perlperl.com/ cpancode.org/ cpants.perl.org/index.html 780 名前：nobodyさん [2008/01/28(月) 20:41:09 ID:iAknG7Tj] >>777 ありがとうございます。 知らないサイトがあって参考になりました！！！！ 早速livedoorリーダーにRSSフィードぶち込みますねｗ サーチCPANのRecentというのは着目してませんでしたが良さげですね― やはり最近のものをチェックしないと古くなってることが多いからですか こうやって見てみると海外では良いperlサイトがどっさりありますね。 781 名前：755 mailto:sage [2008/01/30(水) 18:16:21 ID:???] www.voynich.com/kwic.txtのコードなのですが、 これだと1ワード検索して終わりです。できれば以前教えていただいた while (my $word = <F4>) { 　　push @words, $word; # $_でもいいけど } で、foreach $word(@words){ }の中でリストの単語を全て動かしたいのですが、どうも上手くいきません。exit(0)のせい？ どこからどこまでをforeach $word(@words){}のカッコでくくればいいのでしょうか？ または、別の解決方法でもいいので、教えてください。 よろしゅう。 782 名前：nobodyさん mailto:sage [2008/01/30(水) 22:34:27 ID:???] mapとgrep、そして多次元配列を覚えると良いよ。 783 名前：755 mailto:sage [2008/01/30(水) 23:13:31 ID:???] >781 覚えるの１週間、教えてもらえば５分。 これでもいろいろ他にやることあるのよ。 意地悪しないで教えてちょ。 784 名前：nobodyさん mailto:sage [2008/01/30(水) 23:26:43 ID:???] 用件仕様が見えてこない。 何か例があればいいのだが。 785 名前：755 mailto:sage [2008/01/30(水) 23:27:11 ID:???] もったいぶらずにさっさと教えろ。ヲタク野郎。 786 名前：755 mailto:sage [2008/01/30(水) 23:29:57 ID:???] >785 騙るな。俺はそんな乱暴な人ではない。 787 名前：nobodyさん mailto:sage [2008/01/30(水) 23:33:38 ID:???] いや、だからさ、読み込むファイルのサンプルと、 欲しい結果のサンプル、そして、今のプログラムで出力される 結果のファイルとか、具体的に示してくれないと何処に問題が あるのかが分からんのよ。 そういうところはソースコードを全部読んでも見えてこないでしょ？ ま、サンプルが出たとしても対応は明日以降になるけれど。 788 名前：755 mailto:sage [2008/01/30(水) 23:41:30 ID:???] >787 ７８７さんは７８２さんですよね？ そのmapやgrep、多次元配列とやらで781の回答をきぼん。 789 名前：nobodyさん mailto:sage [2008/01/31(木) 07:18:48 ID:???] で、サンプルは？ｗ 790 名前：nobodyさん mailto:sage [2008/01/31(木) 08:20:23 ID:???] ちょっと最初の方だけ読んでの疑問なんだけど ファイルと検索文字を読み込んだ後の chop ($open_file, $save_file, $word); って何をやろうとしているの？ 791 名前：755 mailto:sage [2008/01/31(木) 09:14:13 ID:???] >790 それはSTDINの改行を取るためですね。 >789 入力する文章は日本語と英語が混じったものです。 検索する単語も適当にでっちあげて下さいよ。 792 名前：755 mailto:sage [2008/01/31(木) 09:26:00 ID:???] 別件なのですが、マッチした単語を@match_wordsに一度格納しているのですが、 いつの間にか先頭にARRAY(0x35e08)というのが入り込みます。 これは何ですか？ 793 名前：nobodyさん mailto:sage [2008/01/31(木) 09:42:51 ID:???] で、何が問題なのだろうか。 実行してみたら、以下のように３つ表示されたぞ。 （具体的な文字列は省略している） line:3 line:7 line:8 794 名前：nobodyさん mailto:sage [2008/01/31(木) 09:44:56 ID:???] ひょっとして、検索用語を複数同時に指定したいとか？ 探索する文字列を指定してください：2ch, AA, モナ 見たいな感じに 795 名前：nobodyさん mailto:sage [2008/01/31(木) 09:47:25 ID:???] >>792 その別件のソースを出さないことには分からないと思う件 796 名前：755 mailto:sage [2008/01/31(木) 09:58:21 ID:???] >794 その通りです。 >795 Aから並べた単なる単語の羅列です。どんな文字列でもARRAY(0x35e08) がマッチした文字列の一番最初に入ってしまう。 ARRAY(0x35e08)　←これは何？ （以下例） acceptance accompanying sheet account 797 名前：nobodyさん mailto:sage [2008/01/31(木) 10:46:42 ID:???] おまいらよろしくお願いします。 CGI::Liteを使ったファイルアップロードで、漢字を含むファイル名を扱ってます。 特定の条件でファイル名がアップ時と変わってしまうのです。 条件は分かったんですが、どうすればファイル名を正常に扱えるかわかりません。 Perlのバージョン：5.8.2 クライアント：WindowsXP 発生条件：表、ソ、十などをファイル名に含む 現象：表などの文字より前が消えてしまう 例）画面表示内容.jpg が、　示内容.jpg　に変わる。 ヒントください。 798 名前：nobodyさん mailto:sage [2008/01/31(木) 11:02:46 ID:???] >>797 jcode.plで変換するしかないかと。 あと、これ ttp://digit.que.ne.jp/work/wiki.cgi?Perl%E3%83%A2%E3%82%B8%E3%83%A5%E3%83%BC%E3%83%AB%2FCGI%3A%3ALite#i5 799 名前：nobodyさん mailto:sage [2008/01/31(木) 14:37:56 ID:???] 文字列検索プログラムを書いたぞ。phpだけど。 このファイルと同じディレクトリに[in.txt]という名前で文書ファイルがあるものとする。 <html><body> <form method="POST" action="test.php"><input type="text" name="key" size=30> <input type="submit" value="送信"></form> <hr> <?php if($_POST["key"] == ""){ echo "</body></html>"; exit; }; $key = $HTTP_POST_VARS["key"]; echo "検索キー：$key<br>"; // 検索キーを空白スペースで分割する。 $key2 = split(" ", $key); // 要素数を出す。 $key2_cnt = count($key2); $INFILE = fopen("in.txt","r"); $line_num = 1; $cnt = 0; 800 名前：nobodyさん mailto:sage [2008/01/31(木) 14:39:01 ID:???] つづき while($cnt < $key2_cnt){ echo "検索キー：$key2[$cnt]<br>"; while(!feof($INFILE)){ $line = fgets($INFILE, 1024); $search_flg = strpos( $line , $key2[$cnt] ); if( $search_flg !== false ){ $out_line = "line " . $line_num . " : " . $line . "<br>"; echo $out_line; }else{ // echo "この行にはありません。: $line<br>"; } $line_num = $line_num + 1; } rewind( $INFILE ); $cnt=$cnt+1; } fclose($INFILE); ?> </body></html> 801 名前：nobodyさん mailto:sage [2008/01/31(木) 15:20:34 ID:???] 質問者は検索キーワードが複数でも対応ということだけど、 出力結果を具体的にどうしたいのかは分からないよな。 （例１）検索キー：モナー AA [モナー] line 3 : line 5 : [AA] line 2 : line 3 : （例２）検索キー：モナー AA [モナー]と[AA]を含む。 line 3 : 802 名前：nobodyさん mailto:sage [2008/01/31(木) 19:00:55 ID:???] >801 （例１）でお願いします。 803 名前：nobodyさん mailto:sage [2008/01/31(木) 19:06:46 ID:???] >>802 だったら、>>799-800のソースを動かしてみればいいぞ。 [test.php]のファイル名で保存して実行すればおｋ 804 名前：nobodyさん mailto:sage [2008/01/31(木) 19:09:54 ID:???] 大体、例１を作る必要性って何だろうか。 そのキーワードの数だけプログラムを実行すればいい話なのに。 例２ならば分かるが。 805 名前：nobodyさん mailto:sage [2008/01/31(木) 20:14:39 ID:???] 別の言語を持ち出すやつは、スレタイ読めないのか 806 名前：nobodyさん mailto:sage [2008/01/31(木) 22:10:29 ID:???] 別の言語だけど、表記がほとんど似ているものだろ。 質問者はロジックを聞きたかったわけから、これで解決じゃね？ 807 名前：755 mailto:sage [2008/02/01(金) 00:06:19 ID:???] > 803 俺のサーバーPHP動きません。 >804 1000回プログラム動かせんから、ループで自動でやりたいと言ってるっしょ。 質問をもっと具体的にすれば良かったかしら。 「781のサンプルプログラムをループで動かす方法を教えて」 です。 808 名前：nobodyさん mailto:sage [2008/02/01(金) 00:55:46 ID:???] >>807 サーバでないといけない理由ってあるの？ ローカルで動かせばいいじゃん。XAMPPとかあるんだし。 809 名前：nobodyさん mailto:sage [2008/02/01(金) 00:58:10 ID:???] >>807 具体的に言えといわれて、具体例を出さないからこうなったんだと思う。 810 名前：nobodyさん mailto:sage [2008/02/01(金) 01:07:14 ID:???] 質問者は>>799-800をPerlに移植すれば良いのかどうかの 事は言わないんだよな。 実際に出来上がってみて、あーだこーだいうんだろうな。 そんな態度だから最初に質問した時からおちょくられてるんだと思う。 811 名前：perl好き情報４回生 mailto:sage [2008/02/01(金) 13:26:52 ID:???] 修士出たら就職を考えている現在3回生の情報の学生でperlが一番すきですが、 今年に入ってからいろいろと求人情報を集めてみたところperlの仕事少ないですね 噂には聞いてましたが、僕は何が何でもperlを仕事にしたいのです まあそれはおいといて、perlを仕事としてみたときどんな感じですかね？ 皆さま先輩方の多くはperlを仕事としていらっしゃると思ったので、 是非とも業務内容、他言語と比べたときの待遇、仕事のやりがいなどなど、 ポジティブな意見(勧め)もネガティブな意見(愚痴)も生の声としてお聞かせ願えればと存じます。 812 名前：perl好き情報３回生 mailto:sage [2008/02/01(金) 13:31:25 ID:???] 間違えました。名前欄は３回生が正解です。 813 名前：nobodyさん mailto:sage [2008/02/01(金) 13:45:35 ID:???] >>811 確か、mixiとか、はてなは、perlじゃなかったかな。 で、お前は一体何年なんだ？ｗ 修士を出てからということは、あと２年後に就職活動を やり始めるということかな？ 合計あと３年数ヶ月は親のすねをかじって学生をやると。 814 名前：nobodyさん mailto:sage [2008/02/01(金) 13:49:55 ID:???] 人に情報をくれといってないで、まずは君の作った実績を出してみたら どうだ。例えば>>755に対する答えのソースを作るとか。 815 名前：nobodyさん mailto:sage [2008/02/01(金) 15:10:24 ID:???] Perl大好きっていう気持ちはわかるけど、 Perlしかまともに出来ない人に就職口はないかと というか回りから軽蔑される 816 名前：nobodyさん mailto:sage [2008/02/01(金) 15:17:27 ID:???] >>815 凡人に対しては同意だけど、とことんやってる人においては その限りではないと思う。 817 名前：nobodyさん mailto:sage [2008/02/01(金) 16:03:32 ID:???] やれる人というのは、大抵その企業のやり方に会わなかったり、 自分が上に立ってやろうという考えを持つようになったりして、 会社員としてやっていくよりも、起業して社長としてやる場合が多い。 なので、君の場合は「良い所に就職する」ということよりも、 投資家を説得するプレゼンをするとか、誰もが納得できるような システムを作る方向でやっていったほうがいいと思う。 Perlは、アクセスカウンタ、掲示板、チャット、ブログ、 ショッピングモールと発展してきたけれど、この次にあたるもの を作るのを考えると良いだろう。 修士までいくのであれば、そのまま博士まで行って、松本氏のように 純粋に言語をやる道もある。 818 名前：nobodyさん mailto:sage [2008/02/01(金) 19:19:56 ID:???] 人工知能とか？ 819 名前：perl好き情報３回生 mailto:sage [2008/02/01(金) 23:20:23 ID:???] 皆様、予想外の多いレスに大変驚いてます。 ありがとうございます。 >>813 3を押し間違えただけです。3回生に相違ありません。w > 合計あと３年数ヶ月は親のすねをかじって学生をやると。 そうなんです。そうした生ぬるい環境でありますが、全身全霊で取り組む覚悟です。 >>814 >人に情報をくれといってないで、まずは君の作った実績を出してみたら 魅力的な人材であることを立証できないです。僕はまだまだです。 >>815 >Perlしかまともに出来ない人に就職口はないかと そう言われるとつらいものがありますが、C++を今からしっかりやって実力をつければ 重宝されるのではないかと考えています。 >>817 >投資家を説得するプレゼンをするとか、誰もが納得できるようなシステムを作る方向で では後者でやります。Web上のプラットフォームの開発が出来たらいいなあとは思っています。WebOSとか。 820 名前：nobodyさん mailto:sage [2008/02/02(土) 00:24:29 ID:???] プロトコルが必要な今のネット、NGNも新しいプロトコルを使用することがすでに決まっており、WebOSha机上の空論だということすら知らないのでは無理かと・・・ 821 名前：nobodyさん mailto:sage [2008/02/02(土) 01:14:38 ID:???] >>811 Perlも道具に過ぎない。 就職から定年まで約40年間ずっと同じプログラム言語を使い続ける事はまず不可能。 管理職になってプログラミングから足を洗えるのはごく一部。 学生の時点で言語にこだわるより、考え方・分析方法・設計方法を学ぶ道具だと割り切った方が良い。 そう言ってる漏れも、学校じゃPascalやらCやってて、就職してからはC、C++、VBやって、 独立してからは最初はDelphi使ってたが今はVBAとPerlとJavaScriptとSQLをやってる。 今後JavaやPHPもやることになると思う。 822 名前：nobodyさん mailto:sage [2008/02/02(土) 05:18:25 ID:???] >>818 新しく言語を作っていくという意味さ。 今のPerlはオブジェクト指向が完全でないとか、日本語で一部文字化けするとか あるわけで、それを改善していくという方向はどうかなという提案です。 ja.wikipedia.org/wiki/%E3%81%BE%E3%81%A4%E3%82%82%E3%81%A8%E3%82%86%E3%81%8D%E3%81%B2%E3%82%8D ま、アスペクト指向とかもあるからそっちへPerlを持っていくのも良いかもね。 823 名前：perl好き情報３回生 mailto:sage [2008/02/02(土) 09:07:03 ID:???] >>820 そうだったんですか！大学にそういう専門の先生がいて、僕も影響を受けて この一年いろいろ構想を練りつつ勉強を重ねてきたのですが、、、 >>821 いろんな言語を使いこなせないといけないんですね。 僕はC,C++,Perl,Java,Javascriptがお遊び程度に使えます。 が、perlはともかく、他の4つは本当に中途半端です。 perlスレだからもう少しはperlを主軸にして生計を立てられるという意見があるかと 思いましたが、皆さん違うようですね。現実は厳しいということでしょうか。 824 名前：nobodyさん mailto:sage [2008/02/02(土) 11:57:53 ID:???] Perl6 はがらりと仕様が変わるらしいから、それが一般に浸透すると また状況が変わってくるかもしれないよ。 825 名前：nobodyさん mailto:sage [2008/02/02(土) 12:00:31 ID:???] Perlが好きだの書いてて、いかにも得意なもののように思える言い方だったが、 実際には、「Perlしか知らない」の間違いじゃないのか？ｗ 826 名前：nobodyさん mailto:sage [2008/02/02(土) 12:16:08 ID:???] >>822 オブジェクト指向じゃないとだめって先入観は捨てましょう。 文字化けはどの言語でも日本語に限ったわけじゃないんだけど・・・ >>824 正規表現がすごいぞ >>825 あえて誰も言わなかったことをｗ 827 名前：nobodyさん mailto:sage [2008/02/02(土) 12:17:50 ID:???] じゃ、「何言ってるんだ？」じゃなくて、よいしょする方向でｗ 828 名前：perl好き情報３回生 [2008/02/02(土) 13:36:26 ID:9aX3NPkq] >>824 2010年以降になりそうですが、その頃はまさに僕が現役ですね。 例えば、どんな変化が予想されますか？ >>825 僕なんて落ちこぼれもいいとこです。perlしかできないどころかperlも満足にできないです。 ですが一身上の都合により毎日猛勉強しているので そのうちいろんな言語を使いこなせるようになるよとは先生に言われました。 ただ、先生は業界のことを全くご存知ない方なので、こうやって情報集めしています。 829 名前：nobodyさん mailto:sage [2008/02/02(土) 13:47:22 ID:???] コンピュータ言語を毎日猛勉しなきゃならないなら、この業界は見込み無いから諦めたほうが良い。 使ったことない言語でも言語仕様書を4-5日読めば使えるのが普通。 毎日猛勉するなら英語を勉強したほうが10万倍役に立つ。 830 名前：nobodyさん mailto:sage [2008/02/02(土) 13:51:33 ID:???] >>828 今は Perl が下火で PHP や java が主流だけど、 これからは PHP や java が下火となり Perl が主流となる。 831 名前：nobodyさん mailto:sage [2008/02/02(土) 13:53:43 ID:???] 「業界のことを全く知らない先生」の言う事を、 信じているのか、いないのか良く分からない件 832 名前：perl好き情報３回生 mailto:sage [2008/02/02(土) 13:53:53 ID:???] >>829 そうなんです。僕はある事情で人より頑張らないと追いついていけないみたいです。 つくづく才能がないなあと思います。学校では出来る人を目の前にすると凹みっぱなしです。 大学に入ってから自分の才能のなさに気づきました でも親に申し訳が立たないので猛勉強してついていこうとしています。 猛勉強なんて偉そうな言葉使ってごめんなさい。 833 名前：perl好き情報３回生 mailto:sage [2008/02/02(土) 13:59:49 ID:???] 連投すみません。 >>930 perl6になるとそういうふうになるのですか。 最近perlをやってていいのか不安になっていたので心が落ち着きました。 >>931 先生は非常に尊敬しているし、その先生の「そのうち出来るよ」という言葉も僕 には大きな支えになっています。 でも、就職情報は先生に聞くのでなく自分で収集する学生が多いです。 834 名前：nobodyさん mailto:sage [2008/02/02(土) 14:54:59 ID:???] >>833 君は、他の言語を学ぶ必要性についてはどう思ってるの？ 835 名前：nobodyさん mailto:sage [2008/02/02(土) 15:13:04 ID:???] ＞833 藻前、なにか勘違いしてないか？ プログラミングってのは、コンピュータに呪文を唱えて仕事をさせる事じゃないぞ。 コンピュータという、言われた事しか出来ないモノに、指示を出して仕事をさせる事だ。 コンピュータはあいまいさがある人間の言葉で指示されても理解できないから、専用の言葉・文法を使う。 プログラミングを学ぶ上で一番大切なのは、自分が出したい指示をあいまいさなく、的確に表現できる能力を身につけることだ。 文法や単語（命令）なんかは、分からなきゃ辞典(リファレンス)を見ればいい。 836 名前：nobodyさん mailto:sage [2008/02/02(土) 15:46:15 ID:???] Perlを使った仕事をしたいのなら、不安だのいってないで、 まっすぐにその方向に進めばいいんでないの？ 情報処理の資格を取ろうと思っている人が、突如法律の勉強を したりしないのと同じ。 絶対に完璧で将来がある選択肢なんてないわけで、自分の思う方向、 好きな事に一生懸命に取り組むかどうか。 837 名前：nobodyさん mailto:sage [2008/02/02(土) 17:14:06 ID:???] 本当にプログラムやりたいなら、データベースもやらなきゃいかんよ。 今業務でやってるのはPHP＋MySQL ちなみに、Perlはもちろんこと、Ruby、C／Ｃ＋＋、VB、Java等も勉強した。 趣味で組むのはPerlかな。 838 名前：nobodyさん mailto:sage [2008/02/02(土) 18:01:41 ID:???] いや、この人の場合は、SEやプログラマーとして仕事をやりたいとかじゃなくて、 「Perlをやりたい」んじゃないかなぁ。 839 名前：nobodyさん mailto:sage [2008/02/02(土) 18:06:49 ID:???] 天才的な感があるヤツ以外、母国語が得意じゃないヤツはプログラミングを仕事にするのは難しい。 Perlを使った仕事をすると言っても今からPerlを使いこなせるようになっている必要は無いだろう。 まずは本を読め。次に数学(離散数学系）を学べ。 それが出来るのは学生のうちだけだ。 840 名前：perl好き情報三回生 ◆qqt5.0NxB6 mailto:sage [2008/02/02(土) 21:53:31 ID:???] >>834 現段階ではc/c++をよく学ぶつもりですが僕のような経験不足な人間には到底分からないです。 >>835 なるほど、要求を的確に表現する能力が大切なんですね。とてもためになります。 >>836 僕の場合その突如があるので危なっかしいです。 それに一生懸命すぎて身を滅ぼしがちなアンバランスな人間だと思います。 >>837 MySQLですか。実務的なDBの経験はほとんどないので、机上に留まらず精進します. >>838 というよりもperl的な文化が好きです。ネットや身の回りでperlerに親しみを感じるので、 こうした人たちとこうした文化を創っていきたいと思ったんです。 >>839 高2と高3の頭は大学数学の本を読んでいたので、数学は得意です。 本は一応月に20冊くらい読みますが、やはり周りの人がすごすぎるので、 今の5倍は読みたいです。 841 名前：perl好き情報三回生 ◆qqt5.0NxB6 mailto:sage [2008/02/02(土) 21:55:40 ID:???] ちょっと修正です。連投失礼します。 >>834 現段階ではc/c++をよく学ぶつもりですが、僕のような経験不足な人間には いろんな言語を学ぶ必要性など到底分からないです 842 名前：nobodyさん mailto:sage [2008/02/02(土) 23:48:00 ID:???] プログラム言語に依存した考え方を学ぶのは、現場に入ってからで十分。 Perlも道具の一つだと認識し、道具選びは適材適所だって事を理解しろ。 ついでに言えば、学習用のプログラム言語は1個に絞っても桶だ。 ただ、面接対応で考えりゃPerlだけじゃ押しが弱い気もする。 843 名前：nobodyさん mailto:sage [2008/02/03(日) 00:09:50 ID:???] 学部3年で進学希望かつその後は将来ソフトウェア開発の仕事を希望していて 今から独学でperl学ぶの？ なんか色々矛盾してるな… 専攻変更したって言うことか? 844 名前：nobodyさん mailto:sage [2008/02/03(日) 11:27:58 ID:???] COBOLプログラマが大量に解雇されたという話知ってる？ 845 名前：perl好き情報三回生 ◆qqt5.0NxB6 mailto:sage [2008/02/03(日) 23:32:26 ID:???] 皆様、アドバイスありがとうございます。 >>842 面接を考えるとperlだけじゃ弱いんですね。perl, c/c++, javascript, java, perl, lisp, vbは勉強する予定です。そのうち、最初の2つ(perl, c/c++)に力点を置く予定です。 perlをとくに絶対視・唯一視しているわけでもないです。 言語に依存しない考えをいまのうちによく勉強することが大切なんですね。 >>843 専攻変更ではないですが、最初は数学科に行く予定でしたが、土壇場で情報に変えました。 将来perlの仕事につきたいという思いはもちろんありますが、それほど決まっていなくて、 今は情報収集しています。どこか矛盾していますか？ >>844 聞いた気もしますが、全然知りません。 846 名前：nobodyさん mailto:sage [2008/02/03(日) 23:40:34 ID:???] とりあえず、大文字小文字の使い分けから始めない？ COBOLはシステムを切り替えられる資金のあるところは人の入れ替えしてるが、無いところは細々と雇い入れてる。 まぁ、SIは先が無いので、エンドに引き抜かれないかぎり先は無いね。 847 名前：nobodyさん mailto:sage [2008/02/03(日) 23:42:52 ID:???] 全体像が見えていないとかいいながら、異様にPerlにこだわっている 感があって、なんか良く分からないな。 PHPやC#は、あえてはずしているというよりも、その存在を知らないのかもな。 で、このスレはPerlのくだすれであって、お前の人生相談用スレではないので、 スレ違いの話をするつもりなら、出て行ってくれないか？マ板でやったらどうだ。 848 名前：nobodyさん mailto:sage [2008/02/04(月) 00:06:37 ID:???] どのスレに移動するかを教えてくれたら、俺はついていくぞ。 849 名前：nobodyさん mailto:sage [2008/02/04(月) 12:48:01 ID:???] １０年前からperlなんか廃れるとか仕事にならないとか言われ続けてるけど いまだに仕事になってるから死ぬまではなんとかなるんじゃないかな 中小企業のＷＥＢ屋でいいならperlの仕事はあるぞ 850 名前：nobodyさん mailto:sage [2008/02/04(月) 14:03:12 ID:???] Ajax の例とかもあるしな。どうなるかは誰もわからない。 851 名前：nobodyさん [2008/02/05(火) 14:08:38 ID:ke8bjavM] phpをperlに書き換えて欲しいです。 わかる人お願いします。 <?php //パラメータの取り出し $CID = $_GET['cid']; $cc = $_GET['cc']; $SID = $_GET['sid']; $CH = $_GET['ch']; $C1 = $_GET['c1']; //パラメータ判別 /*処理*/ //処理 header("Content-Type: text/plain; charset=Shift_JIS"); print"rc=0\r\n"; print"u1=www.abc.jp/OK.php\r\n"; /*処理*/ print"c1=AAA\r\n"; print"u2=www.abc.jp/err.php\r\n"; print"END\r\n"; ?> 852 名前：nobodyさん mailto:sage [2008/02/05(火) 14:15:13 ID:???] >>851 CGI.pmつかってもいいの？ 853 名前：nobodyさん [2008/02/05(火) 14:23:16 ID:ke8bjavM] <?php　から　?>までをそのままperlに書き換えるのが不可能なら構わないです。 854 名前：nobodyさん mailto:sage [2008/02/05(火) 16:02:31 ID:???] www.abc.jp/ 855 名前：nobodyさん mailto:sage [2008/02/05(火) 22:54:03 ID:???] use CGI; my $q = new CGI; my $cid = $q -> param( 'cid' ); 後同じ print "Content-type: text/plain; charset=Shift_JIS\n\n"; print "rc=0\n"; 後同じ 856 名前：nobodyさん mailto:sage [2008/02/05(火) 23:10:03 ID:???] Perlの世界には $_GET['cid']; とか $_POST['cid']; とかないからね。 受け取った文字列を & で split して、さらに = で split して。という 処理から始まる。 CGI.pm使わないと同じような構文にはならないだろうね。 857 名前：nobodyさん [2008/02/05(火) 23:13:32 ID:LtG8FBU3] windows xpで、perlからwindowsのアプリケーション(例えば 電卓のcalc.exe)を終了させるにはどうやればいいですか? perlに関する知識はttp://www.rfs.jp/sb/perl/こちらのサイト を読み終えたくらいです。 858 名前：nobodyさん mailto:sage [2008/02/05(火) 23:23:42 ID:???] Perlでそんなこと出来るの？ 859 名前：nobodyさん mailto:sage [2008/02/05(火) 23:37:33 ID:???] WindowsAPI使えば、プロセスの終了とかできるかも 860 名前：857 [2008/02/05(火) 23:49:41 ID:LtG8FBU3] >>857です。 >>858 返信ありがとうございます。windowsプログラミングについてもさっぱりなんですが >>859さんのおっしゃるようにwin32api系のものを使えば出来そうな気がしたんですが。 linuxとかだとsystem(kill〜って感じでそのまま出来るんですかね。 >>859 返信ありがとうございます。 プロセスの終了も良く分かってないんですが、その辺の仕組みを僕くらいの低レベルでも わかるように紹介されてるページとかご存知でしたらご紹介頂けたら幸いです。 861 名前：nobodyさん mailto:sage [2008/02/06(水) 00:20:44 ID:???] 残念ながらそれはwebprog板では板違いなのだ。 862 名前：nobodyさん mailto:sage [2008/02/06(水) 10:22:36 ID:???] Kent CGI.pm Mason Sledge Catalyst Jifty Reaction 間にいろいろハサんで欲すぃ 863 名前：nobodyさん mailto:sage [2008/02/06(水) 10:35:41 ID:???] おっとCGI::Applicationを忘れていた Kent CGI.pm CGI::Application Mason Sledge Gantry Catalyst Jifty Reaction 864 名前：nobodyさん mailto:sage [2008/02/06(水) 11:59:40 ID:???] system "taskkill /im calc.exe"; 865 名前：nobodyさん mailto:sage [2008/02/06(水) 16:07:31 ID:???] ん？しりとりでもやりたいのか？ｗ 866 名前：nobodyさん [2008/02/06(水) 17:39:26 ID:z242xw4+] すいません、質問お願いします。 一行テキスト　と　テキストエリア　と　送信ボタン　と　hiddenがいくつか　のフォームを作りました。 jcode.plを通して、デコードする仕組みにしました。 テキストエリアに、６００文字以下の、少ない全角文字を入力し、送信ボタンをクリックすると、 ログファイルに記載され、意図した表示になるのですが。 テキストエリアに沢山の文字（662文字以上）を入れ、送信ボタンを押しても反応しません。 perlには、フォームに入力する文字制限などがあるのでしょうか？ 600文字程度ですと、使用目的では文字数が足りないので、なんとか直したいのですがどうしたらよいでしょう？ 867 名前：866 [2008/02/06(水) 17:42:41 ID:z242xw4+] 追記です。 IE6だと、ボタンをクリックしても無反応なのですが。 FireFoxだと、一応書き込みができました、 しかし、やはり全角文字600文字程のところから後が切れて、ログファイルに記録されます。 また、全てが半角の数字を入力した場合には、何文字でも入力できる感じです。 宜しくお願いします。 868 名前：866 [2008/02/06(水) 17:50:10 ID:z242xw4+] すいません。訂正です。 半角数字でも、１０００文字程度しか書き込みができませんでした。 869 名前：nobodyさん mailto:sage [2008/02/06(水) 17:50:25 ID:???] method="POST" 870 名前：nobodyさん mailto:sage [2008/02/06(水) 17:51:53 ID:???] enctype="multipart/form-data" 871 名前：866 [2008/02/06(水) 18:04:28 ID:z242xw4+] >>869,870 ありがとうございます メソッドをポストにしたら出来ました！ 872 名前：nobodyさん mailto:sage [2008/02/08(金) 17:15:00 ID:???] #!/usr/local/bin/perl eval { $test=; }; print "fin" この三行スクリプトを実行するとfinが表示されずに syntax error at test.pl line 2, near "=;" Execution of test.pl aborted due to compilation errors. が表示されるのは正常なActivePerl(forWin)およびevalの振る舞いですか？ 873 名前：872 [2008/02/08(金) 17:24:04 ID:ZczohSgB] 上げ忘れ。 ActivePerlのperl -vはPerl v.5.8.8 / build817です。 874 名前：872 mailto:sage [2008/02/08(金) 18:04:44 ID:???] わかた(´д｀)y-~~シンタックス系のいわゆるコンパイルエラーはevalで拾えないようで、 拾えそうなｲｷﾌﾝで記述してあるリファレンスが誤りです。大変ありがとうございました。 875 名前：nobodyさん mailto:sage [2008/02/08(金) 18:57:59 ID:???] eval q{ $test=; }; $@ 876 名前：797 mailto:sage [2008/02/14(木) 15:20:19 ID:???] おまいら解決したので報告します。 実は>>798が教えてくれたページを参考に作ったプログラムだったのですが、そこに罠があったのです。 ファイル名をSJISにするということで、アップページの文字コードもSJISにしていたのですが、 SJISで特定の文字(表、ソ、十など)にはWindowsでパスの区切りに使う\のコードが入っているので、 その部分が区切りと解釈されて、ファイル名が切られていたのです。 そこで、アップページの文字コードをUTF8にした所、切られることなく正常動作するようになりました。 おまけ 最近遭遇し一応解決したネタを１つ。 なぜか、CGI::LiteとIE6(最近のパッチ以降？)の組み合わせで<INPUT type="file">が複数連続すると、 途中のファイル名が取得できません。ダミーで<INPUT type="hidden">を挟むと大丈夫です。 877 名前：nobodyさん mailto:sage [2008/02/14(木) 16:19:19 ID:???] おまそれはPerlの一番最初に習う、しかも新規の人は既に誰も使わな（ry >なぜか、CGI::LiteとIE6(最近のパッチ以降？)の組み合わせで<INPUT type="file">が複数連続すると、 あーわかるわかる。初心者にありがちなバグだね。 おれもHTTP拡張のバウンダリ周りで苦労した。10年ぐらい前に。 878 名前：nobodyさん [2008/02/18(月) 22:53:11 ID:b8HgX1gh] お願いします。 配列、@listの中には5つの要素が入っています。 そのなかの3つ目を削除するにはどうすれば良いですか？ $list[3] = ''; だと中身が空のまま要素数は変わりません…。 879 名前：nobodyさん mailto:sage [2008/02/18(月) 23:31:32 ID:???] splice @list, 2, 1; 880 名前：878 mailto:sage [2008/02/19(火) 00:10:37 ID:???] >>879さん、ありがとうございました。 881 名前：nobodyさん mailto:sage [2008/02/20(水) 18:43:38 ID:???] ここって超初心者の板じゃないの？ モジュール関係の質問見ると引くぞ >>878のスレ見て少しホッとしたけど 882 名前：nobodyさん mailto:sage [2008/02/20(水) 18:51:36 ID:???] 板とスレ スレとレス 間違えてるぞ 883 名前：nobodyさん [2008/02/20(水) 20:04:29 ID:AT7Ymvry] 掲示板で書き込んだ人のIPを取得するにはどうしたら良いのでしょうか？ $〇〇 = $ENV{'REMOTE_ADDR'}; でIPを取得したのはわかったんですが、ﾌｫｰﾑの中に<input type=hidden name=△△ value=$○○>などで他人に書き込みさせても自分のIPが表示されてしまいます 色々ググったりしたんですが良く分かりません 優しい解説お願いします 884 名前：nobodyさん mailto:sage [2008/02/20(水) 20:25:09 ID:???] >>883 hiddenタグでやろうとしていることがいまいち分からないが、 通常は、書き込んだ時にログファイルに一緒にIPアドレスを 書き込むものなんだが。 885 名前：nobodyさん mailto:sage [2008/02/20(水) 20:30:56 ID:???] >>884 スクリプトは時刻表示とコメントだけの、一行掲示板の簡易なものです 一緒にとはどういうことなのでしょうか？ ログファイルには時刻とコメントしか載りません 超初心者ですいませんm(_ _)m 886 名前：nobodyさん mailto:sage [2008/02/20(水) 20:42:58 ID:???] >>885 その、時刻とコメントを書き込むファイルに、IPアドレスも一緒に 書き込む方法があるでしょといいたいのだよ。 表示する際はそのデータは必ずしも出す必要は無いのだから。 それが嫌ならば、書き込みをしたときに内部的に別なファイルにも IPアドレスと時刻を書き込ませるようにプログラムを書けばよい。 887 名前：nobodyさん mailto:sage [2008/02/20(水) 20:55:23 ID:???] >>885 フォームにセットしなくても、書き込んだ人のIPはこれで取り出せるよ → $ENV{'REMOTE_ADDR'} 888 名前：nobodyさん mailto:sage [2008/02/20(水) 20:55:38 ID:???] >>886 IPｱﾄﾞﾚｽを一緒に書き込むﾌﾟﾛｸﾞﾗﾑの書き方を知りたいんです(；∇；)/~~色々ググって、配布されてるｽｸﾘﾌﾟﾄから該当する部分を抽出して頑張ったんですが...良く分からなかったんです、 889 名前：nobodyさん mailto:sage [2008/02/20(水) 20:57:55 ID:???] >>887 レスありがとうございますm(_ _)m それでIPは表示されるのは分かったんですが、それをどこに設置すればログに書き込んだ人のIPが表示されるかが分からないんです(；∇；)/~~ 890 名前：nobodyさん mailto:sage [2008/02/20(水) 21:04:58 ID:???] >>889 open(OUT,">> log.txt"); $line = $ENV{'REMOTE_ADDR'}; print OUT $line; close(OUT); 891 名前：nobodyさん mailto:sage [2008/02/20(水) 21:07:00 ID:???] >>889 コメントの後ろにくっ付けちゃえｗ 892 名前：nobodyさん mailto:sage [2008/02/20(水) 21:14:53 ID:???] aska とか kent の BBS にはログにIPアドレスを記録するコードは あったはずだが。 それらを読んでも分からないのであれば、何処かに君が書いたソースを うｐしてここに貼りなさい。気分が向いたら改変してやるからｗ 893 名前：nobodyさん mailto:sage [2008/02/20(水) 22:19:30 ID:???] 先程はありがとうございましたo(^-^)oおかげさまで解決しましたｗ もう一つ質問させて下さいm(_ _)m ($sec,$min,$hour,$day,$mon,$year,$wday) = localtime(time); $week = $weekday[$wday]; $mon++; $date = "$mon月 $day日 $hour:$min"; という時刻表示のｽｸﾘﾌﾟﾄ(年が無駄にあるのは気にしないで下さいｗ)を使ってる？んですが、$minの所だけを1ｹﾀの秒の時だけ01や02みたいに0を先頭に付けたいのですが、どのようにすれば良いのでしょうか？ ちなみに 2月20日 22:04 というような事です！ 894 名前：nobodyさん mailto:sage [2008/02/20(水) 22:24:58 ID:???] >>893 printf使うとか。 また、例のごとくそれの使い方が分からないということであれば、 以下のコードを付け加える。 if($min>9){ $min = "0" . $min; } 895 名前：nobodyさん mailto:sage [2008/02/20(水) 22:40:01 ID:???] $ENV{'TZ'} = "JST-9"; ($sec,$min,$hour,$mday,$mon,$year,$wday,$d,$d) = localtime; $date = sprintf("%04d/%02d/%02d(%s) %02d:%02d:%02d", $year+1900, $mon+1, $mday, ('Sun','Mon','Tue','Wed','Thu','Fri','Sat')[$wday], $hour, $min, $sec); print $date; 896 名前：nobodyさん mailto:sage [2008/02/20(水) 22:48:10 ID:???] >>893 これはどうなの？ $date = sprintf("%2d月%2d日 %2d：%02d",$mon,$day,$hour,$min); print $date; 897 名前：nobodyさん mailto:sage [2008/02/20(水) 22:53:59 ID:???] >>895 $dは無くても良いぞ。 どうしても書きたいなら、undefにすべし それと、 my( $year, $month, $day, $hour, $min, $sec, $wday ) = ( localtime() )[5,4,3,2,1,0]; って言うのを覚えると見た目に麗しい 898 名前：nobodyさん mailto:sage [2008/02/20(水) 23:05:01 ID:???] perlは配列の要素が足りなければ 足りない分の後ろの要素は無視されるから 必要なければ書かなくてよろし 899 名前：895 mailto:sage [2008/02/20(水) 23:06:42 ID:???] >>894が正常に動かない気がして5年も前に書いたやつ貼っただけだから 900 名前：nobodyさん mailto:sage [2008/02/20(水) 23:12:33 ID:???] 下らない質問に親切に答えていただいて本当にありがとうございました！ 23:06 とかできました(゜∀゜;ノ)ノ また何かあったらよろしくお願いします!(b^ー°) 901 名前：nobodyさん mailto:sage [2008/02/20(水) 23:34:16 ID:???] もう２度と来るな 902 名前：nobodyさん mailto:sage [2008/02/21(木) 03:45:40 ID:???] >>897 $wday いらね 903 名前：nobodyさん mailto:sage [2008/02/21(木) 09:53:00 ID:???] >>902 あぁ、ほんとだ。 904 名前：nobodyさん [2008/02/21(木) 16:13:36 ID:VlnHmaCl] 掲示板で [3]内容 [2]内容 [1]内容 みたいにレス番号を付けるにはどうしたら良いのでしょうか？ 905 名前：nobodyさん mailto:sage [2008/02/21(木) 16:50:55 ID:???] おまえ>>883だろ。 全部聞きに来るなら一から勉強しろよ。 906 名前：nobodyさん mailto:sage [2008/02/21(木) 17:10:04 ID:???] >>904 お前の質問の仕方は抽象杉でわけわかんねえんだよ。 質問したければお前が書いたコードをうｐれ。話はそれからだ。 907 名前：nobodyさん mailto:sage [2008/02/21(木) 17:42:47 ID:???] 自分なりに勉強してやってみたんですが分からなかったので質問しに来ました まあもう良いです 908 名前：nobodyさん mailto:sage [2008/02/21(木) 18:09:09 ID:???] >>904 全データ読み込んで、内容の数を数えて、 ・ 一番上の内容を表示する前に数えた数を ・ 次の内容を表示する前に(数えた数-1)を と出していけばいんじゃね？ データフォーマットも表示部分のソースも無いんじゃ エスパーでもないかぎり（ｒｙ 909 名前：nobodyさん mailto:sage [2008/02/21(木) 18:17:46 ID:???] 「出来ないやつ」の典型的なパターンだなｗ ・自分なりの勉強したはずなのに「本当に調べたの？」といいたくなる程度であるところ。 ・「もう良いです。」とすぐにさじをなげるところ。 もう良いというのならば、このままPerlも辞めた方がいいぞ。道はいくらでもあるんだから。 910 名前：nobodyさん mailto:sage [2008/02/21(木) 21:37:27 ID:???] ちょっと直したい時に全部調べるのがカッタルイってのはすげーよくわかるよ。 おれも子供の頃「関数内から抜けるコマンド何だっけ？」と電話で聞いたことある。あれは助かった。 でも何カ所も直したり、まして新規でBBSを作るなら、オマエそれ全部おれに書かせるのかって。 911 名前：nobodyさん mailto:sage [2008/02/21(木) 23:40:01 ID:???] 数年前はぐぐるにしても、日本語サイトが少ないからある程度英語が読めないと 駄目だったとか、検索エンジンの使い方のコツをある程度体得しておかなければ 目的のコンテンツにたどり着けなかったりしたから、その気持ちは分かる。 Perlのサンプルソースを手に入れる時、検索を使うよりも、２ｃｈの専用スレの テンプレのURL一覧を見た方が早いなと感じた場合もあった。 だけど、今は大分検索エンジンの使い勝手も良くなり、目的のものがヒット しやすくなった。Perlのこの程度の事なら日本語だけでも大丈夫だしね。 この状況で、このレベルのことが分からないなら、もう無理だと思う。 912 名前：nobodyさん mailto:sage [2008/02/21(木) 23:46:33 ID:???] ラリーもあきれ顔です ttp://upload.wikimedia.org/wikipedia/commons/b/b3/Larry_Wall_YAPC_2007.jpg 913 名前：nobodyさん mailto:sage [2008/02/22(金) 07:19:54 ID:???] 一つの発言に対してこれ程執着するとは(^w^) ここがどれだけ過疎ってるかを表してますね 914 名前：nobodyさん mailto:sage [2008/02/22(金) 07:55:30 ID:???] よし、じゃPHPのくだすれと統合するか？ｗ 915 名前：910 mailto:sage [2008/02/22(金) 10:59:13 ID:???] >>911 っつーかｸﾞｸﾞﾚが一番要らない。何でもｸﾞｸﾞﾚばわかる筈だよ。理論上。 「これどうやるの？」「正規表現」みたいな一行レスもｸﾞｸﾞﾚと同じで意味が無い。 ｸﾞｸﾞﾚ言っていいのは通常スレ内だけで、こういうスレは隔離用だから、答えたい人 だけが見て、答えたくない人は見なければいい。教えてgooと同じ。たとえば 「C 関数 戻る」 で検索すると、return()はなかなか出て来ない。だからといって普段Tcl/Tk専門で やってるSUNの社員に、一時的な知識のために参考書を買わせるのも無駄が多い。 ただ全部は聞きに来るなよって。 916 名前：nobodyさん mailto:sage [2008/02/22(金) 11:35:20 ID:???] レスの内容が「ググレカス」と「正規表現」とは大きく違うと思うが。 後者は、情報にたどり着くまでの手助けを十分にしているといえる。 ひろゆきも、この簡潔な回答が出来るのは、２ｃｈの特徴であり、 他のサイトのくだらない挨拶をしなければならないところとの 大きな違いだといってたぞ。 917 名前：nobodyさん mailto:sage [2008/02/22(金) 11:40:32 ID:???] 質問者自身何が何だが分からない質問を勇気を持って書き込むスレッドなのに 正規表現で分かるのかよｗ 918 名前：nobodyさん mailto:sage [2008/02/22(金) 12:38:27 ID:???] まぁ時間と金をかけて勉強すりゃわかるだろうけど、当面の一つの目的さえ達成できれば、 あとはPerlなんて一生触りたくない層が最も多い。つまり言語がPerlなのはあるツールが 元々Perlで書かれていたからで、欲しいのはINとOUTのデータだけ。 こういう層に正規表現をわざわざ勉強させる必要は無いし、あればとっくにやってる。 そういうわけで具体的に一連の処理を書くことが望ましい。べつに10秒で書けるんだから。 また追加モジュールの紹介も価値が低い。モジュールのインスコが一番難しいんだから。 rootが必要だし、客先のネットワークによって無保証のモジュールの導入を禁止されている。 必ずしも導入できなくはないが、自社でアップデート対応を保証しなくてはならない。 919 名前：nobodyさん mailto:sage [2008/02/22(金) 13:47:46 ID:???] ぬるぽ 920 名前：nobodyさん mailto:sage [2008/02/22(金) 14:15:30 ID:???] >>919 ガッ！ 921 名前：nobodyさん mailto:sage [2008/02/22(金) 16:15:50 ID:???] >>918 元のソフトがPerlで書かれててPerlなんか一生触りたくないなら、 INなりOUTなりを使い慣れたプログラム言語で作ったフィルタで修正すりゃいいだろ。 一生触りたくないプログラム言語で書かれたソフトのメンテなんて断ればいい。 「どうしても」と言われたら使い慣れたプログラム言語に移植する方向で交渉すればいい。 くだすれで質問した答えを意味も分からずコピペしたソフトを使わされる顧客は悲惨だな。 よほどCPANのモジュールぶちこんでもらった方が安心できるとオモワレ。 モジュールのインストールってそんなに難しいか？ インストール先を自分の権限範囲にすればroot権限いらないモジュールも多いと思うが？ ああ、>>918みたいなクレクレ厨じゃ英語のメッセージは読めないんだな。納得。 922 名前：nobodyさん mailto:sage [2008/02/22(金) 20:36:06 ID:???] 「思うが」は典型的なバカの言葉だからあんま相手したくないけど、もう少し具体的に 言えば、配布されているCGI-Perlスクリプトを少し直して使いたい人が非常に多い。 こういう層に向かって「勉強しろ」はありえない。 その人はそこで節約した時間を社会奉仕にあてるかもしれない。 Perlはおれの方が少し詳しいかもしれないけど、Perl知ってりゃ偉いわけじゃなし。 ｸﾞｸﾞﾚとかモジュールのご紹介とかアホを晒す暇があったら処理を書けばいいし、 それが出来ない奴は消えりゃいい。 923 名前：nobodyさん mailto:sage [2008/02/22(金) 20:39:07 ID:???] ああそうそう。こういうスレでｸﾞｸﾞﾚだのLWPだのほざいてる奴は ソープランドでセックスしながら説教してるバカオヤジと同じだよ。 普通相手の人生なんて関係ないし興味もないよ。出た問いに答えればいい。 そういうスレなんだから。 924 名前：nobodyさん [2008/02/22(金) 20:47:34 ID:8Vusg7lr] ソープランドでセックスしながら説教してる奴なんていねーよｗｗｗｗｗ 925 名前：nobodyさん mailto:sage [2008/02/22(金) 20:48:52 ID:???] くだすれで顧客とか言ってる奴って何なの？ 926 名前：nobodyさん mailto:sage [2008/02/22(金) 21:26:16 ID:???] >925 くだすれで顧客とか言ってる奴＝>918と>921で桶？ >918 ＞客先のネットワークによって無保証のモジュールの導入を禁止されている。 >921 ＞くだすれで質問した答えを意味も分からずコピペしたソフトを使わされる顧客は悲惨だな。 どっちにしろ最初に客先とか言い出した>918がアフォだと思うが。 927 名前：nobodyさん mailto:sage [2008/02/22(金) 21:28:15 ID:???] >918 >921 >922　 どこを縦読み？ 928 名前：nobodyさん mailto:sage [2008/02/22(金) 21:40:20 ID:???] Perlの質問マダァー？ 929 名前：nobodyさん mailto:sage [2008/02/23(土) 02:02:05 ID:???] > その人はそこで節約した時間を社会奉仕にあてるかもしれない。 何で話の流れとは関係の無い仮定の話が出てきてるの？ｗ 930 名前：nobodyさん mailto:sage [2008/02/23(土) 02:07:11 ID:???] ま、Perl関連はまったりとしてきているので、統合もいいと思う。 例えばこっちと一緒にするとか。 Perlコーディング初心者質問スレ Part 56 pc11.2ch.net/test/read.cgi/php/1189939783/ 931 名前：nobodyさん [2008/02/23(土) 03:04:09 ID:mggQq9GV] >>928 掲示板にレス番号を付けるにはどのようにすれば良いのでしょうか？ ３.内容 ２.内容 １.内容 みたいにして行きたいのですが...具体的に教えて下さい 932 名前：nobodyさん mailto:sag [2008/02/23(土) 03:27:22 ID:???] >>931 お前の書いたソースを出せと言っただろうが 933 名前：nobodyさん mailto:sage [2008/02/23(土) 03:31:09 ID:???] 『詭弁のガイドライン』 より、引用 5. 資料を示さず持論が支持されていると思わせる 　例：（世界では、犬は哺乳類ではないという見方が一般的だ） 934 名前：921 mailto:sage [2008/02/23(土) 16:43:38 ID:???] >>922 >配布されているCGI-Perlスクリプトを少し直して使いたい人が非常に多い。 >こういう層に向かって「勉強しろ」はありえない。 スクリプト直すのに、意味も分からずコピペして直すのか。すげえな。 「客先の」とか言ってるって事は、それを金取って(もしくは客へのサービスとして)提供するわけだろ？ 拾ってきたスクリプトに掲示板で質問してコピペで手直し加えて金儲けとか、せこすぎる。 そんなもん外注に出せよ。 935 名前：nobodyさん mailto:sage [2008/02/23(土) 16:44:46 ID:???] >>931 >908 936 名前：nobodyさん [2008/02/24(日) 03:14:09 ID:G7lDCCAr] >>932 nurupo.biz さんのdownloadの簡易コメントって奴です [2/24] 内容 みたいになるのを [2/24]3.内容 [2/24]2.内容 [2/24]1.内容 みたいにしたいんです 937 名前：nobodyさん mailto:sage [2008/02/24(日) 06:46:40 ID:???] >>936 ダウソしてソース見た。分かった事は下記の通り。 ・ データファイルには 日付<TAB>内容　が1件1行で入っていて、レス番は入ってない ・ 最大記事数を超えた分はデータファイルから消える ・ 新しいレスはファイルの先頭に追加される(古いレスほど後ろにある) ・ 表示する時に@DATA（配列）に全レスを読み込んでいる($DATA[0]がファイル内のレス総数) ・ sub print 内では、$begin、$end、$iにファイルの先頭から何行目かを示す数値が入る とりあえず考えてみた。 試してないから、ちゃんと動くかどうかは保証しない。 どんなレス番の振り方をしたいかわからんので思いつくのを並べてみた。 　1. 表示してるページ内でのレス番 　 　 97行目　print "[$date] ". ($end - $begin - $i + 1) .". $text\n"; 　2. ファイルに残ってるレス総数中のレス番 　 　 97行目　print "[$date] ". ($DATA[0] - $begin - $i +1) .". $text\n"; 　3. それまでに書かれた全部の中でのレス番 　 　 何行も修正しなきゃならんしデータフォーマットも変わる(=今使ってるとしたらデータ読めなくなる)から、 　 　 最初からレス番機能が付いてる別のソフト探したほうがヨサゲ。 　 　 どうしてもってんなら考えてやらんこともない。 938 名前：nobodyさん mailto:sage [2008/02/24(日) 10:48:11 ID:???] printで連結演算子使うなんてもったいない。 939 名前：nobodyさん [2008/02/24(日) 16:26:23 ID:mX6RyV0T] >>937 わざわざ本当にありがとうございます 2.のファイルに残ってるレス総数中のレス番 で表示をしたいのですが、2.を試してみたところ [時間]3.内容 [時間]2.内容 [時間]1.内容 [時間]0.内容 [時間]-1.内容 といった風に、どんどんマイナスになってしまいます・・・ 940 名前：nobodyさん mailto:sage [2008/02/24(日) 18:48:04 ID:???] >>939 スマソ。 97行目　print "[$date] ". ($DATA[0] - $i +1) .". $text\n"; 941 名前：nobodyさん [2008/02/24(日) 19:21:05 ID:mX6RyV0T] >>940 97行目　print "[$date] ". ($DATA[0] - $i +1) .". $text\n"; でやっても>>939と同様の結果になってしまいます・・・ 942 名前：nobodyさん mailto:sage [2008/02/24(日) 20:13:54 ID:???] >>941 75行目 my $max = @DATA; 76行目 my $res_no = undef; 96行目と97行目の間に追加 $res_no = $max - $i + 1; 97行目　print "[$date] $res_no. $text\n"; でどうYO？ 943 名前：nobodyさん [2008/02/24(日) 20:33:50 ID:mX6RyV0T] >>942 できました！！！ すごいですヽ(　　´　　∇　　｀　　)ノ ﾜｰｲ 本当にありがとうございましたﾜｰｲ!!＼(o￣￣￣￣￣￣￣￣￣▽￣￣￣￣￣￣￣￣￣￣o)/ﾜｰｲ!! 944 名前：nobodyさん mailto:sage [2008/02/24(日) 22:00:31 ID:???] printはカンマで出力しようよ。 945 名前：nobodyさん [2008/02/25(月) 00:21:00 ID:U/vtQwh8] 二重投稿を禁止するためには データを読み込んで1行目とフォームの内容が同じの時にエラー表示させればいいんですよね？ 946 名前：nobodyさん mailto:sage [2008/02/25(月) 01:29:27 ID:???] >>945 そうだな。 947 名前：nobodyさん mailto:sage [2008/02/25(月) 01:33:39 ID:???] 連投防止のノウハウといったら、何があるかな？俺が思いつくものは・・・ ・時間が近すぎる場合、ＩＰアドレスが同一かをチェック ・投稿内容が（数回前までと）同じかをチェック >>945の方法だと、二重投稿を防止することは出来ても、あらしの連投は防止出来ないよね。 ま、質問自体が二重投稿を防止する方法なので、特に言うことは無いと思うが。 948 名前：nobodyさん mailto:sage [2008/02/25(月) 06:27:19 ID:???] print の出力をカンマで区切ると 画面出力命令のオンオフ切替が頻発し 連結してから纏めて出力した方が速い云々 ベンチマークしてないし本当かどうか知らんけどね 949 名前：nobodyさん mailto:sage [2008/02/25(月) 06:44:13 ID:???] そんな事より、printでカンマ使ってると、 仕様変更でその場で出力じゃなく変数に代入とかになるとウザイ。 950 名前：nobodyさん mailto:sage [2008/02/25(月) 09:45:58 ID:???] >>948 boobar.hp.infoseek.co.jp/bench/print.txt 951 名前：nobodyさん mailto:sage [2008/02/25(月) 22:07:36 ID:???] 大差ないってことか 952 名前：nobodyさん [2008/02/26(火) 22:28:43 ID:TAx5gJzC] ファイルのMIME-Typeってどうやって取得するの？ PHPではmime_content_type()という関数があるみたいなんだけど、 Perlではどうやるの？ 953 名前：nobodyさん [2008/02/27(水) 00:36:15 ID:NLm3jzH+] 掲示板で仮にログファイルを@LOGと置いて、それの最新の投稿を取り出すにはどうすれば良いの？ @LOG[0]でやったんですがどうも違ったみたいで 954 名前：nobodyさん mailto:sage [2008/02/27(水) 02:31:06 ID:???] >>952 use CGI; my $q = new CGI; $q->uploadInfo($filename)->{'Content-Type'}; >>953 @LOG[@LOG-1] 955 名前：954 mailto:sage [2008/02/27(水) 02:37:08 ID:???] >>954 use CGI; my $q = new CGI; my $filename = $q->param('uploaded_file'); $q->uploadInfo($filename)->{'Content-Type'}; 1行書き忘れた。 956 名前：952,953 mailto:sage [2008/02/27(水) 03:43:32 ID:???] 馬鹿は無理に回答しなくていいよ 957 名前：nobodyさん mailto:sage [2008/02/27(水) 07:27:20 ID:???] 最新って・・・ 一番最後の要素ってことなら $LOG[$#LOG] 958 名前：nobodyさん mailto:sage [2008/02/27(水) 11:51:23 ID:???] $LOG[-1]でよくね？ 959 名前：nobodyさん mailto:sage [2008/02/27(水) 18:16:19 ID:???] >>956 こういう質問するでも無く答えるでも無いゴミは何がしたいんだろうね？ 960 名前：nobodyさん mailto:sage [2008/02/28(木) 04:40:38 ID:???] 君みたいな馬鹿を釣って遊ぶ 961 名前：952 [2008/02/28(木) 08:35:02 ID:5gTQ/iME] >>954-955 レスありがとう それはロダとかでファイルをアップロードした時の判別方法だよね？ 書き忘れたんだけど、LWP::Simpleで外部画像を取得した時に判別する方法を教えてほしいです。 お願いします。 962 名前：nobodyさん mailto:sage [2008/02/28(木) 11:37:27 ID:???] >>961 LWP::Simple はシンプル故に、レスポンスヘッダと コンテントボディを同時には取得できない。 search.cpan.org/dist/libwww-perl/lib/LWP/Simple.pm 普通に LWP でリクエストを送って得たレスポンスからなら 同時に取得できる。 search.cpan.org/dist/libwww-perl/lwpcook.pod search.cpan.org/dist/libwww-per/lib/HTTP/Headers.pm PHP の Fileinfo() 相当のモジュールはこれ。 search.cpan.org/dist/File-MMagic-1.27/ 963 名前：nobodyさん [2008/02/28(木) 17:15:11 ID:TKGGhpyN] formが <FORM ACTION="test.cgi" METHOD="POST"><INPUT TYPE="TEXT" NAME="f" cols="10"><INPUT TYPE="TEXT" NAME="id" cols="10"><INPUT TYPE="SUBMIT" VALUE="GO"> でtest.cgiが #!/usr/local/bin/perl use strict; use CGI; require"jcode.pl"; my $cgi=CGI::new(); my $f=$cgi->param('f'); my $id=$cgi->param('id'); @test = ($f,$id); $role = int(rand 6); my $html=<<"EOM"; <HTML> <HEAD> <TITLE>test</TITLE> <META HTTP-EQUIV="Content-Type" CONTENT="text/html;CHARSET=Shift-JIS"> </HEAD> <BODY> $test[$role] EOM print<<"EOM"; Content-type:text/html $html EOM exit; 1; という様に、formで受けた$fと$idをランダムで表示させたいのですがerror500 となってしまいます。ﾊﾟｰﾐｯｼｮﾝは合ってると思います。なぜなのでしょうか？ 964 名前：nobodyさん [2008/02/28(木) 17:16:30 ID:TKGGhpyN] すいません $role = int(rand 2); です 965 名前：nobodyさん mailto:sage [2008/02/28(木) 17:52:02 ID:???] >>963-964 print<<"EOM"; Content-type:text/html $html EOM 966 名前：nobodyさん [2008/02/28(木) 17:58:13 ID:TKGGhpyN] >>965 改行が多いと認識されたため、空行は省いて書き込みしました ですので print<<"EOM"; Content-type:text/html $html EOM で書いてもerror500となります 967 名前：nobodyさん mailto:@testと$role sage [2008/02/28(木) 18:11:34 ID:???] >>966 #!/usr/local/bin/perl use CGI::Carp qw(fatalsToBrowser); use strict; 968 名前：nobodyさん mailto:sage [2008/02/28(木) 18:13:24 ID:???] >>967 いい人だ 969 名前：nobodyさん mailto:sage [2008/02/28(木) 18:18:37 ID:???] 「くだすれ」の由来を教えてください 970 名前：nobodyさん mailto:sage [2008/02/28(木) 18:21:36 ID:???] CGI::newってつい最近知り合いも書いてたんだけど どっかのサイトか本でそんな紹介されてるのかな？ CGI.pmは問題ないんだけど、new CGI;かCGI->new;て書く癖つけとかないと 他のモジュールでクラスが渡らなくて泣きそうでない？ 971 名前：nobodyさん mailto:sage [2008/02/28(木) 18:31:10 ID:???] うむ。 972 名前：nobodyさん [2008/02/28(木) 18:56:16 ID:TKGGhpyN] >>967でやって、KENTの文法チェッカー使ったら [Thu Feb 28 18:54:48 2008] new.cgi: Global symbol "$cgi" requires explicit package name at new.cgi line 6. [Thu Feb 28 18:54:48 2008] new.cgi: Global symbol "$cgi" requires explicit package name at new.cgi line 7. [Thu Feb 28 18:54:48 2008] new.cgi: Global symbol "@test" requires explicit package name at new.cgi line 8. [Thu Feb 28 18:54:48 2008] new.cgi: Global symbol "$role" requires explicit package name at new.cgi line 9. [Thu Feb 28 18:54:48 2008] new.cgi: Global symbol "@test" requires explicit package name at new.cgi line 10. [Thu Feb 28 18:54:48 2008] new.cgi: Global symbol "$role" requires explicit package name at new.cgi line 10. [Thu Feb 28 18:54:48 2008] newｩらは。 猿だって仲間から餌を分けてもらう時は申し訳無さそうな顔するんだよ。ヘラヘラ笑いながら近づいてったら殴り殺されんぞ。 猿だったら今頃とっくに死んでんだよお前。そんな態度で今まで。研修で散々言われたよな。謝る時は申し訳無さそうな顔をしろって。 そういう学校じゃ受けられない教育を受けておきながら、社会人を経験しなきゃ得られない知識を貰っておきながら、 何にも生かせてないんだよ今のお前は。学生のサークルごっこじゃないんだから。もっと四六時中危機感を持って生きてなきゃ駄目だよ。いい加減いつまで学生気分じゃ。 973 名前：nobodyさん mailto:sage [2008/03/02(日) 03:52:46 ID:???] >>992 ためしに$LOG[1]を表示してみ。 974 名前：nobodyさん [2008/03/02(日) 07:56:37 ID:UDBaDi65] >>994 ＞知識ってのはな、社会人に取って金と同じく貴重な財産なんだよ。 それを超初心者に教えてくれるのがこのスレッドの意義ですよね？ ＞社会で必要とされる知識ってのはな、本になんか載ってない事ばかりなんだよ。全部人から人へ、直接のコミュニケーションを介して伝わって来たモンなんだ。 掲示板というコミュニケーションを介して聞いてますし、この内容は僕の持ってる2つのPerlに関する書籍にはありませんでした。 ＞猿だったら今頃とっくに死んでんだよお前。 猿じゃないです。人間です。人間と猿のDNAはたかが2％の違いといわれてますが、それは大きな差です。猿＝人間という発想はおかしいかと。 ＞いい加減いつまで学生気分じゃ。 当て水量でモノを言わないでください。あなたの投稿からは僕があたかも社会人であるかのように見えますけど、僕まだ中学3年生です。 まあ態度という点では気をつけなきゃならないのかなとは思いましたが、あなたには>>1に書かれているような優しさや、このスレッドの意義を良く理解してもらいたいものです。 >>995 ありがとうございます！できました！ ただDATA[1]だけでは、すべてのフォームの内容が取り出されて、うまく$FORM{'comment'}の部分だけを抽出できません。。 975 名前：942=995 mailto:sage [2008/03/02(日) 16:20:53 ID:???] >>996 なあ、ガキならガキらしく、オッサンには敬意を払えよ。 あと、試行錯誤の形跡が見れないと誰も相手してくれないぞ。 悩めるだけ悩め。そしてどう悩んだか見せろ。話はそれからだ。 ヒントは、元ソースの94行目 for から99行目 }まで。 ここで、$dateには日付、$textには内容が入ってるって事。 そっから先は自分で少し考えてみろ。 分からなくなったら、自分でどう考えてどこが分からないかを書けよ。 自分じゃ何も試さないようじゃ、漏れも付き合いきれない。 いい加減甘やかしすぎだと思えてきた。 976 名前：nobodyさん mailto:sage [2008/03/02(日) 16:39:55 ID:???] >>997 お前、甘すぎ。バカガキは放置が基本。 977 名前：nobodyさん [2008/03/02(日) 17:44:58 ID:eMvpxgfI] >>999 お前糞すぎﾜﾛﾀｗｗｗ >>998 神様すぎﾜﾛﾀｗｗｗ 978 名前：nobodyさん mailto:sage [2008/03/02(日) 17:48:04 ID:???] 人類に平和が訪れますように 979 名前：１００１ [Over 1000 Thread] このスレッドは１０００を超えました。 もう書けないので、新しいスレッドを立ててくださいです。。。

---

---

[ 新着レスの取得/表示 (agate) ] / [ 携帯版 ]

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