Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW
 
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
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 scrutinizing the Monastery: (8)
As of 2014-12-26 09:39 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (171 votes), past polls