Help for this page

Select Code to Download

Select or download this

if ($filepath =~ /([^\/\\]+)$/) {
    $file = $1;
} else {
    $file = $filepath;
}

Select or download this
$filepath = 'c:\windows\foo\bar\quux\baz.txt';