Re^2: Regex Help

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";
[download]

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

Comment on Re^2: Regex Help Download Code

Replies are listed 'Best First'.
Re^3: Regex Help by 2teez (Vicar) on Mar 28, 2013 at 06:21 UTC
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` [download] *Output* `piratesofcareebian pirates of careebian pirates of careebian pirates1 of careebian pirates2 of careebian pirates3 of careebian` [download] Please, check the reference I mentioned in my first post on this thread. Hope that helps If you tell me, I'll forget. If you show me, I'll remember. if you involve me, I'll understand. --- Author unknown to me	[reply] [d/l] [select]
Re^4: Regex Help by Anonymous Monk on Mar 28, 2013 at 07:56 UTC
Thanks 2Teez. That was clear & fine... :)	[reply]
Re^5: Regex Help by hdb (Monsignor) on Mar 28, 2013 at 08:26 UTC
How about "everything from pirates to careebian" ? ;-) `use strict; use warnings; while(<DATA>){ chomp; print $1,$/ if /(pirates.*careebian)/; } __DATA__ piratesofcareebian100 pirates of careebian100 pirates of careebian 100 pirates1 of careebian 100 pirates2 of careebian 100 pirates3 of careebian 100` [download]	[reply] [d/l]
Re^6: Regex Help by Anonymous Monk on Mar 28, 2013 at 19:00 UTC
Re^7: Regex Help by hdb (Monsignor) on Mar 28, 2013 at 19:10 UTC