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 *-* Top x 1 kodo no kami, 22 Novembro 2019 #1