rtyug

мы должны выпередить все капиталистические страны запада!

ЗЫ: на пхп вродебы уже написали :)

там оторвали ей, отрастет, не страшно :)

вот еще вариант сочинил:

$ perl -MData::Dumper -e ' print Dumper [ split ",",  join ",", split " ", "x y,z"];'
$VAR1 = [
          'x',
          'y',
          'z'
        ];

nwarap, так в чем проблема? подсказали же со preg_split, я не знал что так можно...

еще так:

@a =  grep { $_ =~ /(\w+)/ } split ( "(,)||( )" , "x y,z" );

сходу у меня c помощью встроенных функций php не получатеся, нужно алгоритм написать...

меня вот эта девка приколола:

http://secondary.net.ua/ - весь трафик и запросы через него

а master (primaryns) у себя можешь сделать, купив VPS за 7$ (у Украине)

rtyug добавил 19.07.2010 в 19:19

Фагот, картинка не открывается

Phessiv, ты ур*д, если ты не раскручивал ни sape и ни каталогами, то зачем ты сюда флудишь?

открой себе тему и флуди туда сколько хочешь....

===

по поводу забжа понял, попробую sape или то что советовали....

вот я писал когда-то скрипт для сборки mp3 и jpg фоток эротики :)

#!/usr/bin/perl
# exurl - получение отсортированного списка ссылок с URL

use HTML::LinkExtor;
use LWP::Simple;

for ($a=35900; $a<35995; $a++) {
$base_url = "http://fileshare.in.ua/$a?free";
#$base_url = shift;
$parser = HTML::LinkExtor->new(undef, $base_url);
$parser->parse(get($base_url))->eof;
@links = $parser->links;
foreach $linkarray (@links) {
    my @element  = @$linkarray;
    my $elt_type = shift @element;
       while (@element) {   
 my ($attr_name , $attr_value) = splice(@element, 0, 2);
     $seen{$attr_value}++;
  }
}

}

%hhh = grep { /\.mp3/i } %seen;
for (sort keys %hhh) { print $_, "\n" }

perl6 .