- 1 名前：デフォルトの名無しさん mailto:sage [2007/03/14(水) 22:54:12 ]
- "The duct tape of the Internet" こと、Perlについての質問箱です。
"There's more than one way to do it" ということで、Perlの奥深さについて皆で語り合い、追求してまいりましょう。
CGIについての質問は板違いです。WEBプログラミング板でどうぞ。
CGIとPerlの区別がつかない人もWEBプログラミング板に行ってください。
(WEBプログラミング板 pc8.2ch.net/php/ )
CGIの質問は答えがPerlと全然関係ない話に帰着する場合が多かったりするのでWEBプログラミング板に行って聞いたほうが得ですよ。
このスレでは(CGI以外の)純粋にPerlのみに関係する質問を取り扱っていこうと思います。
スレ違いの質問にはスルーか、速やかな誘導をお願いします。
www.perl.org/get.html
● 2006/12/21現在の最新版: 5.8.8
● 2006/12/21現在の開発版: 5.9.3
前スレ
Perlについての質問箱 29箱目
pc11.2ch.net/test/read.cgi/tech/1166708139/
リンク集は>>2-3
過去スレは>>4
- 40 名前：デフォルトの名無しさん mailto:sage [2007/03/18(日) 17:29:29 ]
- 英語圏のコミュニティがたくさんあるからだと思うよ
- 41 名前：デフォルトの名無しさん mailto:sage [2007/03/18(日) 17:52:44 ]
- Perl関連のスレがあちこちに散らばってるしなぁ。
本スレがあれば変な分散抑えられるかもだけど…。でもやっぱ過疎りそうだね。
- 42 名前：デフォルトの名無しさん mailto:sage [2007/03/18(日) 18:18:38 ]
- もう道具以上の発展がないんじゃないの
- 43 名前：デフォルトの名無しさん mailto:sage [2007/03/18(日) 18:43:54 ]
- >>34
ありがとうございます。
一瞬演算子レベルであっても良さそうな気はしたが、あってもあまり使わないか。
- 44 名前：27 mailto:sage [2007/03/18(日) 20:40:07 ]
- >>28
>>29
ありがとう。ずっと前から愛してました。
- 45 名前：デフォルトの名無しさん [2007/03/18(日) 22:36:23 ]
- Net::IRCで、サーバーとの接続が切れたら
再度繋ぎなおしたいのですが、接続が切れると、
「No active connections left, exiting...」という表示と共に
スクリプト自体が死んでしまいます。
どうすれば接続が切れたときに再度繋ぎ直すことが出来ますか？
- 46 名前：デフォルトの名無しさん mailto:sage [2007/03/19(月) 00:20:46 ]
- eval
- 47 名前：デフォルトの名無しさん [2007/03/19(月) 13:54:47 ]
- >>31 >>33 >>35-36
ｱﾘｶﾞﾄｳｺﾞｻﾞｲﾏｼﾀ。とりあえず>>33で*.lnkを呼び出して済ませました。
- 48 名前：デフォルトの名無しさん mailto:sage [2007/03/20(火) 16:10:23 ]
- CPAN のモジュールをいろいろ組み込んだ結果、
print 'hello!'; だけでもメモリを 20M くらい使うようになりました。
サーバのメモリが 2G のため、同時に 100 アクセスくらいあると
サーバがかなり重くなってしまいます。
サーバのスペックを上げることになったのですが、
同時に消費メモリも下げろと言われています。
CPAN のモジュールは外せないのですが、
ソフトウェア的に何か解決策はありませんか？
- 49 名前：デフォルトの名無しさん mailto:sage [2007/03/20(火) 16:13:48 ]
- お前は何を言っているんだ？（画像ｒｙ
- 50 名前：デフォルトの名無しさん mailto:sage [2007/03/20(火) 16:17:42 ]
- >>48
いろいろあるだろうけど、コードの再利用で量を減らすとか、
容量の大きい配列は、他の変数への複製を一切せず、全て
参照等で解決するとか。
- 51 名前：デフォルトの名無しさん [2007/03/20(火) 16:21:24 ]
- mod_perl とか FastCGI とか使って、プロセスを使いまわすようにすればいいじゃない
- 52 名前：デフォルトの名無しさん mailto:sage [2007/03/20(火) 16:35:11 ]
- モジュールは何を使ってるの？
- 53 名前：デフォルトの名無しさん mailto:sage [2007/03/20(火) 18:44:58 ]
- そもそも、同時に100アクセスも来るサイトに鯖1台で、CGIでPerlを起動したらCPUが間に合わない
- 54 名前：デフォルトの名無しさん mailto:sage [2007/03/20(火) 18:53:15 ]
- threadsについての質問ですが、
例えばソケットを作ってから新規スレッドを作った場合、ソケットも2つ存在し、
my $sock = IO::Socket::INET - > new(attributes);
my $thread = threads -> create(\&example);
$thread -> detach;
$sock -> close();
この場合、生成されたスレッドからはまだソケット利用できるということでしょうか？
ソケットの実体がいまいち掴めてないので余計に混乱してしまいました・・・
- 55 名前：デフォルトの名無しさん mailto:sage [2007/03/20(火) 20:04:04 ]
- >>54 perl以前にまずスレッドについて勉強したほうがいい。 プロセスとスレッドを混同してる。
- 56 名前：デフォルトの名無しさん mailto:sage [2007/03/20(火) 20:32:31 ]
- >>50に関連しているのかいないのかだけど、
配列をサブルーチンへ渡したりサブルーチンから返したりする場合に、
複数の配列ではなく（1つのリストにまとめられる心配がない）、
大きくもない配列の場合だったら、
そのまま渡したり返したりした方が
ほとんどパフォーマンスが変わらない上にコードの見通しが良くなったりしますか？
- 57 名前：デフォルトの名無しさん mailto:sage [2007/03/20(火) 20:43:08 ]
- >>55
再度勉強してきます。有難うございました。
- 58 名前：デフォルトの名無しさん mailto:sage [2007/03/20(火) 22:10:03 ]
- >>56
？？？
一つのリストにまとめられない心配がない、じゃなくて？
- 59 名前：デフォルトの名無しさん mailto:sage [2007/03/20(火) 22:44:25 ]
- >>56
そりゃあ使わないで済むなら、リファレンスなんて使わないほうがシンプルになるだろうね。
でも、後で「やっぱり大きな配列を扱うようにしたい」とか「複数の配列を受け取りたい」とか
思った時の事を考えると、あらかじめリファレンス受け取りにしといた方が、少ない変更で済んで
互換性を保ちやすいのは確かだと思うよ。
- 60 名前：50 mailto:sage [2007/03/20(火) 23:00:32 ]
- そうでしょうね。
先のメモリ最適化は、perlみたいな高級言語(BASICとか)では
できる事には限界があるでしょね。
メモリの解放だってできないすぃ。いかに使わないか、なのかな。
- 61 名前：56 mailto:sage [2007/03/21(水) 07:11:38 ]
- >>58
自分の書き方がまどろっこしくてごめんなさい
●複数の配列ならまとめられてしまうので、リファレンスのリストで渡す・返すのは必須
●考えていたサブルーチンでは、複数の配列を渡さない・返さない
＝ リストがまとめられる心配がないので、リファレンスを使わず無精でｳﾏｰ
と考えていました
>>59-60
サンクスです
短期的には何はともあれプロファイラで見るか、という勢いだったのですが、
中長期的な視点も大事ですね
ループで回しているようなサブルーチンだとかだと、
塵も積もれば……にもなりそうですので、節約することにします
- 62 名前：デフォルトの名無しさん mailto:sage [2007/03/21(水) 14:03:20 ]
- >>48
プロセス間通信を使うのがいいんじゃないかな。
モジュールを呼び出して実行するプロセスを一つ立ち上げて、
他のプロセスはこのプロセスと通信して実行結果をもらうようにする。
- 63 名前：デフォルトの名無しさん mailto:sage [2007/03/21(水) 14:07:03 ]
- 突然すみません、エスパーを募集します。
MP3::InfoモジュールがどうもShiftJISを想定してないのかどうかは知りませんが、
とにかくID3v1（エンコードはShiftJIS）で曲名など、日本語を含んだ文字列を取得すると
utf8フラグを持っているのに中身はShiftJISという訳の分からない文字列が出ます。
そしてGuessでfrom_toでutf8に変換しようとすると、
iso-8859-1 or utf8 at C:/Perl/lib/Encode.pm line 186
上記のエラーで止まってしまいます。Jcodeのgetcodeでもutf8と判別されました。
これを、通常のShiftJISの文字列にするにはどうすれば良いでしょうか。
ID3v1にShiftJIS以外の文字列が入るかどうかは置いといて、
色々やって通常のShiftJISの文字列にしようと試みたのですが、
激しい文字化けに見舞われたり、だめでした。
どうか、お力をお貸しいただけませんでしょうか。宜しくお願いします。
- 64 名前：デフォルトの名無しさん mailto:sage [2007/03/21(水) 14:54:56 ]
- POD嫁
書いてあるから
- 65 名前：63 mailto:sage [2007/03/21(水) 15:08:22 ]
- >>64
すみません、英語は正確に読めません。
フィーリングで適当にイグザンプルを斜め読みして書いてます。
use_mp3_utf8() の事でしたら、違います。
確かにこれでShiftJISは治るのですが、
Unicodeが全部"?"に変換されてしまいます。
- 66 名前：デフォルトの名無しさん mailto:sage [2007/03/21(水) 15:24:47 ]
- > utf8フラグを持っているのに中身はShiftJIS
shiftjisにutf8フラグが付いてるだけじゃないの？
- 67 名前：63 mailto:sage [2007/03/21(水) 15:41:15 ]
- >>66
その通りだと思うのですが、
_utf8_off、encode、decode等してみたのですが
全て化け化けの結果が返ってきたのです…
- 68 名前：デフォルトの名無しさん mailto:sage [2007/03/21(水) 16:19:55 ]
- >>65
英語を勉強しろよ。
別のモジュールを使おうとしたときに同じような目に遭うぞ
- 69 名前：デフォルトの名無しさん mailto:sage [2007/03/21(水) 17:58:00 ]
- 必要なのは、RAW_V1なんだよな〜
- 70 名前：デフォルトの名無しさん mailto:sage [2007/03/21(水) 18:34:37 ]
- 1年くらい前に同じ問題で七転八倒したことがあるけど、Rubyに逃げたわ。
Rubyでもモジュールの内臓を引き摺り出して書き換える必要があったけど。
- 71 名前：デフォルトの名無しさん mailto:sage [2007/03/21(水) 21:42:27 ]
- >>63
お約束の「はまり」だ。自力で頑張ってくれ。
例のごとく「PODを読め」とかほざいているやつは、Jcode使えとか言ってるバカと同様
八割方テメエでもできないから心配することはない。
ちなみに、あんたが既に挙げている材料だけでうまくいくよ。
- 72 名前：63 mailto:sage [2007/03/21(水) 22:28:13 ]
- >>71
もうかなり悩んでるんです…
挙句の果てにはUnicode文字が含まれてたら
_utf8_off で普通の文字列にし、それ以外はShiftJISとしてutf-8にエンコードしてます。
本当にお願いします…コードをいくつか書いて頂ければ…
- 73 名前：デフォルトの名無しさん mailto:sage [2007/03/22(木) 00:07:55 ]
- utf8フラグだけ落としたらいいじゃない
- 74 名前：デフォルトの名無しさん [2007/03/22(木) 04:24:32 ]
- ご存じの方ありましたら教えてください。
掲示板に貼られる画像のサニタイジングをしたいのですが、CPANか
どこかにコードがなかったでしょうか。とりあえずJPEGとPNGだけでも
処理できたらいいのですが。
- 75 名前：デフォルトの名無しさん mailto:sage [2007/03/22(木) 05:05:44 ]
- しかし、文字コードになるとキレる奴がいるなｗ
- 76 名前：デフォルトの名無しさん mailto:sage [2007/03/22(木) 08:35:23 ]
- >>74 適当なモジュールでデコードしてエンコードすればいいんじゃ
- 77 名前：デフォルトの名無しさん mailto:sage [2007/03/22(木) 08:43:35 ]
- ImageMagick
- 78 名前：74 mailto:sage [2007/03/22(木) 15:14:14 ]
- >>76-77
ありがとうございます。試してみます。
- 79 名前：デフォルトの名無しさん mailto:sage [2007/03/22(木) 16:11:56 ]
- The GUI LoftのようなGUIデザインツールがTkにもあれば教えていただけないでしょうか？
- 80 名前：デフォルトの名無しさん mailto:sage [2007/03/22(木) 17:12:58 ]
- $q = new CGI;
これがエラーになるのですが考えられる原因はなんでしょうか？
- 81 名前：デフォルトの名無しさん mailto:sage [2007/03/22(木) 17:22:22 ]
- ・perlのパスが違う
・useしてない
・モジュールが無い
・ブラウザで表示してるのにContentヘッダを出力してない
・脳内鯖にしかアップしてない
とりあえずエラーログ見ればいいと思う
- 82 名前：デフォルトの名無しさん mailto:sage [2007/03/22(木) 17:44:29 ]
- use strictをはずしたら動きました
- 83 名前：デフォルトの名無しさん mailto:sage [2007/03/22(木) 17:55:05 ]
- それはまず、なぜstrictありで怒られてたのかを考えるべきところじゃないのか?
- 84 名前：デフォルトの名無しさん mailto:sage [2007/03/22(木) 18:03:42 ]
- っ my
- 85 名前：デフォルトの名無しさん [2007/03/22(木) 18:03:46 ]
- ・$qをmyしてない
- 86 名前：デフォルトの名無しさん mailto:sage [2007/03/22(木) 18:14:19 ]
- >>82
- 87 名前：デフォルトの名無しさん mailto:sage [2007/03/22(木) 18:28:02 ]
- いろいろな点で酷過ぎる
- 88 名前：デフォルトの名無しさん mailto:sage [2007/03/22(木) 19:39:44 ]
- strictはずのは自殺行為
- 89 名前：デフォルトの名無しさん mailto:sage [2007/03/22(木) 19:43:35 ]
- エラー隠蔽者には、まずエラー内容を吟味することを教えようぜ。
- 90 名前：デフォルトの名無しさん mailto:sage [2007/03/22(木) 20:24:23 ]
- 質問です。
正規表現で伸ばし棒を使うとエラーが出てしまうのですがこれを回避する方法はないでしょうか？
よろしくお願いいたします
- 91 名前：デフォルトの名無しさん mailto:sage [2007/03/22(木) 20:25:37 ]
- 伸ばし棒ってどれ。
- 92 名前：デフォルトの名無しさん [2007/03/22(木) 20:26:57 ]
- ー
これです
- 93 名前：デフォルトの名無しさん mailto:sage [2007/03/22(木) 20:27:49 ]
- これも同じ人？向こうの方がいいんじゃないかな。
- 94 名前：デフォルトの名無しさん mailto:sage [2007/03/22(木) 20:30:15 ]
- >>90
具体的にエラーがでる正規表現と、エラーの文も書いてくれ
- 95 名前：デフォルトの名無しさん mailto:sage [2007/03/22(木) 20:33:42 ]
- >>94
my $str = "test";
$str =~ s/ニート//;
Unmatched [ in regex; marked by <-- HERE in m/ニー <-- HERE ト
and Settings\\デスクトップ\httpd142p\test.pl line 3.
こんな感じです
>>93
>>90=>>92です
- 96 名前：デフォルトの名無しさん mailto:sage [2007/03/22(木) 20:34:12 ]
- >>92
2バイト目が [ になってるんでperlが混乱してるんだな。
- 97 名前：デフォルトの名無しさん mailto:sage [2007/03/22(木) 20:37:10 ]
- >>95
\Q\Eで囲め
- 98 名前：デフォルトの名無しさん mailto:sage [2007/03/22(木) 20:40:14 ]
- >>97
！！！！！
できました！！ありがとうございます！！！
- 99 名前：デフォルトの名無しさん mailto:sage [2007/03/22(木) 21:22:20 ]
- \Q\Eか。それ忘れてた。前それではまって、m/コピ\x{81}\x{5b}/なんてことやってた。
- 100 名前：デフォルトの名無しさん mailto:sage [2007/03/22(木) 21:33:38 ]
- あほうは、新テンプレ通りやれよ。同じ事何度も言わせんな。
- 101 名前：デフォルトの名無しさん mailto:sage [2007/03/22(木) 21:52:35 ]
- そうだな。
>>98は黙って>>10に書いてある通りのことをやれ。
- 102 名前：デフォルトの名無しさん mailto:sage [2007/03/22(木) 21:53:25 ]
- シフトJISって懐かしい。
- 103 名前：デフォルトの名無しさん mailto:sage [2007/03/22(木) 22:08:34 ]
- #!/usr/local/bin/perl
use strict;
use LWP::Simple;
use XML::Simple;
my $api = 'd.hatena.ne.jp/exist?mode=xml&url=';
my $url = 'www.yahoo.co.jp/';
my $document = LWP::Simple::get（$api.$url）
or die "cannot get content from $url";
my $parser = XML::Simple->new;
my $data = $parser->XMLin（$document）;
print $data->{count}->{bookmark}->{content}, "\n";
www.itmedia.co.jp/enterprise/articles/0702/26/news011.html
ここのサンプルなんですがエラーがでました
何が悪いのでしょうか？そんなに難しいことをやってるわけではないと思うのですが
- 104 名前：デフォルトの名無しさん mailto:sage [2007/03/22(木) 22:40:11 ]
- なんていうエラーがどこで出たのよ?
- 105 名前：デフォルトの名無しさん mailto:sage [2007/03/22(木) 22:45:19 ]
- HTTP 500 - 内部サーバー エラー です
- 106 名前：デフォルトの名無しさん mailto:sage [2007/03/22(木) 22:48:42 ]
- なんでブラウザにエラーが出るわけ?
- 107 名前：デフォルトの名無しさん mailto:sage [2007/03/22(木) 22:48:48 ]
- テンプレに
>エラーが出たらエラーをそのままコピペしろ
と入れた方がいいね。
>>105
コマンドラインで実行した結果を出せよ。出せないなら、WebProg逝き。
- 108 名前：デフォルトの名無しさん mailto:sage [2007/03/22(木) 22:56:48 ]
- 自己解決しました
コピペした括弧が全角でした
なんで括弧だけ全角なのか意味不明です
わざとなんでしょうかね
ひどいサンプルです
- 109 名前：デフォルトの名無しさん mailto:sage [2007/03/22(木) 23:02:58 ]
- ここって初心者向けのスレなの？
- 110 名前：デフォルトの名無しさん mailto:sage [2007/03/22(木) 23:05:47 ]
- 行番号が付いてるところからも、コピペを前提とはしてない、実際に
手を動かして理解するためのコードだとは思うが、なんで括弧が半端
に全角になってるんだろうな。(9行目の2つと13行目の閉じ括弧)
- 111 名前：デフォルトの名無しさん mailto:sage [2007/03/22(木) 23:35:37 ]
- 普通の記事をいつも上げるときに使ってるスクリプトがお節介でもしたんだろう。
- 112 名前：デフォルトの名無しさん mailto:sage [2007/03/22(木) 23:37:14 ]
- ｆｔｐで相手サーバの接続先にあるファイルのリスト（ワイルドカードで指定した名前に
一致するファイルの一覧）を配列に取得したいのですが相手サーバの設定の関係で
ｗｇｅｔとやらを使って接続しないといけません。
ｗｇｅｔの使い方は調べてみたのですが、それをPerlから実行してファイル一覧を取得
するにはどうやったらよいのでしょうか？
- 113 名前：デフォルトの名無しさん mailto:sage [2007/03/22(木) 23:44:57 ]
- open("wget -O- $url |");
どんな内容が返ってくるかは実際に見てみれ。
- 114 名前：デフォルトの名無しさん mailto:sage [2007/03/23(金) 00:07:22 ]
- >>74
サニタイジングなんて言ってたら高木大先生に張り倒されるぞ！
- 115 名前：デフォルトの名無しさん mailto:sage [2007/03/23(金) 00:43:28 ]
- たいていの場合wget呼ぶよりはLWP使うほうがプログラムは楽だと
思うのだが、wget使わないと取れないってどういう仕掛けなのだろう??
- 116 名前：デフォルトの名無しさん mailto:sage [2007/03/23(金) 02:01:06 ]
- FTPで接続だから、LWPよりもNet::FTPじゃね？
- 117 名前：デフォルトの名無しさん mailto:sage [2007/03/23(金) 07:36:19 ]
- >>113
ありがとうございます。やってみます。
>>115-116
Net::FTPで作ってたのですがこれだと相手に繋がらなくて客先の担当の方が
「ｗｇｅｔ使ってください」とのことでした。
- 118 名前：デフォルトの名無しさん mailto:sage [2007/03/23(金) 08:57:31 ]
- wgetでとれてNet::FTPだとだめというのもかなり不思議だな。
原因はわかってるのかな。それともwgetだと実績あるから
調べるの面倒だしそれにしとけとあしらわれたか?
- 119 名前：デフォルトの名無しさん [2007/03/23(金) 09:41:38 ]
- 突然ですが、xxxyyy.html というファイル名のファイルの、
全てのa要素のhref属性値をzzzwww.html というファイルに出力する方法を教えてください。
- 120 名前：デフォルトの名無しさん mailto:sage [2007/03/23(金) 09:56:38 ]
- >>118
passiveコマンド叩けば通るとかいうオチだったりして……
- 121 名前：デフォルトの名無しさん mailto:sage [2007/03/23(金) 10:23:13 ]
- >>119
突然だねぇ・・・
- 122 名前：デフォルトの名無しさん mailto:sage [2007/03/23(金) 10:24:01 ]
- >>119
ググレカス
module.jp/blog/monday_module_HTML-LinkExtor.html
- 123 名前：デフォルトの名無しさん mailto:sage [2007/03/23(金) 17:56:12 ]
- 突然DOMで対抗してみたり
javascript:a=document.getElementsByTagName('a');b='';for(i=0;i<a.length;i++)b+=a[i].href+'<br>';document.write(b);
- 124 名前：デフォルトの名無しさん mailto:sage [2007/03/26(月) 16:19:01 ]
- >>117
pasv() しても駄目か?
ファイヤーウォールがある場合は passive mode にしないと駄目なことがあるぞ。
- 125 名前：デフォルトの名無しさん mailto:sage [2007/03/28(水) 11:20:00 ]
- 初心者質問で申し訳ないのですが、perlでコロン単体にはどのような意味があるのでしょう。
リファレンスを引いても載ってないし...。
- 126 名前：デフォルトの名無しさん mailto:sage [2007/03/28(水) 11:49:02 ]
- 三項演算子?
- 127 名前：デフォルトの名無しさん mailto:sage [2007/03/28(水) 11:54:00 ]
- >>126
下記（*）の$_の手前にあるヤツなんですが・・
# CSV形式の $line から値を取り出して @values に入れる
{
my $tmp = $line;
$tmp =~ s/(?:\x0D\x0A|[\x0D\x0A])?$/,/;
@values = map {/^"(.*)"$/ ? scalar($_ = $1, s/""/"/g, $_) : $_} …（*）
($tmp =~ /("[^"]*(?:""[^"]*)*"|[^,]*),/g);
}
Perlメモ
www.din.or.jp/~ohzaki/perl.htm#CSV2Values
- 128 名前：デフォルトの名無しさん mailto:sage [2007/03/28(水) 12:05:15 ]
- どう見ても三項じゃん
- 129 名前：デフォルトの名無しさん mailto:sage [2007/03/28(水) 12:12:49 ]
- なるほど。ありがとうございました。
- 130 名前：デフォルトの名無しさん [2007/03/29(木) 01:14:28 ]
- substrで数値文字列から”001”のような文字列を切り出したいのですが、
デフォルトでは数値として扱われてしまい、1になってしまいます。
キャストの方法を調べたけど思うような情報が得られません。
もうしわけありませんが、教えていただけないでしょうか。
- 131 名前：デフォルトの名無しさん mailto:sage [2007/03/29(木) 01:41:02 ]
- sprintfとかは？
- 132 名前：デフォルトの名無しさん [2007/03/29(木) 08:07:32 ]
- >>130
ウチの環境下だと、普通に文字列認識なんだが変数かなんかに突っ込んで、
計算かましたりしてない？
% perl -le 'print substr qq{00001}, 3'
01
% perl -le 'print unpack qq{x3A2}, qq{00001}'
01
- 133 名前：デフォルトの名無しさん mailto:sage [2007/03/29(木) 08:08:16 ]
- 上げてもた…
- 134 名前：デフォルトの名無しさん mailto:sage [2007/03/29(木) 08:27:21 ]
- 文字列比較で $name == "admin" とかやってるのでは
- 135 名前：デフォルトの名無しさん mailto:sage [2007/03/29(木) 14:13:36 ]
- +で連結してるとか。
- 136 名前：デフォルトの名無しさん mailto:sage [2007/03/29(木) 19:40:09 ]
- $val="2007年3月29日○○の温度は20度、○○の温度は10度、○○の温度は15度";
のような文字列があった場合
○○の温度は10度の"10"を取得したいのですが、
どのように正規表現を書けばいいんでしょうか。
$value =~ /([0-9]+)/ のようにすると $1=2007 となりますが、
最大マッチしたうちのn番目を取得できたりする書き方があるんでしょうか
例がちょっとあれですが、○○には同じワードが入ることを想定してます。
- 137 名前：デフォルトの名無しさん mailto:sage [2007/03/29(木) 19:42:39 ]
- 本嫁
- 138 名前：デフォルトの名無しさん mailto:sage [2007/03/29(木) 19:57:25 ]
- while ($val =~ /([0-9]+)/g){ push(@val, $1); }
print "$word[3]\n";
汚くなったけど、上記のようにしてなんとかできました。失礼しました。
- 139 名前：デフォルトの名無しさん mailto:sage [2007/03/29(木) 20:08:05 ]
- まー本人がいいっていうのならいいよね(´・ω・`)
- 140 名前：デフォルトの名無しさん mailto:sage [2007/03/29(木) 20:10:40 ]
- なにか他にやりかたあれば教えてください(つД｀)
|
 |
