[FoLUG] Aiuto su perl

[Conte Piero]

Ciao a tutti,
avrei bisogno di un chiarimento su
concatenazione di stringhe in perl.
Posto tutto lo script, ma comunque
il problema sta alla fine dove ho messo i
commenti.




#! /usr/bin/perl

print STDERR "Nome del file......:";

#$filename = <STDIN>;
#open (FILE, "<$filename") ;
open (FILE, "<input") ;

open (FILEOUT, ">output");

 	while ( !eof (FILE)) {

		$riga = <FILE> ;

		$rigasoggetto = substr ($riga,0,8);
		#print "$rigasoggetto\n";

		$rigaidn=substr ($riga,0,11);
		#print "$rigaidn\n";

		if ($rigasoggetto eq "Subject:")
			{
			$soggetto = substr ($riga,9,10);
			#print "$soggetto \n"
			} ;

		if ($rigaidn eq "Message-Id:")
			{
			$idn = substr ($riga,20,10);

qui concatena bene la costante con la varialile
			$rigastampa1 = "Soggetto....".$soggetto;
qui concatena ancora bene
			$rigastampa2 ="Id-mail.....".$idn;
qui non concatena bene in quanto sul file di output scrive
$rigastampa1 va a capo $rigastampa2 invece di come vorrei io $rigastampa1
$rigastampa2 sulla stessa riga.
			$rigastampa = $rigastampa1.$rigastampa2;
			print FILEOUT "$rigastampa\n";

			}



}
close FILEOUT;

Qualcuno mi da una mano a capire questo comportamento.

Grazie

Piero




---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.775 / Virus Database: 522 - Release Date: 08/10/2004