concatenation in perl

[gammaman1]

hi,

i'm having trouble with concatenation in perl. What I need to do is put the input of a file into an array. Then I want to join certain indices in the array. For example:

open FILENAME, "testtest";
@mylist = <FILENAME>;
close FILENAME;

$temp = @mylist[0] . @mylist[1];
print "$temp";

The filename testtest contains these strings:

1
asdf
asdf

but when i run the code, this is want happens:
Result:
1
asdf
#an empty line

Expected Result:
1asdf

What am I doing wrong?

thanks,
gammaman

 

[mactonio]

try this,

open FILENAME, "testtest";
@mylist = <FILENAME>;
close FILENAME;

$temp = (join "",$mylist[0], $mylist[1]);
print "$temp";

 

[gammaman1]

thanks for the response, but this yields the same result :-(

 

[rharsh]

A chomp might be useful as well. After that, there's lots of ways to join the two array elements together... here are a few:

chomp @mylist;
my $temp = "$mylist[0]$mylist[1]";
my $temp1 = $mylist[0] . $mylist[1];
my $temp2 = join('', @mylist);

 

[mactonio]

open FILENAME, "testtest";

while (<FILENAME>)
{
chomp;
push @mylist, $_;
}

$temp = (join "",$mylist[0], $mylist[1]);
print "$temp";

close FILENAME;

 

[duncdude]

Only one slight oversight - the text file lines have line-endings you need to remove:-

open FILENAME, "testtest";
[red][b]chomp ([/b][/red]@mylist = <FILENAME>[b][red])[/red][/b];
close FILENAME;

$temp = @mylist[0] . @mylist[1];
print "$temp";

Kind Regards
Duncan

 

[gammaman1]

ah, chomp was what i was looking for. thanks guys!

 

[KevinADC]

the join() function is very slow, just use concatenation or combine strings with double-quotes:

$s = "$r$t";
$s = $r . $t;

 

[PaulTEG]

$s.=$r;

Just another way of building up a string
--Paul

cigless ...