---- Bobby <[EMAIL PROTECTED]> wrote:
> Hi all,
>
> I'm trying to write a simple do until loop to print out the value of $strA0
> through $striA3. What i'm doing is replacing the value of 0 through 3 in the
> $strA by joining two strings (my $strB = "strA" . $count;). Right now my
> script is printing $strB as below. How do i get perl to print the value of
> $strA0 through $strA3 inside of my do until loop? i.e.:
>
> Desired Outcome:
> VarB: A0
> VarB: A1,b,c
> VarB: A 2
> VarB: A3,d,e
>
> Current Outcome:
> VarB:strA0
> VarB:strA1
> VarB:strA2
> VarB:strA3
>
>
> #!/usr/bin/perl
> use strict;
> use warnings;
>
> my $strA0="A0";
> my $strA1="A1,b,c";
> my $strA2="A2";
> my $strA3="A3,d,e";
>
> my $count = 0;
> until ($count == 4){
> my $strB = "strA" . $count;
> print "VarB:$strB\n";
> $count++;
> }#end until loop
>
> Thanks,
>
> Mike
You can either turn them into an array and walk the array with your count
You are setting $strB as the string strA instead of $strA($count) which is
where you are getting hosed up.
My perl server is down or I'd play with the code a bit to get it the exact
answer, but that should point you in the right direction.
HTH,
Wolf
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
