くだすれPerl（超初心者用）2

くだすれPerl（超初心者用）2 at PHP

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', 'URLﾘﾝｸ(example.com)');
# URLﾘﾝｸ(example.com)

次ページ

続きを表示

1を表示