Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

Re: How to declare variables per loop

by aartist (Scribe)
on Oct 11, 2011 at 13:57 UTC ( #930820=note: print w/ replies, xml ) Need Help??


in reply to How to declare variables per loop

You might want to use 'hash' for this purpose

my $hash; my @component = qw / abs def gki jkl mno /; my $root_dir = 'C:/Stuff/'; foreach my $c (@component){ foreach my $t (qw(this that)){ foreach my $n ('01','02'){ my $csv_file = join '_' => ($c,$t,$n); $hash->{$c}{$t}{$n} = $root_dir.$csv_file; } } }
Or depend upon your needs, you can simplify the code this way. That way, you will not need to pre-populate the hash.
my $root_dir = 'C:/Stuff/'; my $component = 'abs'; my $this_that = 'this'; my $index = '01'; my $csv_file = (join '_' => ($component,$this_that,$index)). '.csv'; my $csv_file_path = $root_dir.$csv_file;


Comment on Re: How to declare variables per loop
Select or Download Code
Replies are listed 'Best First'.
Re^2: How to declare variables per loop
by Anonymous Monk on Oct 11, 2011 at 14:28 UTC
    Thank you very much, I will try that.
    VE

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://930820]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others cooling their heels in the Monastery: (14)
As of 2015-07-29 16:21 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (265 votes), past polls