ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
11.01.2009, 16:51
|
|
Reservists Of Antichat - Level 6
Регистрация: 23.08.2007
Сообщений: 1,237
Провел на форуме:
18127311
Репутация:
1676
|
|
В перле нету функции fgets)
|
|
|
11.01.2009, 17:18
|
|
Динозавр
Регистрация: 10.01.2008
Сообщений: 2,841
Провел на форуме:
9220514
Репутация:
3338
|
|
$var1 = <>; # Прочитать одну строку файла
@var1 = <>; # Прочитать все строки файла в массив @var1
|
|
|
|
11.01.2009, 17:18
|
|
Постоянный
Регистрация: 12.07.2006
Сообщений: 327
Провел на форуме:
1654818
Репутация:
117
|
|
constanta
read FILEHANDLE,SCALAR,LENGTH,OFFSET Считывает LENGTH байт данных из FILEHANDLE в переменную SCALAR. Возвращает число считанных байт или неопределенное значение в случае ошибки.
также
seek FILEHANDLE, POSITION, WHENCE Позволяет установить курсор в файле, определенном в переменной FILEHANDLE, на позицию POSITION в режиме, указанном в переменной WHENCE. Если переменная WHENCE содержит значение 0, то позиция отсчитывается от начала файла, если 1 то от текущей позиции и если 2, то от конца файла. Возвращает 1 в случае успеха и 0 иначе.
|
|
|
|
11.01.2009, 17:18
|
|
Познающий
Регистрация: 19.09.2007
Сообщений: 38
Провел на форуме:
424313
Репутация:
2
|
|
Предложите какой то вариант. Ну не может же быть такого что бы в perl не было решения такого вопроса. НУ Очень надо).
|
|
|
|
11.01.2009, 17:22
|
|
Участник форума
Регистрация: 05.11.2008
Сообщений: 105
Провел на форуме:
292722
Репутация:
71
|
|
constanta, можешь попробовать прочитать его с помощью read(). Хотя не факт что это будет быстрее. Вообще посмотри на CPAN, там наверняка что-то есть по этому поводу!
PS. IO::File, например.
Последний раз редактировалось demond; 11.01.2009 в 17:31..
|
|
|
|
11.01.2009, 17:34
|
|
Динозавр
Регистрация: 10.01.2008
Сообщений: 2,841
Провел на форуме:
9220514
Репутация:
3338
|
|
open(TEST, $filename) || die "Can't open file\n";
while (<TEST>)
{
@a[$i] = $_;
chomp @a[$i];
$i++;
}
close (TEST);
чонить в этом роде
или так (но скорее всего это уже для небольших файлов, потести в общем):
open(TEST, $filename) || die "Can't open file\n";
@Mass = <TEST>;
close (TEST);
Последний раз редактировалось Pashkela; 11.01.2009 в 17:43..
|
|
|
|
12.01.2009, 06:24
|
|
Новичок
Регистрация: 08.01.2009
Сообщений: 8
Провел на форуме:
58593
Репутация:
1
|
|
kak zapistit exploiti na active perl?
|
|
|
|
12.01.2009, 09:55
|
|
Участник форума
Регистрация: 05.11.2008
Сообщений: 105
Провел на форуме:
292722
Репутация:
71
|
|
scylla, как и любой другой perl файл:
(Если все стоит по дефолту)
C:\Perl\bin\perl.exe exploit.pl
|
|
|
|
12.01.2009, 19:44
|
|
Members of Antichat - Level 5
Регистрация: 09.10.2006
Сообщений: 1,698
Провел на форуме:
9098076
Репутация:
4303
|
|
constanta
Код:
open (SRC, "<file.txt");
Read:
while(<SRC>) {
push @mas, $_;
last if @mas > 1000;
}
....
тут действия с массивом
....
goto Read
если размер массива больше 1000, произваодится выход из цикла while |
|
|
|
15.01.2009, 19:34
|
|
Участник форума
Регистрация: 28.07.2008
Сообщений: 199
Провел на форуме:
861008
Репутация:
58
|
|
чет закалебался гуглить) скрипту передаются параметры. один из них урл. но ему не нравится знак "&" в урле) как сделать?)
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Линейный вид
