Perl - skriva ut innehåll i array tillsammans med variabel

Permalänk

Perl - skriva ut innehåll i array tillsammans med variabel

Hej!
Jag har en liten fråga om en väldigt kort skript. Jag läser in rader från textfil i en array:

@data = <FILE>;

Sedan vill jag slå ihop varje element i array:en med en variabel "$dns" och sen skriva ut det:

my $dns ="text";

foreach $line (@data) {

print $line = "$line $text";

Då vill jag ha utskriften så här:
"innehåll i element 1 i array" + "text" på samma rad och sen ny rad med "element 2 + text" osv

fast det blir:
"innehåll i element 1 i array" (ny rad)
"text"inhioskrivet med "innehåll i element 2 i array (ny rad)
"text" ihopskrivet med "innehåll i element 3 i array" (ny rad) osv

Alltså om innehållet är array:en är 1, 2. 3 osv så blir det:
1
text2
text3
tesxt4

Jag vill ha:
1text
2text
3text

Om jag lägger in ett "\n" i print $line = "$line $dns\n"; så blir det:
1
text
2
text
3 text osv och det är ju nästan rätt.

Missar jag nåt? Angriper jag det jag vill åstadkomma på fel sätt? Jag funderade på att lägga "text" i en array också och slå ihop de två array:erna element för element, men det fick jag inte ihop.

Tack på förhand!

Permalänk
Medlem

Du läser nog in \n från filen, så testa att köra chomp($line); innan du skriver du eller lägger till \n.

Permalänk

Men så där ja!

Tackar!

Permalänk
Medlem
Skrivet av pathfinder77:

Men så där ja!

Tackar!

Kul att det funkar! Alltid skoj att hjälpa till med Perl. Kom gärna med fler frågor