Форум АНТИЧАТ

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   PHP, PERL, MySQL, JavaScript (https://forum.antichat.xyz/forumdisplay.php?f=37)
-   -   Из Perl в txt (https://forum.antichat.xyz/showthread.php?t=19988)

Voyageur 01.06.2006 08:56

Из Perl в txt
 
Всем привет!
Посмотрел в книжке - ничего не нашел... Пишу на перле генератор паролей, от 100000 до 999999. Надо записать его в txt файл. Как сгенерированные пассы в файл загнать и вообще, это реально?

xShreKx 01.06.2006 16:56

Ты знаешь, в книжке "Не Время для Драконов" я тоже ничего не нашел про работу с файлами в 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);


Voyageur 01.06.2006 17:01

xShreKx, спасибо, врубилси! :)

xShreKx 01.06.2006 17:16

Всегда. Но лучше бы ты сам нашел ответ ;) А то от Чайника такими вопросами ты в жизни не избавишься ;) Совет на будущее =)

Думаю, тема закрыта.

Voyageur 01.06.2006 17:40

xShreKx, ага, после создания темы я посмотрел код какого-то эксплоита и выдрал оттуда, как записывать и т.д. Но это было после)) Но ты-то подробно написал...


Время: 00:26