Regex Help

[Anonymous Monk]

Hiya Monks,

How can I delete the last digit part from a line. For example,

$line= "piratesofcareebian100";
$line= "pirates of careebian100";
$line= "pirates of careebian 100";

I only need from "pirates" upto "careebian".

How can I have only the alphabet part and delete the digit part using a regex.

Thank you.

[2teez]

How would you write it?
Try something like so:

use strict;
use warnings;


while(<DATA>){
  chomp;
  print $1,$/ if/(\D+?)\d+?/;
}

__DATA__
piratesofcareebian100
pirates of careebian100
pirates of careebian 100

Please also check these documentation perlre, perlrequick and perlretut

[Anonymous Monk]

Thanks 2teez, Now I have 1 more doubt. pls can u? If the data is like below, how we can do it?

$line = "pirates1 of careebian 100"; 
$line = "pirates2 of careebian 100"; 
$line = "pirates3 of careebian 100";

and I need the output as "pirates1 of careebian" & "pirates2 of careebian" & "pirates3 of careebian"

[2teez]

then change this print $1,$/ if/(\D+?)\d+?/;
to
this print $1,$/ if/(.+?)\s+?\d+?/;

UPDATE:
In case, you have all these data in the same file you can try this:

use strict;
use warnings;


while(<DATA>){
  chomp;
  print $1,$/ if/(.+?)(\s+)?\d+?$/;
}

__DATA__
piratesofcareebian100
pirates of careebian100
pirates of careebian 100
pirates1 of careebian 100
pirates2 of careebian 100
pirates3 of careebian 100


Output


piratesofcareebian
pirates of careebian
pirates of careebian
pirates1 of careebian
pirates2 of careebian
pirates3 of careebian

Please, check the reference I mentioned in my first post on this thread.
Hope that helps