An important note:
Be very careful when reversing the regexp /$* / is not the reverse of
/ *$/ (/^ */ is).
On 28 Jun 2001 11:14:58 -0400, Chas Owens wrote:
> Reverse the string, reverse the pattern, do the substitue, reverse the
> string again.
>
> the string is "I am the titi last human on titi earth."
> the pattern is /titi/
>
> so reverse the string (with reverse in a scalar context):
> .htrae itit no namuh tsal itit eht ma I
>
> reverse the pattern /itit/
>
> do the substitute
>
> reverse the string again to make it normal again.
>
> <code>
> #!/usr/bin/perl -w
>
> use strict;
>
> my $str = "I am the titi last human on titi earth.";
>
> my $rev = reverse $str;
>
> $rev =~ s/itit//;
>
> $str = reverse $rev;
>
> print "$str\n";
> </code>
>
>
>
> On 28 Jun 2001 16:58:03 +0200, Stéphane JEAN BAPTISTE wrote:
> >
> >
> > Hi
> >
> > I want to delete a string but only the last.
> > Example/
> >
> >
> > I am the titi last human on titi earth.
> >
> >
> > -> I want to erase the last "titi" nut not the other.
> >
> > How can I do this
> >
> > thanks
> >
> --
> Today is Prickle-Prickle, the 33rd day of Confusion in the YOLD 3167
> Or is it?
>
>
>
--
Today is Prickle-Prickle, the 33rd day of Confusion in the YOLD 3167
Keep the Lasagna flying!
