Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

emilford's scratchpad

by emilford (Friar)
on Jun 05, 2004 at 11:33 UTC ( #361470=scratchpad: print w/replies, xml ) Need Help??

I submitted this question a few days back and got some responses, but I'm still getting what I need. If I have $command below, I need to swap all ${XYZ}'s in the string w/ their corresponding value in $dynamic_vars{xyz}. I broke this up into two steps, because I first need to make all XYZ's lowercase and then secondly swap ${XYZ} for $dynamic_variables{xyz}.
$command = 'Do this ${command} to ${computer}'; $command =~ s[ \$ { ([^}]+) } ] [ $ { \l$1 } ]; $command =~ [same as above][$dynamic_vars{$1}];
Log In?
Username:
Password:

What's my password?
Create A New User
Chatterbox?
[shmem]: of course
[shmem]: the members of @another_array are conflated to @array
[shmem]: try it out:
[Lady_Aleena]: shmem, thanks. I'm am way out of practice.
[shmem]: perl -lE '@foo = (0..3);@bar = (4..7); push @foo,@bar; say for @foo'
[Lady_Aleena]: shmem, I feel like an idiot for forgetting something so basic.
shmem puts a big cauldron of "silly con charme" on the table in the refectorium
[reisinge]: 'push @foo, @bar' is the same as '@foo = (@foo ,@bar)' ?

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (5)
As of 2017-04-27 11:31 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    I'm a fool:











    Results (503 votes). Check out past polls.