Sergei Keler (nw_wind) wrote,
Sergei Keler
nw_wind

Я тупой и ленивый.

Вместо того, чтобы нагуглить красивое приложение под windows какое-то готовое средство для изымания музыки из вконтакта, я нарисовал своё на перле. Прикольно. Мне кажется, по времени получилось так же.

#!/usr/bin/perl -w
use strict;
use LWP::Simple;
my %file;
my %name;
my $n;
while (<>) {
if (/\<img class=\"playimg\" onclick=\"return operate\(\'([0-9_]+)\',\'([^\']+)\',/) { $n=$1; $file{$n}=$2; }
if (defined $n && /\([^<]+)\<\/span\>/) { $name{$n}=$1; }
}
foreach my $k (sort keys %name) {
print "$name{$k}\n";
my $content = get($file{$k});
open FILE,">$name{$k}.mp3";
print FILE $content;
close FILE;
}


Конечно, с юзабилити не очень, надо сохранить страницу из вконтакта куда-то себе и из терминала запустить прогу. Меня это, сами понимаете, не напрягает. А музон, кстати, сохраняется с именем файла не контактным, а по названию дорожки. Ну, как-то так.
Subscribe
  • Post a new comment

    Error

    default userpic

    Your reply will be screened

    Your IP address will be recorded 

    When you submit the form an invisible reCAPTCHA check will be performed.
    You must follow the Privacy Policy and Google Terms of use.
  • 0 comments