[perl] вывод результата каждого цикла в отдельный файл?

Fake_queen

необходимо результат каждой итераций записать в индивидуальный файл с именем типа $a.txt (где $a, некая внутренняя переменная в каждом цикле). но почему то, команда в конце каждого цикла, типа open (FO, ">$a.txt") ничего не создает.. я как-то неправильно файл назвал?

GAGAUZ25

вроде правильно... а что в $a? что перл при компиляции говорит?
ты бы весь код запостил....

qsk78

Чтобы найти причину того, почему не создается файл, попробуй писать так:
open(FO, ">$a.txt") or die "Couldn't open $a.txt: $!"

Barbie29

[mobile100 xx]$ cat x.pl
#!/usr/bin/perl -w
foreach (0 .. 10) {
open F,">$_.txt" or die "cant open $_: $!";
print F $_*$_."\n";
close F;
}
[mobile100 xx]$ pwd; ls -la
/home/vilfred/xx
итого 16
drwxrwxr-x 2 vilfred vilfred 4096 Май 10 20:56 .
drwx------ 10 vilfred vilfred 4096 Май 10 20:55 ..
-rw-rw-r-- 1 vilfred vilfred 122 Май 10 20:56 x.pl
-rw-rw-r-- 1 vilfred vilfred 119 Май 10 20:56 x.pl~
[mobile100 xx]$ perl x.pl; ls -la
итого 60
drwxrwxr-x 2 vilfred vilfred 4096 Май 10 20:57 .
drwx------ 10 vilfred vilfred 4096 Май 10 20:55 ..
-rw-rw-r-- 1 vilfred vilfred 2 Май 10 20:57 0.txt
-rw-rw-r-- 1 vilfred vilfred 2 Май 10 20:57 1.txt
-rw-rw-r-- 1 vilfred vilfred 4 Май 10 20:57 10.txt
-rw-rw-r-- 1 vilfred vilfred 2 Май 10 20:57 2.txt
-rw-rw-r-- 1 vilfred vilfred 2 Май 10 20:57 3.txt
-rw-rw-r-- 1 vilfred vilfred 3 Май 10 20:57 4.txt
-rw-rw-r-- 1 vilfred vilfred 3 Май 10 20:57 5.txt
-rw-rw-r-- 1 vilfred vilfred 3 Май 10 20:57 6.txt
-rw-rw-r-- 1 vilfred vilfred 3 Май 10 20:57 7.txt
-rw-rw-r-- 1 vilfred vilfred 3 Май 10 20:57 8.txt
-rw-rw-r-- 1 vilfred vilfred 3 Май 10 20:57 9.txt
-rw-rw-r-- 1 vilfred vilfred 122 Май 10 20:56 x.pl
-rw-rw-r-- 1 vilfred vilfred 119 Май 10 20:56 x.pl~
[mobile100 xx]$ cat *.txt
0
1
100
4
9
16
25
36
49
64
81
[mobile100 xx]$

Fake_queen

усе, проблема решилась - вчера под вечер просто устал
там я просто $a не совсем правильно определил
Оставить комментарий
Имя или ник:
Комментарий: