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 

  • 0 comments