Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses

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;

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.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://930820]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (3)
As of 2017-02-20 02:19 GMT
Find Nodes?
    Voting Booth?
    Before electricity was invented, what was the Electric Eel called?

    Results (293 votes). Check out past polls.