PERL pristevki

sledniq kod:
foreach $element (@edit) {
if ($element =~ /\..........[0-9]/) {
print "<b>$element</b>";
print "
";

raboti perfektno ako trqbva da se generira HTML, no ako sustiq kod go polzvam, za da napisha Output-a vuv fail, mi pishe samo purviq red vutre..Ne razbiram!

Кодът, който си написал, има нужда от две затварящи фигурни скоби (``}'') :-)

Пробвай това:

foreach $element (@edit)
{
if ($element =~ /\..........[0-9]/)
{
print "<b>$element</b>\n";
}
}


RTFM!
--sdg

#!/I'm/go/crazy
open (FILE, ">>my_file.txt");
foreach $element (@edit) {
if ($element =~ /\..........[0-9]/) {
print FILE $element;
}
}
close FILE;

raboti perfektno ako trqbva da se generira FILE,
no ako sustiq kod go polzvam, za da napisha Output-a vuv HTML,
ne stava
dali sluchaino mi vijdate greshkata?

Виж как в HTML се задава нов ред и ще разбереш къде ти е грешката!