Perlについての質問箱 30箱目 at TECH

---

[2ch|▼Menu]

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト
450:デフォルトの名無しさん 07/05/06 22:19:22 (split m{/})[0..(s{/}{/}g)-1] 451:デフォルトの名無しさん 07/05/07 00:17:23 みんなよく頑張ったな。先生感心したぞ。 my $str = 'foo/bar/baz/quux'; sub p { printf ">>%d:[%s]\n", shift, join ',', @_ } p(438, (my @arr, undef) = split m{/}, $str); p(439, do { @arr = split m{/}, $str; pop @arr; join ',', @arr }); # & >>444-445 p(440, sub { @_[ 0 .. $#_ - 1 ] }->(split m{/}, $str)); p(441, split m{/(?=.+/)|/.+$}, $str); p(446, splice @{[ split m{/}, $str ]}, 0, -1); p(448, (split m{/}, $str)[ 0 .. (split m{/}, $str) - 2 ]); p(450, (split m{/}, $str)[ 0 .. $str =~ tr|/|/| - 1 ]); p(451, $str =~ m{(.+?)/}g); 452:デフォルトの名無しさん 07/05/07 00:52:33 >>451 my $str = 'foo/bar/baz/quux'; を my $str = '/foo/bar/baz/quux/'; にすると、いろいろ違いが出てくるね。

---

次ページ

最新レス表示

スレッドの検索

類似スレ一覧

話題のニュース

おまかせリスト

▼オプションを表示

レスジャンプ

mixiチェック！

Twitterに投稿

オプション

しおりを挟む

スレッドに書込

スレッドの一覧

暇つぶし2ch

---

5368日前に更新/220 KB
担当:undef