Форум АНТИЧАТ - Показать сообщение отдельно

Ты знаешь, в книжке "Не Время для Драконов" я тоже ничего не нашел про работу с файлами в Perl. Но я все же нашел ответ на твой мегасложный вопрос... Итак *барабанная дробь*...
I Работа с файлом
Пункт 1.Открытие файла для записи

Код:

open(Дескриптор_файла, ">путь_к_файлу") || DIE ("Не могу: $! (... Импотэнт =)");

Пункт 2. Запись в файл.

Код:

print Дескриптор_файла "СТРОКА";

Пункт 3. Закрытие файла.

Код:

close(Дескриптор_файла)

II Генератор (какое слово!!!) паролей

Код:

for ( $а=100000; $а<1000000; $а++ ) 
{
print Дескриптор_файла "$a\n" || DIE ("Не записывается ((");
}

Итого:

Код:

open(PAS, ">log.txt") || DIE ("Не могу: $! (... Импотэнт =)");
for ( $а=100000; $а<1000000; $а++ ) 
{
print PAS "$a\n" || DIE ("Не записывается ((");
}
close(PAS);