| Www :: cdbaby. www :: cdbaby é um módulo Perl que pode automatizar a interação com o CDBaby.com! |
Baixe Agora |
Www :: cdbaby. Classificação e resumo
- Licença:
- Perl Artistic License
- Nome do editor:
- Grant Grueninger
- Site do editor:
- http://search.cpan.org/~grantg/WWW-Sitebase-0.5/lib/WWW/Sitebase/Poster.pm
Www :: cdbaby. Tag
Www :: cdbaby. Descrição
Www :: cdbaby é um módulo Perl que pode automatizar a interação com o CDBaby.com! Www :: cdbaby é um módulo Perl que pode automatizar a interação com o CDBaby.com! Sinopse My $ CDBaby = NOVO WWW :: CDBABY ("$ Account_name", "$ Senha"); # Imprimir o nome da primeira pessoa que comprou seu CD My (@sales) $ cdbaby-> get_cd_sales ($ album_id); Imprimir $ Sales -> {'Nome'}; métodosGET_CD_SALES (album_id) Passe este método o URL do seu álbum. Se você puder ver seu álbum em "cdbaby.com/amberg", seu album_id é "Amberg" .it retorna uma matriz de hashrefs contendo todas as suas vendas de álbum físico. As vendas digitais são rastreadas separadamente.Este método Obtém o arquivo delimitado por texto que você recebe se você logar em membros.cdbaby.com, clique em "Accounting", clique no valor "$ vendido" ao lado do nome do álbum e clique no botão "Faça o download do seu vendas em um arquivo de texto delimitado por tabulação ". Veja o quanto é mais fácil esse método? usar www :: cdbaby; Meu $ CDBABY = NOVO WWW :: CDBABY; minhas (@sales) = $ cdbaby-> get_cd_sales ($ album_id); meu $ total = 0; foreach $ sale (@sales) {$ Total + = $ Venda -> {'pago_to_you'}; } Imprimir "Lucros totais: $$ Totaln"; get_dd_sales (album_id) Passe este método o URL do seu álbum. Se você puder ver seu álbum em "cdbaby.com/amberg", o seu album_id é "Amberg" .it retorna uma matriz de hashrefs contendo suas vendas de distribuição digital e reproduz para esse álbum. Este método recebe a tabela HTML que você recebe se você for para a guia "Digital" e clique no valor ao lado de Renda para um dos seus álbuns. Ele analisa o HTML em um hash para cada linha. As chaves para o hash são tiradas diretamente dos cabeçalhos no topo da tabela e modificados para torná-los amigáveis ao programa: espaço em branco líder e à direita é despojado espaço branco é substituído por "_" # por si só é transformado em caps "Quantidade" são feitos minúsculas. Quaisquer caracteres restantes que não são letras, números ou _ são despojados as teclas de corrente retornadas (a partir de 8/1/2007) são: Empresa Sales_date Report_Date Quantidade de preço da música Subtotalhas Estas chaves são tiradas diretamente dos cabeçalhos no topo da tabela no topo da tabela , se as linhas forem adicionadas ou removidas ou os cabeçalhos forem alterados por CD Baby, as chaves para o seu hash mudarão de acordo.Also, o sinal de dólar ("$") a partir dos campos de preço é removido para que você possa fazer coisas como o exemplo abaixo : Use www :: cdbaby; Meu $ CDBABY = NOVO WWW :: CDBABY; Meus (@sales) = $ cdbaby-> get_dd_sales ($ album_id); meu $ total = 0; foreach $ VENDA (@SALES) {$ TOTAL + = $ VENDA -> {'subtotal'}; } Imprimir "lucros totais: $$ Totaln"; (Nota: Quando eu executo este script, recebo um número ligeiramente menor que o total mostrado na página DD. Este é provavelmente o CD Baby arredondando os números (provavelmente para cima :) ou alguma questão de ponto flutuante.) Requisitos: · Requisitos de Perl: · Perl.
Www :: cdbaby. Software Relacionado