frank1 has asked for the wisdom of the Perl Monks concerning the following question:

How can i remove the rest characters and get only John

This is the Output i need: John

$str = '/2010-04-01/Tom/Ken/Fred/John.jso';

$str =~s/Tom//g;
print $str;

[download]

Replies are listed 'Best First'.
Re: remove words with regex
by choroba (Cardinal) on Dec 20, 2024 at 09:23 UTC
    You didn't describe the problem in sufficient detail.

    Do you really get John, if it's there? 

    $str =~s/.*(John).*/$1/;

    [download]

    Do you want to keep the last string after the last slash and before the dot? 

    $str =~s{.* / | \. .*}{}gx;

    [download]

    Or, maybe, you want the fist word after the fifth slash? 

    $str =~s{ (?: [^/]* / ){5} ( \w+ ) .* }{$1}x;

    [download]

    Or, ...

    Also, do you really need to use substitution? Matching seems more appropriate. 

    print $str =~ /(John)/;
print $str =~ m{ .* / (.+) \. }x;
print $str =~ m{ (?: [^/]* / ){5} ( \w+ ) }x;

    [download]

    Do you need to use regexes at all? 

    my $s = 'John';
print $s if -1 != index $str, $s;

    [download]

    Update: Some alternatives provided.

    map{substr$_->[0],$_->[1]||0,1}[\*||{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^*ARGV,3]
[reply]
[d/l]
[select]

      thank you

[reply]
Re: remove words with regex
by kikuchiyo (Hermit) on Dec 20, 2024 at 10:52 UTC

    XY problem, as usual.

    Based on the example, what you actually want is File::Basename.

[reply]

      Yurp, or possibly Path::Tiny.

      The cake is a lie.
      The cake is a lie.
      The cake is a lie.

[reply]
Re: remove words with regex
by karlgoethebier (Abbot) on Dec 20, 2024 at 17:08 UTC
[reply]
[d/l]

Back to Seekers of Perl Wisdom