Perlについての質問箱 30箱目at TECHPerlについての質問箱 30箱目 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト453:デフォルトの名無しさん 07/05/07 00:58:21 >>451 重箱の隅つつき。 p(451 の行の正規表現。(.+?) ではなく(.*?) でなければ split を用いた他の例と挙動が違うぞ。 $str = q{/foo/bar/baz/quux} で確かめろ。 454:437 07/05/07 01:10:11 多くのお返事ありがとうございました。 >440 単純な範囲演算子で記述できそうに思った私が考え足らずだったようです。 sub { @_[0 .. $#_ - 1] }->(split /\//, $x) は見た目にわかり易いですね。 いろいろ応用できそうだし。しかし、私は露とも思い至りませんでした。 >441 まぁ、そうなんですよね。 $file = "/usr/local/bin/bar"; # ファイル名が与えられて。。。 $fold = join "/", ～split /\//, $file を使った記述～; # フォルダ名を得る。 ここで余分に変数を使わず、可読性も損なわない方法がありそな気がしたもので。 >446 splice の第一引数はARRAYしかダメだと諦めてしまったのです。 リファレンスについて熟知すると、こんなやり方に気付くんですね。 自分の頭の硬さとリファレンスに対する理解の浅さを恥じて 精進したいと思います。 まず、>440 さんと >446 さんの方法、どっちを使うか悩みます。 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch