using push

[MyMarlboro]

hi...
i have problem in using push function.

@aa= qq (aa bb cc);
push (@aa, 'dd');
print Dumper (@aa);
exit;

result as follow:
$VAR1 = 'aa bb cc';
$VAR2 = 'dd';

actually wat i wan is $VAR1 = 'aa bb cc dd';
i knew that i could archieve it through

@aa= qq (aa bb cc);
push (@aa, 'dd');
@aa=qq(@aa);
print Dumper (@aa);
exit;

$VAR1 = 'aa bb cc dd';


but i don wan to use the qq function.. is there any method to 'push' the new entry to the back of array and not the new line?

Thanks

[eWish]

Use the qw operator.

my @array = qw(aa bb cc);
push @array, 'dd';
print Dumper(\@array);

$VAR1 = [
          'aa',
          'bb',
          'cc',
          'dd'
        ];

--Kevin

[MyMarlboro]

Use the qw operator.

my @array = qw(aa bb cc);
push @array, 'dd';
print Dumper(\@array);

$VAR1 = [
          'aa',
          'bb',
          'cc',
          'dd'
        ];

--Kevin

emm... not tat i wan. sorry as i didnt give a good example.
the question is how to add an item to the end back of an array?
looking at the push function, it will add to the new line of the array.
please do tell me if my statement is not clear.
thx

[eWish]

What I posted was adding the 'dd' to the end of the array. When you use the qq{} operator, it is simply a double quoted string which means that @array= qq{aa bb cc} has only one element 'aa bb cc', not an array with 3 elements.

my @array = qw(aa bb cc);
push @array,'dd';
 
print "First Element:  $array[0] \n"; # prints aa
print "Second Element: $array[1] \n"; # prints bb
print "Thrid Element:  $array[2] \n"; # prints cc
print "Fourth Element: $array[3] \n"; # prints dd  which means that dd was added to the end or back of the array.

my @array2 = qq{aa bb cc};
print $array2[0]; # returns aa bb cc which is the only element in the array.

The code I posted above added the 'dd' to the end of the array and using the qw{} operator defines the array as three seperate elements.

--Kevin

[KevinADC]

push does add the new element to the end of the array, the problem is 'qq' as eWish has already noted. You should also a pass a reference to the data when you use Data::Dumper to print a data structure:

print Dumper \@array;

otherwise each element of the data structure is printed as a seperate VAR.

[MyMarlboro]

thanks for inputs.

I still confused.
let take an example as below:

@aa= ("Helo");
push(@aa, ",how are you");
 
print Dumper (@aa);
exit;

what i got is :
$VAR1 = 'Helo';
$VAR2 = ',how are you';


instead i would like to get
$VAR1 = 'Helo,how are you'';

[KevinADC]

Then use a string instead of an array.

[KevinADC]

Also, Data::Dumper is what is causing the array to display like that, if you did not use Data::Dumper there would be no newlines in the display:

@aa= ("Helo");
push(@aa, ",how are you");
print @aa;

[MyMarlboro]

thanks for the input... i give another example:

for $j(1...10){
if ($j== 5){
print "$j\n";
}
else {
print "$j\,";
}
}
exit;

where i could get output as
1,2,3,4,5
6,7,8,9,10,

because i would like to store the data to array first...

for $j(1...10){
if ($j== 5){
#print "$j\n";
push (@aa, $j);
}
else {
#print "$j\,";
push (@aa, join(",",$j,""));
}
}
 
print Dumper (@aa);
exit;

where i get the output as
$VAR1 = '1,';
$VAR2 = '2,';
$VAR3 = '3,';
$VAR4 = '4,';
$VAR5 = 5;
$VAR6 = '6,';
$VAR7 = '7,';
$VAR8 = '8,';
$VAR9 = '9,';
$VAR10 = '10,';


__________________
i hope i could get
$VAR1 = '1,2,3,4,5';
$VAR2 = '6,7,8,9,10,';

[nithinpes]

For that, you need to push a newline into array along with the variable when its value becomes 5.

for $j(1...10){
if ($j==5)
{
push (@aa, "$j\n");
}
else {
push (@aa, join(",",$j,""));
}
}
 
print @aa;
 

Other than inserting newline after 5, if you want to have a newline after every multiple of 5 (5,10,15,...). Replace,

if ($j==5)
 

with:

if ($j%5==0)
 

[MyMarlboro]

For that, you need to push a newline into array along with the variable when its value becomes 5.

for $j(1...10){
if ($j==5)
{
push (@aa, "$j\n");
}
else {
push (@aa, join(",",$j,""));
}
}
 
print @aa;
 

Other than inserting newline after 5, if you want to have a newline after every multiple of 5 (5,10,15,...). Replace,

if ($j==5)
 

with:

if ($j%5==0)
 

emm... please refer to my post #9.
Again. i wish to say that i want to get (using the print Dumper)
$VAR1 = '1,2,3,4,5';
$VAR2 = '6,7,8,9,10';

thanks

[nithinpes]

If you are using Data::Dumper, each element of the array will be printed in new line. For your desired output, you should create an array with two elements "1,2,3,4,5" and "6,7,8,9,10".

Try this:

use Data::Dumper;
$str="";
for $j(1...10){
if($j%5==0)
{ push @aa,$str.$j; 
    $str="";  ###reinitialize to null
}
else {
$str.= $j.",";   ## concatenate string with "," as delimiter
}
}
print Dumper (@aa);
exit;
 

[MyMarlboro]

If you are using Data::Dumper, each element of the array will be printed in new line. For your desired output, you should create an array with two elements "1,2,3,4,5" and "6,7,8,9,10".

Try this:

use Data::Dumper;
$str="";
for $j(1...10){
if($j%5==0)
{ push @aa,$str.$j; 
    $str="";  ###reinitialize to null
}
else {
$str.= $j.",";   ## concatenate string with "," as delimiter
}
}
print Dumper (@aa);
exit;
 

thank you so much. Good day.
thx