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 あたり 116 名前：デフォルトの名無しさん mailto:sage [2008/08/17(日) 11:45:57 ] >>103のようなチンポしゃぶりがいる限り、寄生虫は出現しつづける。 117 名前：103 mailto:sage [2008/08/17(日) 12:32:20 ] >>116 だってかわいそうなんだもの。 この子がこのまま社会に出るなんて、ぞっとするんだもの。 118 名前：デフォルトの名無しさん mailto:sage [2008/08/17(日) 13:58:33 ] >>117 社会に出て来ることを前提にするからそうなるわけで 社会が受け入れを拒めば良い。ニートも珍しくない時代だぜ。 119 名前：デフォルトの名無しさん mailto:sage [2008/08/17(日) 14:00:35 ] >>117はすでに問題の寄生虫に依存している。 120 名前：デフォルトの名無しさん mailto:sage [2008/08/17(日) 14:03:36 ] >>117 歪んだ持論で100に粘着したり、 「ぐぐれカス」で済むところをねちねち言ったり、 自治しようとしたり。 お前さんのウザさは、107と変らんよ。 121 名前：103 mailto:sage [2008/08/17(日) 16:33:09 ] >>118 ニートが社会に拒まれてそうなるというのは新説な気がするの。 どちらにしろそういう事例は少ないほうがいいと思うの。 でもこのスレでやるべきことじゃないとは思うので反省してる。 >>119 誰かボクを隔離して欲しいの。 でもこれ以上迷惑になるいけないのでがんばって自分で克服します。 >>120 ウザくてごめんなさい。 持論が歪んでるのは自覚があるので鵜呑みは危険と言っておくの。 ボクが言うのもなんだけど、みなさん気にせずPerlのお話しましょう。 122 名前：デフォルトの名無しさん [2008/08/17(日) 17:08:03 ] なんかすごく怖くなってきた 123 名前：デフォルトの名無しさん mailto:sage [2008/08/17(日) 18:19:19 ] >>110 これで、文章が表示されるのと合わせて、 音楽を鳴らしたいんだけど、 （本物のウイザードリーみたいに） Perlだと実装はものすごく面倒なの？ 124 名前：デフォルトの名無しさん mailto:sage [2008/08/17(日) 18:27:00 ] みんな聞いてくれ！ pc11.2ch.net/test/read.cgi/php/1204488452/556 で、質問がでていたので、 pc11.2ch.net/test/read.cgi/php/1204488452/560 と、オレ様が、かっこよく回答しちゃったぜ！ ちなみに、あってるかどうかは、知りません 125 名前：デフォルトの名無しさん mailto:sage [2008/08/17(日) 18:27:01 ] がんばって、あなたなら出来るわ 126 名前：デフォルトの名無しさん mailto:sage [2008/08/17(日) 18:33:02 ] 合ってないところがいいな。 127 名前：デフォルトの名無しさん mailto:sage [2008/08/17(日) 18:46:30 ] 統失で10年くらい入院したあと退院してPerlに目を付けたという感じか? 128 名前：デフォルトの名無しさん mailto:sage [2008/08/17(日) 19:58:01 ] >>123 Win32::Sound 129 名前：デフォルトの名無しさん mailto:sage [2008/08/17(日) 22:00:22 ] perldoc に関する質問です。 ある単語 foo に関する perl のドキュメントを読みたいが、 perldoc foo → No documentation found for "foo" perldoc -f foo → No documentation for perl function `foo' found perldoc -m foo → No module found for "foo" perldoc -q foo → No documentation for perl FAQ keyword `foo' found となるとき、すべての perl ドキュメントから foo を検索して、 どのドキュメントを見ればよいか表示するような機能はないでしょうか？ 例えば __PACKAGE__ を調べようとしても上の４つではだめで、 最終的には perldoc perl の出力を眺めて当たりを付けて、 perldoc perldata に辿り着きましたが、当たりを付けるまでに手間がかかります。 zsh のマニュアルの man zshall のように、インストールされているすべての ドキュメントを連結表示するとかでもいいのですが。 130 名前：デフォルトの名無しさん mailto:sage [2008/08/17(日) 22:36:17 ] aaa aaaa aaab aaaaa aaaab 参考書読んでて、 文字列ソートすると、こういう順番に なります、と書いてあって、どうしても理解できなくて、 ホームページの正誤表みたら、誤植だった。 ただしくは aaa aaaa aaaaa aaaab aaab だった。なんでbが先にくるかなあ？と 1時間悩んだ。 131 名前：デフォルトの名無しさん mailto:sage [2008/08/17(日) 22:48:22 ] >>129 力技。 find /usr/lib/perl5/5.10/pods -name '*.pod' | xargs grep -i KEYWORD | less あとはGoogle DesktopやWindows Searchでドキュメントの領域を検索対象にするとか。 132 名前：デフォルトの名無しさん mailto:sage [2008/08/17(日) 23:25:23 ] >>128 なんかすげー難しそう 1行書いたら音が出るみたいのを イメージしてたんだけど、 HSPとかRPGツクールとかだと 音出すなんて簡単だったんだけど、 Perlでは難しいってことかな？ 133 名前：デフォルトの名無しさん mailto:sage [2008/08/17(日) 23:31:27 ] >>131 ありがとうございます。find | xargs grep | less 系のやり方をする ことにしました。（あるいは同様のコマンド） 134 名前：デフォルトの名無しさん mailto:sage [2008/08/17(日) 23:36:25 ] >>129 これってぼくも誰も作ってないのかなと思ってるんだけど、 やっぱり誰も作ってないのかい。 135 名前：デフォルトの名無しさん mailto:sage [2008/08/17(日) 23:43:32 ] 検索してたらこんなものを見つけてしまった 353 名前：名無しさん 投稿日：2001/02/08(木) 12:40 Perlで音を出すことって出来ないでしょうか。 処理が終了したときにちーんと鳴らしたいのですが。 www.angelfire.com/ak5/2ch-web-program/kako/979894521.html 136 名前：デフォルトの名無しさん mailto:sage [2008/08/18(月) 00:05:14 ] >>128 やってみた。 かんたんだった。 use Win32::Sound; Win32::Sound::Volume('100%'); Win32::Sound::Play("file.wav"); Win32::Sound::Stop(); ↑これを書くだけで、できた。 Win32::Soundは最初から入っていた。 137 名前：デフォルトの名無しさん mailto:sage [2008/08/18(月) 00:26:36 ] Win32::MIDIって使い方がよくわからんな。 midiを鳴らすときは、必ずWin32::MIDIでないとだめなの？ それとも、midiもWin32::Soundでいけるの？ 138 名前：デフォルトの名無しさん mailto:sage [2008/08/18(月) 00:54:45 ] perlでmidiファイルを鳴らす方法がまじでわからんわ。 midiファイルを指定して、すぐに鳴らすとかできないのかな？ 139 名前：デフォルトの名無しさん mailto:sage [2008/08/18(月) 01:00:59 ] >>134 順序が逆だっちゃ。 大量のドキュメントに対して grep などによる全文検索だけでは不便だから perldoc のセクション特定用の各オプションがある。 140 名前：デフォルトの名無しさん mailto:sage [2008/08/18(月) 02:04:19 ] >>139 > 順序が逆だっちゃ。 これは順番の問題ではない。不便な全文検索が問題なら不便でない全文検索が 求められるだけのこと。 141 名前：デフォルトの名無しさん mailto:sage [2008/08/18(月) 02:38:01 ] ま、いずれにせよ、「それを欲しい者がそれを作る」のが基本だべさ。 142 名前：103 mailto:sage [2008/08/18(月) 04:34:08 ] >>140 全文検索自体が不便つーことでなく、単純な全文検索だとどこからでもパターンを拾ってきちゃうから、-f だの -q だのがあんだべ、って話。 パターンがどのファイルのどこにあるか知るだけなら find, grep で特に不便もないし、それ用の Perl スクリプトを書いても2分てとこだろ。 143 名前：デフォルトの名無しさん mailto:sage [2008/08/18(月) 04:37:30 ] >>142 > パターンがどのファイルのどこにあるか知るだけなら そんなのじゃ不便過ぎるだろ。 144 名前：デフォルトの名無しさん [2008/08/18(月) 07:43:42 ] 不便に思ったことないんだがどんな使い方がしたいんだ？ まさか初めてのPerlすら持ってない奴の戯れ言じゃないだろうな…… 145 名前：デフォルトの名無しさん [2008/08/18(月) 07:49:29 ] 子供はHSPでも使ってろ HSPには可変長配列は無いがな！！（まさに外道） 146 名前：デフォルトの名無しさん mailto:sage [2008/08/18(月) 12:55:44 ] アセンブリを外道と言うな。 147 名前：デフォルトの名無しさん mailto:sage [2008/08/18(月) 15:27:11 ] 夏だなあ 148 名前：デフォルトの名無しさん [2008/08/18(月) 15:43:15 ] 確実にここではないと思うのですが、どこなのか分からなくてスミマセン。 perl書くときに $ とか %#"'() など良く打つと思いますがshift押さずに入れるように するようなソフトや方法はありますでしょうか？ 数字はテンキーがあるのでキーボードの1〜9の範囲は全部記号にしたいのですが。 149 名前：デフォルトの名無しさん mailto:sage [2008/08/18(月) 16:39:16 ] >>134 もう数年前になるけど、大学の研究室に、Perl関係のドキュメントを インクリメンタルに全文検索でひけるソフトがあった。 Rubyで書かれていたけどw 150 名前：デフォルトの名無しさん mailto:sage [2008/08/18(月) 17:10:00 ] active perlでのforkについてです 子プロセスの上限を決めてforkで処理するのに、 pidをpushしていって、上限を超えたらいちばん古い子プロセスをwaitpidしていますが、 たまたまそいつが遅いと他のプロセスはとっくに終わってるのに先頭のを待ち続ける、 というはめになります pidのリストのうち、どれか一つ終わったら、という処理をさせるには どうすればいいですか 151 名前：デフォルトの名無しさん mailto:sage [2008/08/18(月) 17:31:18 ] >>150 $SIG{CHLD} じゃダメ? 152 名前：デフォルトの名無しさん mailto:sage [2008/08/18(月) 17:31:28 ] >>150 っ[Parrallel::ForkManager] 153 名前：デフォルトの名無しさん mailto:sage [2008/08/18(月) 17:51:40 ] >>148 スキャンコードをリマップすることにより可能。 方法は OS 等により異なる。使用 OS の板・スレで聞くといい。 154 名前：デフォルトの名無しさん mailto:sage [2008/08/18(月) 18:05:26 ] �d 勉強してみます 155 名前：デフォルトの名無しさん mailto:sage [2008/08/18(月) 18:05:41 ] 154=150 156 名前：デフォルトの名無しさん mailto:sage [2008/08/18(月) 18:41:09 ] WAVEを鳴らすのは、カンタンにできたんだけど、 midを鳴らす方法がわからない。 MP3については、mediaplayerなんとか、っていうモジュールを 使えばいいみたいなんだけど、ppmでダウンロードのリストに入ってない。 157 名前：デフォルトの名無しさん mailto:sage [2008/08/18(月) 18:43:28 ] 数字をランダムジェネレートして、 アルファベットの小文字と大文字 a-z,A-Zにchrを使って変換して表示する プログラムを作ろうと思ったんだけど、 65-120だと、まんなかに、余計な記号が入ってしまう。 この場合、if 95<x<98 then　redo でいいのかな？ もし記号の数字だったら、ルーレットをまわした結果を 破棄して、もう一度ルーレットをまわすって言う。 158 名前：デフォルトの名無しさん mailto:sage [2008/08/18(月) 18:45:00 ] ようは、randで、65-95、かつ95-120の数字がほしい、 って指定できればいいんだけど、できないんだよね。 他の言語だとできるの？ 159 名前：デフォルトの名無しさん mailto:sage [2008/08/18(月) 18:46:09 ] >>158 まちがえた。 ○ようは、randで、65-95、かつ98-120の数字がほしい、 160 名前：デフォルトの名無しさん mailto:sage [2008/08/18(月) 19:19:20 ] >>157 発想を変えてみる @str = (a..z,A..Z); print $str[rand(@str)]; 161 名前：デフォルトの名無しさん mailto:sage [2008/08/18(月) 20:25:45 ] >>160 なんもプリントされないんだけど。 162 名前：デフォルトの名無しさん mailto:sage [2008/08/18(月) 21:08:40 ] こうですか？ $x = int(rand(52)); print chr(($x + ($x % 2) * 63+ 130)/2); 163 名前：デフォルトの名無しさん mailto:sage [2008/08/18(月) 21:17:41 ] my $a; do { $a=int(rand(123-65)) +65; say "fault!"; } while ($a<=96 or $a>=91); print $a; ↑これやると無限ループになる。なんで？ 164 名前：デフォルトの名無しさん mailto:sage [2008/08/18(月) 21:20:53 ] >>163 自己解決した。 orじゃなくてandだった。 こんな難しいバグも一人でデバッグできるオレ様の単価は 120万円/月くらいですか？ 165 名前：デフォルトの名無しさん mailto:sage [2008/08/18(月) 21:29:18 ] my $a; my $b; for ($b=1;$b<=8;$b=$b+1){ do { $a=int(rand(123-65)) +65; } while ($a<=96 and $a>=91); print chr($a)," "; } ↑やったーパスワード発生器できたよー 166 名前：デフォルトの名無しさん mailto:sage [2008/08/18(月) 21:34:31 ] system q|cls|; my $a; my $b; for ($b=1;$b<=8;$b=$b+1){ do { $a=int(rand(123-65)) +65; } while ($a<=96 and $a>=91); sleep(0.5); print chr($a)," "; } print "\n"; ↑こっちのほうが、ちょっとかっこいいかな？ 167 名前：デフォルトの名無しさん mailto:sage [2008/08/18(月) 21:46:46 ] 今、考えてるのは、 配列に、３つの要素が入ってるとして、 その３つの要素を連結して、一つの文字列にして、 スカラー変数にいれるということ。 @a=('a','b','c') だとして、 $b="abc" にしたいということ。 自分で考えるから、おまいら、絶対に正答を書くなよ！ いいか、絶対に書くなよ！ 168 名前：デフォルトの名無しさん mailto:sage [2008/08/18(月) 21:50:53 ] sub genpass {     my @chars = (0..9, "A".."Z", "a".."z");     join "", map { $chars[rand(@chars)] } 1..8; } print genpass(), "\n"; 169 名前：デフォルトの名無しさん mailto:sage [2008/08/18(月) 21:55:05 ] >>168 こ、これは、、、 スカウターの数字が、、、 パールレベル１２を超えてるだと？！ 170 名前：デフォルトの名無しさん mailto:sage [2008/08/18(月) 22:01:36 ] これ以上このスレに常駐するなら、あぼーんするからコテつけてくれ。 171 名前：デフォルトの名無しさん mailto:sage [2008/08/19(火) 00:11:06 ] use feature qw( :5.10 ); use Time::HiRes 'sleep'; $|=1; #---------------------------------- system q|cls|; my $a,$b,@c,$e; for ($e=1;$e<=5;$e=$e+1){ #外側のforループ for ($b=1;$b<=3;$b=$b+1){ #内側noforループ do { $a=int(rand(123-65)) +65; } while ($a<=96 and $a>=91); #do-while文 push(@c, chr($a));#生成したランダム文字を配列にプッシュ } my $d; $d=join ("",@c);#配列に格納されている文字をスカラー変数に代入 say "$d";#文字を出力 @c=();#配列を初期化 } #---------------------------------------- ↑やったー ランダムな3連文字列を5回出力することに成功 あとはソート部分のロジックだけだー 172 名前：デフォルトの名無しさん mailto:sage [2008/08/19(火) 00:14:45 ] >>168 実を言うと、 ＞print genpass() ここがわからなかったりする。 無名サブルーチンの呼び出し？ サブルーチンを呼び出して、その返り値を プリントしている？ 173 名前：デフォルトの名無しさん mailto:sage [2008/08/19(火) 00:22:56 ] randの引数に、配列を入れるってのは、ありなのか？ 174 名前：デフォルトの名無しさん mailto:sage [2008/08/19(火) 00:25:31 ] ありだよ。 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が、 引数を食うような設計になってないと、 無理なんじゃないかな。

---

---

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

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