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

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

くだすれPerl（超初心者用）2 - 暇つぶし2ch186:nobodyさん
08/05/09 07:34:10
せいぜい短くしても
$str="ABC/DFG/HIJ/../../././abc/efg" ;
1 while $str =~ s{([^/]*?/\.\./|\./)}{} ;
print $str . "\n" ;
程度だね。

次ページ

続きを表示

1を表示