くだすれPerl（超初心 ..

---

[2ch|▼Menu]

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト
181:178 08/05/08 22:46:06 my $str = 'ABC/DFG/HIJ/../.././././'; while (index($str, './') + 1) { 　$str =~ s!/\./!/!g; 　$str =~ s!/[^/]*/\.\./!/!g; } print $str; ループなしでどうやるんだろう。 >>180 最初から「>>162です」と言って欲しかった気がする165です。 $RSS_BASE_URI2 の正体等々よくわかんないので、下記を見ながらごにょごにょしてください。 use URI; print URI->new_abs('../../images/spacer.gif', 'http://example.com/cgi-bin/test/'); # http://example.com/images/spacer.gif 182:nobodyさん 08/05/08 22:46:10 >>180 横レス。 モジュールがあるか？と静観してたんだが、こっちに移動してきたのかw my $RSS_BASE = '/ABC/DFG/HIJ/' ; # 絶対パス my $path = '../../abc/efg/' ; # 相対パス my $cnt = $path =~ s{\.\./}{}g ; # ../ の数把握と同時に消去。 $RSS_BASE =~ s/([^\/]*?\/){$cnt}$// ; # 絶対パスから../の回数分のディレクトリを削る。 print $RSS_BASE . $path . "\n" ; # プリント。

---

次ページ

最新レス表示

スレッドの検索

類似スレ一覧

話題のニュース

おまかせリスト

▼オプションを表示

レスジャンプ

mixiチェック！

Twitterに投稿

オプション

しおりを挟む

スレッドに書込

スレッドの一覧

暇つぶし2ch

---

5310日前に更新/136 KB
担当:undef