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

1 名前：nobodyさん mailto:sage [2006/09/10(日) 13:33:48 ID:???] このスレッドは、他のスレッドでは書き込めない超低レベル、   もしくは質問者自身何が何だが分からない質問を勇気を持って書き込むスレッドです。   Perl使いが優しくコメントを返しますが、   お礼はPerlの布教と初心者の救済をお願いします。   660 名前：nobodyさん mailto:sage [2008/01/05(土) 18:18:51 ID:???] 質問です。 ナビゲーションバーが<li>タグで フォームがテーブルタグで囲む形で 出力されるテンプレートエンジン。 これは今風ではないでしょうか？ 出力されたHtmlを読むと可読性が良さそうなので これで行こうと思っています。用途はテンプレート エンジンの勉強がてら簡易wikiでも自作してみよう と思ってます。どうぞよろしくお願い致しますm(__)m 661 名前：nobodyさん [2008/01/06(日) 01:12:32 ID:4ZDHflzT] ActivePerlにcpan Perl::Tidyしました cygwinからActivePerlを使っているのですが、 $ perltidy としてもcommand not found になります。 どうしたわけでしょう。 cygwin用のperltidyもあるときき、Cygwinからもcpan Perl::Tidyで入れてみましたが、 依然として $ perltidy command not found です。アドバイスください。ヒントでもいいのでお願いします。 662 名前：nobodyさん mailto:sage [2008/01/06(日) 05:36:20 ID:???] 昔俺もやった。確か bin にパスが 通ってないだけだったと思うけど。 663 名前：nobodyさん mailto:sage [2008/01/06(日) 11:16:43 ID:???] >>660 htmlタグの書き方について質問をしたいのであれば、 WebProg板ではなく、Web製作板の方へどうぞ 664 名前：nobodyさん [2008/01/06(日) 13:57:41 ID:4ZDHflzT] >>662 うまくいきました。ありがとうございます。 665 名前：nobodyさん [2008/01/06(日) 15:48:56 ID:srAiPMxF] 関数に配列を渡そうとしているのですがうまくいきません。 呼び出し側 p_html_kotaivew_kekkawrite ($name, @status, $ks, @han1, @han2, @sta1, @sta2); 関数側 sub p_html_kotaivew_kekkawrite{ local($name, @status, $ks, @han1, @han2, @sta1, @sta2) = @_; 〜〜以下略 このような感じにやると、渡した$name以降の配列がすべて@statusに格納されてしまいます。 アドバイスお願いします 666 名前：nobodyさん mailto:sage [2008/01/06(日) 16:21:21 ID:???] リファレンス渡しにしろ 667 名前：nobodyさん [2008/01/06(日) 16:47:29 ID:XbpFSz7R] >>666 リファレンス渡しをしてみましたが、やはり@statusに以降の配列がすべて格納されてしまいます。 668 名前：nobodyさん mailto:sage [2008/01/06(日) 17:03:52 ID:???] >>667 p_html_kotaivew_kekkawrite ($name, \@status, $ks, \@han1, \@han2, \@sta1, \@sta2); sub p_html_kotaivew_kekkawrite{ 　local $name = @_[0]; 　local @status = @{$_[1]}; 　local $ks = @_[2]; 　local @han1 = @{$_[3]}; 　local @han2 = @{$_[4]}; } 　local @sta1 = @{$_[5]}; 　local @sta2 = @{$_[6]}; } 669 名前：nobodyさん mailto:sage [2008/01/06(日) 17:04:32 ID:???] >>668 ブレスミスすまそ 670 名前：nobodyさん mailto:sage [2008/01/06(日) 17:26:06 ID:???] >>669 なるほどそのように記述すればよろしいのですね。 本当にありがとうございました 671 名前：nobodyさん mailto:sage [2008/01/06(日) 19:10:38 ID:???] >>668ですでに回答は書いてあるけれど。。。 他の言語を先にやったものだと違和感を感じるものだが、perlの場合は、 関数は、スカラを先に書いて、配列を後に書いた方がいいというルールが あるようだ。 672 名前：nobodyさん mailto:sage [2008/01/06(日) 19:20:03 ID:???] ま、スライスを理解すればそれが普通に・・ 673 名前：nobodyさん mailto:age [2008/01/06(日) 19:21:39 ID:???] すみません。質問です。 Perlで検索結果一覧を出すまでや、ファイルへ書き込みをした場合に 要した時間を計り、表示させたいのですが、どのような関数を 使用したらよろしいのでしょうか。 674 名前：nobodyさん mailto:sage [2008/01/06(日) 19:50:13 ID:???] >>673 my $t = time; 〜 #計測したい処理 my $t2 = time; my $sec = $2 - $1; print "$sec秒だったです"; 675 名前：nobodyさん mailto:sage [2008/01/06(日) 19:51:41 ID:???] 訂正 ×　my $sec = $2 -$1; ○　my $sec = $t2 - $t1; 676 名前：nobodyさん mailto:age [2008/01/06(日) 19:58:47 ID:???] >>674->>675 すばやい回答ありがとうございました。 677 名前：nobodyさん mailto:sage [2008/01/06(日) 20:17:39 ID:???] 開こうとしているサイトのURLを入力し、危険なhtmlコードが 含まれているかをチェックするcgiサイトがありますが、 あれはどういう原理で動いているのでしょうか。 自分のサーバとは別の、他のサイトのhtmlファイルを読み込むという事は、 perlのopenでは出来ませんよね？ 678 名前：nobodyさん mailto:sage [2008/01/06(日) 20:38:06 ID:???] Socket使うかLWPモジュール使うか 679 名前：nobodyさん mailto:sage [2008/01/06(日) 22:14:19 ID:???] 初歩的な質問ですが、サイトを読んでいてもいまいち分からなかったので こちらで質問させていただきます。 配列の１つの要素への処理の記述方法についてです。 以下のコードを記述しておいて、それに続くものです。 @a = ( "a1", "a2" , "a3" ); 記述１：$a[1] = "b2"; 記述２：@a[1] = "b2"; どちらの記述でも、思うように動作しているので、問題なさそうなのですが、 処理速度や、内部的な動きなどからいってこっちの記述が良いというものや、 多くの人のコーディングはこちらが多いから、などというものはあるの でしょうか。 680 名前：nobodyさん mailto:sage [2008/01/06(日) 22:15:19 ID:???] おま・・・ 681 名前：nobodyさん mailto:sage [2008/01/06(日) 22:30:21 ID:???] cgiをブラウザで開いてテストしたいのですが、 ブラウザで開こうとするとエディタが開いてしまいます。 どうすればいいですか？ 682 名前：nobodyさん mailto:sage [2008/01/06(日) 23:05:56 ID:???] >>678 ありがとうございます。 さっそくぐぐって見ます。 683 名前：nobodyさん mailto:sage [2008/01/06(日) 23:12:15 ID:???] >>681 必要な環境整えてる？ Windowsならば、ActivePerlとApacheをいれて設定するとか、 設定したフォルダにcgiファイルをおいてるかとか。 684 名前：nobodyさん mailto:sage [2008/01/06(日) 23:28:59 ID:???] >>683 ApacheもActivePerlも入ってます。 ブラウザで開こうとするとエディタに実行結果が返ってきてるので フォルダ等も大丈夫だと思います。 685 名前：nobodyさん mailto:sage [2008/01/06(日) 23:31:53 ID:???] エディタに実行結果返ってきてるからってフォルダが正しいとは限らない気が・・ 686 名前：nobodyさん mailto:sage [2008/01/06(日) 23:37:38 ID:???] 取り合えずやったことを書き出してみます。 #! c:/perl/bin/perl print "Content-type: text/plain\n\n"; print "Hello Perl !"; を1-1cgiとしてhtdocs/rensyuに保存してブラウザで127.0.0.1/rensyu/1-1.cgiを使って実行すると ファイルをダウンロードしてエディタが開いて実行結果が返ってきてるんですよね 687 名前：nobodyさん mailto:sage [2008/01/06(日) 23:39:11 ID:???] cgi-binに入れようよ・・・・ 688 名前：nobodyさん mailto:sage [2008/01/06(日) 23:43:00 ID:???] >>686 httpd.conf の設定は確認してる？ 参考にとほほのサイト紹介しておきます。 ttp://www.tohoho-web.com/wwwxx048.htm 689 名前：nobodyさん mailto:sage [2008/01/06(日) 23:49:36 ID:???] text/plainだからじゃないの 690 名前：nobodyさん mailto:sage [2008/01/07(月) 00:02:41 ID:???] >>687 参考にしてる本がhtdocsだったんですよね >>688 設定確認しましたが、大丈夫だと思います。 ちょっと試してみたんですが、 #! c:/perl/bin/perl # CGIヘッダーの出力 print "Content-type: text/html\n\n"; # HTMLの出力 print "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01//EN\">\n"; print "<html>\n\n"; print "<head><title>Hello HTML</title></head>\n"; print "<body><p>こんにちは。これはHTML文書の例です。</p></body>\n"; print "</html>"; だとブラウザに出力されました もうわけが分かりません >>689 ソースはテキストどおりなんですよね 691 名前：nobodyさん mailto:sage [2008/01/07(月) 00:23:35 ID:???] 何がわけわからんのだろう ブラウザの設定でtext/plainはエディタで開くようになってるんでしょ 692 名前：nobodyさん mailto:sage [2008/01/07(月) 00:41:55 ID:???] 自分もさっきApache入れたら同じ症状になって困ったが explorerの関連付けはずしたら正常になった 693 名前：nobodyさん mailto:sage [2008/01/07(月) 00:56:15 ID:???] >>691 ブラウザの設定なんですかね？ ブラウザに関連付けしてみたらブラクラみたいになったんですが、 どういう設定をいじればいいんですか？ >>692 .cgiへの関連付けを削除してみたら ブラウザから開こうとしたら このファイルを保存しますか、または開くためのプログラムをオンラインで検索しますか？と でてきました。 よければ現状、何に関連付けされてるか教えてもらえないですか？ 694 名前：nobodyさん mailto:sage [2008/01/07(月) 01:06:33 ID:???] >>690 どうしてもhtdocs内で実行させたいなら <Directory ******/htdocs> Options ExecCGI </Directory> みたいにExecCGI追加して AddHandler cgi-script .cgi みたいに設定ファイル（httpd.conf）を書き換えて再起動して味噌 695 名前：nobodyさん mailto:sage [2008/01/07(月) 01:14:15 ID:???] >>693 まったく関連付けなし。 ってか>>688のサイトにあった、>>694の設定をしたら 関連付けしても普通に動くようになったぞ 696 名前：nobodyさん mailto:sage [2008/01/07(月) 01:17:32 ID:???] >>693 関連付けはいじらずにtext/htmlで書き出せばどうだい あと関連付けするのはcgiじゃなくてtxtだと思う 697 名前：nobodyさん mailto:sage [2008/01/07(月) 01:39:40 ID:???] <Directory "C:/ApacheGroup/Apache2/htdocs"> Options +ExecCGI AddHandler cgi-script .cgi </Directory> を付け加えてもダメでした・・・ エディタは開かなくなったんですが、一瞬プロンプトの画面が見えたと思ったら消えて、 ブラウザにはWeb ページへのナビゲーションは取り消されましたってでてしまいます >>696 htmlで書き出すとブラウザにでるんですけど、テキストがplaneで出力できてるんで自分の設定がなにかおかしいところがあると思うんですよ だからそれを解決しとかないと・・・と思うんですよ。 698 名前：nobodyさん mailto:sage [2008/01/07(月) 09:36:39 ID:???] >>697 もう一度よ〜〜〜く見るんだ。 ”Content-type: text/plane” じゃあ、 そりゃ「そんな mimetype わしゃ知りません」ってIEがおっしゃるよ。 699 名前：nobodyさん mailto:sage [2008/01/07(月) 09:53:12 ID:???] 初心者はapacheじゃなくてanhttpd使った方がいいぞ。 たぶんapacheの設定で失敗してるはず。 700 名前：nobodyさん mailto:age [2008/01/08(火) 17:54:44 ID:???] 【質問】 レンタルサーバでCGIでプログラムを動かしているのですが、 処理を行う際のサーバの負荷が気になるので、>>674-675に 書いてある方法を使用し、常に処理にかかった時間を 表示するようにしています。 ある関数を動かした際、普段の処理時間は１〜２秒なのですが、 ネットが異常に遅い時に同じ処理をした時、１０秒ほどかかりました。 この処理にはhtml出力が入っているのですが、CGIのhtml出力は、 CGIで処理した結果すべてをまとめてクライアントＰＣのブラウザへ 流しているものだと思っていましたが、仕組み的にはそうではない ということなのでしょうか。 それとも、私の使用している計測方法が誤っているのでしょうか。 何かこういうのを調べてみろ、みたいなヒントでも良いので よろしくお願いします。 701 名前：nobodyさん [2008/01/08(火) 19:20:06 ID:b1r9jep2] perl -Mでシンボルをインポートするにはどうしたらいいですか。 perldocしましたが見つかりませんでした。 702 名前：nobodyさん mailto:sage [2008/01/08(火) 19:21:24 ID:???] >>700 検索→[Perl フラッシュ] 703 名前：nobodyさん mailto:sage [2008/01/08(火) 20:25:03 ID:???] >>700 times関数ってのがあるよ 704 名前：700 mailto:sage [2008/01/09(水) 00:13:41 ID:???] >>702 >>703 ありがとうございます。 早速調べてみます。 705 名前：701 [2008/01/09(水) 06:38:37 ID:g0MHwkoX] >>701お願いいたします。 706 名前：nobodyさん mailto:sage [2008/01/09(水) 07:18:12 ID:???] >>700 時間計測をやめて少しでも処理を減らすが吉 707 名前：nobodyさん mailto:sage [2008/01/09(水) 23:13:03 ID:???] 現在、データを複数のテキストファイルに書き込む処理を するかたちでプログラムを組んでいます。 この複数のファイルは、丁度テーブルに見立てた設計に しており、主キーで連携を取っています。 しかし、データがテキストファイルであるため、データの 取り扱いに不便を感じる場合もあります。 ソートをする際、すべてのデータを変数に読み込んだり 出来ない場合は、ソートをしながら別のファイルに 書き込むといった感じです。 こういう、データを記録するのに丁度良いモジュールという ものはないのでしょうか？？ ま、データベースを使えばという話になるのでしょうが、 レンタルサーバなどの環境でそこまで準備が出来ない場合の話です。 708 名前：nobodyさん mailto:sage [2008/01/09(水) 23:25:07 ID:???] >>707 無料レンサバでもDB使えるとこ結構ある。 709 名前：nobodyさん mailto:sage [2008/01/10(木) 02:06:12 ID:???] # フォームデータの取得 if($ENV{'REQUEST_METHOD'} eq 'POST') { read(STDIN, $query, $ENV{'CONTENT_LENGTH'}); } else { $query = $ENV{'QUERY_STRING'}; } ここまではエラーなく処理できてるんですが # フォームデータの復元 foreach $pair (split(/&/, $query)) { ($key, $value) = split(/=/, $pair); コレを入れるとエラーがでてしまうんですが、どこが悪いんですかね？ 710 名前：nobodyさん [2008/01/10(木) 02:09:13 ID:YdP4IGcZ] 閉じ中カッコがない 711 名前：nobodyさん [2008/01/10(木) 19:24:04 ID:Ea25ozf2] 引数を作るにはどうしたらいいんですか？ index.cgi?---- みたいな感じのです。 712 名前：nobodyさん mailto:sage [2008/01/10(木) 19:44:52 ID:???] >>707 つ DBD::CSV 713 名前：nobodyさん mailto:sage [2008/01/10(木) 19:46:08 ID:???] >>711 つ[ ttp://www.futomi.com/lecture/form/cgi-pm.html#s3 ] 714 名前：nobodyさん [2008/01/10(木) 21:21:19 ID:YdP4IGcZ] 5.10にしないと入れられないモジュールを入れるにはどうしたらいいですか 5.8.8からcpanコマンドで入らないです 715 名前：nobodyさん mailto:sage [2008/01/11(金) 02:44:48 ID:???] >>712 make make install 716 名前：nobodyさん [2008/01/11(金) 18:21:27 ID:PVnoyiBC] C++,JAVAを児戯並みに使えるパーラー見習いですが、 最近パールの良さがわかってきました さてWindows上のGUIアプリケーションを作るのには向いてますか？ モジュールはちらほら見かけましたし実際作ってみましたが、やり方が悪いのかうまくいきません どうも腑に落ちません 実際作ってみてどうですか？ 717 名前：nobodyさん mailto:sage [2008/01/11(金) 21:00:50 ID:???] Tkはモジュールの近い方覚えれば何でも作れるけど、ローカルサーバー立ててCGIで済ましちゃうことが多い。 Win32はシラネ 718 名前：nobodyさん mailto:sage [2008/01/11(金) 22:16:12 ID:???] >>716 WindowsのGUIアプリならば、VBなどがあるのにあえてPerlを 選ぶ理由は何？ 企業が使う業務システムではVBが圧倒的に多い理由を考えると、 と思うけれど。 719 名前：nobodyさん mailto:sage [2008/01/12(土) 03:37:57 ID:???] >>716 Perlのよさがわかってないと思います 720 名前：nobodyさん mailto:sage [2008/01/12(土) 03:49:51 ID:???] Rubyまじお勧め 721 名前：nobodyさん mailto:sage [2008/01/12(土) 14:37:13 ID:???] Rubyは1.8でｵﾜﾀ 722 名前：nobodyさん mailto:sage [2008/01/12(土) 16:29:39 ID:???] Perlではソースコードの圧縮(空白やコメント除去)があまり行われないのはなぜですか？ 723 名前：nobodyさん mailto:sage [2008/01/12(土) 17:15:04 ID:???] pc11.2ch.net/test/read.cgi/php/1036141603/l50 ここでソースコードの圧縮やってるよ 724 名前：nobodyさん mailto:sage [2008/01/12(土) 20:57:02 ID:???] ティムトゥディだからさ 725 名前：nobodyさん [2008/01/13(日) 01:39:09 ID:EtYE9LoZ] CPANモジュール名のリストがあるときに、それらを自動でインストールするには どうしたらいいですか？ 726 名前：nobodyさん mailto:sage [2008/01/13(日) 08:37:57 ID:???] Windowsならバッチファイルにする Linuxはしらね 727 名前：nobodyさん mailto:sage [2008/01/13(日) 12:51:10 ID:???] パール六は全然違うとしきりに言う同僚がいて不安感が煽られています 当方パール入門したでして…覚えたばかりの知識が海のもずくになると思うと… しかし実際のところあと3年はPerl5の知識が使えるんですかね？ そのPerl6とやらがいつ出るかも知らないので(公式サイトを検索しまくっても見つからなかった 私はバカですか？)何とも言えない状況です あと移行はいきなりなんでしょうか、5.12を過ぎて6になった途端に様変わりしちゃったらすごく困ります^-^; 728 名前：nobodyさん mailto:sage [2008/01/13(日) 13:46:17 ID:???] デフォでuse strictとか、正規表現の記述が変わるとか、ソレぐらいしかしらね。 729 名前：nobodyさん mailto:sage [2008/01/13(日) 14:45:25 ID:???] 変更点を把握すれば何も問題ないだろ 730 名前：nobodyさん mailto:sage [2008/01/13(日) 16:08:40 ID:???] Rubyの仕様変更に比べればどうってことない 731 名前：nobodyさん mailto:sage [2008/01/13(日) 17:03:12 ID:???] >>727 ま、こういうのはどの言語でもふつうにあることなんじゃないかな。 そういうのについてこれないのは、技術者として終わりみたいな。 今でも N88BASIC とか COBOL とかで組んでる人っていないだろ？ > しかし実際のところあと3年はPerl5の知識が使えるんですかね？ > あと移行はいきなりなんでしょうか これは、ケースバイケースなのではっきりとはいえない。 例えば、過去の資産を活かしたシステムを構築する場合は、Perl5で 構築するだろうし。 あと、安定性も考えて、いきなり新しくはしないケースもある。 システムは、早く作れることも大事だけど、安定して動くことが 大事なのだから。 個人的に思うのだけど、大幅な仕様変更をするのに、いつまでも 前の名前を使い続けるから紛らわしくなるんじゃないかなと思う。 Perl は 5 で完成形であり、それで終わり。役割は果たした。 そして、新しい言語が出る。とした方が分かりやすいと思うのだが。 732 名前：nobodyさん mailto:sage [2008/01/13(日) 17:13:18 ID:???] 安定性を無視して、やたらと新機能を追加させることに 固執している言語があるが、あれよりマシだと思う。 大幅に仕様変更していて、ユーザがついてこなかったから、 やっぱり戻したとか。 仕様変更をしすぎて、別の言語と非常に似ていて その存在自体が意味無いものに見えるとか。 733 名前：nobodyさん mailto:sage [2008/01/13(日) 20:48:32 ID:???] >>732 PHPのことか。 zendはphp4のサポートを終わらせて無理やり5に移行させたがっているが、4の開発メンバーは今は6を作ってるらしいからそれ待ちだ。 734 名前：nobodyさん mailto:sage [2008/01/14(月) 03:03:11 ID:???] なんでPHPやねんｗ 735 名前：nobodyさん [2008/01/14(月) 03:20:58 ID:h4dQ9PIo] 日本のPHPの人気ぶりは異常 海外サイトではPHPなんて全く持ち上げられてない んで、何がいいたかったかというとPerl最高 736 名前：nobodyさん mailto:sage [2008/01/14(月) 09:05:00 ID:???] ということにしたいんですね 737 名前：nobodyさん mailto:sage [2008/01/14(月) 09:50:52 ID:???] 日本のウォシュレットの人気ぶりは異常 海外サイトではウォシュレットなんて全く持ち上げられてない んで、何がいいたかったかというと温熱最高 738 名前：nobodyさん mailto:sage [2008/01/14(月) 12:36:17 ID:???] PHPのプロジェクトに放り込まれて、担当モジュール作ったけど、他のモジュールが遅れてたので、暇つぶしにPerlで全部作ったら怒られた。 Rubyのほうが良かったですか？って聞いたら余計に怒られた。 なんで？ 739 名前：nobodyさん mailto:sage [2008/01/14(月) 13:25:17 ID:???] ＫＹ社員は死ね 740 名前：nobodyさん mailto:age [2008/01/14(月) 14:50:02 ID:???] レンタルサーバにて、Perlを使ってPostgreSQLに接続し、 その内容をhtml出力するところまでやっと出来たくらいの知識の者です。 そこで、普段のバックアップはどういう仕組みでやるとよいのか 迷いましたので、こちらで質問してみました。 私としては、Perlで、データベースのテーブルとテキストファイルと をコンバートするプログラムを自作し、定期的に手動（FTPソフトを 使うなどして）でローカルにファイルを保存しておく方法くらいしか 思いつきませんでした。しかし、それだと普段の作業に非常に 手間がかかってしまいます。 一般的に、レンタルサーバでPerl+PostgeSQLのWebシステムの バックアップは、このような方法を取ることが多い、みたいなものは あるのでしょうか。よろしくお願いします。 741 名前：nobodyさん mailto:sage [2008/01/14(月) 18:56:43 ID:???] SSHでpg_dump 742 名前：nobodyさん mailto:sage [2008/01/14(月) 19:46:06 ID:???] >>741 Postgresqlの定番のバックアップの方法ですよね。 それしかないのでしょうかね。 743 名前：nobodyさん [2008/01/16(水) 10:57:33 ID:Z4nycbhz] パールでWebプログラミングしようかと思っております。 が、セキュリティーが不安です。 レンサバでやるにせよ、セキュリティーに穴があって攻撃されると いろんなトラブルがあるんでしょ？ 当方、素人の趣味でやってるプログラミング歴まだ1年のプログラマーなもので そのあたりを実際に企業で開発した経験が当然なく不安です。 セキュリティーやネットワークに関する勉強をやるのに手始めとしてオススメのメソッドありますか？ あまりパールと関係なくてごめんなさい。 パールの本でセキュリティーやネットワーク関係のものって無いですよね。 LWP本はありましたが、 もっと広範にネットワーク関係のスキルを強化したいです。パケット解析とか。 まあ、それはそうと他のWeb系を始めようとするパーラーはそういうセキュリティーやネットワーク関係の不安ないんでしょうか？ 皆さん気軽に始めていらっしゃる方が多くよほど知識がおありなのだなあと斜にかまえて静観しています。 744 名前：nobodyさん mailto:sage [2008/01/16(水) 17:37:17 ID:???] どこを縦読み？ 745 名前：nobodyさん mailto:sage [2008/01/16(水) 17:58:11 ID:???] >>743 Perlからはなれて、パケットフィルタリングとか、TCP/IPの 詳細について調べていった方がいいと思う。 セキュリティも個人情報を扱っているとか外に洩れるとやばいものは 物理的なレベルで外部に公開せずに社内LANでのみとかにするわけで、 そういうものはPerlの設定やコーディングでなんとかするものではない。 746 名前：nobodyさん mailto:sage [2008/01/16(水) 18:07:35 ID:???] >>743 最近は、ASP（アプリケーションサービスプロバイダ）とかあるので、 それを利用した方がいいと思う。プログラムを組むのは辞めて。 それだと、必要な機能だけを月に数千円〜数万円で必要な期間だけ 利用できる。 747 名前：nobodyさん mailto:sage [2008/01/16(水) 20:49:06 ID:???] ごめん、拡張子aspだけど、中身Perlｗｗｗｗｗｗ 748 名前：nobodyさん mailto:sage [2008/01/16(水) 22:39:49 ID:???] >>747 あるあるｗｗｗ 749 名前：nobodyさん mailto:age [2008/01/18(金) 20:13:52 ID:???] すみません。質問です。 不正な入力を防ぐ為に、いろいろなことを考えているのですが、 一人で考えていると、漏れがありそうな気がして怖くなりました。 何か、こう言うことを考えてコーディングしたほうがいいという ガイドラインのようなものはあるのでしょうか。 例えば、以下のような感じです。 １．変なアドレスからcgiを実行しようとしていたらはじく ２．textareaタグの記述は○文字まで ３．同一IPアドレスからの連投を防ぐ 750 名前：nobodyさん mailto:sage [2008/01/18(金) 22:45:45 ID:???] パイプで別プロセスを作った場合ですが、 特殊サブルーチンENDはそれぞれが終了した場合に常に行われる。 これを防ぐ手立てはないでですか？ 751 名前：nobodyさん mailto:sage [2008/01/19(土) 10:32:13 ID:???] >>750です。自己解決しま。 752 名前：nobodyさん [2008/01/19(土) 16:56:00 ID:FZ1FRzKn] Perl使用者がよく使うライブラリ、モジュールなどを紹介した 投票形式のサイトを以前見かけたのですが、思い出せません。 どなたかご存じないでしょうか? 753 名前：752 mailto:sage [2008/01/19(土) 17:21:59 ID:???] 見つかりました mfpm.blogdb.jp/ お騒がせしました 754 名前：nobodyさん [2008/01/23(水) 16:33:04 ID:LaH3xf3C] こんにちは。 755 名前：helpです [2008/01/23(水) 17:26:00 ID:AM6Aqa52] すいません。下記のようにwhile→foreach→whileと入れ子構造で 繰り返し単語リストにある用語を文書から検索したいのですが、 上手く動きません。Helpお願いします。 $word がwhile (<F>) 以下の$wordに上手く渡せません。 open(F4, $dic_file) || die "$dic_fileをオープンできません:$!\n"; while (<F4>){ @words = split(/\n/, $_); foreach $word (@words){ while (<F>) { print "$_"; #「$word」という単語のみにマッチさせる 756 名前：nobodyさん mailto:sage [2008/01/23(水) 18:55:07 ID:???] while (<F4>){ @words = split(/\n/, $_); wwwwwwwwwwwwwwwwwwwwwwwwwwww 757 名前：nobodyさん mailto:sage [2008/01/23(水) 19:27:30 ID:???] $/ = ''; 758 名前：755 mailto:sage [2008/01/23(水) 22:55:33 ID:???] つまり １．用語ファイル　（単語が１行に一つずつ入ってる用語。５００個位） ２．文書ファイル　（文書ファイル。単純なテキスト） ３．２の文書ファイルを、１の用語ファイルの単語を一つずつ whileを使って検索します。 早めに必要なのでどなたか教えてください。>756さん笑ってないで。 759 名前：nobodyさん mailto:sage [2008/01/24(木) 00:24:58 ID:???] >>755 Perlでは（というか…）改行文字でレコードが分割されているので @words = split(/\n/, $_); # <-はありえない そもそも、こんなループを組むこと自体どうかとも思うが my @words = []; while (my $word = <F4>) { 　　push @words, $word; # $_でもいいけど } ファイルをループ先頭でseekするのもありかな、あとはお好きにﾄﾞｿﾞｰ。 760 名前：nobodyさん mailto:sage [2008/01/24(木) 07:38:32 ID:???] >>755 >>759に書いてあるように改行文字で分割される、 事前に>>757を書いておくと、以降$/に代入された文字で分割されるようになる。 ここでは空文字列なので分割しなくなる。 my $txt { 　local $/; 　open(F,$txt_file) or die "$txt_fileをオープンできません。"; 　$txt = <F>; } open(F4,$dic_file) || die "$dic_fileをオープンできません。"; foreach $word (<F4>) { 　$word =~ s/\n$/s; 　$txt =~ s/\Q$word\E//sg #例: マッチ部分削除 } |´д`)ﾉ笑ってすまんね

---

---

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

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