[SOLVED] Perl Question: remove a part of string unit1/U800/o

anie · 04-13-2011, 05:02 PM

In a file,
I need to remove a part of string: /o

string:

$p = unit1/U800/o

or

the string can be

$p = ghsunit2/U801/d2

here I need to remove /d2

So, I need to remove everything after when I get last /

Any help would be appreciated.

Tinkster · 04-13-2011, 05:12 PM

Quote:

Originally Posted by anie

In a file,
I need to remove a part of string: /o

string:

$p = unit1/U800/o

or

the string can be

$p = ghsunit2/U801/d2

here I need to remove /d2

So, I need to remove everything after when I get last /

Any help would be appreciated.

Hi, welcome to LQ!

Code:

$p =~ s@/[^/]+$@@;

Moving this to programming as it's not a linux-question.

Cheers,
Tink

anie · 04-13-2011, 05:23 PM

@Tink: Thank you for your reply.

But, the string can be:

$p = ghsunit2/mcr/gths21/U801/d2

or

$p = ghsunit2/mcr/gths21/o

anie · 04-13-2011, 05:32 PM

Thank you for the solution.

I got it.

Tinkster · 04-13-2011, 05:44 PM

Cool ... can you mark your thread as solved, please? =)

Cheers,
Tink