Inlined Substitution

[CJason]

Is it possible to do an inlined "substitution"? For example, given the following:

$this = $that1 . $that2;

I need to do this...but, INLINED:

$that1 =~ s/X//i;
$that2 =~ s/Y//i;
$this = $that1 . $that2;

So, I'm trying to do something like this:

$this = ($that1 =~ s/X//i) . ($that2 =~ s/Y//i);

Which, obviously, doesn't work!

I can come up with a way of doing this with "substr", but it gets messy...so, I was hoping there was another, simpler way of doing it.

Thanks in advance!!

 

[PinkeyNBrain]

Not what I'd call elegant, but works in a couple of tests I did

$this1 = "abc" ;
$this2 = "def";

$this = (($this1 =~ s/b/B/) ? $this1 : $this1) . (($this2 =~ s/e/E/) ? $this2 : $this2) ;
print ">$this<\n";

Note that both $this1 and $this2 will be changed as well if the substitution is successful.

 

[CJason]

Thanks for the reply! I'll check that out.

 

[stevexff]

my $this = $that1 . $that2 if (($that1 =~ s/X//g . $that2 =~ s/Y//g) || 1);

the || 1 is there to catch the edge case where $that1 and $that2 are both set to ''.

CJason - you'll notice that we've all given up asking why, we just assume this is for your code converter...

Steve

[small]"Every program can be reduced by one instruction, and every program has at least one bug. Therefore, any program can be reduced to one instruction which doesn't work." (Object:erlDesignPatterns)[/small]

 

[CJason]

steve...thanks for the response. And, thanks guys for giving up asking "what for" You're right...it's regarding my converter...yet again!?!?!? You guys are proving invaluable! I think I know perl quite well, but throw in some of the issues I'm running into with this converter...and I'm a lost puppy.

Thanks again!

 

[CJason]

Do you guys think there's a way to do this without modifying $that1 and $that2?

 

[travs69]

Just do the same think but create 2 new var's.
$var3 = $that1;
$var4 = $that2;

and then do it to $var3 and $var4.

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Travis - Those who say it cannot be done are usually interrupted by someone else doing it; Give the wrong symptoms, get the wrong solutions;

 

[PinkeyNBrain]

Continuing down the road of no return

$this1 = "abc" ;
$this2 = "def";

$this = eval {$t1 = $this1 ; $t1 =~ s/b/B/; $t2 = $this2 ; $t2 =~ s/e/E/ ; $t1 . $t2 } ;
print ">$this< >$this1< >$this2<\n";

 

[PinkeyNBrain]

Any chance you can call a subroutine?

 

[stevexff]

Is the requirement that it be inlined, or just that it should only occupy one line? I mean, could you just

$that1 =~ s/X//g; $that2 =~ s/Y//g; my $this = $that1 . $that2;

Steve

[small]"Every program can be reduced by one instruction, and every program has at least one bug. Therefore, any program can be reduced to one instruction which doesn't work." (Object:erlDesignPatterns)[/small]

 

[KevinADC]

Code converter? Convert what to what? Bad perl code into worse other code?

------------------------------------------
- Kevin, perl coder unexceptional!

 

[stevexff]

I think it's converting to perl, but from what I have no idea. Sinclair Spectrum Basic, possibly...

Steve

[small]"Every program can be reduced by one instruction, and every program has at least one bug. Therefore, any program can be reduced to one instruction which doesn't work." (Object:erlDesignPatterns)[/small]

 

[CJason]

Thanks for the responses. I could possibly call a subroutine or, like stevexff said, I just need to keep it on one line.

Good suggestions guys!

Yes, I'm converting TO perl.

 

[stevexff]

But from what? We have to know now...

Steve

[small]"Every program can be reduced by one instruction, and every program has at least one bug. Therefore, any program can be reduced to one instruction which doesn't work." (Object:erlDesignPatterns)[/small]

 

[CJason]

If you HAVE to know ;-) ......

DCL

Yes, the VMS-Digital Command Language

 

[stevexff]

I guess there was nothing on CPAN that would do that already, then?

Steve

[small]"Every program can be reduced by one instruction, and every program has at least one bug. Therefore, any program can be reduced to one instruction which doesn't work." (Object:erlDesignPatterns)[/small]

 

[CJason]

Don't I wish!!!!!