Forum Webscript.Ru

Программирование => Perl => Тема начата: от 10 Февраля 2002, 08:30:17

Название: Небольшой вопрос
Отправлено: от 10 Февраля 2002, 08:30:17

Хм..вот тут вопросик...почему после выполнения этой функции в файл записываются строки перед которымы ставиться пробел. К примеру
1 выполнение
---
1
 2
 3
---
2 выполнение
1
  2
  3
---
вот такая бяка..:(
вот сам скритп

sub save {
$j=param(\'hidmax\');
$fail=param(\'hidfile\');

$newfile[0]=param(\'dlinagrafa\')."\\n";
$newfile[1]=param(\'sirinagrafa\')."\\n";
$newfile[2]=param(\'submitt\')."\\n";
$newfile[3]=param(\'vopros\')."\\n";

for ($i=4; $i <= $j; $i++) {
($newfile[$i])=param("$i")."=".param("row$i")."\\n";
}

for ($i=6; $i <= $j; $i++) {
if (param(\'del-row\')==$i){
$newfile[$i]=();
}
}
open (FILE, ">$datadir/$fail") || die $!;
print FILE "@newfile";
close FILE;
}

Название: Небольшой вопрос
Отправлено: от 10 Февраля 2002, 08:32:35

точнее не

1 выполнение
---
1
_2
_3
---
2 выполнение
1
__2
__3
---

PS жаль форум пробелы не ставит...:(

Название: Небольшой вопрос
Отправлено: от 11 Февраля 2002, 17:29:56

Пробелы появляются потому что
print FILE "@newfile";

Если писать print FILE @newfile;  их не будет.