Ciao a tutti,



ho un piccolo problema con uno scriptino perl (utilizzo un automatismo in smtp per inviarmi automaticamente delle mail al verificarsi di determinate casistiche).

Ma veniamo a noi....dato un file di input contenente <n> righe come ad es.:

pippo1 = 1234;
pippo2 = 5678;
pippo3 = 9101112;

qualcuno può spiegarmi come mai una volta che apro il file e provo a stampare il suo contenuto non mi ritrovo il ritorno a capo?
Riporto di seguito il codice per farmi meglio comprendere (grazie a coloro che mi risponderanno):

$file = 'miofile.txt';
open(INFO, $file);
@lines = <INFO>;
$TESTO="<div style=\"font-family:verdana; font-size:12px\">
ALLERT!!! @lines , rispetto alla media.
</font>";
print $sock "$TESTO\r\n";

Il risultato è:

pippo1 = 1234; pippo2 = 5678; pippo3 = 9101112;

senza alcun ritorno a capo?

come mai?

grazie e ciao ciao,
Tony