Hi Siegfried Am Dienstag, 19. April 2005 23.21 schrieb Siegfried Heintze: > Hey Perlers! > > This code used to work and then I changed something
_What_ did you change? If you don't k know: Use some version control system, so you can reconstruct all changes. > and it no longer works! > The problem is the output no longer includes "string 2a" and "string 2b". > What am I doing wrong? put use strict; use warnigs; ot top of every script. I get the following with your code below: Useless use of push with no values at - line 15. > How do explicitly assign an array (not an array reference, but an array) to > an array cell? You can't... an array element can only contain a scalar. > Thanks, > Sieg > > > sub concat { > # All arguments are assumed to be strings or nested arrays of strings. > # Concatenate all elements of all arguments. > return join "", map ref eq "ARRAY" ? concat( @$_ ) : $_, @_ } > > my @sResult = (); > push @sResult, "string 1"; > push @sResult, "string 2"; > > my $nMark = @sResult; > > push @sResult, (); # make an array of an array cell: does not work perl -le ' use strict; use warnings; my @a =(1,2,3); push @a, (); print join "-", @a; ' # prints: 1-2-3 > push @sResult = "string 3"; push @sResult, "string 3"; > [EMAIL PROTECTED] = "string 2a"; > [EMAIL PROTECTED] = "string 2b"; > > print concat [EMAIL PROTECTED]; hth, joe -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>