Renomeando arquivos de forma padronizada

SMarcell

Simples Perl script que renomeia arquivos de forma padronizada. Ex.: % ./script.pl --nome=texto --extensao=txt --contador=1 ~/arquivos/* texto001.txt texto002.txt ... texto099.txt texto100.txt ... Espero que seja útil a alguém... P.S.: Esse script ainda não "tá lá essas coisas", pelo fato de ser o segundo Perl script que escrevo na vida! =)

Por: Sandro Marcell

AUTENTICACAO VELOX

venicio

JA USO ESTE SCRIPT EQUERIA CONTRIBUIR COM A COMUNIDADE (JA ADAPTADO PARA A NOVA AUTENTICACAO VELOX) # # Versão 5.2 # Autor: Manoel Pinho

Por: venicio

Burlando o "Protetor de links" INVERTIDO para download grátis

removido

Às vezes baixo uns filmes para ver no PC e nada pior e mais chato que o protetor de link. Legal, alguns são fáceis de burlar, só clicar no botão lem baixo e ok, ou copiar o link de download direto na barra de endereço ou copiar o endereço do botão ou ainda ler direto no código-fonte. Mas agora inventaram de inverter o endereço, igual aqui: http://www.baixaebr.com/Down/?url=ZCOHVV66=d?/moc.daolpuagem.www//:ptth . Dá pra ver que a URL está logo depois de "url=", mas como baixar direto se a URL está invertida? Basta copiar e colar tudo que está depois de "url=" num arquivo de texto chamado "ARQUIVO" (ou altere o e rodar esse script aqui, que reverte a URL, mostrando que é "http://www.megaupload.com/?d=66VVHOCZ" (TA-DA!). Quem quiser pode melhorar, colocando algo a mais para ler o endereço, reverter, etc. mas para meu uso de pouco volume basta. Direto na linha de comando: echo URL ou cat ARQUIVO | perl -e 'while ($line = ) { $ch = reverse $line; print $ch}' Não preciso contar que este é mais um exercício em Perl, né? E que eu não sou programador... e deve ter uns 10 jeitos mais fáceis de fazer isso rsrs.

Por: Perfil removido

Cálculo de área de uma figura geométrica

roddas

Este simples programa faz o cálculo de área de uma figura geométrica solicitada pelo utilizador.

Por: Roddas Cabral

Orientação a Objetos - Criando e usando uma classe em Perl

dvinciguerra

Perl possui um sistema de Orientação a Objetos que é bem explicito, onde você "constrói as classes com suas próprias mãos" utilizando nada mais do que a sintaxe do próprio Perl e apesar de isso parecer um pouco trabalhoso, na verdade é uma ótima forma para conhecer como os sistemas de objetos funcionam. EM RESUMO: 1. Objetos em Perl são estruturas de dados. Sim! Objetos em Perl são estruturas de dados que são associadas a uma classe. 2. As classes são definidas com o package Sabe o package pelo qual você define os Módulos no Perl? É a mesma coisas com as classes! 3. Construtores abençoam as variáveis Os construtores são apenas sub's que retornam uma variável que foi abençoada (blessed) 4. Os métodos são subs Os métodos dos objetos são apenas sub's no escopo do seu package e que recebem a referência do seu objeto instanciado (blessed) Através deste script, pretendo mostrar de forma simples como trabalhar com orientação a objetos em Perl. PRÉ-REQUISITOS - perl 5.10 ou superior REFERÊNCIAS http://perldoc.perl.org/perlobj.html http://perldoc.perl.org/perlootut.html EXECUTANDO $ perl class.pl

Por: Daniel Vinciguerra