Christiane Nerz wrote:
>
> Hi all!
Hello,
> I like to read several rows out of two different table-files and put
> them successively in a new file by:
>
> @ergebnis_alles[$#ergebnis_alles+1] = @whole_data1[$l] . $whole_data2[$m];
You should be using push for that:
push @ergebnis_alles, $whole_data1[$l] . $whole_data2[$m];
> Anything works fine, except that I can't delete the ending newline in
> the lines in the first tables. So the data is put in two following lines
> and not successively in one line. I tried chmod, but got error-messages.
You want to use chomp() to remove newlines:
chomp $scalar;
Or:
chomp @array;
> Whole part of code is:
> foreach $el1 (@strings1) { $m=0;
> foreach $el2 (@strings2) {
> if ($el1 eq $el2)
> [EMAIL PROTECTED] = $el1;
> @ergebnis_alles[$#ergebnis_alles+1] = @whole_data1[$l] .
> $whole_data2[$m];
{push @strings3, $el1;
push @ergebnis_alles, $whole_data1[$l] .
$whole_data2[$m];
> }
> else
> {.....
> }
> $m=$m+1;
> }
> $l=$l+1;
> }
John
--
use Perl;
program
fulfillment
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
