script promoção steam (perl)

Discussão em 'Compartilhe o seu projeto' iniciado por kodo no kami, 22 Novembro 2019.

  1. kodo no kami
    Offline

    kodo no kami Membro Conhecido

    Afiliado:
    16 Dezembro 2015
    Mensagens:
    241
    Sexo:
    Masculino
    Avaliações:
    +327 / -0
    [​IMG]

    um script basicao em perl que retorna os games em promoção na steam

    Código (Forge Crash):
    #!/usr/bin/perl
    #coder: kodo no kami

    use WWW::Mechanize;

    $request = new WWW::Mechanize;
    $request->agent("Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/68.0.3440.106 Safari/537.36");
    $request->get("https://store.steampowered.com/search/?specials=1");
       
    @trecho = $request->content =~ /End Extra empty div(.*?)End List Items/si;
    @games = $trecho[0] =~ /("title">.*?clear: left)/sgi;
       
    foreach $g(@games){
      @nome = $g =~ /title">(.*?)</mi;
      @preco = $g =~ /search_price.*>(R. .*?)<\/div>/si;
      $preco[0] =~  s/^\ +//g;
      $preco[0] =~  s/\ +$//g;  
      @porc = $g =~ /<span>(.\d+\%)<\/span>/s;  
      print("
    $nome[0] ~ $preco[0] ($porc[0]) \n");
    }
    reaproveitando as regex é bem simples recriar em outras linguagens ou criar um bot no discord tipo a minha waifu bot *-*

    [​IMG]
     
    • Top Top x 1

Compartilhe esta Página