return stripped characters

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

Replies are listed 'Best First'.
Re: return stripped characters by borisz (Canon) on Apr 26, 2005 at 15:46 UTC
Or more verbose: `$salutation =~ s/($.*?$)// and $stripped = $1;` [download] Boris	[reply] [d/l]
Re: return stripped characters by inman (Curate) on Apr 26, 2005 at 16:18 UTC
Declaration and conditional assignment. `my $stripped = $salutation =~ s/($.*?$)// ? $1 : '';` [download]	[reply] [d/l]
Re: return stripped characters by cog (Parson) on Apr 26, 2005 at 15:38 UTC
For instance: `$salutation =~ s/($.*?$)/$stripped .= $1;''/e;` Don't forget to predeclare $stripped.	[reply] [d/l]
Re^2: return stripped characters by Roy Johnson (Monsignor) on Apr 26, 2005 at 15:43 UTC
I would recommend avoiding the eval by assigning as a separate step: `$salutation =~ s/($.?$)// and $stripped = $1;` [download] or some such. Caution:* Contents may have been coded under pressure.	[reply] [d/l]
Re^3: return stripped characters by cog (Parson) on Apr 26, 2005 at 15:45 UTC
True. My mind was thinking of global substitutions.	[reply]
Re^3: return stripped characters by radiantmatrix (Parson) on Apr 26, 2005 at 19:06 UTC
Or, to use a conditional if construct: `my $stripped; $stripped = $1 if $salutation =~ s/($.?$)//;` [download] This is functionally equivalent to the parent post, just a different style of expressing it. Update:* I was trying to be too concise, thanks to tlm for pointing me to the error of my ways. Code has been updated to predeclare `$stripped`, since that is much more reliable than declaration and assignment in one step with a conditional. radiantmatrix `require General::Disclaimer; s//2fde04abe76c036c9074586c1/; while(m/(.)/g){print substr(' ,JPacehklnorstu',hex($1),1)}`	[reply] [d/l]
Re^4: return stripped characters by tlm (Prior) on Apr 27, 2005 at 01:03 UTC
Re^2: return stripped characters by Anonymous Monk on Apr 26, 2005 at 15:44 UTC
Hi sorry but I cannot get this to work `$stripped=""; $salutation =~ s/($.*?$)/$stripped .= $1;''/e; print $stripped;` [download] $salutation is stripped as usual but $stripped is empty!	[reply] [d/l]
Re^3: return stripped characters by cog (Parson) on Apr 26, 2005 at 16:10 UTC
It does work for me... What are you putting in $salutation? By the way, when I said "predeclare", I meant with `my` or `our`. I assume you're not using strict. You should.	[reply] [d/l] [select]
Re: return stripped characters by splinky (Hermit) on Apr 26, 2005 at 17:59 UTC
I get the feeling we're all misunderstanding what you're trying to do. Just to clarify... are you trying to strip off everything in $salutation between two parentheses? In other words, if $salutation is "Dear Mr. Smith (you ignorant twit)", then you want to strip off "(you ignorant twit)", so that $salutation contains "Dear Mr. Smith ", and "(you ignorant twit)" is saved in some other variable, right? I ask this because that's certainly the question everyone else is answering for you.	[reply]
Re: return stripped characters by TedPride (Priest) on Apr 26, 2005 at 20:07 UTC
Edit: Ignore post. Possibly misread requirements. Do you want the text inside the parentheses returned or the entire text?	[reply]
Re^2: return stripped characters by Anonymous Monk on Apr 27, 2005 at 08:18 UTC
Hi everyone thanks for all your help all these solutions work perfectly for what I wanted. I have to say having a support forum like this makes an already brilliant programming language even better!	[reply]

Replies are listed 'Best First'.
Re: return stripped characters by borisz (Canon) on Apr 26, 2005 at 15:46 UTC
Or more verbose: `$salutation =~ s/(\(.*?\))// and $stripped = $1;` [download] Boris	[reply] [d/l]
Re: return stripped characters by inman (Curate) on Apr 26, 2005 at 16:18 UTC
Declaration and conditional assignment. `my $stripped = $salutation =~ s/(\(.*?\))// ? $1 : '';` [download]	[reply] [d/l]
Re: return stripped characters by cog (Parson) on Apr 26, 2005 at 15:38 UTC
For instance: `$salutation =~ s/(\(.*?\))/$stripped .= $1;''/e;` Don't forget to predeclare $stripped.	[reply] [d/l]
Re^2: return stripped characters by Roy Johnson (Monsignor) on Apr 26, 2005 at 15:43 UTC
I would recommend avoiding the eval by assigning as a separate step: `$salutation =~ s/(\(.?\))// and $stripped = $1;` [download] or some such. Caution:* Contents may have been coded under pressure.	[reply] [d/l]
Re^3: return stripped characters by cog (Parson) on Apr 26, 2005 at 15:45 UTC
True. My mind was thinking of global substitutions.	[reply]
Re^3: return stripped characters by radiantmatrix (Parson) on Apr 26, 2005 at 19:06 UTC
Or, to use a conditional if construct: `my $stripped; $stripped = $1 if $salutation =~ s/(\(.?\))//;` [download] This is functionally equivalent to the parent post, just a different style of expressing it. Update:* I was trying to be too concise, thanks to tlm for pointing me to the error of my ways. Code has been updated to predeclare `$stripped`, since that is much more reliable than declaration and assignment in one step with a conditional. radiantmatrix `require General::Disclaimer; s//2fde04abe76c036c9074586c1/; while(m/(.)/g){print substr(' ,JPacehklnorstu',hex($1),1)}`	[reply] [d/l]
Re^4: return stripped characters by tlm (Prior) on Apr 27, 2005 at 01:03 UTC
Re^2: return stripped characters by Anonymous Monk on Apr 26, 2005 at 15:44 UTC
Hi sorry but I cannot get this to work `$stripped=""; $salutation =~ s/(\(.*?\))/$stripped .= $1;''/e; print $stripped;` [download] $salutation is stripped as usual but $stripped is empty!	[reply] [d/l]
Re^3: return stripped characters by cog (Parson) on Apr 26, 2005 at 16:10 UTC
It does work for me... What are you putting in $salutation? By the way, when I said "predeclare", I meant with `my` or `our`. I assume you're not using strict. You should.	[reply] [d/l] [select]
Re: return stripped characters by splinky (Hermit) on Apr 26, 2005 at 17:59 UTC
I get the feeling we're all misunderstanding what you're trying to do. Just to clarify... are you trying to strip off everything in $salutation between two parentheses? In other words, if $salutation is "Dear Mr. Smith (you ignorant twit)", then you want to strip off "(you ignorant twit)", so that $salutation contains "Dear Mr. Smith ", and "(you ignorant twit)" is saved in some other variable, right? I ask this because that's certainly the question everyone else is answering for you.	[reply]
Re: return stripped characters by TedPride (Priest) on Apr 26, 2005 at 20:07 UTC
Edit: Ignore post. Possibly misread requirements. Do you want the text inside the parentheses returned or the entire text?	[reply]
Re^2: return stripped characters by Anonymous Monk on Apr 27, 2005 at 08:18 UTC
Hi everyone thanks for all your help all these solutions work perfectly for what I wanted. I have to say having a support forum like this makes an already brilliant programming language even better!	[reply]