regular expressions

[sonet]

my $keyword=shift;
$keyword=~s/(&.*?)$//;
print $keyword;

i want to replace the last word like &xyz.

ex:
if $keyword='123123;&12;212222&123' then output 123123;&12;212222

if $keyword='123123;&12;212222&123;' then output 123123;&12;212222&123;

but i alaways got the error result (123123

 

[Brian Wakem]

my $keyword=shift;
$keyword=~s/(&.*?)$//;
print $keyword;

i want to replace the last word like &xyz.

ex:
if $keyword='123123;&12;212222&123' then output 123123;&12;212222

if $keyword='123123;&12;212222&123;' then output 123123;&12;212222&123;

but i alaways got the error result (123123

The problem is not described too well. All of the below work, take your
pick according to what it is you are actually trying to do.

$keyword=~s/&\d+$//;
$keyword=~s/&[^;]+$//;
$keyword=~s/&.{3}$//;

 

[cju.kuo]

like this...try it!

my $keyword='123123;&12;212222&123;';
$keyword=~s/\&123([;])*$/$1/;
print $keyword;

 

[Dr.Ruud]

sonet schreef:

my $keyword=shift;
$keyword=~s/(&.*?)$//;
print $keyword;

i want to replace the last word like &xyz.

ex:
if $keyword='123123;&12;212222&123' then output 123123;&12;212222

if $keyword='123123;&12;212222&123;' then output
123123;&12;212222&123;

but i alaways got the error result (123123

The '?' for minimal matching, doesn't work "from the right".


To remove everything starting at the last '&' up to the end, where the
characters between that last '&' and the end can not be ';'

s/&[^&;]*$//


Since you call it a word, you could also use \w (see perlre)

s/&\w*$//

 

[Michele Dondi]

like this...try it!

my $keyword='123123;&12;212222&123;';
$keyword=~s/\&123([;])*$/$1/;

& is not a special metacharachter, it doesn't need to be quoted.
C<[;]> is the same as C<;>.
The $ is redundant (in this case, i.e. with no modifiers), since * is
greedy anyway.


Michele