- 1 名前：nobodyさん mailto:sage [2006/09/10(日) 13:33:48 ID:???]
- このスレッドは、他のスレッドでは書き込めない超低レベル、
もしくは質問者自身何が何だが分からない質問を勇気を持って書き込むスレッドです。
Perl使いが優しくコメントを返しますが、
お礼はPerlの布教と初心者の救済をお願いします。
- 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 #例: マッチ部分削除
}
|´д`)ﾉ笑ってすまんね
- 761 名前：755 [2008/01/24(木) 09:47:56 ID:TN487IBF]
- 好きよ、好きよ、好きよ >760さん。
- 762 名前：nobodyさん mailto:sage [2008/01/24(木) 10:15:27 ID:???]
- 検索するといっても、どういう結果が欲しいわけ？
ファイル２の行数までほしいとか、ファイル１のwordのリストだけでいいとか、
件数までいるとか。
- 763 名前：nobodyさん mailto:sage [2008/01/24(木) 23:47:07 ID:???]
- すいません。Perlからword, excelファイルをいじることってできます？
マクロの言語(VB?)分からないので・・・。
- 764 名前：nobodyさん mailto:sage [2008/01/25(金) 03:03:45 ID:???]
- Win32::OLE
- 765 名前：nobodyさん mailto:sage [2008/01/25(金) 08:09:41 ID:???]
- >>763
Perlそのものがその程度の知識であれば、VBAを勉強した方が早いと思う。
一つバージョンが違っただけで途中で動かなくなるとかしょっちゅうだし。
- 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>
|
 |
