[perl] вывод результата каждого цикла в отдельный файл?
ты бы весь код запостил....
open(FO, ">$a.txt") or die "Couldn't open $a.txt: $!"
#!/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]$
![](/images/graemlins/smirk.gif)
там я просто $a не совсем правильно определил
Оставить комментарий
Fake_queen
необходимо результат каждой итераций записать в индивидуальный файл с именем типа $a.txt (где $a, некая внутренняя переменная в каждом цикле). но почему то, команда в конце каждого цикла, типа open (FO, ">$a.txt") ничего не создает.. я как-то неправильно файл назвал?