Início
![[source] script promoção steam (perl) AN7L5SE](https://i.imgur.com/aN7L5SE.png)
um script basicao em perl que retorna os games em promoção na steam
- Código:
#!/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 *-*
![[source] script promoção steam (perl) BDof0p5](https://i.imgur.com/BDof0p5.png)
