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

1 名前：nobodyさん mailto:sage [2007/09/16(日) 19:49:43 ID:???] Perlのコーディングで困ってる人のスレです。 【投稿する際の注意】 質問するときは内容をよく吟味してから投稿してください。 「コマンドの意味がわかんない」とかはマニュアル見ましょう。 回答者さんは何でも屋じゃありません。 1： 自分はこういう事がしたい。 2： それでこんな風にやってみたが･･･ 3： こんなエラーが出て上手く行かなかった。 最低でも1と3が無いと誰も答えられないよ。 良い回答は良い質問から。一緒に勉強しましょう。 お勧めサイトは >2 以降 前スレ　ttp://pc11.2ch.net/test/read.cgi/php/1180492441/ 過去ログ倉庫　ttp://user.ftth100.com/mirrorhenkan/perl/ 861 名前：2/2 mailto:sage [2008/02/01(金) 03:04:31 ID:???] sub add_tag { my $substr = $_[0]; if ($substr !~ /$tag_r/o) { $substr = "$tag_o$substr$tag_c"; } elsif ($substr !~ /\Q$tag_o\E/o) { $substr =~ s/(\Q$tag_c\E)/$1$tag_o/go; $substr .= $tag_c; } elsif ($substr !~ /\Q$tag_c\E/o) { $substr =~ s/(?=\Q$tag_o\E)/$tag_c/go; substr($substr, 0, 0) = $tag_o; } elsif ($substr =~ /^($tag_e)\Q$tag_c\E($tag_e)\Q$tag_o\E($tag_e)\z/o) { $substr = "$1$2$3"; } elsif ($substr =~ /^($tag_e)\Q$tag_o\E($tag_e)\Q$tag_c\E($tag_e)\z/o) { $substr = "$tag_o$1$2$3$tag_c"; } else { die $substr; # ココを頑張ってくれ。 } $substr =~ s/\Q$tag_c$tag_o\E//go; $substr; } 862 名前：nobodyさん [2008/02/01(金) 04:53:15 ID:hS8kNEG7] if(A1 < B1 && A2 < B2 && A3 < B3 && A3 < B3 && A4 < B4) { $page_dsp .= <<"EOM"; <tr> <td colspan="2" > <form action="????.cgi" method="post" onSubmit="return send_check()"> <select name=ku class=slc> <option value="no"> EOM ＃この中の条件式(ifの条件付オプション)は省略 {$page_dsp .= "<option value=\"1\">\n"; } $page_dsp .= <<"EOM"; </select> <input type=hidden name=back value="no"> <input type=hidden name=id value="$kid"> <input type=hidden name=pass value="$kpass"> <input type=hidden name=mode value="ku"> <input type=submit class=btn value="オン"> </td></form></tr> EOM } else{$page_dsp .= "<tr><td colspan=2 align=center>終わり</td></tr>\n"; } 以上のように、最初の5つの条件 (各々全部の、左の数値が右の数値と同じかそれ以上の時にセレクトを非表示) で動かしたいのですけど、5つの条件中3つの条件しか満たしてないのに非表示に なります。 条件が5つ揃ってから非表示にするにはどうすればいいですか？ ご教授お願いします。 863 名前：nobodyさん mailto:sage [2008/02/01(金) 05:30:16 ID:???] 落ち着け 864 名前：nobodyさん mailto:sage [2008/02/01(金) 07:45:40 ID:???] >>862 それはない。他にミスがあるはず。 865 名前：nobodyさん [2008/02/01(金) 16:52:45 ID:hS8kNEG7] 命令が作動しなかったのは今回は説明で省略した命令(ifの条件付オプション)と 最初の5つの命令との相性が悪かったからかもしれませんね。 省略した部分内には、最初の5つの命令を一個ずつ(計5個)指定して、条件が満たされるごとに オプション項目が一つずつ消えていき、全部満たしたら最初の5つの命令でセレクト ごと非表示にするつもりでいたんです。 866 名前：nobodyさん mailto:sage [2008/02/01(金) 16:54:10 ID:???] 相性とな？ 867 名前：nobodyさん mailto:sage [2008/02/01(金) 16:55:34 ID:???] バルクメモリさしたら動かなかった 相性が悪かったということだな 868 名前：nobodyさん mailto:sage [2008/02/01(金) 19:03:10 ID:???] >>862 まずは、配列の勉強頑張れ。 869 名前：nobodyさん mailto:sage [2008/02/02(土) 05:09:34 ID:???] 修士出たら就職を考えている現在3回生の情報の学生でperlが一番すきですが、 今年に入ってからいろいろと求人情報を集めてみたところperlの仕事少ないですね 噂には聞いてましたが、僕は何が何でもperlを仕事にしたいのです まあそれはおいといて、perlを仕事としてみたときどんな感じですかね？ 皆さま先輩方の多くはperlを仕事としていらっしゃると思ったので、 是非とも業務内容、他言語と比べたときの待遇、仕事のやりがいなどなど、 ポジティブな意見(勧め)もネガティブな意見(愚痴)も生の声としてお聞かせ願えればと存じます。 870 名前： ◆TWARamEjuA mailto:sage [2008/02/02(土) 07:42:12 ID:???] perlを仕事にするところはほとんど無いと断言できるです。 仕事の中でperlを使うことはたくさんの現場であるです。 おいらは今、製造業の中でperlを利用しています。 昨今の機器はLANでデータを採取できたりします。 それを高ぁーいWindows専用のアプリでデータ加工することなく、unix(含むlinux)なサーバにてcronでデータ採取・計算・加工してDB(DB_Fileで充分)に登録。(もちろんperlで) そいつを拾ってエクセルに貼り付けるだけ(もしくはSpreadsheet::Writeで書き込むも良し)でもデータの共有が出来たりします。 記録計のようなグラフを作るにしてもGDだけで充分。 部品の計測をするのでも、今時のマイクロメータは数値をUSBで送ってくれる物があったりします。(USBテンキーみたいな出力をしたりする) それをExcelにちまちま放り込むよりか、単純テキスト(csvでも良いけれども)で保存して、perlを使っていろんな形や計算をさせることも出来たりします。 以前勤めていたWEB屋(主にデザインやHTML書き)でも、Excelのデータを1件1HTMLファイルに変換する作業がありました。 (その求人に応募したのだ（照）) 3000件近いデータを変換すると云うことで、2-3か月近い工程を組まれていたことがありました。 どうやら手動で書き換え作業をと目論んでいたようです。 けれどもデータ構造と特性を見極めるのに2日、それを変換するperlスクリプトを2日、変換作業たったの10秒って事がありました。 その当時、その部署の長は目を丸くしていましたです。 まだまだperl=CGIっていう感覚で居られたからです。 その後、ちまちまと元データ(Excel)の修正が入ってきても数秒で修正完了。 デザイン変更があってもテンプレートを書き換えるだけでおしまい。 あまった2-3か月の期間、他の仕事を色々とこなしていました。 ようは仕事に使う道具の１つとしてperlというのを持っていればどんな業種にでも使えるんじゃないかな。 そんなこともあって製造業の現場であるにもかかわらず、おいらのところにだけは使い慣れたMacOSX(iMacG5)なんてのを無理を聴いて貰って備え付けましたですです♪ 871 名前：nobodyさん mailto:sage [2008/02/02(土) 11:18:13 ID:???] perlを仕事で使うなら修士はオーバースペック。 高卒で十分な土方に好き好んで修士雇う経営者がいるのか? 872 名前：nobodyさん mailto:sage [2008/02/02(土) 11:21:37 ID:???] 修士雇う経営者がいないなら高卒って言えばいいだけのこと そんなこともわからないのか？ 873 名前：nobodyさん mailto:sage [2008/02/02(土) 12:03:51 ID:???] perl土方は頭悪いな。 高卒で足りる仕事には高卒の賃金しか払わないという事だよ。 874 名前：nobodyさん mailto:sage [2008/02/02(土) 13:18:25 ID:???] >>872 それ、学歴詐称にあたるんじゃないの？ ちょっと前、問題になったでしょ。 875 名前：nobodyさん mailto:sage [2008/02/02(土) 13:33:00 ID:???] perl土方は新聞を読まない。 876 名前：nobodyさん mailto:sage [2008/02/02(土) 13:46:46 ID:???] WEB系いきゃいいんじゃないの？ 個人的にはなにがなんでもPerlとかいってるPerl使いは嫌だけど 877 名前：nobodyさん mailto:sage [2008/02/02(土) 14:25:02 ID:???] Perlがちょっとくらいできても仕事ねえぜ、と修士出の自宅警備員が言ってみる。 >>874 それ公務員ね。試験区分に対象の学歴があってそれに沿うことが望ましいとされてるから。 というかこれマ板のネタだろ。 878 名前：perl好き情報３回生(本物) ◆qqt5.0NxB6 mailto:sage [2008/02/02(土) 14:40:08 ID:???] ちょっと失礼します。 僕はWebprog板に>>869と同一内容の書き込みをした者です。 >>869は偽者であって僕がマルチポストをしたのではないことを明言しておきます。 トリップをつけたので本物しか相手をしないようお願いいたします。 迷惑をおかけして申し訳ありません。 お騒がせしました。 879 名前：nobodyさん mailto:sage [2008/02/02(土) 15:45:41 ID:???] 質問です。XML::RSSを使って、外部から取得したRSSを加工してHTML(euc-jp)に出力しているのですが、 一部の記号（それも機種依存文字含む）が文字化けします。 − →　\x{ff0d} �o　→　\x{339c} 機種依存文字に関しては、根本的に対応することに意味があるのか疑問ですが、せめてwindowsな環境で 文字化けしないようにしたいのです。どうしたらいいでしょうか？ あんまし分かっていませんが、重要そうな部分だけ。 use XML::RSS; use LWP::Simple; use encoding 'euc-jp', STDOUT => 'euc-jp'; use open IN => ":encoding(euc-jp)"; use open OUT => ":encoding(euc-jp)"; binmode OUT => ":encoding(euc-jp)"; my $rss = new XML::RSS; $rss->parsefile($site_file); my $item_list = $rss->{'items'}; $item = ${$item_list}[0]; my $desc = $item->{'description'}; #一応対策っぽいことをやって一部の記号には対応できた $desc =~ tr/\x{005C}\x{00A5}\x{2014}\x{203E}\x{2225}\x{FF0D}\x{FF5E}\x{FFE0}\x{FFE1}\x{FFE2}/ \x{FF3C}\x{FFE5}\x{2015}\x{FFE3}\x{2016}\x{2212}\x{301C}\x{00A2}\x{00A3}\x{00AC}/; 880 名前：879 mailto:sage [2008/02/02(土) 15:48:16 ID:???] ちなみに、 〜　→　\x{FF5E} に化ける問題は、一番下に書いた置換で解決したのですが、\x{FF0D}は何故かそのまま 文字化けしたままです… 881 名前：879 mailto:sage [2008/02/02(土) 15:55:11 ID:???] すいません、>>880は単純ミスでした、取り消します。 882 名前：879 mailto:sage [2008/02/02(土) 15:57:31 ID:???] 忘れていました。エラーメッセージが出ます。 hogehoge.cgi: "\x{ff0d}" does not map to euc-jp at hogehoge.cgi line 183. 883 名前：nobodyさん mailto:sage [2008/02/03(日) 01:13:34 ID:???] 求人ってほとんどＰＨＰだよなぁ。プラスDreamWeaverの使用をセットで。 perl使ってるところはライブドアとかはてなとか高レベルに使いこなしてるところばっかり。 初〜中級のところは全部ＰＨＰになってしまった。 884 名前：nobodyさん mailto:sage [2008/02/03(日) 03:35:42 ID:???] モバイルならPerlも使ってるとこそこそこあるんでないか 885 名前：nobodyさん mailto:sage [2008/02/03(日) 11:14:58 ID:???] 正規表現とか以外なら、構文同じなんだからすぐに移植できるだろ。 あとはPEARとかを使いこなせればいいわけだから、Perlの基礎がある のなら、１週間程度で、出来るといえるんでね？ Perlで作ったコードをPHPに移植して、これ、私が作りました、みたいな。 886 名前：nobodyさん mailto:sage [2008/02/03(日) 12:57:34 ID:???] PEARってperlでいうCGI.pmみたいなもん？ 887 名前：質問 [2008/02/03(日) 13:04:56 ID:34/ZwImQ] このスレでよいかわかりませんが・・・ 項目を選択しボタンをクリックすると、あるページには選択した項目の画像ファイルを表示し、 もうひとつのページにはその選択した項目を表示させたいのですがどうしたらよいでしょうか？ 最初のページには <form action="A.cgi" target="表示させたいページ"> を埋め込んでいるのですが、当たり前ですがこれだと"表示させたいページ"にしか表示できません。 A.cgiのなかでさらにこの部分だけは他のページへ表示させるとかできませんか？ 888 名前：nobodyさん mailto:sage [2008/02/03(日) 14:09:58 ID:???] >>886 CPANじゃね？ 889 名前：nobodyさん mailto:sage [2008/02/03(日) 14:12:18 ID:???] >>887 それは、Perlの話じゃなくて、htmlの話じゃないの？ フレームタグを使って区切るか、テーブルタグを使って全部を表示させる方法がある。 板違いなので、これ以上の質問はしないように。 890 名前：nobodyさん mailto:sage [2008/02/04(月) 03:22:50 ID:???] >>879 メッセージのとおりで、変換表に該当するものがないんでしょ。 euc-jpMSとか使わないといけないんじゃないの? 891 名前：nobodyさん mailto:sage [2008/02/07(木) 12:55:00 ID:???] perl 5.8.5 CentOS 5.1 「out of memory」のときのエラーハンドリングの方法を教えてください。 dieのときは $::SIG{__DIE__} = sub {〜〜〜}; でいけることまではわかったのですが 「out of memory」がハンドリングできないのです。 よろしくおねがいします 892 名前：nobodyさん mailto:sage [2008/02/07(木) 15:49:01 ID:???] OSの制限だから、ハンドリング考えるよりコード見直す。 それができないのなら、OSの制限上げる。メモリ積む。 893 名前：nobodyさん mailto:sage [2008/02/07(木) 19:10:28 ID:???] perl5.8 my @value=(0,1,3,8);　　#任意のkey my @hoge=('hoge1','hoge2','hoge3'....);　　#表示用配列 my $disp; foreach (@value) {  $disp .= ',' if $disp;  $disp .= $hoge[$_]; } という処理をしているんですが、これってJOINでできませんか？ map使ってもこれより簡単に書けないですよね？ 894 名前：nobodyさん mailto:sage [2008/02/07(木) 19:28:15 ID:???] こういうこと？ my @value = (0, 1, 3, 8); my @hoge = ('hoge1', 'hoge2', 'hoge3', 'hoge4', 'hoge5', 'hoge6', 'hoge7', 'hoge8', 'hoge9'); print join ',', @hoge[@value]; 895 名前：nobodyさん mailto:sage [2008/02/07(木) 20:34:51 ID:???] >>894 おお。ありがとうございます。コードがすっきりします＾＾ 896 名前：nobodyさん mailto:sage [2008/02/08(金) 09:47:17 ID:???] すいません。もう一点。 my $value = "0,1,3,8"; my @hoge = ('hoge1', 'hoge2', 'hoge3', 'hoge4', 'hoge5', 'hoge6', 'hoge7', 'hoge8', 'hoge9'); これは join ',',@hoge[sprit',',$value]; ですよね？ splitしてjoinして勿体無い感じ。。 897 名前：nobodyさん mailto:sage [2008/02/08(金) 10:08:10 ID:???] splitとspliceは別物 898 名前：nobodyさん mailto:sage [2008/02/09(土) 18:24:58 ID:???] valueがスカラーで入れなきゃ一回joinで済む話。 899 名前：nobodyさん [2008/02/11(月) 09:15:09 ID:7AZat8M4] ファイルの最後の行番号を取得したいんですが、 my $endline = $. while (<FH>); としてとりえず取得できたんですが、 その後 seek FH,0,0; として、また１行目から別の処理したいんですがうまくできません。 seekの戻り値をprintしてみると1を返してますが、先頭には戻ってないようです。 windows環境なのが原因でしょうか？ 900 名前：nobodyさん mailto:sage [2008/02/11(月) 09:31:45 ID:???] my $endlineだと局所化されて外側で取得できなくない？ seekしても$.はリセットされないから先頭に巻き戻したら$.= undefとかすればいい 901 名前：nobodyさん mailto:sage [2008/02/11(月) 11:26:23 ID:???] >>900さんレスありがとうございます。 >局所化 あ、ほんとだ。ミスってました。 undef $.; reset $.; それぞれ試してみましたが変化ありませんでした。 その後に while (<FH>) { 　　if ($. == $bigin .. $. == $end) { といった処理をしたいんですが、どうもうまくいきません。 902 名前：nobodyさん mailto:sage [2008/02/11(月) 11:49:03 ID:???] $. = 0;としたらうまくいきました。 ありがとうございました。 903 名前：nobodyさん mailto:sage [2008/02/12(火) 21:28:15 ID:???] 文字コードについて質問します。 utf-8から7bitJISへの変換なのですが、（メール送信のため） Encode.pmもJcode.pmもローマ数字をJISにしてくれません。 Encodeでは「\x{2160}」と変換不可の場合のユニコード値に変換され、 Jcodeでは「?」になります �T（ローマ数字１） \xE2\x85\xA0　utf8　→　\x1B\x24\x42\x2D\x35 JIS と手動で変換してやれば良いのですが、escシーケンスの処理がどうしたものかと・・・ 904 名前：nobodyさん mailto:sage [2008/02/12(火) 23:23:01 ID:???] use lib '../lib'; のように相対パスを使うと出来るけど use lib '/i/cgi-bin/lib'; のように絶対パスを使うと動かなくなります サーバーの設定によって絶対パスだと読み込めなかったりするんでしょうか 普通のリンクだと絶対パスでリンクできます 905 名前：nobodyさん mailto:sage [2008/02/12(火) 23:31:03 ID:???] >>904 本当にそれが絶対パスであれば使えると思うのだが、おそらく違うんだと思う。 906 名前：nobodyさん mailto:sage [2008/02/13(水) 02:37:13 ID:???] >>904 perlから使う絶対パスはwebサイト上の絶対パスじゃないよ。 ・ http鯖がルートとして扱うディレクトリからの絶対パス ・ 鯖のOSの絶対パス の違いを理解しような。 907 名前：nobodyさん mailto:sage [2008/02/13(水) 02:39:50 ID:???] >>903 JISとかISO-2022-JPにはローマ数字はないから。 Encode::EUCJPMS - Microsoft Compatible Encodings for Japanese - search.cpan.org search.cpan.org/~naruse/Encode-EUCJPMS-0.07/EUCJPMS.pm あたりをいれて、cp50220 とか cp50221 で変換する。 908 名前：906 mailto:sage [2008/02/13(水) 10:48:35 ID:???] 有難うございます 調べてみます 909 名前：904 mailto:sage [2008/02/13(水) 10:49:51 ID:???] >>906でした 910 名前：nobodyさん mailto:sage [2008/02/13(水) 12:25:12 ID:???] >>907 ありがとうございます Encode::EUCJPMSモジュールをいれて、 use Encode::EUCJPMS; use Encode; my $cp50220_str = Encode::from_to( $utf8_str , "UTF8" , "CP50220" ); で良いのでしょうか？ 実はフォーム入力はShiftJISでして、CP932からutf-8に一旦エンコードしています。 これで問題はないでしょうか？ 911 名前：nobodyさん mailto:sage [2008/02/14(木) 02:49:22 ID:???] >>910 UTF-8に変換するときにエラーになってなきゃ大丈夫なんじゃない? 〜 あたりが微妙ではあるけど。 912 名前：nobodyさん [2008/02/14(木) 10:56:12 ID:AY3pAm1W] 教えてください。サーバではなくて、自分のPCにPerlをインストールしています。 #!/usr/bin/perl use strict; print "IEを起動します...\n"; system("C:/Program Files/Internet Explorer/iexplore.exe"); exit; __END__ 上のようにすると、IEは起動するのですが、コマンドプロンプトは残ったままで タスクマネージャーにも perl.exeｔが残っています。（残るというか待ってるようですが…） IEを起動したあとはPerlも終了して欲しくて検索したらexecというのがあったので exec("C:/Program Files/Internet Explorer/iexplore.exe");としたら起動しませんでした。 IE起動後速やかにPerlを終了させるにはどうすれば良いでしょうか。 PerlはActivePerl 5.8.8をインストールしました。 もう一つは、my $url = 'www.google.co.jp/'; とした時に IEにこの$urlを開かせるにはどうすればよいのでしょうか。よろしくお願いします。 913 名前：nobodyさん mailto:sage [2008/02/14(木) 11:58:11 ID:???] ヒント： system("start", $url); 914 名前：nobodyさん mailto:sage [2008/02/14(木) 12:23:37 ID:???] >>913 うわぁぁ。ありがとうございました！ 915 名前：nobodyさん mailto:sage [2008/02/14(木) 12:27:34 ID:???] 　　　　/＼＿＿_／ヽ　 　ヽ 　　 ／　　　　::::::::::::::::＼　つ 　 . | 　,,-‐‐　 　‐‐-､ .:::|　わ 　　|　 ､_(o)_,:　 _(o)_,　:::|ぁぁ . 　 |　　　　::<　　　 　 .::|あぁ 　　 ＼　 /( [三] )ヽ ::／ああ 　　　／｀ー‐--‐‐―´＼ぁあ 916 名前：910 mailto:sage [2008/02/14(木) 12:58:24 ID:???] >>911 ありがとうございます。 「〜」は手動でE3 80 9Cに置き換えています。 では教えていただいた方法でやってみようと思います。 917 名前：nobodyさん mailto:sage [2008/02/14(木) 15:13:40 ID:???] fedora8なマシンで監視装置をでっち上げようとしています Net::SMTPについて教えて下さい use Net::SMTP; my $smtp = Net::SMTP->new( $mailhost ); $smtp->mail( $MailFrom ); $smtp->to( $MailTo ); $smtp->data(); $smtp->datasend( "From: $MailFrom\n" ); $smtp->datasend( "To: $MailTo\n" ); $smtp->datasend( "Subject: $e_subject\n" ); $smtp->datasend( "Mime-Version: 1.0\n" ); $smtp->datasend( "Content-type: text/plain; charset=ISO-2022-1\n" ); $smtp->datasend( "Content-transfer-encoding: 7bit\n" ); $smtp->datasend( "Reply-to: $MailFrom\n" ); $smtp->datasend( "$body\n" ); ここでbodyに例えばtestdataと入れると$bodyもメールとして届くのですが、 $bodyをtest:dataとする（半角コロンが入っている）と、$bodyが送られません 何が悪いのかご教示下さい 918 名前：nobodyさん mailto:sage [2008/02/14(木) 15:18:19 ID:???] 半角コロン 919 名前：nobodyさん mailto:sage [2008/02/14(木) 15:28:13 ID:???] つ[ $smtp->datasend( "\n$body\n" ); ] 920 名前：917 mailto:sage [2008/02/14(木) 15:31:16 ID:???] >>919 できました ありがとう　(　；∀；) 921 名前：919 mailto:sage [2008/02/14(木) 15:57:21 ID:???] >>920 よかったな。 バグった状態だと$bodyが送られてこないんじゃなくヘッダに入ってたはず。 メールヘッダと本文の切り分けは「半角コロンが入ってない行が登場した所から本文」って事になってるから、 どんな文が入るか分からん時は、ヘッダの最後に空行を入れれば桶。基本なんで覚えとくと便利。 922 名前：917 mailto:sage [2008/02/14(木) 16:25:19 ID:???] >>919 覚えておきます ありがとうございました(^^ これで沈みます 923 名前：nobodyさん mailto:sage [2008/02/17(日) 21:47:50 ID:???] >>921 ヘッダと本文は空行で分けられます。 ついでに言うと、改行は CRLF (\r\n) にすること。 MTA によっては受け付けてくれません。 924 名前：exe [2008/02/19(火) 11:44:47 ID:L1DAdjnk] ファイルにaからｚ、AからZを交互に連続で出力し、最後に改行して、この処理を１０回繰り返す方法を教えてください。 aAbBcCdDeE・・・yYzZ のような形です。お願いします。 925 名前：nobodyさん mailto:sage [2008/02/19(火) 12:05:44 ID:???] 宿題は自分でやろうな。 926 名前：nobodyさん mailto:sage [2008/02/19(火) 12:06:11 ID:???] print "aAbB.....yYzZ\n"; を10個コピペでおｋ 927 名前：exe [2008/02/19(火) 14:24:58 ID:L1DAdjnk] すいません。10回出力はわかるんですが、for文を使ってaAbBcC...zZの表示方がわからないのでどなたかお願いします。 928 名前：nobodyさん mailto:sage [2008/02/19(火) 14:25:28 ID:???] for(1..10) {   for(65..90) {     print pack("C*",$_);     print pack("C*",$_+32);   }   print "\n"; } 929 名前：exe [2008/02/19(火) 14:42:37 ID:L1DAdjnk] nobody さんありがとうございます。 ちなみに↓の形で書くと、どうしたらよいでしょうか。 何度もすいません。 open (FILE, '>test1.txt') or die "$!"; for my $count (0..9) { for my $i ("a".."z") { } print FILE "\n"; } close(FILE); 930 名前：nobodyさん mailto:sage [2008/02/19(火) 14:59:33 ID:???] # # $countってなんぞ？ # open (FILE, '>', 'test1.txt') or die "$!"; binmode(FILE); for my $count (0..9) {   for my $i('a'..'z') {     print $i;     print uc($i);   }   print FILE "\n"; } close(FILE); 931 名前：nobodyさん mailto:sage [2008/02/19(火) 15:01:42 ID:???] # # ↑はウソ # open (FILE, '>', 'test1.txt') or die "$!"; binmode(FILE); for my $count (0..9) {   for my $i('a'..'z') {     print FILE $i;     print FILE uc($i);   }   print FILE "\n"; } close(FILE); 932 名前：exe [2008/02/19(火) 15:06:17 ID:L1DAdjnk] ありがとうございます。$Countは適当においてる変数です。 933 名前：exe [2008/02/19(火) 15:54:07 ID:L1DAdjnk] 先ほど↑で作ったファイルを出力として、小文字のみを取り除いた結果を標準出力に表示するにはどうしたらよいでしょうか？ 自力でやらないといけないのはわかっているのですが、時間がなくて・・どなたかお願いします。 934 名前：nobodyさん mailto:sage [2008/02/19(火) 16:04:55 ID:???] # # そういうウンコみたいな仕事を漏れにも回してくれよ # $sent = 'dTgZtyYthSGetLt'; $sent =~ s/[a-z]//g; print $sent; 935 名前：nobodyさん mailto:sage [2008/02/19(火) 16:31:12 ID:???] 馬鹿だな、まずはおっぱいうｐしてからだろｊｋ・・・ 936 名前：exe [2008/02/19(火) 16:55:41 ID:L1DAdjnk] 仕事では無いです。笑われてるかもしれませんが初心者の 自分にとっては色々難しくて。時間もありませんでしたので・・ 937 名前：nobodyさん mailto:sage [2008/02/19(火) 17:15:11 ID:???] perlで外部サーバー上のファイルを読み込む方法はありますか？ OPEN("www.aa.com/a.cgi") みたいにして a.cgiの出力結果を元にさらに処理をしたいと思っています 938 名前：nobodyさん [2008/02/19(火) 17:30:48 ID:gLoGL0Ae] >>937 いい手じゃないが、Linuxでwgetが入ってる状態で漏れが使ってる方法 $foo = `wget -O- www.aa.com/a.cgi`; 939 名前：nobodyさん mailto:sage [2008/02/19(火) 17:45:18 ID:???] いやそれが最強。wgetのWIN版もあるからな。-qも付けると良い。 940 名前：nobodyさん mailto:sage [2008/02/19(火) 17:55:56 ID:???] LWP 941 名前：937 mailto:sage [2008/02/19(火) 19:26:35 ID:???] >>938 ありがとうございました 無事　取得することが出来ました。 あと[`]でくくるのはなぜなのでしょう？ 942 名前：938 mailto:sage [2008/02/19(火) 20:13:58 ID:???] >939 モジュール使った方が互換性高いし、そっちの方が良いと思ったんで。 >940のLWPを使うのが最良だと思うが、使い方調べてる気分的な余裕がないんで、 wget使ってそのまま今に至る感じだ。 >941 外部コマンド実行だから。``で囲むと外部コマンドを実行して標準出力が戻ってくる。 ちなみに"perl -T"でやってると、そのままじゃ外部コマンド動かない事があるんで注意。 $ENV{'IFS'}, $ENV{'CDPATH'}, $ENV{'ENV'}, $ENV{'BASH_ENV'}, $ENV{'PATH'}を 退避・削除してから外部コマンドを実行し戻す必要がある。 943 名前：nobodyさん mailto:sage [2008/02/19(火) 20:26:04 ID:???] LWP 944 名前：nobodyさん mailto:sage [2008/02/20(水) 08:23:23 ID:???] >>937-942 search.cpan.org/~gaas/libwww-perl-5.808/lib/LWP/Simple.pm 945 名前：937 mailto:sage [2008/02/20(水) 12:35:11 ID:???] >>938-944 ありがとうございます。 LWPも使えました　研究してみます。 946 名前：nobodyさん mailto:sage [2008/02/20(水) 13:15:09 ID:???] @urlの中に500くらいのサイトのURLが入っています。 そのURLのページにキーワードか書かれているかどうか調べるとき、 foreach (@url) { 　　LWPで取得してキーワードが見つかったら、$count++; } みたいにすると一つずつなので物凄く時間が掛かります。 10個くらい一気に取得する方法はないでしょうか？ 947 名前：nobodyさん mailto:sage [2008/02/20(水) 13:35:03 ID:???] 同じプログラムを10個並列に走らせてそれぞれに50サイトずつ担当させるのが一番楽だと思うよ。 948 名前：nobodyさん mailto:sage [2008/02/20(水) 13:43:09 ID:???] こういう場合ってほとんどはLWPで取得するのが一番時間かかってるのかな？ 949 名前：nobodyさん mailto:sage [2008/02/20(水) 13:59:11 ID:???] >>947 そうですか…分割してみます。 >>948 応答待ちが長いと停止状態です。 950 名前：nobodyさん mailto:sage [2008/02/20(水) 14:34:00 ID:???] fork 951 名前：nobodyさん mailto:sage [2008/02/20(水) 15:01:34 ID:???] プロセスで並列化するとプロセスAは終わってるけど プロセスBは重いサイトがリストにあって終わってないとか 無駄に待ち時間増えるから、threads使える環境ならthreadsのが楽でない？ 952 名前：nobodyさん mailto:sage [2008/02/20(水) 15:03:07 ID:???] JISの文から携帯電話の絵文字部分を退避させたいと思っています。 正規表現について教えてください。 通常の2バイト文字と同様に絵文字[\x75-\x7B][\x21-\x7E]がエスケープシーケンス \x1b\x24\x42と\x1b\x28\x42に囲まれます。 エスケープシーケンスをそれぞれ $esc_in = "\x1b\x24\x42"; $esc_out = "\x1b\x28\x42"; とし、絵文字を $emoji = "[\x75-\x7B][\x21-\x7E]"; とします。 元の文を $str="今日は晴れでした■気温は10度です。";（■は笑顔の絵文字 \x79\x79 ） この$strは $esc_in今日は晴れでした■気温は$esc_out10$esc_in度です。$esc_out とエスケープされます。 やりたい事はこれを $esc_in今日は晴れでした$esc_out[7979]$esc_in気温は$esc_out10$esc_in度です。$esc_out というように[]で絵文字コードを囲い、エスケープシーケンスの整合性をとるというものです。 どなたかご教授いただけないでしょうか？ 953 名前：nobodyさん mailto:sage [2008/02/21(木) 00:49:43 ID:???] それのどこがWeb Programmingなんだ? 954 名前：nobodyさん mailto:sage [2008/02/21(木) 02:07:00 ID:???] JISコードは加工には向かないので、Encode::JP::Mobileあたり使って いったんutf8文字列にしてから加工して戻す方がたぶん見通しいいよ。 955 名前：952 mailto:sage [2008/02/21(木) 03:31:08 ID:???] >>954 ありがとうございます。そちらの方で検討させていただきます。 このような複雑な置換について私は苦手でして、もしこれがお分かりになられるなら後学のためにも教えていただきたいのですが、ご無理でしょうか？ 956 名前：nobodyさん mailto:sage [2008/02/21(木) 10:36:05 ID:???] マッチした文字列の前後は$esc_inで囲って マッチした文字列はルールに沿って変換 ってことかな？ 957 名前：nobodyさん mailto:sage [2008/02/21(木) 10:36:46 ID:???] ×$esc_inで囲って ○$esc_inと$esc_outで囲って 958 名前：nobodyさん mailto:sage [2008/02/21(木) 10:39:56 ID:???] 無理に書くとこんな感じ? 全くお勧めしない。 # 絵文字部分を1文字ずつ加工。 # 1バイトずれてマッチしたり、ascii部分にマッチしないようにしてるので面倒 $str =~ s{ ( (?:\G | ^[^\1b]*\x1b\x24\x42) (?:[^\x1b]{2}|\x1b\x28\x42[^\x1b]*\x1b\x24\x42)*? ) ([\x75-\x7b])([\x21-\x7e]) }{ sprintf "%s\x1b\x28\x42[%02x%02x]\x1b\x24\x42", $1, ord($2), ord($3) }gex; # 冗長なエスケープシーケンスの並びを除去 $str =~ s/(\x1b\x24\x42)+/$1/g; $str =~ s/(\x1b\x28\x42)+/$1/g; $str =~ s/\x1b\x28\x42\x1b\x24\x42//g; $str =~ s/\x1b\x24\x42\x1b\x28\x42//g; 959 名前：952 mailto:sage [2008/02/21(木) 14:20:04 ID:???] >>958 ありがとうございます。 やはりすごい複雑になってしまうんですね。 ( (?:\G | ^[^\1b]*\x1b\x24\x42) (?:[^\x1b]{2}|\x1b\x28\x42[^\x1b]*\x1b\x24\x42)*? ) を見てもさっぱり理解できません。 これが絵文字でない文字を指すというのはわかるのですが、詳しく教えていただけないでしょうか？ または参考になる書籍などがありましたら教えていただけないでしょうか。 960 名前：952 mailto:sage [2008/02/21(木) 14:25:02 ID:???] 書き忘れましたが、Encode::JP::Mobileを使い無事utf8にできました。 これを作った方すごいですね。こんな便利なものがあると知りませんでした。 961 名前：初心者 [2008/02/21(木) 14:43:22 ID:eHzrHpy8] perlでカレンダーを作るのですが、プログラミングする内容としては何がひつようでしょうか？ 何から書いていいやらとっかかりがわかりません。どなたかアドバイス等をお願いします。

---

---

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

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