http://www.zago.eti.br/script/perl.txt FAQ com mensagens da Linux-br contendo exemplos de scripts em perl. Veja também o FAQ sobre perl: http://www.zago.eti.br/perl.txt Use CTRL+F para refinar a pesquisa. Linha de: **************** separa mensagens ou tópicos. ******************************************************** Zago http://www.zago.eti.br/menu.html FAQ e artigos sobre Linux ******************************************************** De:  Carlos Para:  linux-br@bazar2.conectiva.com.br Assunto:  Re: (linux-br) ¿Variables que retorna o IP da máquina? Data:  Sat, 08 May 2004 01:11:16 -0300 #!/usr/bin/perl -w use strict; use IO::Socket; use Sys::Hostname; my $name = hostname(); my $ip = inet_ntoa(scalar gethostbyname($name)); printf("$ip\n"); O programa acima sempre retornara o endereco ip da maquina , estando ele associado ao hostname. Miguel da Silva wrote: Olá para todos ... alguém conhece qual é a variável (se é que existe...) que retorna o IP que a máquina está usando?!?! Imagino que se uso DHCP o valor dessa variável mudará quando eu der resete na máquina, certo? > > Até logo para todos. > > Miguel. > > >   > -- "Primeiro eles o ignoram. Depois, riem de voce. Chega um ponto em que lutam contra voce. Ate o dia em que voce vence." Gandhi SlackWare user #349702 ******************************************************** De:  julio henrique Para:  linux-br@bazar2.conectiva.com.br Assunto:  (linux-br)perl - como fazer substituicao -i -pe usando um script Data:  Fri, 11 Jul 2003 11:11:53 -0300 salve lista!!! a tempos eu uso o comando : perl -i -pe "s/string a substituir/nova string/g"  arquivos.* para fazer substituicoes dentro de um/varios arquivos. minha duvida seria como fazer a mesma coisa, só que usando um script perl. procurei na net e só achei como fazer isso criando um arquivo temporario e depois substituindo o original pelo temporario. (justamente o que eu nao queria..) alguem saberia como fazer isso ? De:  julio henrique M Para:  linux-br@bazar2.conectiva.com.br Assunto:  (linux-br) perl - como fazer substituicao -i -pe usando um script ( UMA solucao!!! ) Data:  Fri, 11 Jul 2003 16:23:39 -0300 procurando nos manuais / tutoriais  do perl na net , achei isso... me serve... espero que ajude mais alguem ... []s, ,julio # me.txt  1  2  3  4  5  4  3  2  1 code: use strict; use Tie::File; my $username = 'me'; tie my @line, 'Tie::File' => "$username.txt"; foreach (@line) {   $_++ if $_ == 2; }  # me.txt  1  3  3  4  5  4  3  3  1 ******************************************************** Estude e teste um simples CGI na internet. ----------------- Em http://www.pcs.usp.br/~jkinoshi/sucperl.html escrevi o código de um CGI script muito simples. Você preenche o seu nome no formulário e ele devolve uma página escrito "boa tarde seu_nome". Teste você mesmo em: http://jk2.pcs.usp.br/cgi-bin/nome.cgi Obs: como não deixo o computador 24 horas no ar, de preferência teste o script sexta-feira-17 à tarde. O códgio deste CGI é: ------------------------------ #!/usr/bin/perl -w use CGI qw(:standard); my $nome = param("nome"); print header() . start_html("Exemplo de um CGI") . h1("Exemplo de CGI") ; if ($nome) { print p("boa tarde $nome"); } else { print hr() . start_form(); print p("digite seu nome: " . textfield("nome", "")); print end_form() . hr(); } ----------------------------------- Teste este CGI em sua própria máquina colocando este código em /home/httpd/cgi-bin/ Sete-o como executável e experimente o script em sua máquina local como: http://localhost/cgi-bin/nome.cgi ******************************************************** De:  claudio@conectiva.com Para:  Accenture_Luiz_Estivalet@Dell.com Cc:  linux-br@bazar2.conectiva.com.br Assunto:  Re: (linux-br)ajuda com script Data:  Wed, 22 Sep 2004 15:20:45 -0300 (BRT) On Wed, 22 Sep 2004 Accenture_Luiz_Estivalet@Dell.com wrote: > 1) ler todos arquivos de um diretorio > 2) para cada arquivo >       2.1)  ler linha-a-linha >       2.2)  para cada linha encontrar o simbolo ">". Remover todos os caracteres a partir da posição do ">" até o final da linha >       2.3) gerar novo arquivo com os caracteres removidos perl -pi -e 's/>.*//' * ******************************************************** ********************************************************