[Perl] Новичкам: задаем вопросы

null_access
перед сборкой делай

Code:

./configure -Dusethreads

А потом уже стандартное

Code:

make && make test && make install

 

а как разобрать перл который сейчас собран? чтобы начать эту сборку я так понял что это мне нужно его заново в дистрибутивах скачать? или как то можно то что уже собрано поправить и пересобрать? вообще не представляю где нужно находиться в какой директории.

 

C:\>perl -e "$write=24; $two=2;$rez=$two * $write; print $rez;"
48

вот както так -- точки с запятой не забывай

 

ахуеть чувак, с таким же успехом ты можешь код на питоне совать в интерпретатор пхп

ЗЫ: http://translate.google.com/

 

Code:

my $res = `cmd args`

В $res окажется, то, что должно было вывестись в STDOUT.

 

ошибку пишет NAme_format

 

помогите с регулярными выражениями, пишу авторегер акков для одного сайта, он в странице нам выдает коды безопасности вот такие:

Code:

  <input type="hidden" name="code" id="code" value="ca2af9b616333f9cb3ab3d90e2597e73">
 <input type="hidden" name="mu" id="mu" value="1776749550">

нужно выдрать ca2af9b616333f9cb3ab3d90e2597e73 и 1776749550 и присвоить их переменным

 

Code:

/value="([a-f0-9]{32})"/

Code:

/value="(\d+)"/

 

ПРИВЕТ всем..вот есть сплоит
http://www.securitylab.ru/poc/extra/298626.php
Хм...установил ActivePerl запускаю c:\sp.pl
и тут загвоздка....как правильно ввести параметры,которые он хочет.....
и кто юзал етот сплоит напишите.мне нада искать страницу типа wp-app.php
или нет..короче напишите знактооки перла че да как..заранее всем благодарен!!!!

 

Подскажите вот такую весчь:
есть сайт-архив валлпаперов - babene.ru.

http://babene.ru/jpgs/2007/07/22/u14_4305.jpg - чисто адрес рисунка

нужен скрипт или намёк, который тянет с этого сайта картинки в этой директории

 

Подскажите, как сделать скрипт.
Нужен что то типа парсера.
Что бы из одного файла, набитого разным мусором, выгребал только 10-значные числа.
И записывал их в другой файл разделяя ";\n"
---
1234567890;
1234567890;
1234567890;
1234567890;
1234567890;
---
и удалял первые 3 цифры

---
4567890;
4567890;
4567890;
4567890;
4567890;
---

 

вот как то так


open ss,"<in.txt";
open yy,">out.txt";
while($a=<ss>){
while($a=~/[0-9]{10}/){$str=$&;$a=~s/$&//i;
$str=reverse $str;
for(1..3){chop $str;}
$str=reverse $str;
print yy "$str;\n";
}
}

close ss;close yy;

не оч элегантно но я хочу спать и туго ща соображаю -- входной файл in.txt выходной out.txt

 

Code:

open(IN, 'in.txt') || die $!;
open(OUT, '>', 'out.txt') || die $!;
while(<IN>)
{
  chomp;
  print OUT substr($1, 3) . ";\n" foreach(/(\d{10})/g)
}
close IN;
close OUT;

UPDATE:
genom-- жесть

 

я простой сталевар я варю жесть =) -- мда чет у меня substr из головы вылетел сидел вчера ночью бумал как бкувы срезать =)

 

Скажите, как сделать так, что бы при обходе хэша в цикле его элементы выводились в нужном порядке.
Пример:
%hash =('1'=>'1',
'2'=>'2',
'3'=>'3');

while ( ($k, $v) = each(%hash) ){
print "$k = $v \n";
}

выводит:
1 = 1
3 = 3
2 = 2
Почему? надо что бы 1,2,3

 

vladest проверь то же самое от 1 до 5. вроде ошибки нет=\

 

perldoc -f each

Code:

Entries are returned in an apparently random order. The actual
random order is subject to change in future versions of perl,
but it is guaranteed to be in the same order as either the
"keys" or "values" function would produce on the same
(unmodified) hash. Since Perl 5.8.1 the ordering is different
even between different runs of Perl for security reasons (see
"Algorithmic Complexity Attacks" in perlsec).

Через each ты не получишь в порядке объявления

 

4 = 4
1 = 1
3 = 3
2 = 2
5 = 5

Гг!

 

Code:

%hash =('1'=>'1',
'2'=>'2',
'3'=>'3');

foreach $k (sort keys %hash){
print "$k => $hash{$k} \n";
}