|
たまに出てきてアホな質問で住みません。 Perl で質問です。 (1) $path = '/usr/local/nantoka/us/us/file'; の /us/ を /jp/ に変えようと思ったら、 $path = s|/us/|/jp/|g; ではうまくいきません。 $path =~ s|/us/|/jp/| while $path =~ m|/us/|; ではうまくいったのですが、こんなんでいいんでしょうか。 (2) コマンドラインの mkdir -p で中間的なディレクトリをイッキに 作ってくれますが、Perl の mkdir では作ってくれません。 いまは `` でコマンドを呼んでいますが、これもしょうがないでしょうか。 |
|
>>1836 ふくし > $path = s|/us/|/jp/|g; > ではうまくいきません。 = じゃなくて =~ という話でしょうか。 > コマンドラインの mkdir -p で中間的なディレクトリをイッキに > 作ってくれますが、Perl の mkdir では作ってくれません。 perl5 の標準モジュール File::Path にある mkpath がご希望の ものでしょう。使い方は perldoc File::Path をご覧下さい。 |
|
＞= じゃなくて =~ という話でしょうか。 あっすいません、これは掲示板の書き違いです。 正しく動かないスクリプトはちゃんと =~ と書いています。 ../us/us/.. の場合、先頭の /us/ を置換したら続きの us/ から 処理するので s///g ではいかない、という話のようです。 File::Path はありがとうございました！ |
|
>>1838 ふくし > ../us/us/.. の場合、先頭の /us/ を置換したら続きの us/ から > 処理するので s///g ではいかない、という話のようです であれば、man perlre に \G … Match only where previous m//g left off (works only with /g) とありますので、 $path =~ s|\G/us/|/jp/|g; ではどうでしょうか。 >>1836 ふくし > $path =~ s|/us/|/jp/| while $path =~ m|/us/|; でもいいのですが、定番の書き方としては、 1 while ($path =~ s|/us/|/jp/|); というのがありますね。 |
|
>>1839 68user > $path =~ s|\G/us/|/jp/|g; > ではどうでしょうか。 ありゃ、全然ダメだ。というか、意味が全く逆ですね。 こういうときに使う perl の regexp ってなかったっけなぁ。 |
|
にゃるほど、1 while でがんばります。（ヘンな日本語） ありがとうございました。 もいっこズにのって質問。 stat や split をリストに代入して１番目と５番めと７番目を 使いたい、とかいうとき、ぼくは他のを $dummy というので 受けていますが、たまに -w で、１回しか使ってないけど 書き間違えてませんかと言われます。 これを言われないような /dev/nul みたいな変数ってないんでしょうか。 |
|
>>1834 taka > >(1) snd ドライバの使用。 > 「4.3-RELESEからsndドライバは使用されない」とおっしゃっていたので > 将来性を考えて(?)pcmドライバのみ試してみました。 ええ、出来ればその方が良いのですが、しかし、鳴らないものを使っても いまの taka さんの needs にはあわないだろうということで、 snd ドライバをお勧めしたのです。 しかし、最初は設定ファイルのレベルだと思ったので、 お節介をしたのですが、 まったく役に立たず、時間ばかりとってしまいました。 申し訳ありませんです。 |
|
>>1841 ふくし ($dummy, $dummy, $dummy, $num1, $num2) = (0,1,2,3,4,5); と、一度に複数回 $dummy を使えば used only once: possible typo の warning は抑止できます。あと、 ($num1, $num2, $num3) = (split(/ /))[1,5,7]; という手もありますが、可読性が低下しますね。 本質的には 「１番目と５番めと７番目を使いたい」という 使い方をせずに $foo = $o->getFoo; $bar = $o->getBar; $baz = $o->getBaz; などと書くように努めるべきだと思いますが、全ての場面で それができるわけでもなく、悩ましい限りです。 |
|
はじめまして。 いきなりですが、 >これを言われないような /dev/nul みたいな変数ってないんでしょうか。 (undef, undef, undef, $num1, $num2)=(0,1,2,3,4); こんなのでどうですか? |
|
>>1841 ふくし >>1843 68user >>1844 ふじ つぎのようにすれば文句をいわれませんでした。 #!/usr/bin/perl -w my ($login, $pass, $uid, $gid) = getpwnam('root'); print "$login:(password):$uid:$gid\n"; exit; my をとったものと、較べてください。 ちなみに動作環境は perl 5.00503 ないしは perl 5.6.0 です。 |
|
>>1845 rosegarden この他にも #!/usr/bin/perl -w use vars qw($login $pass $uid $gid); ($login, $pass, $uid, $gid) = getpwnam('root'); print "$login:(password):$uid:$gid\n"; exit; などと、use vars で宣言しておけば文句を言われないようです。 詳しくは、perldoc vars してみてください。 |
|
にゃるほど、 ふじさん＞ リスト要素にすれば undef を左辺に持っていけるんですね。 undef = 3; だと怒られますけどね。（当たり前） これは言いたいことを強烈に表現できているような気がします。 rosegarden さん＞ my や use vars を使った方法もいいですね。 この問題がよく出てくるのはファイルの stat を受けるときなんですが、 こういう意味のある変数のときは変数名をつけておいて使わない （そのうち使うかもしれないので） というのが便利なので、使わせていただきます。 みなさんどうもありがとうございました。勉強になるー |
|
いつも拝見しながら勉強させていただいています。 Perlを使ったソケット通信について質問があります。 HTTPSサーバに対してのソケット通信です。 http://X68000.startshop.co.jp/~68user/net/http-2.html にあるように、通常のソケット通信はできたのですが、 相手がHTTPSになるとヘッダの都合か、まったくうまくいきません。 たとえば、 自分のサーバ →POST→ 相手のCGIのあるサーバ（https） ↓ ブラウザ上にデータを表示 ← 相手が出力したデータを取得 このようなイメージです。 通常のHTTPでのソケット通信の場合、出力するヘッダは、 "POST /sample.cgi HTTP/1.0\r\n" "\r\n(空行)" "(POSTで送信するデータ群)" このような感じだと思うのですが、HTTPS相手だと まったく受け付けてくれません・・・。 これってSSLを相手が利用している以上、不可能なことなのでしょうか？ 皆様の知識と知恵を貸してください、お願いします。 |