Perlについての質問箱 37箱目

1 名前：デフォルトの名無しさん mailto:sage [2008/08/11(月) 19:10:40 ] "The duct tape of the Internet" こと、Perlについての質問箱です。 "There's more than one way to do it" ということで、 Perlの奥深さについて皆で語り合い、追求してまいりましょう。 CGIについての質問は板違いです。WEBプログラミング板でどうぞ。 CGIとPerlの区別がつかない人もWEBプログラミング板に行ってください。 ( WEBプログラミング板 pc11.2ch.net/php/ ) CGIの質問は答えが Perlと全然関係ない話に帰着する場合が 多かったりするのでWEBプログラミング板に行って聞いたほうが得ですよ。 このスレでは(CGI以外の)純粋にPerlのみに関係する質問を取り扱っていこうと思います。 スレ違いの質問にはスルーか、速やかな誘導をお願いします。 www.perl.org/get.html ● 2008/08/11 現在の最新版（安定版）: 5.10.0 ● 2008/08/11 現在の開発版: 5.9.5 ▼ 前スレ Perlについての質問箱 36箱目 pc11.2ch.net/test/read.cgi/tech/1215569470/ リンク集は>>2-3 Perl 日本語処理の基礎の基礎 >>4 過去スレは>>5-6 あたり 175 名前：デフォルトの名無しさん mailto:sage [2008/08/19(火) 00:25:54 ] レベル低い質問ばっかりだな 176 名前：デフォルトの名無しさん mailto:sage [2008/08/19(火) 00:26:48 ] >>175 妬むなよ！ 177 名前：デフォルトの名無しさん mailto:sage [2008/08/19(火) 00:27:05 ] レベル低い煽りばっかりだな 178 名前：デフォルトの名無しさん mailto:sage [2008/08/19(火) 00:28:28 ] そりゃ、初心者の廚が常駐してんだもん、 レベルの高い質問になるわきゃねえ。 まあ、夏休みが終るまでの我慢我慢。 179 名前：デフォルトの名無しさん mailto:sage [2008/08/19(火) 00:44:47 ] 夏休みであって欲しいとか小中学生であって欲しいとは思う。 180 名前：デフォルトの名無しさん mailto:sage [2008/08/19(火) 01:03:15 ] >>168 見ればみるほどすごいわ 天才だろこれ 181 名前：デフォルトの名無しさん mailto:sage [2008/08/19(火) 01:53:07 ] >>180 grepやmapは暗黙的なloopを構成できるので、 馴れればすぐにそれっぽく書けるようになるよ。 182 名前：デフォルトの名無しさん mailto:sage [2008/08/19(火) 01:56:59 ] さーせん、xmlの変更処理で、簡単で短いコードを教えてください。 検索処理ではなく、変更処理っす、文字列でなく、xml文章として扱って変更するタイプ。 入力xmlは、標準入力かファイル名、出力するxmlは標準出力 処理前xml <xml? ....ありきたり> <root:yesroot> <!-- subtree --> <subt e='befoore' /> </root:yesroot> 変更後xml <xml? ....ありきたり> <root:yesroot> <!-- subtree --> <subt ele='after' /> </root:yesroot> 自分で作るにあたって参考にしたサイトは、 www.ibm.com/developerworks/jp/xml/library/x-xmlperl1.html( 1 - 3) なんですが、どうも簡単。ってレベルじゃないと”感じ”ました。 javac,c,python,rubyでやっても同じじゃん。みたいな。 183 名前：デフォルトの名無しさん mailto:sage [2008/08/19(火) 02:11:33 ] >>181 みっともないやつだな 184 名前：デフォルトの名無しさん mailto:sage [2008/08/19(火) 02:59:31 ] >>182 > 検索処理ではなく、変更処理っす、文字列でなく、xml文章として扱って変更するタイプ。 Perl は入力をほとんど常にバイト列として扱います。 XML として扱いたいなら XML::* モジュール郡を使ってください。 > javac,c,python,rubyでやっても同じじゃん。みたいな。 そういうことなら Perl にこだわる必要もないのでは? 185 名前：デフォルトの名無しさん mailto:sage [2008/08/19(火) 10:54:11 ] CGIレベルでなくて、純粋なコンソールレベルの perlの入門書を探しているんだが、あんまりないね。 結城さんのは読んだし、すぐわかるperlは今読んでるし。 186 名前：デフォルトの名無しさん mailto:sage [2008/08/19(火) 14:08:22 ] Perl初めて塾　やさしいPerl ［表計算的処理編］ ミニマルPerl Perlクックブック Volume 1 等々あるけど、べつに結城本でもテキスト処理はカバーしてるよ。 CGIも処理の大半はテキスト処理だし 187 名前：デフォルトの名無しさん mailto:sage [2008/08/19(火) 14:19:56 ] 何でこんな変な文字列になるのですか？ $a = "\Q声"; print $a # => \申ｺ 188 名前：デフォルトの名無しさん mailto:sage [2008/08/19(火) 14:24:45 ] \Q ... \E は英数字以外の文字にバックスラッシュを追加する 189 名前：デフォルトの名無しさん mailto:sage [2008/08/19(火) 14:37:28 ] >>188 そうなんだ サンクス 190 名前：デフォルトの名無しさん mailto:sage [2008/08/19(火) 17:11:25 ] >>172 ヒント： sub hogehoge(){ 'Hello World!!'; } print hogehoge(); #Hello World!! 191 名前：デフォルトの名無しさん mailto:sage [2008/08/19(火) 19:53:40 ] >>190 なにか、名前はついてるんですか？ 「サブルーチンの、無宣言呼び出し」とか。 名前がわからないと、本で調べることもできないし。 たぶん、このサブルーチンの呼び出し方は 入門書レベルでは解説ないですよね？ ＆をつけて呼ぶ方法しかのってないのが普通だと思う。 192 名前：デフォルトの名無しさん mailto:sage [2008/08/19(火) 20:09:01 ] 本が古いだけなんじゃ 193 名前：デフォルトの名無しさん mailto:sage [2008/08/19(火) 20:31:06 ] ラクダ本だと「裸のワード」ってよばれてる。 $, @, & とかなくてクォーテーションで囲まれてない文字列をどう解釈するか。 @list = (hoge, hage); print $list[1]; とかね。 194 名前：デフォルトの名無しさん mailto:sage [2008/08/19(火) 20:41:57 ] >>191 >＆をつけて呼ぶ方法しかのってないのが普通だと思う。 …いつの時代の人ですか？ 195 名前：デフォルトの名無しさん mailto:sage [2008/08/19(火) 21:02:35 ] …誰も突っ込まんから一応突っ込むが、 >>168はごくごく普通のサブルーチン >>190はプロトタイプ付きのサブルーチン（引数を取らないと宣言している） 本人は解ってて書いてるのかも知れんが、 sub hoge(){ 　my $dat = shift ; 　… } とかやる奴が出てきそうで怖い ってここまで書いて初心者スレじゃない事を思い出した。ご丁寧に書く必要なかったな 196 名前：デフォルトの名無しさん mailto:sage [2008/08/19(火) 21:30:42 ] 初心者スレとかあるの？ 197 名前：デフォルトの名無しさん mailto:sage [2008/08/19(火) 22:03:03 ] webprogにあるよ 198 名前：デフォルトの名無しさん mailto:sage [2008/08/19(火) 22:46:49 ] >>195 微妙に難しいな。 いや解説してくれたのはありがたいんだけど。 プロトタイプってレベル２だろ。 199 名前：デフォルトの名無しさん mailto:sage [2008/08/19(火) 23:16:23 ] あっち池。 Perlコーディング初心者質問スレ Part 58 ttp://pc11.2ch.net/test/read.cgi/php/1218030872/ くだすれPerl（超初心者用）2 ttp://pc11.2ch.net/test/read.cgi/php/1204488452/ 200 名前：デフォルトの名無しさん mailto:sage [2008/08/20(水) 00:14:27 ] >>199 一時期そちら方面でもお見かけしたのですけれど、 どうも、その…、回答者の質がお気に召さないご様子でして、 大変光栄なことに、数を撃てばなにがしかの情報が引き出せて、 かつ適度に遊んでもらえるこちらに居を定められた模様なのですよ。 個人的に殿下には、同じあちらでも下記スレをおすすめ申し上げたい。 pc11.2ch.net/test/read.cgi/php/1158647441/l50 201 名前：デフォルトの名無しさん mailto:sage [2008/08/20(水) 00:39:07 ] 何度同じサイクルを回れば気が済むんだよ、チンポしゃぶりどもが。 202 名前：デフォルトの名無しさん mailto:sage [2008/08/20(水) 00:54:32 ] おまえもな 203 名前：デフォルトの名無しさん mailto:sage [2008/08/20(水) 01:09:57 ] おまえもな 204 名前：デフォルトの名無しさん mailto:sage [2008/08/20(水) 01:17:11 ] おれらもな 205 名前：デフォルトの名無しさん mailto:sage [2008/08/20(水) 01:17:56 ] おまえだけだよ 206 名前：デフォルトの名無しさん mailto:sage [2008/08/20(水) 01:24:36 ] いやいやおまえもだろ 207 名前：デフォルトの名無しさん mailto:sage [2008/08/20(水) 02:58:59 ] もういいです 208 名前：デフォルトの名無しさん mailto:sage [2008/08/20(水) 14:06:12 ] いやいやよくない 209 名前：デフォルトの名無しさん mailto:sage [2008/08/20(水) 15:22:53 ] こういうのははっきりさせとかないとな 210 名前：デフォルトの名無しさん mailto:sage [2008/08/20(水) 20:06:37 ] 正規表現って、 s///と、 tr///と、 m///と、 3つの種類しかないの？ 211 名前：デフォルトの名無しさん mailto:sage [2008/08/20(水) 20:13:12 ] つ split(//) 別にこれらが正規表現な訳では無い これらのパターンマッチ関数で正規表現を使用しているという事 212 名前：デフォルトの名無しさん [2008/08/20(水) 20:38:24 ] 質問age hoge.plは処理の中でlocaltimeを取得するんですが、hoge.pl自体の改修はせずに 実行時にlocaltimeを指定してやることは可能でしょうか？ 別のhogehoge.plを作って、その中で指定した値をlocaltimeとしてhoge.plに渡して実行 みたいなことができるとベストなんですが。 213 名前：デフォルトの名無しさん mailto:sage [2008/08/20(水) 22:30:23 ] 意味不明 214 名前：デフォルトの名無しさん mailto:sage [2008/08/20(水) 23:05:42 ] >>212 が言いたいのは、たぶん、 hogehoge.plの中味で、 $a=123456; とかを指定。 そんで、 localtime=$a; とかにする。そんで、 hoge.plを実行するときに、引数で渡す。 perl hoge.pl localtimeとか。 そしたら、hoge.plが、引数として渡された localtimeを食って、localtimeとして実行する。 こんなイメージだと思う。違ってたら言って。 215 名前：212 mailto:sage [2008/08/21(木) 00:00:51 ] >>214 すいません、ちょっと違います。 hoge.plは純粋にlocaltimeを取得するだけで 引数をlocaltimeとして扱うという機能はありません。 例えば、実行するとそのときの時刻をテキストに書き込む、といった感じです。 実行したときの実際の時刻とは違う時刻を取得させたいのですが hoge.pl自体を改修せずに実現できないものかと考えております。 216 名前：デフォルトの名無しさん mailto:sage [2008/08/21(木) 00:28:35 ] 最初から、そのhoge.plが、 引数を食うような設計になってないと、 無理なんじゃないかな。 217 名前：デフォルトの名無しさん mailto:sage [2008/08/21(木) 00:33:33 ] ビルトイン関数をユーザ定義関数で置き換えることって出来なかったっけ？ 218 名前：デフォルトの名無しさん mailto:sage [2008/08/21(木) 01:13:12 ] # hogehoge.pl chomp( my $the_world = `time /t` ); my $you_want = '00:00'; system( 'time', $you_want ) and die; system( 'perl', '.\\hoge.pl' ) and die; system( 'time', $the_world ) and die; # そんなことやってると、もっと恐ろしいものの片鱗を味わうことになる。 # 今のうちにやめとけ。俺は止めたからな。 219 名前：デフォルトの名無しさん mailto:sage [2008/08/21(木) 01:50:57 ] ビルトイン関数のオーバーライドはできるよ 220 名前：デフォルトの名無しさん mailto:sage [2008/08/21(木) 02:25:11 ] localtime($hogehoge::hogetime) とか hogehoge::hogetime() にするのが本当に無理な状況なら 権限がないので書き換えられないと書いてそうなんだけどな。 221 名前：デフォルトの名無しさん mailto:sage [2008/08/21(木) 13:06:25 ] www.nicovideo.jp/watch/sm2744352 これってperlでもできるのかな？ 222 名前：デフォルトの名無しさん mailto:sage [2008/08/21(木) 17:19:21 ] ああ 223 名前：デフォルトの名無しさん mailto:sage [2008/08/21(木) 18:22:30 ] Q.「〜はPerlでも可能ですか?」 A.「できます」 ほとんどの "〜" について上記の答が返ってきます。 "〜" が「電気ストーブの作成」である場合等、いくつかの例外を除いて。 224 名前：デフォルトの名無しさん mailto:sage [2008/08/21(木) 18:28:57 ] >>221 電気ストーブ作りたいならここ参考にね☆ pc11.2ch.net/test/read.cgi/php/1010583350/ 225 名前：デフォルトの名無しさん mailto:sage [2008/08/21(木) 22:11:55 ] なんか質問の趣旨が誤解されてるようですが、 perlで同じ物作れるか？って質問でなくて、 perlでソースコード組むときに、このシステム使って ネット経由でペアプログラミングしたりとか、 自分のコーディングを録画して中継したりとか できるのかな？って意味だったのですが。 226 名前：デフォルトの名無しさん mailto:sage [2008/08/21(木) 22:15:18 ] うむ 227 名前：デフォルトの名無しさん mailto:sage [2008/08/21(木) 22:15:21 ] ああ 228 名前：デフォルトの名無しさん mailto:sage [2008/08/21(木) 22:36:43 ] kazato.run.buttobi.net/cgi-bin/material/src/vm002_0183.png perl版のこういうの作らない？ 　　　　　　　　　　　　　　　　while 文字列の長さを取得する　　　　　ループを作る みたいなの 229 名前：デフォルトの名無しさん mailto:sage [2008/08/21(木) 22:37:33 ] >>226 ちょっとperlでソースコード書いて、 >>221のシステムでうぷしてもらえませんか？ 230 名前：デフォルトの名無しさん mailto:sage [2008/08/22(金) 04:29:53 ] >>228 作っていいぞ。 >>229 うｐっていいぞ。 231 名前：デフォルトの名無しさん mailto:sage [2008/08/22(金) 10:20:37 ] ばかなんじゃないの 232 名前：デフォルトの名無しさん mailto:sage [2008/08/22(金) 14:42:37 ] おまえもな 233 名前：デフォルトの名無しさん mailto:sage [2008/08/22(金) 15:14:57 ] おまえもな 234 名前：デフォルトの名無しさん mailto:sage [2008/08/22(金) 15:17:41 ] 　　 ∧＿∧　　／￣￣￣￣￣ 　　（　´∀｀）＜　オマエモナー 　　（　　　　） 　＼＿＿＿＿＿ 　　｜ ｜　| 　　（＿_）＿） 235 名前：デフォルトの名無しさん mailto:sage [2008/08/22(金) 15:55:27 ] 言い出しっぺの法則。 自分が欲しいものは自分で作れ。 236 名前：デフォルトの名無しさん mailto:sage [2008/08/22(金) 16:35:25 ] >>235 言い出しっぺの法則は、「言い出しっぺがやらない限り誰もやらない」だ。 237 名前：デフォルトの名無しさん mailto:sage [2008/08/23(土) 00:02:15 ] >>236 言いだしっぺの法則は、「お前がやれ」って返って来る法則のことじゃないのか？ 238 名前：デフォルトの名無しさん mailto:sage [2008/08/23(土) 00:10:39 ] >>237 いなかっぺ大将は、「キクしゃん、ハナしゃんと西一の三角関係」を描いた物語ですよ確か。 239 名前：デフォルトの名無しさん mailto:sage [2008/08/23(土) 00:49:44 ] >>238 違うダス！ わしとキクしゃんの恋愛物語なんダス！ 240 名前：デフォルトの名無しさん mailto:sage [2008/08/23(土) 08:37:58 ] かなりのおっさんがいる？ 241 名前：デフォルトの名無しさん mailto:sage [2008/08/23(土) 17:41:35 ] にぎりっぺ 242 名前：デフォルトの名無しさん mailto:sage [2008/08/23(土) 18:58:42 ] ActivePerl v5.10.0 を使用しています。 LWP::UserAgent を使用して、たとえば https://mixi.jp に接続すると、 Client-SSL-Warning: Peer certificate not verified がレスポンスヘッダに出てくるのですが、 これを解消するためにはどうすればよいのでしょうか。 243 名前：デフォルトの名無しさん mailto:sage [2008/08/23(土) 19:16:50 ] Crypt::SSLeayを入れる 244 名前：デフォルトの名無しさん mailto:sage [2008/08/23(土) 19:19:37 ] Crypt::SSLeay は 0.57 が入っていました。 245 名前：デフォルトの名無しさん mailto:sage [2008/08/23(土) 21:01:55 ] OSはWindows２０００でActivePerlについての質問です。 よくCPANから○○をとってきてインストールしろとか みますが、Activeperlを使っている人は、PPMで インストールできるモジュールしか使えないのでしょうか？ PPMのインストールのメニューに出てくるという意味です。 246 名前：デフォルトの名無しさん mailto:sage [2008/08/23(土) 21:07:55 ] PPMを起動すると、 kazato.run.buttobi.net/cgi-bin/material/src/vm002_0191.png こんな画面がでてきて、ほしいファイルを右クリして インストールする仕組みになっています。 これって誰が管理しているか知りませんが、 たぶんactivestate社がやってるんですよね。 で、PPMのメニューに出てこないものは インストールできないのかなと。 247 名前：デフォルトの名無しさん mailto:sage [2008/08/23(土) 21:09:17 ] 最近perlも飽きてきた。 どの入門書読んでも、だいたい同じこと書いてあるから。 で、今日はレファレンスについて勉強してみようと思いますが、 グーグルで検索するときに、レファレンスなのでしょうか？ それとも、リファレンスなのでしょうか？ 248 名前：デフォルトの名無しさん [2008/08/23(土) 21:17:47 ] ぐぐれカスとも言えない新技だな 249 名前：デフォルトの名無しさん mailto:sage [2008/08/23(土) 21:51:20 ] >>247 両方ぐぐれよ。 あるいはreferenceで。 250 名前：デフォルトの名無しさん mailto:sage [2008/08/23(土) 22:12:34 ] >>245 やってやれないことはないけど、気合と根性が必要。 俺はPPMに無いものはCPANからアーカイブを取ってきてMinGW+nmakeでインストールしてる。 が、Windowsには類似のAPIがない、UNIXべったりのモジュールには苦戦してる。 (同じ機能はあってもAPIの仕様が全然違う) 251 名前：デフォルトの名無しさん mailto:sage [2008/08/23(土) 23:53:26 ] セーブファイルをネット上に保存する、ってのは かんたんにできるのかな。 アップローダーみたいな、、、っていうのかな？ print (FILE www.abc.com/abc.txt); みたいな。 252 名前：デフォルトの名無しさん [2008/08/23(土) 23:56:31 ] 以下のように�@とかそういうのを全部変換したくて延々書いているのですが、 速く処理出来るようにするにはどのようにしたらよいのでしょうか？ $str=~s/�T/1/g; $str=~s/�U/2/g; $str=~s/�V/3/g; $str=~s/�W/4/g; $str=~s/�X/5/g; $str=~s/�Y/6/g; ・・・ $str=~s/�@/(1)/g; $str=~s/�A/(2)/g; $str=~s/�B/(3)/g; ・・・ 253 名前：デフォルトの名無しさん mailto:sage [2008/08/23(土) 23:58:38 ] アロー演算子っていうのは、 ハッシュのレファレンスを表すときにしか 使わないんですか？ 254 名前：デフォルトの名無しさん mailto:sage [2008/08/24(日) 00:01:07 ] >>252 コーディングの行数を減らしたいってこと？ コンピューターの処理速度を速くしたいってこと？ 255 名前：デフォルトの名無しさん mailto:sage [2008/08/24(日) 00:03:32 ] $str=~tr/�T-�]/1-10/g; $str=~tr/�@-�I/(1)-(10)/g; これだと動かないかな。 256 名前：デフォルトの名無しさん mailto:sage [2008/08/24(日) 00:15:10 ] use strict 'refs'; ↑これって書かないと動かないの？ それとも、use strictを書けば、その中に含まれるの？ 257 名前：デフォルトの名無しさん mailto:sage [2008/08/24(日) 00:37:44 ] ha?? 258 名前：デフォルトの名無しさん mailto:sage [2008/08/24(日) 00:44:24 ] >251 自分のパソコンと相手のパソコンが繋がれてあったとして、 こちらのパソコンを操作するだけで相手のパソコンのHDDに書き込むことができるか？という問いに近い。 >252 ローマ数字に対応してるかどうか分からんけど、Unicode::Normalizeとかは？ ギャル文字の正規化めんどくせぇなあ……（ぼやき） 259 名前：デフォルトの名無しさん [2008/08/24(日) 00:44:35 ] >>254 処理速度のほうです。 >>255 有り難う御座います。 $str=~tr/�@-�I/(1)-(10)/; $str=~tr/�@-�H/1-9/; 上の方法では出来ず、下の方法では出来ました。 括弧を付ける方法とかあるんでしょうか？ 260 名前：側近中の側近 ◆0351148456 [2008/08/24(日) 00:54:15 ] >>259 (っ´▽｀)っ $str=~tr/�@-�I/\(1\)-\(10\)/; ではどうだ？ 261 名前：デフォルトの名無しさん mailto:sage [2008/08/24(日) 01:26:01 ] >260 そーゆーことじゃなくね？ 262 名前：デフォルトの名無しさん mailto:sage [2008/08/24(日) 01:53:33 ] # tr/// が、正規表現とは関係がなく、また文字列を置き換えるものでもないという点は FAQ にも程があるんでこれ以上は自分で調べてもらうとして。 sub to_arabic_number { my $str = $_[0]; my @circles = qw/�@ �A �B �C �D �E �F �G �H �I �J �K �L �M �N �O �P �Q �R �S/; my @romanU = qw/�T �U �V �W �X �Y �Z �[ �\ �]/; my @romanL = qw/�@ �A �B �C �D �E �F �G �H �I/; my $i = 1; foreach (@romanL) { $str =~ s/$_/$i/g; $i++; } $i = 1; foreach (@romanU) { $str =~ s/$_/ $i/g; $i++; } $i = 1; foreach (@circles) { $str =~ s/$_/ ($i)/g; $i++; } return $str; } 263 名前：262 mailto:sage [2008/08/24(日) 01:58:58 ] P.S. >>260 は釣りなのかネタなのか知らんが、武士の情けで見逃してやるから人生やり直して来い。 264 名前：デフォルトの名無しさん mailto:sage [2008/08/24(日) 02:08:50 ] >>262 さすがにそのコードは人に見せられるレベルじゃないだろ… 265 名前：デフォルトの名無しさん [2008/08/24(日) 02:10:41 ] >>262 有り難う御座います。 処理速度は遅いような気がするのですがどうでしょうか。 266 名前：デフォルトの名無しさん mailto:sage [2008/08/24(日) 02:14:28 ] >>262よりは>>252のほうがいいと思うよ 267 名前：デフォルトの名無しさん mailto:sage [2008/08/24(日) 02:20:31 ] >>262は嫌がらせ。 268 名前：デフォルトの名無しさん mailto:sage [2008/08/24(日) 03:10:52 ] use feature qw( :5.10 ); use Time::HiRes 'sleep'; system q|cls|; #---------------------------------- my @a; @a=localtime; sleep(.5); say "\@a=@a[0..8]"; sleep(.5); say "scalar(localtime)=",scalar(localtime); sleep(.5); say "localtime=",localtime; sleep(.5); localtimeという関数はホンマおもしろいなー 3通りもの出力があるんだから。 269 名前：デフォルトの名無しさん mailto:sage [2008/08/24(日) 03:49:57 ] oracleにselect文を実行したときの取得レコード件数が知りたいんですが何か方法ありますか？ phpだとmysql_num_rows()とか便利なのあるんですけど、perlだとわかんないorz 270 名前：デフォルトの名無しさん mailto:sage [2008/08/24(日) 04:00:20 ] エスパー期待してるんですか？ 271 名前：デフォルトの名無しさん mailto:sage [2008/08/24(日) 04:06:30 ] しゃぶりついてくるやつ期待してるんだろう。 272 名前：デフォルトの名無しさん mailto:sage [2008/08/24(日) 04:17:54 ] いや、だから、 oracleにselect文を実行したときの取得レコード件数を 知るための関数でしょ？ 273 名前：デフォルトの名無しさん mailto:sage [2008/08/24(日) 04:18:41 ] ところで、ファイルに引数を食わせるときに、 スペース混じりの引数を食わせるには、 どうしたらいいですか？ 274 名前：デフォルトの名無しさん mailto:sage [2008/08/24(日) 04:42:39 ] www.aritia.org/hizumi/perl/perlwin.html ここ読んでたら、なんか 日本語のファイル名も扱える みたいじゃないですか。 どうやるの？ 275 名前：デフォルトの名無しさん mailto:sage [2008/08/24(日) 04:48:27 ] use feature qw( :5.10 ); system q|cls|; #---------------------------------- "abcde" =~ m/b(.)d/ ; say "$1"; ↑これを実行すると、ｃ、と出てきますが、 ここの$1は、ソースコードの、どこまで有効なの？ ずーっと後ろまで？

---

---

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

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