ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
|
06.05.2009, 11:39
|
|
Постоянный
Регистрация: 11.03.2008
Сообщений: 347
Провел на форуме:
2075230
Репутация:
462
|
|
Сообщение от Amoura
Еще такой вопрос. Когда запускаю скрипт на выполнение через командную строку, русский язык коряво отображается, как сделать, чтобы нормально отображался.
общий вопрос, к перлу не относящийся.
русик xterm
Код:
http://www.google.com/search?hl=ru&client=opera&rls=ru&hs=Dfw&num=100&q=%D1%80%D1%83%D1%81%D0%B8%D1%84%D0%B8%D0%BA%D0%B0%D1%86%D0%B8%D1%8F+xterm&btnG=%D0%9F%D0%BE%D0%B8%D1%81%D0%BA&lr=
Код:
http://www.google.com/search?hl=ru&client=opera&rls=ru&hs=Sfw&num=100&q=%D1%80%D1%83%D1%81%D0%B8%D1%84%D0%B8%D0%BA%D0%B0%D1%86%D0%B8%D1%8F+%D0%BA%D0%BE%D0%BD%D1%81%D0%BE%D0%BB%D0%B8&btnG=%D0%9F%D0%BE%D0%B8%D1%81%D0%BA&lr=
консоль винды:
Код:
http://www.google.com/search?client=opera&rls=ru&q=%D1%80%D1%83%D1%81%D1%81%D0%BA%D0%B8%D0%B9+%D1%8F%D0%B7%D1%8B%D0%BA+%D0%B2+%D0%BA%D0%BE%D0%BD%D1%81%D0%BE%D0%BB%D0%B8+windows&sourceid=opera&ie=utf-8&oe=utf-8
|
|
|
06.05.2009, 13:29
|
|
Reservists Of Antichat - Level 6
Регистрация: 23.08.2007
Сообщений: 1,237
Провел на форуме:
18127311
Репутация:
1676
|
|
Еще такой вопрос. Когда запускаю скрипт на выполнение через командную строку, русский язык коряво отображается, как сделать, чтобы нормально отображался.
Код:
sub cyr
{
($_)=@_;
y/А-яЁё/\x80-\xaf\xe0-\xf1/;
return $_;
}
|
|
|
|
07.05.2009, 18:20
|
|
Познавший АНТИЧАТ
Регистрация: 01.05.2006
Сообщений: 1,021
Провел на форуме:
3424739
Репутация:
921
|
|
как из страницы полученной через LWP выдрать ВСЕ значения найденные регуляркой
|
|
|
|
07.05.2009, 18:54
|
|
Reservists Of Antichat - Level 6
Регистрация: 23.08.2007
Сообщений: 1,237
Провел на форуме:
18127311
Репутация:
1676
|
|
@array = $response =~ /anything/g;
|
|
|
|
09.05.2009, 04:06
|
|
Участник форума
Регистрация: 23.01.2008
Сообщений: 182
Провел на форуме:
2268999
Репутация:
410
|
|
такой вот вопрос.
Как извлечь все слова из каждой строки?
Код:
#!usr/bin/perl -w
open(WORD, "C:/programs/word.txt") || die "$!"; # открываем файл
@word=<WORD>; # считываем строки в массив
chomp @word;
close(WORD);
$_/\do+g/;
@word=grep length{$_}>4, @words; # поиск слов
chomp @words;
open(WORDS, ">C:/programs/words.txt") || die "$!"; # запись слов в новый файл
if (! Print WORDS "Запись сделана ", @words, "\n") {
warn "Ошибка при записи в файл words: $!";
}
Close(WORDS);
|
|
|
|
09.05.2009, 13:17
|
|
Познающий
Регистрация: 14.01.2009
Сообщений: 93
Провел на форуме:
244235
Репутация:
39
|
|
Код:
open(WORD, "C:/programs/word.txt") || die "$!"; # открываем файл
my $word = join '', <WORD>;
close WORD;
my @words = $word =~ /(\w{5,})/g; # поиск слов
open(WORDS, ">C:/programs/words.txt") || die "$!";
print WORDS join("\n", @words);
close WORDS;
Последний раз редактировалось roddik; 09.05.2009 в 13:20..
|
|
|
|
Я в перл новичек (мало что понимаю ,помогите пожалусто ) |
10.05.2009, 14:44
|
|
Banned
Регистрация: 10.05.2009
Сообщений: 36
Провел на форуме:
52988
Репутация:
9
|
|
Я в перл новичек (мало что понимаю ,помогите пожалусто )
Я достал недавно Граббер на pl
и в приложении был парсер но этот парсер не дописан . Помогите дописать скрипт . (при клике дает ошибку)
вот :
#!/usr/bin/perl
print "===================================\n";
print "=SQL-injection Parser =\n";
print "===================================\n";
open(TT, 'C:\Perl\result.txt');
open(F, '>C:\Perl\result2.txt');
while ($line = <TT>)
{
$x=index($line, "^");
$z=rindex($line, "^" );
if($x>-1 && $z>-1){
$long=$z-$x;
$res=substr($line, ($x+1), ($long-1)
print F $res. "\n";
$x=-1;
$z=-1;
}
}
print "===================================\n";
print "= DONE =\n";
print "===================================\n";
close TT;
close F;
|
|
|
|
10.05.2009, 14:54
|
|
Участник форума
Регистрация: 23.01.2008
Сообщений: 182
Провел на форуме:
2268999
Репутация:
410
|
|
Сообщение от hors_de_prix
Я достал недавно Граббер на pl
и в приложении был парсер но этот парсер не дописан . Помогите дописать скрипт . (при клике дает ошибку)
вот :
#!/usr/bin/perl
print "===================================\n";
print "=SQL-injection Parser =\n";
print "===================================\n";
open(TT, 'C:\Perl\result.txt');
open(F, '>C:\Perl\result2.txt');
while ($line = <TT>)
{
$x=index($line, "^");
$z=rindex($line, "^" );
if($x>-1 && $z>-1){
$long=$z-$x;
$res=substr($line, ($x+1), ($long-1)
print F $res. "\n";
$x=-1;
$z=-1;
}
}
print "===================================\n";
print "= DONE =\n";
print "===================================\n";
close TT;
close F;
$res=substr($line, ($x+1), ($long-1) в конце поставь ); чтобы получилось так:
$res=substr($line, ($x+1), ($long-1));
|
|
|
|
10.05.2009, 15:15
|
|
Banned
Регистрация: 10.05.2009
Сообщений: 36
Провел на форуме:
52988
Репутация:
9
|
|
Спасибо
Огромное спасибо ! Я даже и не знал что ошибка в закрытие .
|
|
|
|
23.05.2009, 01:34
|
|
Banned
Регистрация: 19.06.2006
Сообщений: 1,239
Провел на форуме:
1469161
Репутация:
142
|
|
Маленькиие вопросики:
1.Недавно занимался пхп.Не повредит ли изучение Perl уже заложенным основам РНР(Непривычно,брр).
2.Без применения chomp() проверки всегда оказываются *левыми*,хотя я и не вбивал пробельных символов. Почему ?
ЗЫ: Благодарен за любые ответы по делу.Спасибо)
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
