How to strip off the last word in this string?

[hujirong]

Hi All

Not a Perl programmer but have to write something. How to take out the last word "WebLinks_docs" from the following string? Thanks a lot.

Jirong

C:\ClearCase\ss_view\Prod\jihu_WebLinks_Mainline\Playground_apps_sub\WebLinks_docs

 

[WinblowsME]

$str = "C:\\ClearCase\\ss_view\\Prod\\jihu_WebLinks_Mainline\\Playground_apps_sub\\WebLinks_docs";
$str = substr ( $str, rindex ( $str, "\\" ) + 1 );
print "$str\n";

 

[hujirong]

Then how to transfer from
C:\ClearCase\ss_view\Prod\jihu_WebLinks_Mainline\Playground_apps_sub\WebLinks_docs

to

C:\\ClearCase\\ss_view\\Prod\\jihu_WebLinks_Mainline\\Playground_apps_sub\\WebLinks_docs

Really not a programmer, thanks a lot.
Jirong

 

[travs69]

$str = 'C:\ClearCase\ss_view\Prod\jihu_WebLinks_Mainline\Playground_apps_sub\WebLinks_docs';
@tmp = split /\\/, $str;
pop @tmp;
$str = join('\\', @tmp);
print "$str\n";

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Travis - Those who say it cannot be done are usually interrupted by someone else doing it; Give the wrong symptoms, get the wrong solutions;