【Perl】初心者コーナー Part13

[0010 nobodyさん 02/05/31 11:23 ID:???]

>>9
ヒント：

($parent = $name) =~ s#/[^/]+$##;

これは以下のコードとほぼ同じ

$parent = $name;
$patent =~ s/[^\/]+$//;