Просмотр полной версии : Из Perl в txt
Voyageur
01.06.2006, 08:56
Всем привет!
Посмотрел в книжке - ничего не нашел... Пишу на перле генератор паролей, от 100000 до 999999. Надо записать его в txt файл. Как сгенерированные пассы в файл загнать и вообще, это реально?
Ты знаешь, в книжке "Не Время для Драконов" я тоже ничего не нашел про работу с файлами в 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, спасибо, врубилси! :)
Всегда. Но лучше бы ты сам нашел ответ ;) А то от Чайника такими вопросами ты в жизни не избавишься ;) Совет на будущее =)
Думаю, тема закрыта.
Voyageur
01.06.2006, 17:40
xShreKx, ага, после создания темы я посмотрел код какого-то эксплоита и выдрал оттуда, как записывать и т.д. Но это было после)) Но ты-то подробно написал...
vBulletin® v3.8.14, Copyright ©2000-2026, vBulletin Solutions, Inc. Перевод: zCarot