FTS Download Anitube v1.1

Código:

#!/usr/bin/perl
#autor: hacker fts315
#contato: http://www.facebook.com/hacker.fts315
#versao: 1.1
#data: 24/04/13
#update: 02/05/2013
#obs: necessario o wget

################################################
#sintaxe:    
#
#      -i info do anime
#      -u * url do video (* url)
#      -d download video pelo wget
#      -v mostra o link oculto do video
#      -f * formato so existe dois mp4 e flv (* formato)
#      -o * muda o nome do arquivo de saida (* nome do arquivo)
#      -s * salva a pagina html (* nome do arquivo html)
#      -h ajuda
############################

use WWW::Mechanize;
use Getopt::Long;

$fts = WWW::Mechanize->new;
GetOptions("u=s"=>\$u,"f=s"=>\$f,"v"=>\$v,"d"=>\$d,"h"=>\$h,"i"=>\$i,"s=s"=>\$s,"o=s"=>\$o);

slogan();

if(defined($h))
{
   print "autor: \n\n" .
      "  coder: hacker fts315\n" .
      "  face: www.facebook.com/hacker.fts315\n\n" .
      "sintaxe: \n\n" .
      "  -i info do anime\n" .
      "  -u * url do video (* url)\n" .
      "  -d download video pelo wget\n" .
      "  -v mostra o link oculto do video\n" .
      "  -f * formato so existe dois mp4 e flv (* formato)\n" .
      "  -o * muda o nome do arquivo de saida (* nome do arquivo)\n" .
      "  -s * salva a pagina html (* nome do arquivo html)\n" .
      "  -h ajuda\n\n".
      "exemplos:\n\n".
      "  perl fts.pl -u http://www.anitube.se/video/40680/High-School-DxD-09 -f mp4 -d\n" .
      "  perl fts.pl -u http://www.anitube.se/video/40680/High-School-DxD-09 -f mp4 -v\n" .
      "  perl fts.pl -u http://www.anitube.se/video/40680/High-School-DxD-09 -i\n\n";
   exit;
}

if(defined($u))
{
   $fts->get($u);
   @hack = $fts->content =~ /nuevo\/config.php\?key=(.*)'; var w=/i;
   $ = "http://www.anitube.se/nuevo/playlist.php?key=" . $hack[0];

   if(defined($s))
   {
      $fts->save_content($s . ".html");
   }

   if(defined($i))
   {
      print "\n";
      @inf_nome = $fts->content =~ /<h1 class="mainBoxHeader">(.*)<\/h1>/im;
      @inf_uploader = $fts->content =~ /href="http:\/\/www.anitube.se\/users\/(.*)">/im;
      @inf_adicionado = $fts->content =~ /<p class="viewVideoText">Adicionado.*class="textGlow">(.*)<\/span><\/p>/im;
      @inf_tempo = $fts->content =~ /class="viewVideoText">Dura.*<span class="textGlow">(.*)<\/span><\/p>/im;
      @inf_categoria = $fts->content =~ /href="(http:\/\/www.anitube.se\/categories\/.*)">/im;
      push(@inf_categoria,$inf_categoria[0] =~ /http:\/\/www.anitube.se\/categories\/\d+\/(.*)/);
      @inf_desc1 = $fts->content =~ /<li class="videoDesc">(.*)<\/li>.*<li class="videoRate">.*<div id="voteProcess">/is;
      push(@inf_desc1,$inf_desc1[0] =~ /(\w.*\w)/);
      $fts->get($inf_categoria[0]);
      @inf_desc2 = $fts->content =~ /<p class="catDesc">(.*)<\/p>.*<\/li>.*<\/ul>/ism;
      print "nome: " . $inf_nome[0] . "\n";
      print "categoria: " . $inf_categoria[1] . "\n";
      print "tempo: " . $inf_tempo[0] . "\n";
      print "uploader: " . $inf_uploader[0] . "\n";
      print "adicionado: " . $inf_adicionado[0] . "\n\n";
      print "descricao 1: " . $inf_desc1[1] . "\n\n";
      print "descricao 2: " . $inf_desc2[0] . "\n";
      print "\n";
   }
   $fts->get($);

   if(defined($f))
   {
      if ($f eq "mp4")
      {
         @anime = $fts->content =~ /<html5>(.*)<\/html5>/;
         $extensao = ".mp4";
      }
      elsif($f eq "flv")
      {
         @anime = $fts->content =~ /<file>(.*)<\/file>/;
         $extensao = ".flv";
      }
      else
      {
         print "\nformato desconhecido\n\n";
         exit;
      }
      if(defined($v))
      {
         print "\n";
         print "link: " .$anime[0];
         print "\n\n";
      }
      if(defined($d))
      {
         if(defined($o))
         {
            $baixar = "wget " . $anime[0] . " -O " . $o . $extensao;
            
         }
         else
         {
            $baixar = "wget " . $anime[0];
         }
         system($baixar);
      }
   }
}
else
{
   print "\n\ndigite a sintaxe -h para ver ajuda\n\n";
}

sub slogan
{
   print "============================================\n" .
      "      FTS Download Anitube v1.1\n".
      "============================================\n";
}

RodrigoNunes escreveu:Essa linguagem eh Perl?