Re^2: How to declare variables per loop

in reply to Re: How to declare variables per loop
in thread How to declare variables per loop

Looks good. I would leave it at that but, perhaps for future reference, I couldn't resist a further tweak. :-)

# ...
my %titles = (
  q{01} => q{First},
  q{02} => q{Second},
  q{03} => q{Third},
  q{04} => q{Fourth},
  q{05} => q{Fifth},
  q{06} => q{Sixth},
);
    
my @cmds;
for my $number (qw{01 02 03 04 05 06}){
  my $cmd = build_command($number, $titles{$number}, %args);
  push @cmds, $cmd;
}
# ...
[download]

sub build_command {

  my $num = shift;    
  my $title = shift;
    
  my %args = @_;
  
  my $cmd = sprintf(
    qq{set title "The %s Indicator\n"},
    $title,
  );
  
  # ....
[download]

  ...
  ######################################
  $multiplot_title
  $cmds[0]
  $cmds[1]
  unset multiplot
  ...
[download]

Comment on Re^2: How to declare variables per loop Select or Download Code

Replies are listed 'Best First'.
Re^3: How to declare variables per loop by vagabonding electron (Curate) on Oct 13, 2011 at 08:55 UTC
Thank you very much wfsp. After overnight I thought even that it were possible to combine the title for the evaluation and the titles for the diagramms in one hash. One should then input a shorthand for the evaluation at the command line. This below is just a fragment, I am tinkering now : -) Thanks again! VE `use strict; use warnings; if (!defined $ARGV[0]) { die " Please type the shorthand: THIS for This Great Evaluation THAT for That Small Evaluation "; } my $topic = $ARGV[0]; my %module = ( THIS => [ { name => q{This Great Evaluation}, indicator => { '01' => q{The First}, '02' => q{The Second}, }, }, ], ); print ${module}{$topic}[0]->{name}; print ${module}{$topic}[0]->{indicator}{'01'}; print ${module}{$topic}[0]->{indicator}{'02'};` [download]	[reply] [d/l]

Replies are listed 'Best First'.

Re^3: How to declare variables per loop
by vagabonding electron (Curate) on Oct 13, 2011 at 08:55 UTC

wfsp

use strict;
use warnings;
if (!defined $ARGV[0])    {
    die "
    Please type the shorthand:
    THIS for This Great Evaluation
    THAT for That Small Evaluation
    ";
}

my $topic = $ARGV[0];

my %module = (
    THIS => [
    {
      name => q{This Great Evaluation},
      indicator =>    {
        '01' => q{The First},
        '02' => q{The Second},
      },
    },
    ],
);

print ${module}{$topic}[0]->{name};
print ${module}{$topic}[0]->{indicator}{'01'};
print ${module}{$topic}[0]->{indicator}{'02'};
[download]

[reply]
[d/l]

In Section Seekers of Perl Wisdom