From ptfzs em yahoo.com.br Mon Jul 3 10:52:00 2006 From: ptfzs em yahoo.com.br (Patty Silva) Date: Mon, 3 Jul 2006 14:52:00 -0300 (ART) Subject: [Cascavel-pm] Listando arquivos em um diretorio Message-ID: <20060703175200.19974.qmail@web31308.mail.mud.yahoo.com> Pessoal.. estou usando a seguinte forma para listar arquivos de um diretorio: opendir(DIR, $caminho) or die "Can't open directory:$!"; while($arquivo = readdir(DIR)) { chdir($caminho) || die "\n *** Erro no diretorio $caminho ***"; print "FILE $arquivo\n"; } porem me imprime: os arquivos e os FILE . <- (.) ponto FILE .. <- (..) dois pontos do diretorio.. como faco para nao imprimir isso/?? Obrigada --------------------------------- Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho agora! -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060703/ec15edc4/attachment.html From igor.sutton em gmail.com Mon Jul 3 10:59:02 2006 From: igor.sutton em gmail.com (Igor Sutton Lopes) Date: Mon, 03 Jul 2006 14:59:02 -0300 Subject: [Cascavel-pm] Listando arquivos em um diretorio In-Reply-To: <20060703175200.19974.qmail@web31308.mail.mud.yahoo.com> (Patty Silva's message of "Mon, 3 Jul 2006 14:52:00 -0300 (ART)") References: <20060703175200.19974.qmail@web31308.mail.mud.yahoo.com> Message-ID: Patty Silva writes: while ($arquivo = readdir(DIR)) { next if $arquivo eq '.' or $arquivo eq '..'; ... } > Pessoal.. estou usando a seguinte forma para listar arquivos de um diretorio: > > opendir(DIR, $caminho) or die "Can't open directory:$!"; > > while($arquivo = readdir(DIR)) > { > > chdir($caminho) || die "\n *** Erro no diretorio $caminho ***"; > print "FILE $arquivo\n"; > } > > porem > me imprime: > os arquivos e os > FILE . <- (.) ponto > FILE .. <- (..) dois pontos > do diretorio.. > > como faco para nao imprimir isso/?? > > Obrigada > > ???????????????????????????????????????????????????????????????????????????????????????????????????? > Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho > agora! > > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm em pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm From ptfzs em yahoo.com.br Mon Jul 3 11:01:14 2006 From: ptfzs em yahoo.com.br (Patty Silva) Date: Mon, 3 Jul 2006 15:01:14 -0300 (ART) Subject: [Cascavel-pm] Listando arquivos em um diretorio In-Reply-To: Message-ID: <20060703180114.73430.qmail@web31306.mail.mud.yahoo.com> Que pena que meu parse_dir nao funcionou. na minha maquina... ele me ajudava bastante! :) Obrigada Igor.. Igor Sutton Lopes escreveu: Patty Silva writes: while ($arquivo = readdir(DIR)) { next if $arquivo eq '.' or $arquivo eq '..'; ... } > Pessoal.. estou usando a seguinte forma para listar arquivos de um diretorio: > > opendir(DIR, $caminho) or die "Can't open directory:$!"; > > while($arquivo = readdir(DIR)) > { > > chdir($caminho) || die "\n *** Erro no diretorio $caminho ***"; > print "FILE $arquivo\n"; > } > > porem > me imprime: > os arquivos e os > FILE . <- (.) ponto > FILE .. <- (..) dois pontos > do diretorio.. > > como faco para nao imprimir isso/?? > > Obrigada > > â”â”â”â”â”â”â”â”â”â”â”â”â”â”â”â”â”â”â”â”â”â”â”â”â”â”â”â”â”â”â”â”â”â”â”â”â”â”â”â”â”â”â”â”â”â”â”â”â”â”â”â”â”â”â”â”â”â”â”â”â”â”â”â”â”â”â”â”â”â”â”â”â”â”â”â”â”â”â”â”â”â”â”â”â”â”â”â”â”â”â”â”â”â”â”â”â”â”â”â” > Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho > agora! > > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm em pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm _______________________________________________ Cascavel-pm mailing list Cascavel-pm em pm.org http://mail.pm.org/mailman/listinfo/cascavel-pm --------------------------------- Yahoo! Search Música para ver e ouvir: You're Beautiful, do James Blunt -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060703/40d50093/attachment.html From edencardim em gmail.com Mon Jul 3 11:07:13 2006 From: edencardim em gmail.com (Eden Cardim) Date: Mon, 3 Jul 2006 15:07:13 -0300 Subject: [Cascavel-pm] Listando arquivos em um diretorio In-Reply-To: <20060703175200.19974.qmail@web31308.mail.mud.yahoo.com> References: <20060703175200.19974.qmail@web31308.mail.mud.yahoo.com> Message-ID: <3de55ead0607031107w2320afb6n7917ac3a287f560e@mail.gmail.com> On 7/3/06, Patty Silva wrote: > > Pessoal.. estou usando a seguinte forma para listar arquivos de um > diretorio: > > opendir(DIR, $caminho) or die "Can't open directory:$!"; > > while($arquivo = readdir(DIR)) > { > > chdir($caminho) || die "\n *** Erro no diretorio $caminho ***"; > print "FILE $arquivo\n"; > } > > porem > me imprime: > os arquivos e os > FILE . <- (.) ponto > FILE .. <- (..) dois pontos > do diretorio.. > > como faco para nao imprimir isso/?? opendir(DIR, $caminho) or die "Can't open directory:$!"; while($arquivo = readdir(DIR)) { next if $arquivo =~ /^\.\.?$/; #<----Acrescente isso # chdir($caminho) || die "\n *** Erro no diretorio $caminho ***"; ## n entendi, pra q isso? print "FILE $arquivo\n"; } ou use o módulo File::Slurp use File::Slurp; foreach my $arquivo () { print "FILE $arquivo\n"; } From ptfzs em yahoo.com.br Mon Jul 3 11:17:38 2006 From: ptfzs em yahoo.com.br (Patty Silva) Date: Mon, 3 Jul 2006 15:17:38 -0300 (ART) Subject: [Cascavel-pm] Listando arquivos em um diretorio In-Reply-To: <3de55ead0607031107w2320afb6n7917ac3a287f560e@mail.gmail.com> Message-ID: <20060703181739.30786.qmail@web31308.mail.mud.yahoo.com> Eh.. foi redundante... :) Pessoall uma outra alternativa pra eu fazer isso: chdir ($caminho) || die "\n *** Erro no diretorio $caminho ***"; for(parse_dir(`ls -ltr`)) { ($nome) = @$_; } Eden Cardim escreveu: On 7/3/06, Patty Silva wrote: > > Pessoal.. estou usando a seguinte forma para listar arquivos de um > diretorio: > > opendir(DIR, $caminho) or die "Can't open directory:$!"; > > while($arquivo = readdir(DIR)) > { > > chdir($caminho) || die "\n *** Erro no diretorio $caminho ***"; > print "FILE $arquivo\n"; > } > > porem > me imprime: > os arquivos e os > FILE . <- (.) ponto > FILE .. <- (..) dois pontos > do diretorio.. > > como faco para nao imprimir isso/?? opendir(DIR, $caminho) or die "Can't open directory:$!"; while($arquivo = readdir(DIR)) { next if $arquivo =~ /^\.\.?$/; #<----Acrescente isso # chdir($caminho) || die "\n *** Erro no diretorio $caminho ***"; ## n entendi, pra q isso? print "FILE $arquivo\n"; } ou use o módulo File::Slurp use File::Slurp; foreach my $arquivo () { print "FILE $arquivo\n"; } _______________________________________________ Cascavel-pm mailing list Cascavel-pm em pm.org http://mail.pm.org/mailman/listinfo/cascavel-pm --------------------------------- Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho agora! -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060703/5184470c/attachment.html From a.r.ferreira em gmail.com Mon Jul 3 11:49:16 2006 From: a.r.ferreira em gmail.com (Adriano Ferreira) Date: Mon, 3 Jul 2006 15:49:16 -0300 Subject: [Cascavel-pm] Listando arquivos em um diretorio In-Reply-To: <20060703175200.19974.qmail@web31308.mail.mud.yahoo.com> References: <20060703175200.19974.qmail@web31308.mail.mud.yahoo.com> Message-ID: <73ddeb6c0607031149j142e1f3ci51fbffeba4efb5bb@mail.gmail.com> On 7/3/06, Patty Silva wrote: > Pessoal.. estou usando a seguinte forma para listar arquivos de um > diretorio: > > opendir(DIR, $caminho) or die "Can't open directory:$!"; [snip] Você pode tentar também algo com glob(): chdir $arquivo; for (glob("*")) { next if -d || /^\./; print "$_\n" } From glasswalk3r em yahoo.com.br Mon Jul 3 13:24:32 2006 From: glasswalk3r em yahoo.com.br (Alceu R. de Freitas Jr.) Date: Mon, 3 Jul 2006 17:24:32 -0300 (ART) Subject: [Cascavel-pm] Listando arquivos em um diretorio In-Reply-To: <20060703181739.30786.qmail@web31308.mail.mud.yahoo.com> Message-ID: <20060703202432.31786.qmail@web30812.mail.mud.yahoo.com> --- Patty Silva escreveu: > Eh.. foi redundante... > :) > > Pessoall uma outra alternativa pra eu fazer isso: > chdir ($caminho) || die "\n *** Erro no diretorio > $caminho ***"; > for(parse_dir(`ls -ltr`)) > { > ($nome) = @$_; > } TMTOWTDI: use warnings; use strict; my $directory_name = shift; opendir(DIR, "$directory_name") or die "Cannot read $directory_name: $!\n"; my @list_of_files = readdir(DIR); close(DIR); my $file; foreach $file(@list_of_files) { next if $_ eq '.'; next if $_ eq '..'; print 'File ->', $file, "\n"; } []´s Alceu Rodrigues de Freitas Junior -------------------------------------- glasswalk3r em yahoo.com.br http://www.imortais.cjb.net ----------------------------------------------------------------------- A well-used door needs no oil on its hinges. A swift-flowing stream does not grow stagnant. Neither sound nor thoughts can travel through a vacuum. Software rots if not used. These are great mysteries -- The Tao Of Programming, 5.1 _______________________________________________________ Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho agora! http://br.mobile.yahoo.com/mailalertas/ From fcosta_nery em yahoo.com.br Tue Jul 4 07:04:09 2006 From: fcosta_nery em yahoo.com.br (fabio nery) Date: Tue, 4 Jul 2006 14:04:09 +0000 (GMT) Subject: [Cascavel-pm] linguagem perl+ms-dos Message-ID: <20060704140409.98997.qmail@web34304.mail.mud.yahoo.com> Ola a todos, Gostaria de uma ajuda do grupo com um problema que estou tendo, quero ler um arquivo e guardar cada linha lida em uma variavel e depois chamar um comando ms-dos e passar esta variavel como parametro para o comando ms-dos, tem como fazer isto em perl? Espero sinceramente que possam me ajudar. Obrigado a todos, Fabio --------------------------------- Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060704/93f2d6cd/attachment.html From igor.sutton em gmail.com Tue Jul 4 07:11:48 2006 From: igor.sutton em gmail.com (Igor Sutton Lopes) Date: Tue, 04 Jul 2006 11:11:48 -0300 Subject: [Cascavel-pm] linguagem perl+ms-dos In-Reply-To: <20060704140409.98997.qmail@web34304.mail.mud.yahoo.com> (fabio nery's message of "Tue, 4 Jul 2006 14:04:09 +0000 (GMT)") References: <20060704140409.98997.qmail@web34304.mail.mud.yahoo.com> Message-ID: fabio nery writes: Fabio, Se voce eh novo aqui, seja bem vindo. Possivel, eh. Veja as funcoes system() e exec() do Perl. Uma boa pratica eh voce enviar o codigo que voce possivelmente tenha feito e que nao funciona para que possamos 'ensina-lo a pescar'. Igor. > Ola a todos, > > Gostaria de uma ajuda do grupo com um problema que estou tendo, quero ler um arquivo e guardar cada > linha lida em uma variavel e depois chamar um comando ms-dos e passar esta variavel como parametro > para o comando ms-dos, tem como fazer isto em perl? Espero sinceramente que possam me ajudar. > > Obrigado a todos, > > Fabio > > ---------------------------------------------------------------------------------------------------- > Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! > > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm em pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm From ivocarv em cais.rnp.br Tue Jul 4 07:15:48 2006 From: ivocarv em cais.rnp.br (Ivo Peixinho) Date: Tue, 4 Jul 2006 11:15:48 -0300 (BRT) Subject: [Cascavel-pm] linguagem perl+ms-dos In-Reply-To: <20060704140409.98997.qmail@web34304.mail.mud.yahoo.com> References: <20060704140409.98997.qmail@web34304.mail.mud.yahoo.com> Message-ID: Nao sei se e' exatamente o que voce quer, mas: open(ARQ,"/caminho/do/arquivo"); while() { system("/caminho/comando/ms-dos $_"); } Ou se voce quer armazenar o resultado, voce pode trocar o system por: @resut=`/caminho/comando/ms-dos $_`; Ivo. On Tue, 4 Jul 2006, fabio nery wrote: > Ola a todos, > > Gostaria de uma ajuda do grupo com um problema que estou tendo, quero ler um arquivo e guardar cada linha lida em uma variavel e depois chamar um comando ms-dos e passar esta variavel como parametro para o comando ms-dos, tem como fazer isto em perl? Espero sinceramente que possam me ajudar. > > Obrigado a todos, > > Fabio > > > --------------------------------- > Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! From fcosta_nery em yahoo.com.br Tue Jul 4 07:21:24 2006 From: fcosta_nery em yahoo.com.br (fabio nery) Date: Tue, 4 Jul 2006 14:21:24 +0000 (GMT) Subject: [Cascavel-pm] linguagem perl+ms-dos In-Reply-To: Message-ID: <20060704142124.51713.qmail@web34308.mail.mud.yahoo.com> Ola, Igor, agradeço sua ajuda, obrigado. O que tenho é parte do codigo que nao funciona em pascal, segue abaixo: //inicio-codigo Begin Assign(file,NomeAuto); Reset(file); //abre o arquivo para leitura; While not eof(file) do begin //enquanto nao for o final do arquivo Readln(file,linha); //le do arquivo e desce uma linha. O conteúdo lido é transferido para a variável linha //aqui deve chamar o comando do DOS e passar o parametro linha //comando a ser passado ; cscript c:\windows\system32\prnmngr.vbs -ac -p linha End; Closefile(f); End. //fim-codigo Obrigado, Fabio Igor Sutton Lopes escreveu: fabio nery writes: Fabio, Se voce eh novo aqui, seja bem vindo. Possivel, eh. Veja as funcoes system() e exec() do Perl. Uma boa pratica eh voce enviar o codigo que voce possivelmente tenha feito e que nao funciona para que possamos 'ensina-lo a pescar'. Igor. > Ola a todos, > > Gostaria de uma ajuda do grupo com um problema que estou tendo, quero ler um arquivo e guardar cada > linha lida em uma variavel e depois chamar um comando ms-dos e passar esta variavel como parametro > para o comando ms-dos, tem como fazer isto em perl? Espero sinceramente que possam me ajudar. > > Obrigado a todos, > > Fabio > > ---------------------------------------------------------------------------------------------------- > Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! > > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm em pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm _______________________________________________ Cascavel-pm mailing list Cascavel-pm em pm.org http://mail.pm.org/mailman/listinfo/cascavel-pm --------------------------------- Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho agora! -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060704/0f0a0e07/attachment.html From fcosta_nery em yahoo.com.br Tue Jul 4 07:24:05 2006 From: fcosta_nery em yahoo.com.br (fabio nery) Date: Tue, 4 Jul 2006 14:24:05 +0000 (GMT) Subject: [Cascavel-pm] linguagem perl+ms-dos In-Reply-To: Message-ID: <20060704142405.23837.qmail@web34315.mail.mud.yahoo.com> Ola Ivo, E mais ou menos isso, olha o codigo em pascal : //inicio-codigo Begin Assign(file,NomeAuto); Reset(file); //abre o arquivo para leitura; While not eof(file) do begin //enquanto nao for o final do arquivo Readln(file,linha); //le do arquivo e desce uma linha. O conteúdo lido é transferido para a variável linha //aqui deve chamar o comando do DOS e passar o parametro linha //comando a ser passado ; cscript c:\windows\system32\prnmngr.vbs -ac -p linha End; Closefile(f); End. //fim-codigo Valeu, Fabio Ivo Peixinho escreveu: Nao sei se e' exatamente o que voce quer, mas: open(ARQ,"/caminho/do/arquivo"); while() { system("/caminho/comando/ms-dos $_"); } Ou se voce quer armazenar o resultado, voce pode trocar o system por: @resut=`/caminho/comando/ms-dos $_`; Ivo. On Tue, 4 Jul 2006, fabio nery wrote: > Ola a todos, > > Gostaria de uma ajuda do grupo com um problema que estou tendo, quero ler um arquivo e guardar cada linha lida em uma variavel e depois chamar um comando ms-dos e passar esta variavel como parametro para o comando ms-dos, tem como fazer isto em perl? Espero sinceramente que possam me ajudar. > > Obrigado a todos, > > Fabio > > > --------------------------------- > Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora!_______________________________________________ Cascavel-pm mailing list Cascavel-pm em pm.org http://mail.pm.org/mailman/listinfo/cascavel-pm --------------------------------- Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho agora! -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060704/09ffefcd/attachment.html From thomas em tcnet.com.br Tue Jul 4 07:36:18 2006 From: thomas em tcnet.com.br (Thomas Britis) Date: Tue, 04 Jul 2006 11:36:18 -0300 Subject: [Cascavel-pm] linguagem perl+ms-dos In-Reply-To: <20060704142405.23837.qmail@web34315.mail.mud.yahoo.com> References: <20060704142405.23837.qmail@web34315.mail.mud.yahoo.com> Message-ID: <44AA7CE2.6060108@tcnet.com.br> open (F, "arquivo") # Onde "arquivo" é o arquivo que deve ser lido. while ($linha = ) { # Le cada linha colocando na variavel $linha system ("$linha"); # Faz uma chamada de sistema a partir da variavel $linha } close (F); # Fecha o arquivo "arquivo" fabio nery wrote: > Ola Ivo, > > E mais ou menos isso, olha o codigo em pascal : > > //inicio-codigo > Begin > > Assign(file,NomeAuto); > Reset(file); //abre o arquivo para leitura; > While not eof(file) do begin //enquanto nao for o final do arquivo > Readln(file,linha); //le do arquivo e desce uma linha. O conteúdo > lido é transferido para a variável linha > > //aqui deve chamar o comando do DOS e passar o parametro linha > //comando a ser passado ; cscript c:\windows\system32\prnmngr.vbs > -ac -p linha > End; > Closefile(f); > End. > > //fim-codigo > > > Valeu, > > Fabio > > */Ivo Peixinho /* escreveu: > > > > Nao sei se e' exatamente o que voce quer, mas: > > open(ARQ,"/caminho/do/arquivo"); > > while() { > > system("/caminho/comando/ms-dos $_"); > } > > Ou se voce quer armazenar o resultado, voce pode trocar o system por: > > @resut=`/caminho/comando/ms-dos $_`; > > Ivo. > > On Tue, 4 Jul 2006, fabio nery wrote: > > > Ola a todos, > > > > Gostaria de uma ajuda do grupo com um problema que estou tendo, > quero ler um arquivo e guardar cada linha lida em uma variavel e > depois chamar um comando ms-dos e passar esta variavel como > parametro para o comando ms-dos, tem como fazer isto em perl? Espero > sinceramente que possam me ajudar. > > > > Obrigado a todos, > > > > Fabio > > > > > > --------------------------------- > > Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o > discador agora!_______________________________________________ > Cascavel-pm mailing list > Cascavel-pm em pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > > > ------------------------------------------------------------------------ > Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu > celular. Registre seu aparelho agora! > > > > > ------------------------------------------------------------------------ > > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm em pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm -- Thomas Storino Britis TCNet Informatica e Telecomunicacoes LTDA From fcosta_nery em yahoo.com.br Tue Jul 4 08:39:06 2006 From: fcosta_nery em yahoo.com.br (fabio nery) Date: Tue, 4 Jul 2006 15:39:06 +0000 (GMT) Subject: [Cascavel-pm] linguagem perl+ms-dos In-Reply-To: <44AA7CE2.6060108@tcnet.com.br> Message-ID: <20060704153906.97745.qmail@web34305.mail.mud.yahoo.com> Ola Thomas, Onde vc ta lendo a linha do arquivo e inserindo na variavel $linha, preciso pegar cada linha do arquivo aberto e colocar na variavel, no pascal tem a funçao Readln(F,linha), neste codigo que me passou onde isto é feito e o qual o significado do parametro ? Valeu, Fabio Thomas Britis escreveu: open (F, "arquivo") # Onde "arquivo" é o arquivo que deve ser lido. while ($linha = ) { # Le cada linha colocando na variavel $linha system ("$linha"); # Faz uma chamada de sistema a partir da variavel $linha } close (F); # Fecha o arquivo "arquivo" fabio nery wrote: > Ola Ivo, > > E mais ou menos isso, olha o codigo em pascal : > > //inicio-codigo > Begin > > Assign(file,NomeAuto); > Reset(file); //abre o arquivo para leitura; > While not eof(file) do begin //enquanto nao for o final do arquivo > Readln(file,linha); //le do arquivo e desce uma linha. O conteúdo > lido é transferido para a variável linha > > //aqui deve chamar o comando do DOS e passar o parametro linha > //comando a ser passado ; cscript c:\windows\system32\prnmngr.vbs > -ac -p linha > End; > Closefile(f); > End. > > //fim-codigo > > > Valeu, > > Fabio > > */Ivo Peixinho /* escreveu: > > > > Nao sei se e' exatamente o que voce quer, mas: > > open(ARQ,"/caminho/do/arquivo"); > > while() { > > system("/caminho/comando/ms-dos $_"); > } > > Ou se voce quer armazenar o resultado, voce pode trocar o system por: > > @resut=`/caminho/comando/ms-dos $_`; > > Ivo. > > On Tue, 4 Jul 2006, fabio nery wrote: > > > Ola a todos, > > > > Gostaria de uma ajuda do grupo com um problema que estou tendo, > quero ler um arquivo e guardar cada linha lida em uma variavel e > depois chamar um comando ms-dos e passar esta variavel como > parametro para o comando ms-dos, tem como fazer isto em perl? Espero > sinceramente que possam me ajudar. > > > > Obrigado a todos, > > > > Fabio > > > > > > --------------------------------- > > Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o > discador agora!_______________________________________________ > Cascavel-pm mailing list > Cascavel-pm em pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > > > ------------------------------------------------------------------------ > Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu > celular. Registre seu aparelho agora! > > > > > ------------------------------------------------------------------------ > > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm em pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm -- Thomas Storino Britis TCNet Informatica e Telecomunicacoes LTDA _______________________________________________ Cascavel-pm mailing list Cascavel-pm em pm.org http://mail.pm.org/mailman/listinfo/cascavel-pm --------------------------------- Yahoo! Search Música para ver e ouvir: You're Beautiful, do James Blunt -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060704/e2585807/attachment.html From ivocarv em cais.rnp.br Tue Jul 4 09:00:37 2006 From: ivocarv em cais.rnp.br (Ivo Peixinho) Date: Tue, 4 Jul 2006 13:00:37 -0300 (BRT) Subject: [Cascavel-pm] linguagem perl+ms-dos In-Reply-To: <20060704153906.97745.qmail@web34305.mail.mud.yahoo.com> References: <20060704153906.97745.qmail@web34305.mail.mud.yahoo.com> Message-ID: Acho que ele fez muito na pressa :) na verdade o era pra ser , referencia ao handle que foi definido no open. Ivo. open (ARQ,"arquivo"); # Onde "arquivo" o arquivo que deve ser lido while ($linha=) { system("c:\windows\system32\prnmngr.vbs -ac -p $linha"); } close (ARQ); On Tue, 4 Jul 2006, fabio nery wrote: > Ola Thomas, > > Onde vc ta lendo a linha do arquivo e inserindo na variavel $linha, preciso pegar cada linha do arquivo aberto e colocar na variavel, no pascal tem a funçao Readln(F,linha), neste codigo que me passou onde isto é feito e o qual o significado do parametro ? > > Valeu, > > Fabio > > Thomas Britis escreveu: > open (F, "arquivo") # Onde "arquivo" é o arquivo que deve ser lido. > while ($linha = ) { # Le cada linha colocando na variavel $linha > system ("$linha"); # Faz uma chamada de sistema a partir da variavel $linha > } > close (F); # Fecha o arquivo "arquivo" > > fabio nery wrote: >> Ola Ivo, >> >> E mais ou menos isso, olha o codigo em pascal : >> >> //inicio-codigo >> Begin >> >> Assign(file,NomeAuto); >> Reset(file); //abre o arquivo para leitura; >> While not eof(file) do begin //enquanto nao for o final do arquivo >> Readln(file,linha); //le do arquivo e desce uma linha. O conteúdo >> lido é transferido para a variável linha >> >> //aqui deve chamar o comando do DOS e passar o parametro linha >> //comando a ser passado ; cscript c:\windows\system32\prnmngr.vbs >> -ac -p linha >> End; >> Closefile(f); >> End. >> >> //fim-codigo >> >> >> Valeu, >> >> Fabio >> >> */Ivo Peixinho /* escreveu: >> >> >> >> Nao sei se e' exatamente o que voce quer, mas: >> >> open(ARQ,"/caminho/do/arquivo"); >> >> while() { >> >> system("/caminho/comando/ms-dos $_"); >> } >> >> Ou se voce quer armazenar o resultado, voce pode trocar o system por: >> >> @resut=`/caminho/comando/ms-dos $_`; >> >> Ivo. >> >> On Tue, 4 Jul 2006, fabio nery wrote: >> >>> Ola a todos, >>> >>> Gostaria de uma ajuda do grupo com um problema que estou tendo, >> quero ler um arquivo e guardar cada linha lida em uma variavel e >> depois chamar um comando ms-dos e passar esta variavel como >> parametro para o comando ms-dos, tem como fazer isto em perl? Espero >> sinceramente que possam me ajudar. >>> >>> Obrigado a todos, >>> >>> Fabio >>> >>> >>> --------------------------------- >>> Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o >> discador agora!_______________________________________________ >> Cascavel-pm mailing list >> Cascavel-pm em pm.org >> http://mail.pm.org/mailman/listinfo/cascavel-pm >> >> >> ------------------------------------------------------------------------ >> Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu >> celular. Registre seu aparelho agora! >> >> >> >> >> ------------------------------------------------------------------------ >> >> _______________________________________________ >> Cascavel-pm mailing list >> Cascavel-pm em pm.org >> http://mail.pm.org/mailman/listinfo/cascavel-pm > > -- > Thomas Storino Britis > TCNet Informatica e Telecomunicacoes LTDA > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm em pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > > > > --------------------------------- > Yahoo! Search > Música para ver e ouvir: You're Beautiful, do James Blunt From thomas em tcnet.com.br Tue Jul 4 09:17:22 2006 From: thomas em tcnet.com.br (Thomas Britis) Date: Tue, 04 Jul 2006 13:17:22 -0300 Subject: [Cascavel-pm] linguagem perl+ms-dos In-Reply-To: <20060704153906.97745.qmail@web34305.mail.mud.yahoo.com> References: <20060704153906.97745.qmail@web34305.mail.mud.yahoo.com> Message-ID: <44AA9492.1020901@tcnet.com.br> Oi, Antes de mais nada, há algo errado no programa: Ao inves de while ($linha = ) o correto é: while ($linha = ); O que é feito ali é um looping (while()) apontando a variavel $linha para o filehandle retornado pelo open(). while ($linha = ). Desculpe a falha. fabio nery wrote: > Ola Thomas, > > Onde vc ta lendo a linha do arquivo e inserindo na variavel $linha, > preciso pegar cada linha do arquivo aberto e colocar na variavel, no > pascal tem a funçao Readln(F,linha), neste codigo que me passou onde > isto é feito e o qual o significado do parametro ? > > Valeu, > > Fabio > -- Thomas Storino Britis TCNet Informatica e Telecomunicacoes LTDA From fernandocorrea em gmail.com Tue Jul 4 10:12:19 2006 From: fernandocorrea em gmail.com (Fernando) Date: Tue, 04 Jul 2006 14:12:19 -0300 Subject: [Cascavel-pm] linguagem perl+ms-dos In-Reply-To: <44AA9492.1020901@tcnet.com.br> References: <20060704153906.97745.qmail@web34305.mail.mud.yahoo.com> <44AA9492.1020901@tcnet.com.br> Message-ID: <44AAA173.50400@gmail.com> perl -ne 'system("c:\windows\system32\prnmngr.vbs -ac -p $_")' arquivo Thomas Britis escreveu: > Oi, > > Antes de mais nada, há algo errado no programa: > > Ao inves de while ($linha = ) o correto é: while ($linha = ); > > O que é feito ali é um looping (while()) apontando a variavel $linha > para o filehandle retornado pelo open(). while ($linha = ). > > Desculpe a falha. > > > fabio nery wrote: > >> Ola Thomas, >> >> Onde vc ta lendo a linha do arquivo e inserindo na variavel $linha, >> preciso pegar cada linha do arquivo aberto e colocar na variavel, no >> pascal tem a funçao Readln(F,linha), neste codigo que me passou onde >> isto é feito e o qual o significado do parametro ? >> >> Valeu, >> >> Fabio >> >> > > From igor.sutton em gmail.com Thu Jul 6 10:07:21 2006 From: igor.sutton em gmail.com (Igor Sutton Lopes) Date: Thu, 06 Jul 2006 14:07:21 -0300 Subject: [Cascavel-pm] linguagem perl+ms-dos In-Reply-To: <20060704142405.23837.qmail@web34315.mail.mud.yahoo.com> (fabio nery's message of "Tue, 4 Jul 2006 14:24:05 +0000 (GMT)") References: <20060704142405.23837.qmail@web34315.mail.mud.yahoo.com> Message-ID: Fabio, Aqui esta uma maneira um pouco mais didatica (nao testado): use strict; use warnings; # abre o arquivo e armazena o file handle em $fh. eh melhor utilizar # uma variavel lexica para armazenar este fh, pois voce pode querer # passa-lo como argumento em uma funcao sem muitos malabarismos. open my $fh, "arquivo.txt" or die "Problemas ao abrir arquivo: $!"; # itera o arquivo linha a linha. irah iterar enquanto defined devolver true. eh # melhor utilizar while ao inves de foreach, pois foreach irah gerar um array # com o conteudo de todo o arquivo, que pode utilizar muita memoria caso # o arquivo seja muito grande. while (defined(my $line = <$fh>)) { # executa a funcao system(), passando uma lista com argumentos. verifica # se eh devolvido 0 (caso de sucesso) if (system("cscript", "c:/windows/system32/prnmgr.vbs", "-ac", "-p", $line) != 0) { # mostra um erro caso o programa nao seja executado corretamente. warn "Problemas ao executar programa: $!"; } } # fecha file handle. close $fh or warn "Problemas ao fechar arquivo: $!"; Igor. fabio nery writes: > Ola Ivo, > > E mais ou menos isso, olha o codigo em pascal : > > //inicio-codigo > Begin > > Assign(file,NomeAuto); > Reset(file); //abre o arquivo para leitura; > While not eof(file) do begin //enquanto nao for o final do arquivo > Readln(file,linha); //le do arquivo e desce uma linha. O conteúdo lido é > transferido para a variável linha > > //aqui deve chamar o comando do DOS e passar o parametro linha > //comando a ser passado ; cscript c:\windows\system32\prnmngr.vbs -ac -p > linha > End; > Closefile(f); > End. > > //fim-codigo > > Valeu, > > Fabio > > Ivo Peixinho escreveu: > > Nao sei se e' exatamente o que voce quer, mas: > > open(ARQ,"/caminho/do/arquivo"); > > while() { > > system("/caminho/comando/ms-dos $_"); > } > > Ou se voce quer armazenar o resultado, voce pode trocar o system por: > > @resut=`/caminho/comando/ms-dos $_`; > > Ivo. > > On Tue, 4 Jul 2006, fabio nery wrote: > > > Ola a todos, > > > > Gostaria de uma ajuda do grupo com um problema que estou tendo, quero ler um > arquivo e guardar cada linha lida em uma variavel e depois chamar um comando > ms-dos e passar esta variavel como parametro para o comando ms-dos, tem como > fazer isto em perl? Espero sinceramente que possam me ajudar. > > > > Obrigado a todos, > > > > Fabio > > > > > > --------------------------------- > > Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm em pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > > ---------------------------------------------------------------------------------- > Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. > Registre seu aparelho agora! > > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm em pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm From shonorio em gmail.com Fri Jul 7 07:10:21 2006 From: shonorio em gmail.com (Solli Honorio) Date: Fri, 7 Jul 2006 11:10:21 -0300 Subject: [Cascavel-pm] Virtude de um programador, by Vinton Cerf !!! Message-ID: <12d1f4ee0607070710n6818b4cetf58fb234627c1258@mail.gmail.com> Larry Wall já disse que as três virtudes de um programador Perl são : - *Laziness* means you work hard to look for the simplest solution and that you communicate efficiently. You don't want to misunderstand what someone said which might cause you to do more work than you have to. - *Impatience* encourages you to do the simplest thing that could possibly work. You use the code to communicate your understanding of the problem to the customer, because you don't like sitting through long, boring meetings. - *Hubris* is courage born from the fear your code will be too complex for others to understand. Hubris makes you strive for positive feedback and to react quickly to negative feedback from your peers, the computer, and the customer. ... e hoje li uma frase atribuida ao Vinton Cerf, que diz : "Nada melhor que um programador preguiçoso. Você usa coisas que já estão prontas e tudo fica mais simples". Ser preguiçoso está entre as melhores práticas, então Perl é a melhor prática :) !!! Abraços, Solli M. Honório -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060707/7cda6100/attachment.html From mopsfelder em gmail.com Mon Jul 10 07:53:33 2006 From: mopsfelder em gmail.com (=?ISO-8859-1?Q?Murilo_Opsfelder_Ara=FAjo?=) Date: Mon, 10 Jul 2006 11:53:33 -0300 Subject: [Cascavel-pm] Perl + MySQL Message-ID: Olá pessoal, gostaria de saber como tratar resultados de uma query no MySQL. Exemplo da base de dados: TABELA: tabela CAMPOS: campo1, campo2, campo3 Algo mais ou menos assim: A variável $c1 recebe o valor do campo1, a variável $c2 recebe o valor do campo2 e assim por diante. Já consegui realizar a conexão com o MySQL. Desde já obrigado. -- Murilo Opsfelder Araújo Linux User #391561 ./murilo --opsfelder='araujo' From lorn.br em gmail.com Mon Jul 10 08:07:01 2006 From: lorn.br em gmail.com (Lorn) Date: Mon, 10 Jul 2006 12:07:01 -0300 Subject: [Cascavel-pm] Perl + MySQL In-Reply-To: References: Message-ID: http://search.cpan.org/~capttofu/DBD-mysql-3.0006/lib/DBD/mysql.pm Já olhou esse help? acho que tem tudo que voce quer ai ;) On 7/10/06, Murilo Opsfelder Araújo wrote: > > Olá pessoal, > > gostaria de saber como tratar resultados de uma query no MySQL. > Exemplo da base de dados: > > TABELA: tabela > CAMPOS: campo1, campo2, campo3 > > Algo mais ou menos assim: > > A variável $c1 recebe o valor do campo1, a variável $c2 recebe o valor > do campo2 e assim por diante. > > Já consegui realizar a conexão com o MySQL. > > Desde já obrigado. > > > > -- > Murilo Opsfelder Araújo > Linux User #391561 > ./murilo --opsfelder='araujo' > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm em pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > -- Lorn - Slackware Linux www.slackwarezine.com.br -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060710/40f0cf13/attachment.html From mopsfelder em gmail.com Mon Jul 10 08:14:20 2006 From: mopsfelder em gmail.com (=?ISO-8859-1?Q?Murilo_Opsfelder_Ara=FAjo?=) Date: Mon, 10 Jul 2006 12:14:20 -0300 Subject: [Cascavel-pm] Perl + MySQL In-Reply-To: References: Message-ID: Valeu! Era o que eu precisava. Aliás, tem tudo nesse site :) []s On 7/10/06, Lorn wrote: > http://search.cpan.org/~capttofu/DBD-mysql-3.0006/lib/DBD/mysql.pm > Já olhou esse help? acho que tem tudo que voce quer ai ;) > > > On 7/10/06, Murilo Opsfelder Araújo wrote: > > > Olá pessoal, > > gostaria de saber como tratar resultados de uma query no MySQL. > Exemplo da base de dados: > > TABELA: tabela > CAMPOS: campo1, campo2, campo3 > > Algo mais ou menos assim: > > A variável $c1 recebe o valor do campo1, a variável $c2 recebe o valor > do campo2 e assim por diante. > > Já consegui realizar a conexão com o MySQL. > > Desde já obrigado. > > > > -- > Murilo Opsfelder Araújo > Linux User #391561 > ./murilo --opsfelder='araujo' > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm em pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > > > > -- > Lorn > - Slackware Linux > www.slackwarezine.com.br > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm em pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > > -- Murilo Opsfelder Araújo Linux User #391561 ./murilo --opsfelder='araujo' From thomas em tcnet.com.br Mon Jul 10 09:12:51 2006 From: thomas em tcnet.com.br (Thomas Britis) Date: Mon, 10 Jul 2006 13:12:51 -0300 Subject: [Cascavel-pm] Perl + MySQL Message-ID: Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060710/de4a9f43/attachment.html From edencardim em gmail.com Mon Jul 10 09:39:51 2006 From: edencardim em gmail.com (Eden Cardim) Date: Mon, 10 Jul 2006 13:39:51 -0300 Subject: [Cascavel-pm] Perl + MySQL In-Reply-To: <20060710153828.E0B0B177CC@x6.develooper.com> References: <20060710153828.E0B0B177CC@x6.develooper.com> Message-ID: <3de55ead0607100939i705979denb1a5f5eec6039819@mail.gmail.com> > my ($sth) = $dbh->prepare ("SELECT campo1, campo2, campo3 FROM table"); > while (my $ref = $sth->fetchrow_hashref ()) { > $c1 = $ref->{campo1}; $c2 = $ref->{campo2}; $c3 = $ref->{campo3}; > } uma forma mais abreviada e legível IMHO: > $c1 = $ref->{campo1}; $c2 = $ref->{campo2}; $c3 = $ref->{campo3}; ($c1, $c2, $c3) = @{$ref}{qw(campo1 campo2 campo3)}; Murilo, para a maioria das aplicações envolvendo acesso a bancos de dados recomenda-se o uso de Mapeadores Objeto-Relacional, já que as rotinas de acesso direto à camada DBI tendem a ficar rapidamente complexas a medida que o projeto evolui. Um dos mapeadores mais utilizados é o DBIx::Class: http://search.cpan.org/~jrobinson/DBIx-Class-0.06003/lib/DBIx/Class/Manual/DocMap.pod A curva de aprendizado é relativamente baixa quando comparada ao retorno produtivo que você vai obter quando souber usar o módulo. From thomas em tcnet.com.br Mon Jul 10 09:58:08 2006 From: thomas em tcnet.com.br (Thomas Britis) Date: Mon, 10 Jul 2006 13:58:08 -0300 Subject: [Cascavel-pm] Soma Message-ID: <44B28720.9090406@tcnet.com.br> Senhores, Existe alguma forma de se fazer o seguinte: $c = "2:3"; ($a, $b) += split (/:/, $c); ??? Quero somar o resultado do split em variáveis distintas. Hoje faço: ($x, $y) = split (/:/, $c); $a += $x; $b += $y; Obrigado. -- Thomas Storino Britis TCNet Informatica e Telecomunicacoes LTDA From igor.sutton em gmail.com Mon Jul 10 10:11:18 2006 From: igor.sutton em gmail.com (Igor Sutton) Date: Mon, 10 Jul 2006 14:11:18 -0300 Subject: [Cascavel-pm] Soma In-Reply-To: <44B28720.9090406@tcnet.com.br> References: <44B28720.9090406@tcnet.com.br> Message-ID: <6c65a53f0607101011g1ea616c9rb1bef392a8b99fd1@mail.gmail.com> Thomas, perl -MList::Util -le 'print List::Util::sum(split(":", "1:2:3"))' On 7/10/06, Thomas Britis wrote: > > Senhores, > > Existe alguma forma de se fazer o seguinte: > $c = "2:3"; > > ($a, $b) += split (/:/, $c); ??? > > Quero somar o resultado do split em variáveis distintas. > Hoje faço: > ($x, $y) = split (/:/, $c); $a += $x; $b += $y; > > Obrigado. > -- > Thomas Storino Britis > TCNet Informatica e Telecomunicacoes LTDA > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm em pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > -- Igor Sutton Lopes http://www.izut.com/ -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060710/20ba69a0/attachment.html From igor.sutton em gmail.com Mon Jul 10 10:16:59 2006 From: igor.sutton em gmail.com (Igor Sutton) Date: Mon, 10 Jul 2006 14:16:59 -0300 Subject: [Cascavel-pm] Soma In-Reply-To: <44B28720.9090406@tcnet.com.br> References: <44B28720.9090406@tcnet.com.br> Message-ID: <6c65a53f0607101016o5cc87978o391bc360066a57c5@mail.gmail.com> Ups, entendi mal a questão :) Acho que você pode fazer algo do tipo: my @result; my $tosum = "4:3:2:1"; my @nums = qw(1 2 3 4); my @tosum = split(/:/, $tosum); for (my $i=0; $i<@tosum;$i++) { push @result, $nums[$i] + $tosum[$i]; } print "@result\n"; On 7/10/06, Thomas Britis wrote: > > Senhores, > > Existe alguma forma de se fazer o seguinte: > $c = "2:3"; > > ($a, $b) += split (/:/, $c); ??? > > Quero somar o resultado do split em variáveis distintas. > Hoje faço: > ($x, $y) = split (/:/, $c); $a += $x; $b += $y; > > Obrigado. > -- > Thomas Storino Britis > TCNet Informatica e Telecomunicacoes LTDA > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm em pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > -- Igor Sutton Lopes http://www.izut.com/ -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060710/8ec12ca7/attachment-0001.html From a.r.ferreira em gmail.com Mon Jul 10 10:21:15 2006 From: a.r.ferreira em gmail.com (Adriano Ferreira) Date: Mon, 10 Jul 2006 14:21:15 -0300 Subject: [Cascavel-pm] Soma In-Reply-To: <44B28720.9090406@tcnet.com.br> References: <44B28720.9090406@tcnet.com.br> Message-ID: <73ddeb6c0607101021v11ccb00biedbcff70cf5fc7c2@mail.gmail.com> Em Perl 6, isto será mais fácil com hiper-operadores. Mas por enquanto você pode tentar algo como: @vars = \($a, $b); @vals = split /:/, $c; $$_ += shift @vals for @vars; Bem, você não pediu uma solução, né? Adriano Ferreira. On 7/10/06, Thomas Britis wrote: > Senhores, > > Existe alguma forma de se fazer o seguinte: > $c = "2:3"; > > ($a, $b) += split (/:/, $c); ??? > > Quero somar o resultado do split em variáveis distintas. > Hoje faço: > ($x, $y) = split (/:/, $c); $a += $x; $b += $y; > > Obrigado. > -- > Thomas Storino Britis > TCNet Informatica e Telecomunicacoes LTDA > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm em pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > From edencardim em gmail.com Mon Jul 10 10:21:28 2006 From: edencardim em gmail.com (Eden Cardim) Date: Mon, 10 Jul 2006 14:21:28 -0300 Subject: [Cascavel-pm] Soma In-Reply-To: <6c65a53f0607101016o5cc87978o391bc360066a57c5@mail.gmail.com> References: <44B28720.9090406@tcnet.com.br> <6c65a53f0607101016o5cc87978o391bc360066a57c5@mail.gmail.com> Message-ID: <3de55ead0607101021y1d5fc818jea965bba4404e0f5@mail.gmail.com> On 7/10/06, Igor Sutton wrote: > Ups, entendi mal a questão :) > > Acho que você pode fazer algo do tipo: > > > my @result; > my $tosum = "4:3:2:1"; > my @nums = qw(1 2 3 4); > my @tosum = split(/:/, $tosum); > > for (my $i=0; $i<@tosum;$i++) { > push @result, $nums[$i] + $tosum[$i]; > } > > print "@result\n"; > Em perl6 seria assim: ($a, $b) »+« (split/:/, $tosum); :D From a.r.ferreira em gmail.com Mon Jul 10 10:22:14 2006 From: a.r.ferreira em gmail.com (Adriano Ferreira) Date: Mon, 10 Jul 2006 14:22:14 -0300 Subject: [Cascavel-pm] Soma In-Reply-To: <73ddeb6c0607101021v11ccb00biedbcff70cf5fc7c2@mail.gmail.com> References: <44B28720.9090406@tcnet.com.br> <73ddeb6c0607101021v11ccb00biedbcff70cf5fc7c2@mail.gmail.com> Message-ID: <73ddeb6c0607101022k63bd1ac0g76e06e1ebb858ce8@mail.gmail.com> On 7/10/06, Adriano Ferreira wrote: > Em Perl 6, isto será mais fácil com hiper-operadores. Mas por enquanto > você pode tentar algo como: > > @vars = \($a, $b); > @vals = split /:/, $c; > $$_ += shift @vals for @vars; > > Bem, você não pediu uma solução, né? s/solução/solução bonita/ From thomas em tcnet.com.br Mon Jul 10 10:21:49 2006 From: thomas em tcnet.com.br (Thomas Britis) Date: Mon, 10 Jul 2006 14:21:49 -0300 Subject: [Cascavel-pm] Soma In-Reply-To: <6c65a53f0607101016o5cc87978o391bc360066a57c5@mail.gmail.com> References: <44B28720.9090406@tcnet.com.br> <6c65a53f0607101016o5cc87978o391bc360066a57c5@mail.gmail.com> Message-ID: <44B28CAD.7050101@tcnet.com.br> Obrigado Igor, porém acho que sua solução é bem mais complexa do que a minha, hehe. O que eu quero é simplificar. Obrigado mesmo assim. Igor Sutton wrote: > Ups, entendi mal a questão :) > > Acho que você pode fazer algo do tipo: > > > my @result; > my $tosum = "4:3:2:1"; > my @nums = qw(1 2 3 4); > my @tosum = split(/:/, $tosum); > > for (my $i=0; $i<@tosum;$i++) { > push @result, $nums[$i] + $tosum[$i]; > } > > print "@result\n"; > > > On 7/10/06, *Thomas Britis* > wrote: > > Senhores, > > Existe alguma forma de se fazer o seguinte: > $c = "2:3"; > > ($a, $b) += split (/:/, $c); ??? > > Quero somar o resultado do split em variáveis distintas. > Hoje faço: > ($x, $y) = split (/:/, $c); $a += $x; $b += $y; > > Obrigado. > -- > Thomas Storino Britis > TCNet Informatica e Telecomunicacoes LTDA > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm em pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > > > > > -- > Igor Sutton Lopes > http://www.izut.com/ > > > ------------------------------------------------------------------------ > > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm em pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm -- Thomas Storino Britis TCNet Informatica e Telecomunicacoes LTDA From igor.sutton em gmail.com Mon Jul 10 10:47:57 2006 From: igor.sutton em gmail.com (Igor Sutton) Date: Mon, 10 Jul 2006 14:47:57 -0300 Subject: [Cascavel-pm] Soma In-Reply-To: <44B28CAD.7050101@tcnet.com.br> References: <44B28720.9090406@tcnet.com.br> <6c65a53f0607101016o5cc87978o391bc360066a57c5@mail.gmail.com> <44B28CAD.7050101@tcnet.com.br> Message-ID: <6c65a53f0607101047q7edff36fl6b921bf31b3d0fca@mail.gmail.com> Depende o que você chama de complexa. A sua solução depende da existência de uma variável por item. Isso que eu escrevi você pode colocar em uma função. Enfim, aproveite o que você quiser do exemplo :P On 7/10/06, Thomas Britis wrote: > > Obrigado Igor, porém acho que sua solução é bem mais complexa do que a > minha, hehe. O que eu quero é simplificar. > > Obrigado mesmo assim. > > Igor Sutton wrote: > > Ups, entendi mal a questão :) > > > > Acho que você pode fazer algo do tipo: > > > > > > my @result; > > my $tosum = "4:3:2:1"; > > my @nums = qw(1 2 3 4); > > my @tosum = split(/:/, $tosum); > > > > for (my $i=0; $i<@tosum;$i++) { > > push @result, $nums[$i] + $tosum[$i]; > > } > > > > print "@result\n"; > > > > > > On 7/10/06, *Thomas Britis* > > wrote: > > > > Senhores, > > > > Existe alguma forma de se fazer o seguinte: > > $c = "2:3"; > > > > ($a, $b) += split (/:/, $c); ??? > > > > Quero somar o resultado do split em variáveis distintas. > > Hoje faço: > > ($x, $y) = split (/:/, $c); $a += $x; $b += $y; > > > > Obrigado. > > -- > > Thomas Storino Britis > > TCNet Informatica e Telecomunicacoes LTDA > > _______________________________________________ > > Cascavel-pm mailing list > > Cascavel-pm em pm.org > > http://mail.pm.org/mailman/listinfo/cascavel-pm > > > > > > > > > > -- > > Igor Sutton Lopes > > http://www.izut.com/ > > > > > > ------------------------------------------------------------------------ > > > > _______________________________________________ > > Cascavel-pm mailing list > > Cascavel-pm em pm.org > > http://mail.pm.org/mailman/listinfo/cascavel-pm > > -- > Thomas Storino Britis > TCNet Informatica e Telecomunicacoes LTDA > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm em pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > -- Igor Sutton Lopes http://www.izut.com/ -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060710/9d7efc8f/attachment.html From thomas em tcnet.com.br Mon Jul 10 11:15:12 2006 From: thomas em tcnet.com.br (Thomas Britis) Date: Mon, 10 Jul 2006 15:15:12 -0300 Subject: [Cascavel-pm] Soma In-Reply-To: <6c65a53f0607101047q7edff36fl6b921bf31b3d0fca@mail.gmail.com> References: <44B28720.9090406@tcnet.com.br> <6c65a53f0607101016o5cc87978o391bc360066a57c5@mail.gmail.com> <44B28CAD.7050101@tcnet.com.br> <6c65a53f0607101047q7edff36fl6b921bf31b3d0fca@mail.gmail.com> Message-ID: <44B29930.5010700@tcnet.com.br> Tá certo. Na verdade eu tenho um looping que me retorna dados no formato: x:y e preciso somar isso a duas variaveis já existentes, algo como: while ($a = "2:3") { # Eh soh uma suposição. Os números não serão necessariamente iguais ($b, $c) = split (/:/, $a); # Isso era o que eu pretendia fazer. ($x, $y) = split (/:/, $a); $b += $x; $c += $y; # Isso eh o que faco. } O que me importa no fim das contas são as variaveis $b e $c com a soma total do que me é retornado por $a (depois do looping se desfazer). Mais uma vez, muito obrigado. Igor Sutton wrote: > Depende o que você chama de complexa. A sua solução depende da > existência de uma variável por item. Isso que eu escrevi você pode > colocar em uma função. Enfim, aproveite o que você quiser do exemplo :P > > On 7/10/06, *Thomas Britis* > wrote: > > Obrigado Igor, porém acho que sua solução é bem mais complexa do que a > minha, hehe. O que eu quero é simplificar. > > Obrigado mesmo assim. > > Igor Sutton wrote: > > Ups, entendi mal a questão :) > > > > Acho que você pode fazer algo do tipo: > > > > > > my @result; > > my $tosum = "4:3:2:1"; > > my @nums = qw(1 2 3 4); > > my @tosum = split(/:/, $tosum); > > > > for (my $i=0; $i<@tosum;$i++) { > > push @result, $nums[$i] + $tosum[$i]; > > } > > > > print "@result\n"; > > > > > > On 7/10/06, *Thomas Britis* > > >> wrote: > > > > Senhores, > > > > Existe alguma forma de se fazer o seguinte: > > $c = "2:3"; > > > > ($a, $b) += split (/:/, $c); ??? > > > > Quero somar o resultado do split em variáveis distintas. > > Hoje faço: > > ($x, $y) = split (/:/, $c); $a += $x; $b += $y; > > > > Obrigado. > > -- > > Thomas Storino Britis > > TCNet Informatica e Telecomunicacoes LTDA > > _______________________________________________ > > Cascavel-pm mailing list > > Cascavel-pm em pm.org > > > > http://mail.pm.org/mailman/listinfo/cascavel-pm > > > > > > > > > > -- > > Igor Sutton Lopes > > http://www.izut.com/ > > > > > > > ------------------------------------------------------------------------ > > > > _______________________________________________ > > Cascavel-pm mailing list > > Cascavel-pm em pm.org > > http://mail.pm.org/mailman/listinfo/cascavel-pm > > -- > Thomas Storino Britis > TCNet Informatica e Telecomunicacoes LTDA > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm em pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > > > > > -- > Igor Sutton Lopes > http://www.izut.com/ > > > ------------------------------------------------------------------------ > > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm em pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm -- Thomas Storino Britis TCNet Informatica e Telecomunicacoes LTDA From igor.sutton em gmail.com Mon Jul 10 12:27:09 2006 From: igor.sutton em gmail.com (Igor Sutton) Date: Mon, 10 Jul 2006 16:27:09 -0300 Subject: [Cascavel-pm] Soma In-Reply-To: <44B29930.5010700@tcnet.com.br> References: <44B28720.9090406@tcnet.com.br> <6c65a53f0607101016o5cc87978o391bc360066a57c5@mail.gmail.com> <44B28CAD.7050101@tcnet.com.br> <6c65a53f0607101047q7edff36fl6b921bf31b3d0fca@mail.gmail.com> <44B29930.5010700@tcnet.com.br> Message-ID: <6c65a53f0607101227x65673f08pd6fe6c07f33250e6@mail.gmail.com> Agora que a gente já sabe o que você quer fazer :) Outra opção é transformar a sua lista de resultados em um hash: my @vals = qw(1:2 2:3 3:4); my $x = 1; my $y = 2; my %tmp = map { split /:/ } @vals; while (my ($k, $v) = each %tmp) { $x += $k; $y += $v; print "$x $y\n"; } On 7/10/06, Thomas Britis wrote: > > Tá certo. > > Na verdade eu tenho um looping que me retorna dados no formato: > x:y e > preciso somar isso a duas variaveis já existentes, algo como: > while ($a = "2:3") { # Eh soh uma suposição. Os números não serão > necessariamente iguais > ($b, $c) = split (/:/, $a); # Isso era o que eu pretendia fazer. > ($x, $y) = split (/:/, $a); $b += $x; $c += $y; # Isso eh o que faco. > } > > O que me importa no fim das contas são as variaveis $b e $c com a soma > total do que me é retornado por $a (depois do looping se desfazer). > > Mais uma vez, muito obrigado. > > Igor Sutton wrote: > > Depende o que você chama de complexa. A sua solução depende da > > existência de uma variável por item. Isso que eu escrevi você pode > > colocar em uma função. Enfim, aproveite o que você quiser do exemplo :P > > > > On 7/10/06, *Thomas Britis* > > wrote: > > > > Obrigado Igor, porém acho que sua solução é bem mais complexa do que > a > > minha, hehe. O que eu quero é simplificar. > > > > Obrigado mesmo assim. > > > > Igor Sutton wrote: > > > Ups, entendi mal a questão :) > > > > > > Acho que você pode fazer algo do tipo: > > > > > > > > > my @result; > > > my $tosum = "4:3:2:1"; > > > my @nums = qw(1 2 3 4); > > > my @tosum = split(/:/, $tosum); > > > > > > for (my $i=0; $i<@tosum;$i++) { > > > push @result, $nums[$i] + $tosum[$i]; > > > } > > > > > > print "@result\n"; > > > > > > > > > On 7/10/06, *Thomas Britis* > > > > >> > wrote: > > > > > > Senhores, > > > > > > Existe alguma forma de se fazer o seguinte: > > > $c = "2:3"; > > > > > > ($a, $b) += split (/:/, $c); ??? > > > > > > Quero somar o resultado do split em variáveis > distintas. > > > Hoje faço: > > > ($x, $y) = split (/:/, $c); $a += $x; $b += $y; > > > > > > Obrigado. > > > -- > > > Thomas Storino Britis > > > TCNet Informatica e Telecomunicacoes LTDA > > > _______________________________________________ > > > Cascavel-pm mailing list > > > Cascavel-pm em pm.org > > > > > > http://mail.pm.org/mailman/listinfo/cascavel-pm > > > > > > > > > > > > > > > -- > > > Igor Sutton Lopes > > > http://www.izut.com/ > > > > > > > > > > > > ------------------------------------------------------------------------ > > > > > > _______________________________________________ > > > Cascavel-pm mailing list > > > Cascavel-pm em pm.org > > > http://mail.pm.org/mailman/listinfo/cascavel-pm > > > > -- > > Thomas Storino Britis > > TCNet Informatica e Telecomunicacoes LTDA > > _______________________________________________ > > Cascavel-pm mailing list > > Cascavel-pm em pm.org > > http://mail.pm.org/mailman/listinfo/cascavel-pm > > > > > > > > > > -- > > Igor Sutton Lopes > > http://www.izut.com/ > > > > > > ------------------------------------------------------------------------ > > > > _______________________________________________ > > Cascavel-pm mailing list > > Cascavel-pm em pm.org > > http://mail.pm.org/mailman/listinfo/cascavel-pm > > -- > Thomas Storino Britis > TCNet Informatica e Telecomunicacoes LTDA > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm em pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > -- Igor Sutton Lopes http://www.izut.com/ -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060710/356546bc/attachment.html From edencardim em gmail.com Mon Jul 10 12:38:17 2006 From: edencardim em gmail.com (Eden Cardim) Date: Mon, 10 Jul 2006 16:38:17 -0300 Subject: [Cascavel-pm] Soma In-Reply-To: <6c65a53f0607101227x65673f08pd6fe6c07f33250e6@mail.gmail.com> References: <44B28720.9090406@tcnet.com.br> <6c65a53f0607101016o5cc87978o391bc360066a57c5@mail.gmail.com> <44B28CAD.7050101@tcnet.com.br> <6c65a53f0607101047q7edff36fl6b921bf31b3d0fca@mail.gmail.com> <44B29930.5010700@tcnet.com.br> <6c65a53f0607101227x65673f08pd6fe6c07f33250e6@mail.gmail.com> Message-ID: <3de55ead0607101238j6547ebc9hbdbc63dd1c10e479@mail.gmail.com> On 7/10/06, Igor Sutton wrote: > Agora que a gente já sabe o que você quer fazer :) Outra opção é transformar > a sua lista de resultados em um hash: > > my @vals = qw(1:2 2:3 3:4); > my $x = 1; > my $y = 2; > > my %tmp = map { split /:/ } @vals; > while (my ($k, $v) = each %tmp) { > $x += $k; > $y += $v; > print "$x $y\n"; > > } Ô Igor, da forma que você fez, pode ocorrer perda de dados devido à sobre-escrita de valores que possuem a mesma chave. Se seus valores forem qw(1:2 1:3 1:4), o loop while só vai executar uma vez. Eu pensei em usar hash tb mas de forma diferente: my %tmp; @tmp{qw($x $y $z)} = split(/:/, '1:2:3'); no strict 'refs'; $$_ += $tmp{$_} foreach keys %tmp; use strict 'refs' From igor.sutton em gmail.com Mon Jul 10 12:47:52 2006 From: igor.sutton em gmail.com (Igor Sutton) Date: Mon, 10 Jul 2006 16:47:52 -0300 Subject: [Cascavel-pm] Soma In-Reply-To: <3de55ead0607101238j6547ebc9hbdbc63dd1c10e479@mail.gmail.com> References: <44B28720.9090406@tcnet.com.br> <6c65a53f0607101016o5cc87978o391bc360066a57c5@mail.gmail.com> <44B28CAD.7050101@tcnet.com.br> <6c65a53f0607101047q7edff36fl6b921bf31b3d0fca@mail.gmail.com> <44B29930.5010700@tcnet.com.br> <6c65a53f0607101227x65673f08pd6fe6c07f33250e6@mail.gmail.com> <3de55ead0607101238j6547ebc9hbdbc63dd1c10e479@mail.gmail.com> Message-ID: <6c65a53f0607101247q523c2fb5k485822eaf9ca5e93@mail.gmail.com> Você está certo, my mistake. Na verdade nem precisaria de um hash, pensando bem: my @vals = qw(1:2 2:3 3:4); my $x = 1; my $y = 2; foreach (map { [split /:/] } @vals) { $x += $_->[0]; $y += $_->[1]; print "$x $y\n"; } Ah, no strict é feio :P > Ô Igor, da forma que você fez, pode ocorrer perda de dados devido à > sobre-escrita de valores que possuem a mesma chave. Se seus valores > forem qw(1:2 1:3 1:4), o loop while só vai executar uma vez. > > Eu pensei em usar hash tb mas de forma diferente: > > > my %tmp; > @tmp{qw($x $y $z)} = split(/:/, '1:2:3'); > no strict 'refs'; > $$_ += $tmp{$_} foreach keys %tmp; > use strict 'refs' > > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm em pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > -- Igor Sutton Lopes http://www.izut.com/ -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060710/d58d9000/attachment.html From edencardim em gmail.com Mon Jul 10 12:54:33 2006 From: edencardim em gmail.com (Eden Cardim) Date: Mon, 10 Jul 2006 16:54:33 -0300 Subject: [Cascavel-pm] Soma In-Reply-To: <6c65a53f0607101247q523c2fb5k485822eaf9ca5e93@mail.gmail.com> References: <44B28720.9090406@tcnet.com.br> <6c65a53f0607101016o5cc87978o391bc360066a57c5@mail.gmail.com> <44B28CAD.7050101@tcnet.com.br> <6c65a53f0607101047q7edff36fl6b921bf31b3d0fca@mail.gmail.com> <44B29930.5010700@tcnet.com.br> <6c65a53f0607101227x65673f08pd6fe6c07f33250e6@mail.gmail.com> <3de55ead0607101238j6547ebc9hbdbc63dd1c10e479@mail.gmail.com> <6c65a53f0607101247q523c2fb5k485822eaf9ca5e93@mail.gmail.com> Message-ID: <3de55ead0607101254o36eb4c8fg83d648987eb28d6f@mail.gmail.com> On 7/10/06, Igor Sutton wrote: > Ah, no strict é feio :P Tb acho, por isso q só postei o codigo para ilustrar a minha idéia de uso de hashes nesse problema, já q vc mencionou. :D From victor em bit-man.com.ar Mon Jul 10 10:11:52 2006 From: victor em bit-man.com.ar (=?iso-8859-1?Q?V=EDctor_A._Rodr=EDguez?=) Date: Mon, 10 Jul 2006 18:11:52 +0100 Subject: [Cascavel-pm] Soma Message-ID: <20060710211152.64693498216@favaloro.2xdtech.com.ar> Ola, primeiramente me apresento. Meu nome é Víctor e somente esteve olhando e-mails neste anho que estou subscrito. Estou morando em Buenos Aires (Argentina) e infelizmente meu português não é muito bom. > Senhores, > > Existe alguma forma de se fazer o seguinte: > $c = "2:3"; > > ($a, $b) += split (/:/, $c); ??? > Agora, voltando ao problema de Thomas, acho que uma solução mais bem pequenina pode ser feita assim : my $index = 1; my @aux = ( $a, $b ); @aux = map {$index ^= 1; $_ + $aux[$index] } split (/:/, $c); ($a, $b) = @aux; Acho que não é muito elegante mais como a função map() inserida num loop e muito melhor. []'s -- Víctor A. Rodríguez (http://www.bit-man.com.ar) El bit Fantasma (Bit-Man) CaFe.pm - Perl Mongers Capital Federal (http://cafe.pm.org/) Probaste con Software Libre (http://www.bit-man.com.ar/cgi-bin/wiki.pl?AyudaCompu/SoftwareLibre ?? From edencardim em gmail.com Mon Jul 10 14:50:00 2006 From: edencardim em gmail.com (Eden Cardim) Date: Mon, 10 Jul 2006 18:50:00 -0300 Subject: [Cascavel-pm] Soma In-Reply-To: <20060710211152.64693498216@favaloro.2xdtech.com.ar> References: <20060710211152.64693498216@favaloro.2xdtech.com.ar> Message-ID: <3de55ead0607101450u3e5fa041s864293ed766d6a9d@mail.gmail.com> On 7/10/06, Víctor A. Rodríguez wrote: > my $index = 1; > my @aux = ( $a, $b ); > @aux = map {$index ^= 1; $_ + $aux[$index] } split (/:/, $c); > ($a, $b) = @aux; > > Acho que não é muito elegante mais como a função map() inserida num loop e > muito melhor. A intenção é boa. Melhorando um pouco a sua idéia: my @aux = split /:/, $c; $_ += shift @aux foreach ($a, $b); From daniel em ruoso.com Mon Jul 10 15:33:07 2006 From: daniel em ruoso.com (Daniel Ruoso) Date: Mon, 10 Jul 2006 19:33:07 -0300 Subject: [Cascavel-pm] Golfe (Was: Re: Soma) In-Reply-To: <44B28720.9090406@tcnet.com.br> References: <44B28720.9090406@tcnet.com.br> Message-ID: <1152570788.6171.33.camel@localhost.localdomain> Em Seg, 2006-07-10 às 13:58 -0300, Thomas Britis escreveu: > Existe alguma forma de se fazer o seguinte: > $c = "2:3"; > ($a, $b) += split (/:/, $c); ??? Situação 1: $a=$b=5;$c="2:3"; # YOUR CODE HERE print "$a, $b\n"; Deve cuspir: "7, 8\n" Minha jogada (33): $c=~/(\d+):(\d+)/;$a+=$1;$b+=$2; Situação 2: $a=$b=0;@c=qw(1:2 3:4 5:6 7:8 9:10 11:12); # YOUR CODE HERE print "$a, $b\n"; Deve cuspir: "36, 42\n" Minha jogada (37): for(@c){/(\d+):(\d+)/;$a+=$1;$b+=$2} daniel From wendelscardua em gmail.com Mon Jul 10 17:27:27 2006 From: wendelscardua em gmail.com (Wendel Scardua) Date: Mon, 10 Jul 2006 21:27:27 -0300 Subject: [Cascavel-pm] Golfe (Was: Re: Soma) In-Reply-To: <1152570788.6171.33.camel@localhost.localdomain> References: <44B28720.9090406@tcnet.com.br> <1152570788.6171.33.camel@localhost.localdomain> Message-ID: <726229b50607101727n1ce22143sf3bef77262b14018@mail.gmail.com> Deixa eu tentar também.... :-) On 7/10/06, Daniel Ruoso wrote: > Em Seg, 2006-07-10 às 13:58 -0300, Thomas Britis escreveu: > > Existe alguma forma de se fazer o seguinte: > > $c = "2:3"; > > ($a, $b) += split (/:/, $c); ??? > > Situação 1: > > $a=$b=5;$c="2:3"; > # YOUR CODE HERE > print "$a, $b\n"; > > Deve cuspir: "7, 8\n" > Minha jogada (27): $a+=$c;$c=~s/\d+://;$b+=$c; > > Situação 2: > $a=$b=0;@c=qw(1:2 3:4 5:6 7:8 9:10 11:12); > # YOUR CODE HERE > print "$a, $b\n"; > > Deve cuspir: "36, 42\n" > Minha jogada (30): map{$a+=$_;s/\d+://;$b+=$_}@c; Wendel ps: o enunciado não pede pra ser não-destrutivo, né ? ^_^;;;; -- "Não ajustar o auto-ajuste" - http://wendel.scardua.net/ From daniel em ruoso.com Mon Jul 10 18:02:12 2006 From: daniel em ruoso.com (Daniel Ruoso) Date: Mon, 10 Jul 2006 22:02:12 -0300 Subject: [Cascavel-pm] Golfe (Was: Re: Soma) In-Reply-To: <726229b50607101727n1ce22143sf3bef77262b14018@mail.gmail.com> References: <44B28720.9090406@tcnet.com.br> <1152570788.6171.33.camel@localhost.localdomain> <726229b50607101727n1ce22143sf3bef77262b14018@mail.gmail.com> Message-ID: <1152579732.7497.2.camel@kariri> Em Seg, 2006-07-10 às 21:27 -0300, Wendel Scardua escreveu: > Deixa eu tentar também.... :-) > On 7/10/06, Daniel Ruoso wrote: > > Situação 1: > > $a=$b=5;$c="2:3"; > > # YOUR CODE HERE > > print "$a, $b\n"; > > Deve cuspir: "7, 8\n" > Minha jogada (27): > $a+=$c;$c=~s/\d+://;$b+=$c; Rá... 26... :) $a+=$c;$c=~s/.+://;$b+=$c; > > Situação 2: > > $a=$b=0;@c=qw(1:2 3:4 5:6 7:8 9:10 11:12); > > # YOUR CODE HERE > > print "$a, $b\n"; > > Deve cuspir: "36, 42\n" > Minha jogada (30): > map{$a+=$_;s/\d+://;$b+=$_}@c; 29 :) map{$a+=$_;s/.+://;$b+=$_}@c; daniel (para quem não viu a diferença, eu troquei \d+ por .+) From wendelscardua em gmail.com Mon Jul 10 18:08:45 2006 From: wendelscardua em gmail.com (Wendel Scardua) Date: Mon, 10 Jul 2006 22:08:45 -0300 Subject: [Cascavel-pm] Golfe (Was: Re: Soma) In-Reply-To: <1152579732.7497.2.camel@kariri> References: <44B28720.9090406@tcnet.com.br> <1152570788.6171.33.camel@localhost.localdomain> <726229b50607101727n1ce22143sf3bef77262b14018@mail.gmail.com> <1152579732.7497.2.camel@kariri> Message-ID: <726229b50607101808p5510c7bcybdabfcb70c47e3e5@mail.gmail.com> On 7/10/06, Daniel Ruoso wrote: > Em Seg, 2006-07-10 às 21:27 -0300, Wendel Scardua escreveu: > > Deixa eu tentar também.... :-) > > On 7/10/06, Daniel Ruoso wrote: > > > Situação 1: > > > $a=$b=5;$c="2:3"; > > > # YOUR CODE HERE > > > print "$a, $b\n"; > > > Deve cuspir: "7, 8\n" > > Minha jogada (27): > > $a+=$c;$c=~s/\d+://;$b+=$c; > > Rá... 26... :) > $a+=$c;$c=~s/.+://;$b+=$c; > Ré... 22... :-) $a+=$c;$c=~/:/;$b+=$'; > > > Situação 2: > > > $a=$b=0;@c=qw(1:2 3:4 5:6 7:8 9:10 11:12); > > > # YOUR CODE HERE > > > print "$a, $b\n"; > > > Deve cuspir: "36, 42\n" > > Minha jogada (30): > > map{$a+=$_;s/\d+://;$b+=$_}@c; > > 29 :) > map{$a+=$_;s/.+://;$b+=$_}@c; > 25 ^_^v map{$a+=$_;/:/;$b+=$'}@c; -- []s Wendel "Não ajustar o auto-ajuste" - http://wendel.scardua.net/ From daniel em ruoso.com Mon Jul 10 20:19:55 2006 From: daniel em ruoso.com (Daniel Ruoso) Date: Tue, 11 Jul 2006 00:19:55 -0300 Subject: [Cascavel-pm] Golfe (Was: Re: Soma) In-Reply-To: <726229b50607101808p5510c7bcybdabfcb70c47e3e5@mail.gmail.com> References: <44B28720.9090406@tcnet.com.br> <1152570788.6171.33.camel@localhost.localdomain> <726229b50607101727n1ce22143sf3bef77262b14018@mail.gmail.com> <1152579732.7497.2.camel@kariri> <726229b50607101808p5510c7bcybdabfcb70c47e3e5@mail.gmail.com> Message-ID: <1152587995.7497.9.camel@kariri> Em Seg, 2006-07-10 às 22:08 -0300, Wendel Scardua escreveu: > On 7/10/06, Daniel Ruoso wrote: > > Em Seg, 2006-07-10 às 21:27 -0300, Wendel Scardua escreveu: > > > Deixa eu tentar também.... :-) > > > On 7/10/06, Daniel Ruoso wrote: > > > > Situação 1: > > > > $a=$b=5;$c="2:3"; > > > > # YOUR CODE HERE > > > > print "$a, $b\n"; > > > > Deve cuspir: "7, 8\n" > > > Minha jogada (27): > > > $a+=$c;$c=~s/\d+://;$b+=$c; > > Rá... 26... :) > > $a+=$c;$c=~s/.+://;$b+=$c; > Ré... 22... :-) > $a+=$c;$c=~/:/;$b+=$'; Heh... 21 $a+=$_=$c;/:/;$b+=$'; > > > > Situação 2: > > > > $a=$b=0;@c=qw(1:2 3:4 5:6 7:8 9:10 11:12); > > > > # YOUR CODE HERE > > > > print "$a, $b\n"; > > > > Deve cuspir: "36, 42\n" > > > Minha jogada (30): > > > map{$a+=$_;s/\d+://;$b+=$_}@c; > > 29 :) > > map{$a+=$_;s/.+://;$b+=$_}@c; > 25 ^_^v > map{$a+=$_;/:/;$b+=$'}@c; Ok... desisto :) daniel From edencardim em gmail.com Tue Jul 11 04:18:02 2006 From: edencardim em gmail.com (Eden Cardim) Date: Tue, 11 Jul 2006 09:18:02 -0200 Subject: [Cascavel-pm] Golfe (Was: Re: Soma) In-Reply-To: <726229b50607101808p5510c7bcybdabfcb70c47e3e5@mail.gmail.com> References: <44B28720.9090406@tcnet.com.br> <1152570788.6171.33.camel@localhost.localdomain> <726229b50607101727n1ce22143sf3bef77262b14018@mail.gmail.com> <1152579732.7497.2.camel@kariri> <726229b50607101808p5510c7bcybdabfcb70c47e3e5@mail.gmail.com> Message-ID: <3de55ead0607110418m3432ab38ha7aeaa33875a97a@mail.gmail.com> 18... $a+=$c;$b+=chop$c; 23... map{$a+=$_;$b+=chop}@c; :D Só um detalhe, não é boa prática o uso das variáveis $a e $b fora de um bloco passado como parâmetro à função sort. From edencardim em gmail.com Tue Jul 11 04:20:31 2006 From: edencardim em gmail.com (Eden Cardim) Date: Tue, 11 Jul 2006 09:20:31 -0200 Subject: [Cascavel-pm] Golfe (Was: Re: Soma) In-Reply-To: <3de55ead0607110418m3432ab38ha7aeaa33875a97a@mail.gmail.com> References: <44B28720.9090406@tcnet.com.br> <1152570788.6171.33.camel@localhost.localdomain> <726229b50607101727n1ce22143sf3bef77262b14018@mail.gmail.com> <1152579732.7497.2.camel@kariri> <726229b50607101808p5510c7bcybdabfcb70c47e3e5@mail.gmail.com> <3de55ead0607110418m3432ab38ha7aeaa33875a97a@mail.gmail.com> Message-ID: <3de55ead0607110420t6a63a267t3121cee6992b000@mail.gmail.com> Eta, esquece... não funciona :( On 7/11/06, Eden Cardim wrote: > 18... > $a+=$c;$b+=chop$c; > > 23... > map{$a+=$_;$b+=chop}@c; > > :D From mdacwb em gmail.com Tue Jul 11 07:56:08 2006 From: mdacwb em gmail.com (Marco A P D'Andrade) Date: Tue, 11 Jul 2006 11:56:08 -0300 Subject: [Cascavel-pm] [OT] VAGA - ANALISTA PERL /JAVA] Message-ID: <44B3BC08.1050909@gmail.com> Pessoal, Como não sei se todos da cascavel ainda estão na perlbr (mais antiga mas praticamente inativa), segue copia. Aos interessados, respostas diretas ao solicitante, estou apenas repassando a oferta ! Sds, Marco Antonio -------- Original Message -------- Subject: [perlbr] VAGA - ANALISTA PERL /JAVA Date: Tue, 11 Jul 2006 13:26:10 -0000 From: stefanibruno Reply-To: perlbr em yahoogrupos.com.br To: perlbr em yahoogrupos.com.br References: A Ogeda It Solutions está recrutando consultores com o seguinte perfil: ANALISTA PROGRAMADOR PERL / JAVA Experiência com Análise e Programação utilizando PERL, JAVA e BANCO SYBASE Imprescindível INGLÊS FLUENTE Local: Centro Empresarial - Santo Amaro / SP Tempo: Indeterminado Forma de Contratação: PJ (hora aberta) Valor Hora: a negociar Favor encaminhar CV para o e-mail abaixo com o seguinte título "ANALISTA PERL" bruno.stefani em ogeda.com.br __._,_.___ *Yahoo! Grupos, um serviço oferecido por:* PUBLICIDADE ------------------------------------------------------------------------ *Links do Yahoo! Grupos* * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/perlbr/ * Para sair deste grupo, envie um e-mail para: perlbr-unsubscribe em yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo! . __,_._,___ From ptfzs em yahoo.com.br Tue Jul 11 09:14:59 2006 From: ptfzs em yahoo.com.br (Patty Silva) Date: Tue, 11 Jul 2006 13:14:59 -0300 (ART) Subject: [Cascavel-pm] Env Sourced Message-ID: <20060711161459.2405.qmail@web31313.mail.mud.yahoo.com> Ola Pessoal.. estou usando use Env::Sourced qw(/home/teste/run.csh); Para inserir uma variavel de ambiente ( que esta dentro do shell) Estou tentando tirar a dependencia de /home/teste .. tentei usar $HOME, $ENV{HOME} mas nao funciona.. Alguem tem alguma solucao?? Obrigada --------------------------------- Você quer respostas para suas perguntas? Ou você sabe muito e quer compartilhar seu conhecimento? Experimente o Yahoo! Respostas! -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060711/38d96789/attachment-0001.html From igor.sutton em gmail.com Tue Jul 11 09:32:23 2006 From: igor.sutton em gmail.com (Igor Sutton) Date: Tue, 11 Jul 2006 13:32:23 -0300 Subject: [Cascavel-pm] Env Sourced In-Reply-To: <20060711161459.2405.qmail@web31313.mail.mud.yahoo.com> References: <20060711161459.2405.qmail@web31313.mail.mud.yahoo.com> Message-ID: <6c65a53f0607110932s6dc12f93nd36463baafa8036b@mail.gmail.com> O que você está tentando fazer? Quero dizer, qual é o seu problema de verdade? On 7/11/06, Patty Silva wrote: > > Ola Pessoal.. > > estou usando use Env::Sourced qw(/home/teste/run.csh); > Para inserir uma variavel de ambiente ( que esta dentro do shell) > Estou tentando tirar a dependencia de /home/teste .. tentei usar $HOME, > $ENV{HOME} mas nao funciona.. > > Alguem tem alguma solucao?? > > > Obrigada > > ------------------------------ > Você quer respostas para suas perguntas? Ou você sabe muito e quer > compartilhar seu conhecimento? Experimente o Yahoo! Respostas! > > > > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm em pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > > -- Igor Sutton Lopes http://www.izut.com/ -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060711/1840c43f/attachment.html From igor.sutton em gmail.com Tue Jul 11 09:43:11 2006 From: igor.sutton em gmail.com (Igor Sutton) Date: Tue, 11 Jul 2006 13:43:11 -0300 Subject: [Cascavel-pm] Env Sourced In-Reply-To: <20060711161459.2405.qmail@web31313.mail.mud.yahoo.com> References: <20060711161459.2405.qmail@web31313.mail.mud.yahoo.com> Message-ID: <6c65a53f0607110943n28f2657fq509cb589a514bbea@mail.gmail.com> Pelo que pude perceber, quando modifico o %ENV ele coloca modifica no ambiente e nos filhos. perl -le '$ENV{TESTE} = 1; $_ = qx/env|grep -i teste/; print' No caso do HOME, em um sistema *nix você pode utilizar: perl -le 'print $ENV{HOME}' Se entendi bem, após olhar a décima vez o que você escreveu (hm, lembrei do link de 'como fazer perguntas inteligentes' que o Nelson postou), você quer fazer algo do tipo use Env::Sourced ("$ENV{HOME}/run.csh"); Creio que desta maneira deveria funcionar. Lembre-se que qw() significa "quote word", que devolve um array. Perceba a diferença entre: perl -le 'print qw($ENV{HOME})' e perl -le 'print ($ENV{HOME})' Agora fiquei curioso em relação ao módulo Env::Sourced, que não encontrei no CPAN... On 7/11/06, Patty Silva wrote: > > Ola Pessoal.. > > estou usando use Env::Sourced qw(/home/teste/run.csh); > Para inserir uma variavel de ambiente ( que esta dentro do shell) > Estou tentando tirar a dependencia de /home/teste .. tentei usar $HOME, > $ENV{HOME} mas nao funciona.. > > Alguem tem alguma solucao?? > > > Obrigada > > ------------------------------ > Você quer respostas para suas perguntas? Ou você sabe muito e quer > compartilhar seu conhecimento? Experimente o Yahoo! Respostas! > > > > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm em pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > > -- Igor Sutton Lopes http://www.izut.com/ -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060711/5f397a2f/attachment.html From a.r.ferreira em gmail.com Tue Jul 11 09:51:07 2006 From: a.r.ferreira em gmail.com (Adriano Ferreira) Date: Tue, 11 Jul 2006 13:51:07 -0300 Subject: [Cascavel-pm] Env Sourced In-Reply-To: <6c65a53f0607110943n28f2657fq509cb589a514bbea@mail.gmail.com> References: <20060711161459.2405.qmail@web31313.mail.mud.yahoo.com> <6c65a53f0607110943n28f2657fq509cb589a514bbea@mail.gmail.com> Message-ID: <73ddeb6c0607110951h23523974r6f390c80f86b7c73@mail.gmail.com> On 7/11/06, Igor Sutton wrote: > Agora fiquei curioso em relação ao módulo Env::Sourced, que não encontrei no > CPAN... O Google encontra para você: http://search.cpan.org/~jmcada/Env-Sourced-1.00/ E está no CPAN - pelo jeito o módulo tem algum problema de indexação, por isso não é encontrado na busca normal. From acid06 em gmail.com Tue Jul 11 09:51:05 2006 From: acid06 em gmail.com (Nilson Santos Figueiredo Junior) Date: Tue, 11 Jul 2006 13:51:05 -0300 Subject: [Cascavel-pm] OT: SkypeIn no Brasil Message-ID: <9a08c9b40607110951g7da2014cj60c33b2a41ad1442@mail.gmail.com> Quem conhece e usa o Skype talvez já tenha ouvido falar do recurso SkypeIn, que permite que você um número de telefone fixo que, quando alguém ligar, ele é redirecionado pro seu Skype. Isso é algo muito legal pois pode fazer com que você tenha um número de telefone fixo que funciona tanto quando você está em casa, quanto no trabalho, no notebook ou PocketPC com conexão wireless. Vira quase um celular, só que o número é de telefone fixo. Agora o SkypeIn está disponível no Brasil também. O preço é bem mais barato que uma linha convencional: você paga 30 euros por ano (o que significa mais ou menos R$6,95 por mês). E você ainda pode escolher o número que você quer (aqui em BH parece que todos começam com o prefixo 3231-xxxx). Ele também vem com um serviço de secretária eletrônica gratuito, então quando você não estiver conectado no Skype e alguém te ligar, cai na secretária eletrônica. Pra quem costuma fazer muitos interurbanos e não conhece o Skype ainda, vale a pena conferir. O preço por minuto da ligação pra dentro do Brasil é: R$0,058 para São Paulo, R$0,075 pro Rio e R$0,12 pra qualquer outro lugar - muito mais barato que qualquer operadora. E até mesmo ligações locais para celular talvez valha a pena usar o Skype pois a ligação pra qualquer celular do Brasil custa R$0,48 por minuto. Não, eu não ganho pra fazer propaganda do Skype. ;-) Mas é que eu o considero um serviço muito bom e odeio as práticas abusivas das empresas telefônicas, com essas tarifas ridículas. E achei bem legal descobrir que agora tem SkypeIn no Brasil e resolvi compartilhar essa descoberta com os companheiros Perl Mongers. Me desculpem pela mensagem completamente OT. -Nilson Santos F. Jr. From ptfzs em yahoo.com.br Tue Jul 11 09:52:12 2006 From: ptfzs em yahoo.com.br (Patty Silva) Date: Tue, 11 Jul 2006 13:52:12 -0300 (ART) Subject: [Cascavel-pm] Env Sourced In-Reply-To: <6c65a53f0607110932s6dc12f93nd36463baafa8036b@mail.gmail.com> Message-ID: <20060711165212.53921.qmail@web31306.mail.mud.yahoo.com> Meu problema como disse na msg anterior eh: tirar a dependencia de /home/teste ou seja.. funcionar em qualquer HOME e nao somente no /home/teste eu queria colocar a variavel de ambiente $HOME mas nao funciona Entendeu? Obrigada Igor Sutton escreveu: O que você está tentando fazer? Quero dizer, qual é o seu problema de verdade? On 7/11/06, Patty Silva wrote:Ola Pessoal.. estou usando use Env::Sourced qw(/home/teste/run.csh); Para inserir uma variavel de ambiente ( que esta dentro do shell) Estou tentando tirar a dependencia de /home/teste .. tentei usar $HOME, $ENV{HOME} mas nao funciona.. Alguem tem alguma solucao?? Obrigada --------------------------------- Você quer respostas para suas perguntas? Ou você sabe muito e quer compartilhar seu conhecimento? Experimente o Yahoo! Respostas! _______________________________________________ Cascavel-pm mailing list Cascavel-pm em pm.org http://mail.pm.org/mailman/listinfo/cascavel-pm -- Igor Sutton Lopes http://www.izut.com/ _______________________________________________ Cascavel-pm mailing list Cascavel-pm em pm.org http://mail.pm.org/mailman/listinfo/cascavel-pm --------------------------------- Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho agora! -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060711/fe3c39d7/attachment.html From igor.sutton em gmail.com Tue Jul 11 09:59:17 2006 From: igor.sutton em gmail.com (Igor Sutton) Date: Tue, 11 Jul 2006 13:59:17 -0300 Subject: [Cascavel-pm] Env Sourced In-Reply-To: <20060711165212.53921.qmail@web31306.mail.mud.yahoo.com> References: <6c65a53f0607110932s6dc12f93nd36463baafa8036b@mail.gmail.com> <20060711165212.53921.qmail@web31306.mail.mud.yahoo.com> Message-ID: <6c65a53f0607110959t4a498443xe827755e86ccc0f7@mail.gmail.com> Certo Patty... isso eu entendi. Você postou um código que funciona prá você... você pode enviar aquele que você disse que não funciona? Creio que é muito mais fácil ler o código e tentar ajudar explicando a razão de não ter dado certo. On 7/11/06, Patty Silva wrote: > > Meu problema como disse na msg anterior eh: > > tirar a dependencia de /home/teste ou seja.. funcionar em qualquer HOME e > nao somente no /home/teste eu queria colocar a variavel de ambiente $HOME > mas nao funciona > > > Entendeu? > > Obrigada > > *Igor Sutton * escreveu: > > O que você está tentando fazer? Quero dizer, qual é o seu problema de > verdade? > > On 7/11/06, Patty Silva wrote: > > > > Ola Pessoal.. > > > > estou usando use Env::Sourced qw(/home/teste/run.csh); > > Para inserir uma variavel de ambiente ( que esta dentro do shell) > > Estou tentando tirar a dependencia de /home/teste .. tentei usar $HOME, > > $ENV{HOME} mas nao funciona.. > > > > Alguem tem alguma solucao?? > > > > > > Obrigada > > ------------------------------ > > Você quer respostas para suas perguntas? Ou você sabe muito e quer > > compartilhar seu conhecimento? Experimente o Yahoo! Respostas! > > > > > > _______________________________________________ > > Cascavel-pm mailing list > > Cascavel-pm em pm.org > > http://mail.pm.org/mailman/listinfo/cascavel-pm > > > > > > > -- > Igor Sutton Lopes > http://www.izut.com/ _______________________________________________ > > Cascavel-pm mailing list > Cascavel-pm em pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > > ------------------------------ > Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. > Registre seu aparelho agora! > > > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm em pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > > -- Igor Sutton Lopes http://www.izut.com/ -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060711/19cc051d/attachment-0001.html From ptfzs em yahoo.com.br Tue Jul 11 10:35:15 2006 From: ptfzs em yahoo.com.br (Patty Silva) Date: Tue, 11 Jul 2006 14:35:15 -0300 (ART) Subject: [Cascavel-pm] Env Sourced In-Reply-To: <6c65a53f0607110943n28f2657fq509cb589a514bbea@mail.gmail.com> Message-ID: <20060711173515.28945.qmail@web31308.mail.mud.yahoo.com> Oks igor.. eu estava tentando fazer use Env::Sourced qw($ENV{HOME}/run.csh); por isso nao funcionava!! Obrigada Igor Sutton escreveu: Pelo que pude perceber, quando modifico o %ENV ele coloca modifica no ambiente e nos filhos. perl -le '$ENV{TESTE} = 1; $_ = qx/env|grep -i teste/; print' No caso do HOME, em um sistema *nix você pode utilizar: perl -le 'print $ENV{HOME}' Se entendi bem, após olhar a décima vez o que você escreveu (hm, lembrei do link de 'como fazer perguntas inteligentes' que o Nelson postou), você quer fazer algo do tipo use Env::Sourced ("$ENV{HOME}/run.csh"); Creio que desta maneira deveria funcionar. Lembre-se que qw() significa "quote word", que devolve um array. Perceba a diferença entre: perl -le 'print qw($ENV{HOME})' e perl -le 'print ($ENV{HOME})' Agora fiquei curioso em relação ao módulo Env::Sourced, que não encontrei no CPAN... On 7/11/06, Patty Silva wrote:Ola Pessoal.. estou usando use Env::Sourced qw(/home/teste/run.csh); Para inserir uma variavel de ambiente ( que esta dentro do shell) Estou tentando tirar a dependencia de /home/teste .. tentei usar $HOME, $ENV{HOME} mas nao funciona.. Alguem tem alguma solucao?? Obrigada --------------------------------- Você quer respostas para suas perguntas? Ou você sabe muito e quer compartilhar seu conhecimento? Experimente o Yahoo! Respostas! _______________________________________________ Cascavel-pm mailing list Cascavel-pm em pm.org http://mail.pm.org/mailman/listinfo/cascavel-pm -- Igor Sutton Lopes http://www.izut.com/ _______________________________________________ Cascavel-pm mailing list Cascavel-pm em pm.org http://mail.pm.org/mailman/listinfo/cascavel-pm --------------------------------- Abra sua conta no Yahoo! Mail - 1GB de espaço, alertas de e-mail no celular e anti-spam realmente eficaz. -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060711/8f2adc55/attachment.html From igor.sutton em gmail.com Tue Jul 11 11:06:16 2006 From: igor.sutton em gmail.com (Igor Sutton) Date: Tue, 11 Jul 2006 15:06:16 -0300 Subject: [Cascavel-pm] Env Sourced In-Reply-To: <20060711173515.28945.qmail@web31308.mail.mud.yahoo.com> References: <6c65a53f0607110943n28f2657fq509cb589a514bbea@mail.gmail.com> <20060711173515.28945.qmail@web31308.mail.mud.yahoo.com> Message-ID: <6c65a53f0607111106h7ace49f2ldf3bd9e4c6118770@mail.gmail.com> Certo... Agora você pode compartilhar conosco a sua solução? On 7/11/06, Patty Silva wrote: > > Oks igor.. > eu estava tentando fazer > use Env::Sourced qw($ENV{HOME}/run.csh); > por isso nao funcionava!! > > > Obrigada > > > *Igor Sutton * escreveu: > > Pelo que pude perceber, quando modifico o %ENV ele coloca modifica no > ambiente e nos filhos. > > perl -le '$ENV{TESTE} = 1; $_ = qx/env|grep -i teste/; print' > > No caso do HOME, em um sistema *nix você pode utilizar: > > perl -le 'print $ENV{HOME}' > > Se entendi bem, após olhar a décima vez o que você escreveu (hm, lembrei > do link de 'como fazer perguntas inteligentes' que o Nelson postou), você > quer fazer algo do tipo > > use Env::Sourced ("$ENV{HOME}/run.csh"); > > Creio que desta maneira deveria funcionar. Lembre-se que qw() significa > "quote word", que devolve um array. Perceba a diferença entre: > > perl -le 'print qw($ENV{HOME})' > > e > > perl -le 'print ($ENV{HOME})' > > Agora fiquei curioso em relação ao módulo Env::Sourced, que não encontrei > no CPAN... > > On 7/11/06, Patty Silva wrote: > > > > Ola Pessoal.. > > > > estou usando use Env::Sourced qw(/home/teste/run.csh); > > Para inserir uma variavel de ambiente ( que esta dentro do shell) > > Estou tentando tirar a dependencia de /home/teste .. tentei usar $HOME, > > $ENV{HOME} mas nao funciona.. > > > > Alguem tem alguma solucao?? > > > > > > Obrigada > > ------------------------------ > > Você quer respostas para suas perguntas? Ou você sabe muito e quer > > compartilhar seu conhecimento? Experimente o Yahoo! Respostas! > > > > > > _______________________________________________ > > Cascavel-pm mailing list > > Cascavel-pm em pm.org > > http://mail.pm.org/mailman/listinfo/cascavel-pm > > > > > > > -- > Igor Sutton Lopes > http://www.izut.com/ _______________________________________________ > > Cascavel-pm mailing list > Cascavel-pm em pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > > ------------------------------ > Abra sua conta no Yahoo! Mail- 1GB de espaço, alertas de e-mail no celular e anti-spam realmente eficaz. > > > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm em pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > > -- Igor Sutton Lopes http://www.izut.com/ -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060711/75d98a8c/attachment.html From ptfzs em yahoo.com.br Tue Jul 11 11:51:35 2006 From: ptfzs em yahoo.com.br (Patty Silva) Date: Tue, 11 Jul 2006 15:51:35 -0300 (ART) Subject: [Cascavel-pm] Env Sourced In-Reply-To: <6c65a53f0607111106h7ace49f2ldf3bd9e4c6118770@mail.gmail.com> Message-ID: <20060711185135.76646.qmail@web31315.mail.mud.yahoo.com> Estou usando como vc sugeriu: use Env::Sourced ("$ENV{HOME}/run_variable.csh"); Obrigada Igor Sutton escreveu: Certo... Agora você pode compartilhar conosco a sua solução? On 7/11/06, Patty Silva wrote: Oks igor.. eu estava tentando fazer use Env::Sourced qw($ENV{HOME}/run.csh); por isso nao funcionava!! Obrigada Igor Sutton escreveu: Pelo que pude perceber, quando modifico o %ENV ele coloca modifica no ambiente e nos filhos. perl -le '$ENV{TESTE} = 1; $_ = qx/env|grep -i teste/; print' No caso do HOME, em um sistema *nix você pode utilizar: perl -le 'print $ENV{HOME}' Se entendi bem, após olhar a décima vez o que você escreveu (hm, lembrei do link de 'como fazer perguntas inteligentes' que o Nelson postou), você quer fazer algo do tipo use Env::Sourced ("$ENV{HOME}/run.csh"); Creio que desta maneira deveria funcionar. Lembre-se que qw() significa "quote word", que devolve um array. Perceba a diferença entre: perl -le 'print qw($ENV{HOME})' e perl -le 'print ($ENV{HOME})' Agora fiquei curioso em relação ao módulo Env::Sourced, que não encontrei no CPAN... On 7/11/06, Patty Silva wrote: Ola Pessoal.. estou usando use Env::Sourced qw(/home/teste/run.csh); Para inserir uma variavel de ambiente ( que esta dentro do shell) Estou tentando tirar a dependencia de /home/teste .. tentei usar $HOME, $ENV{HOME} mas nao funciona.. Alguem tem alguma solucao?? Obrigada --------------------------------- Você quer respostas para suas perguntas? Ou você sabe muito e quer compartilhar seu conhecimento? Experimente o Yahoo! Respostas! _______________________________________________ Cascavel-pm mailing list Cascavel-pm em pm.org http://mail.pm.org/mailman/listinfo/cascavel-pm -- Igor Sutton Lopes http://www.izut.com/ _______________________________________________ Cascavel-pm mailing list Cascavel-pm em pm.org http://mail.pm.org/mailman/listinfo/cascavel-pm --------------------------------- Abra sua conta no Yahoo! Mail - 1GB de espaço, alertas de e-mail no celular e anti-spam realmente eficaz. _______________________________________________ Cascavel-pm mailing list Cascavel-pm em pm.org http://mail.pm.org/mailman/listinfo/cascavel-pm -- Igor Sutton Lopes http://www.izut.com/ _______________________________________________ Cascavel-pm mailing list Cascavel-pm em pm.org http://mail.pm.org/mailman/listinfo/cascavel-pm --------------------------------- Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060711/8919531f/attachment.html From igor.sutton em gmail.com Tue Jul 11 12:32:59 2006 From: igor.sutton em gmail.com (Igor Sutton) Date: Tue, 11 Jul 2006 16:32:59 -0300 Subject: [Cascavel-pm] Env Sourced In-Reply-To: <20060711185135.76646.qmail@web31315.mail.mud.yahoo.com> References: <6c65a53f0607111106h7ace49f2ldf3bd9e4c6118770@mail.gmail.com> <20060711185135.76646.qmail@web31315.mail.mud.yahoo.com> Message-ID: <6c65a53f0607111232l531c58f1j6851265b53ef2211@mail.gmail.com> Estaria certo se você fizesse também use Env::Sourced "$ENV{HOME}/run_variable.csh"; A idéia é que qw() devolve um array com o conteúdo separado por espaços, literalmente. Isto é, ele não interpreta variáveis léxicas. qw($var1 $var2) == ('$var1', '$var2') On 7/11/06, Patty Silva wrote: > > Estou usando como vc sugeriu: > > use Env::Sourced ("$ENV{HOME}/run_variable.csh"); > > > Obrigada > > > *Igor Sutton * escreveu: > > Certo... Agora você pode compartilhar conosco a sua solução? > > On 7/11/06, Patty Silva wrote: > > > > Oks igor.. > > eu estava tentando fazer > > use Env::Sourced qw($ENV{HOME}/run.csh); > > por isso nao funcionava!! > > > > > > Obrigada > > > > > > *Igor Sutton * escreveu: > > > > Pelo que pude perceber, quando modifico o %ENV ele coloca modifica no > > ambiente e nos filhos. > > > > perl -le '$ENV{TESTE} = 1; $_ = qx/env|grep -i teste/; print' > > > > No caso do HOME, em um sistema *nix você pode utilizar: > > > > perl -le 'print $ENV{HOME}' > > > > Se entendi bem, após olhar a décima vez o que você escreveu (hm, lembrei > > do link de 'como fazer perguntas inteligentes' que o Nelson postou), você > > quer fazer algo do tipo > > > > use Env::Sourced ("$ENV{HOME}/run.csh"); > > > > Creio que desta maneira deveria funcionar. Lembre-se que qw() significa > > "quote word", que devolve um array. Perceba a diferença entre: > > > > perl -le 'print qw($ENV{HOME})' > > > > e > > > > perl -le 'print ($ENV{HOME})' > > > > Agora fiquei curioso em relação ao módulo Env::Sourced, que não > > encontrei no CPAN... > > > > On 7/11/06, Patty Silva wrote: > > > > > > Ola Pessoal.. > > > > > > estou usando use Env::Sourced qw(/home/teste/run.csh); > > > Para inserir uma variavel de ambiente ( que esta dentro do shell) > > > Estou tentando tirar a dependencia de /home/teste .. tentei usar > > > $HOME, $ENV{HOME} mas nao funciona.. > > > > > > Alguem tem alguma solucao?? > > > > > > > > > Obrigada > > > ------------------------------ > > > Você quer respostas para suas perguntas? Ou você sabe muito e quer > > > compartilhar seu conhecimento? Experimente o Yahoo! Respostas! > > > > > > > > > _______________________________________________ > > > Cascavel-pm mailing list > > > Cascavel-pm em pm.org > > > http://mail.pm.org/mailman/listinfo/cascavel-pm > > > > > > > > > > > > -- > > Igor Sutton Lopes > > http://www.izut.com/ _______________________________________________ > > > > Cascavel-pm mailing list > > Cascavel-pm em pm.org > > http://mail.pm.org/mailman/listinfo/cascavel-pm > > > > ------------------------------ > > Abra sua conta no Yahoo! Mail- 1GB de espaço, alertas de e-mail no celular e anti-spam realmente eficaz. > > > > _______________________________________________ > > Cascavel-pm mailing list > > Cascavel-pm em pm.org > > http://mail.pm.org/mailman/listinfo/cascavel-pm > > > > > > > -- > Igor Sutton Lopes > http://www.izut.com/ _______________________________________________ > > Cascavel-pm mailing list > Cascavel-pm em pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > > ------------------------------ > Yahoo! Acesso Grátis- Internet rápida e grátis. Instale o discador agora! > > > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm em pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > > -- Igor Sutton Lopes http://www.izut.com/ -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060711/5e4a4da7/attachment.html From monsieur_champs em yahoo.com.br Wed Jul 12 04:35:16 2006 From: monsieur_champs em yahoo.com.br (Luis Motta Campos) Date: Wed, 12 Jul 2006 12:35:16 +0100 Subject: [Cascavel-pm] OT: SkypeIn no Brasil In-Reply-To: <9a08c9b40607110951g7da2014cj60c33b2a41ad1442@mail.gmail.com> References: <9a08c9b40607110951g7da2014cj60c33b2a41ad1442@mail.gmail.com> Message-ID: <44B4DE74.3070804@yahoo.com.br> Nilson Santos Figueiredo Junior wrote: > Quem conhece e usa o Skype talvez já tenha ouvido falar do recurso > SkypeIn, que permite que você um número de telefone fixo que, quando > alguém ligar, ele é redirecionado pro seu Skype. [corta!] > Não, eu não ganho pra fazer propaganda do Skype. ;-) > > Mas é que eu o considero um serviço muito bom e odeio as práticas > abusivas das empresas telefônicas, com essas tarifas ridículas. E > achei bem legal descobrir que agora tem SkypeIn no Brasil e resolvi > compartilhar essa descoberta com os companheiros Perl Mongers. > > Me desculpem pela mensagem completamente OT. Nilson, eu tenho interesse nisto, mas tenho um problema muito sério com o Skype: ele funciona mal à beça no meu linux. Talvez você tenha outras sugestões sobre isso... Abraço! -- =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Luis Motta Campos is Software Engineer, Oracle OCP/DBA, Un*x Sysadmin, Member of {Lisbon,São Paulo,Cascavel,Brasil,London} Perl Mongers and Perl Fanatic Evangelist =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= From ptfzs em yahoo.com.br Wed Jul 12 05:38:59 2006 From: ptfzs em yahoo.com.br (Patty Silva) Date: Wed, 12 Jul 2006 09:38:59 -0300 (ART) Subject: [Cascavel-pm] OFF - MYSQL Message-ID: <20060712123859.31330.qmail@web31311.mail.mud.yahoo.com> Pessoal.. desculpe pela mensagem OFF.. Estou fazendo um select da seguinte forma: Select DataHora,count(*) from table1 where DataHora>="2006-07-12 08" and DataHora<="2006-07-12 12" ele me retorna: 2006-07-12 08:00:00 20 2006-07-12 08:10:00 21 2006-07-12 08:20:00 12 2006-07-12 09:00:00 90 2006-07-12 09:30:00 91 2006-07-12 10:00:00 10 2006-07-12 11:00:00 22 2006-07-12 12:00:00 23 Como eu faco para contar (SELECT) os ANO-MES-DIA HORA?? independente do MINUTO.. pois no caso acima teria que ser 2006-07-12 08 53 2006-07-12 09 181 2006-07-12 10 10 2006-07-12 11 22 2006-07-12 12 23 Obrigada Pessoal.. --------------------------------- Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho agora! -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060712/c3965379/attachment.html From mopsfelder em gmail.com Wed Jul 12 07:29:17 2006 From: mopsfelder em gmail.com (=?ISO-8859-1?Q?Murilo_Opsfelder_Ara=FAjo?=) Date: Wed, 12 Jul 2006 11:29:17 -0300 Subject: [Cascavel-pm] =?iso-8859-1?q?Como_tratar_os_par=E2metros_de_um_sc?= =?iso-8859-1?q?ript=3F?= Message-ID: Olá pessoal, tem como eu saber, por exemplo, se o $ARGV[0] passado é um número inteiro ou se foi digitado um texto? Que função eu utilizo pra tratar isso? []s -- Murilo Opsfelder Araújo Linux User #391561 ./murilo --opsfelder='araujo' From a.r.ferreira em gmail.com Wed Jul 12 07:34:55 2006 From: a.r.ferreira em gmail.com (Adriano Ferreira) Date: Wed, 12 Jul 2006 11:34:55 -0300 Subject: [Cascavel-pm] =?iso-8859-1?q?Como_tratar_os_par=E2metros_de_um_sc?= =?iso-8859-1?q?ript=3F?= In-Reply-To: References: Message-ID: <73ddeb6c0607120734h3547ce4dyd343d53ff8f5a290@mail.gmail.com> On 7/12/06, Murilo Opsfelder Araújo wrote: > Olá pessoal, > > tem como eu saber, por exemplo, se o $ARGV[0] passado é um número > inteiro ou se foi digitado um texto? Que função eu utilizo pra tratar > isso? die "Eu quero um número como parâmetro\n" unless $ARGV[0] =~ /^[+-]?\d+/; From thomas em tcnet.com.br Wed Jul 12 07:37:39 2006 From: thomas em tcnet.com.br (Thomas Britis) Date: Wed, 12 Jul 2006 11:37:39 -0300 Subject: [Cascavel-pm] =?iso-8859-1?q?Como_tratar_os_par=E2metros_de_um_sc?= =?iso-8859-1?q?ript=3F?= In-Reply-To: References: Message-ID: <44B50933.9070500@tcnet.com.br> if ($ARGV[0] =~ /^[0-9]+$/) { print "Eh numero inteiro\n"; } Murilo Opsfelder Araújo wrote: > Olá pessoal, > > tem como eu saber, por exemplo, se o $ARGV[0] passado é um número > inteiro ou se foi digitado um texto? Que função eu utilizo pra tratar > isso? > > []s > > -- Thomas Storino Britis TCNet Informatica e Telecomunicacoes LTDA From igor.sutton em gmail.com Wed Jul 12 07:38:16 2006 From: igor.sutton em gmail.com (Igor Sutton) Date: Wed, 12 Jul 2006 11:38:16 -0300 Subject: [Cascavel-pm] OFF - MYSQL In-Reply-To: <20060712123859.31330.qmail@web31311.mail.mud.yahoo.com> References: <20060712123859.31330.qmail@web31311.mail.mud.yahoo.com> Message-ID: <6c65a53f0607120738j547ac838x2367ba662637a804@mail.gmail.com> Patty, Deve existir alguma função que exporte a data no formato que você quer (poderia ser DATE_FORMAT?) Sim, é a função DATE_FORMAT. Experimente agrupar utilizando esta função. Exemplo: SELECT DATE_FORMAT(campo_data, "%Y-%m-%d %H") as data_formatada FROM tabela WHERE id = 1; Não sei se o exemplo funciona, mas veja mais informações em: http://dev.mysql.com/doc/refman/4.1/en/date-and-time-functions.html Igor. On 7/12/06, Patty Silva wrote: > > Pessoal.. desculpe pela mensagem OFF.. > Estou fazendo um select da seguinte forma: > > Select DataHora,count(*) from table1 where DataHora>="2006-07-12 08" and > DataHora<="2006-07-12 12" > > ele me retorna: > 2006-07-12 08:00:00 20 > 2006-07-12 08:10:00 21 > 2006-07-12 08:20:00 12 > 2006-07-12 09:00:00 90 > 2006-07-12 09:30:00 91 > 2006-07-12 10:00:00 10 > 2006-07-12 11:00:00 22 > 2006-07-12 12:00:00 23 > > Como eu faco para contar (SELECT) os ANO-MES-DIA HORA?? independente do > MINUTO.. > pois no caso acima teria que ser > > 2006-07-12 08 53 > 2006-07-12 09 181 > 2006-07-12 10 10 > 2006-07-12 11 22 > 2006-07-12 12 23 > > Obrigada Pessoal.. > > > > ------------------------------ > Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. > Registre seu aparelho agora! > > > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm em pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > > -- Igor Sutton Lopes http://www.izut.com/ -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060712/d432f8e1/attachment-0001.html From thomas em tcnet.com.br Wed Jul 12 07:41:18 2006 From: thomas em tcnet.com.br (Thomas Britis) Date: Wed, 12 Jul 2006 11:41:18 -0300 Subject: [Cascavel-pm] =?iso-8859-1?q?Como_tratar_os_par=E2metros_de_um_sc?= =?iso-8859-1?q?ript=3F?= In-Reply-To: <73ddeb6c0607120734h3547ce4dyd343d53ff8f5a290@mail.gmail.com> References: <73ddeb6c0607120734h3547ce4dyd343d53ff8f5a290@mail.gmail.com> Message-ID: <44B50A0E.4020707@tcnet.com.br> Isso não funciona se $ARGV[0] tiver caracteres diferentes depois de \d+, algo como: 123a (...) unless $ARGV[0] =~ /^[+-]?\d+$/; # Acho que resolve Adriano Ferreira wrote: > On 7/12/06, Murilo Opsfelder Araújo wrote: > >>Olá pessoal, >> >>tem como eu saber, por exemplo, se o $ARGV[0] passado é um número >>inteiro ou se foi digitado um texto? Que função eu utilizo pra tratar >>isso? > > > die "Eu quero um número como parâmetro\n" unless $ARGV[0] =~ /^[+-]?\d+/; > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm em pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > > -- Thomas Storino Britis TCNet Informatica e Telecomunicacoes LTDA From ptfzs em yahoo.com.br Wed Jul 12 07:46:53 2006 From: ptfzs em yahoo.com.br (Patty Silva) Date: Wed, 12 Jul 2006 11:46:53 -0300 (ART) Subject: [Cascavel-pm] OFF - MYSQL In-Reply-To: <6c65a53f0607120738j547ac838x2367ba662637a804@mail.gmail.com> Message-ID: <20060712144653.85712.qmail@web31303.mail.mud.yahoo.com> Igor.. Consegui.. ficou assim: Select DataHora,count(*) from table1 where DataHora>="2006-07-12 10" and DataHora<="2006-07-12 14" group by date_format(DataHora,"%Y-%m-%d %H") Obrigada Pessoal.. Igor Sutton escreveu: Patty, Deve existir alguma função que exporte a data no formato que você quer (poderia ser DATE_FORMAT?) Sim, é a função DATE_FORMAT. Experimente agrupar utilizando esta função. Exemplo: SELECT DATE_FORMAT(campo_data, "%Y-%m-%d %H") as data_formatada FROM tabela WHERE id = 1; Não sei se o exemplo funciona, mas veja mais informações em: http://dev.mysql.com/doc/refman/4.1/en/date-and-time-functions.html Igor. On 7/12/06, Patty Silva wrote: Pessoal.. desculpe pela mensagem OFF.. Estou fazendo um select da seguinte forma: Select DataHora,count(*) from table1 where DataHora>="2006-07-12 08" and DataHora<="2006-07-12 12" ele me retorna: 2006-07-12 08:00:00 20 2006-07-12 08:10:00 21 2006-07-12 08:20:00 12 2006-07-12 09:00:00 90 2006-07-12 09:30:00 91 2006-07-12 10:00:00 10 2006-07-12 11:00:00 22 2006-07-12 12:00:00 23 Como eu faco para contar (SELECT) os ANO-MES-DIA HORA?? independente do MINUTO.. pois no caso acima teria que ser 2006-07-12 08 53 2006-07-12 09 181 2006-07-12 10 10 2006-07-12 11 22 2006-07-12 12 23 Obrigada Pessoal.. --------------------------------- Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho agora! _______________________________________________ Cascavel-pm mailing list Cascavel-pm em pm.org http://mail.pm.org/mailman/listinfo/cascavel-pm -- Igor Sutton Lopes http://www.izut.com/ _______________________________________________ Cascavel-pm mailing list Cascavel-pm em pm.org http://mail.pm.org/mailman/listinfo/cascavel-pm --------------------------------- Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho agora! -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060712/7e2bb64d/attachment.html From glasswalk3r em yahoo.com.br Wed Jul 12 08:11:07 2006 From: glasswalk3r em yahoo.com.br (Alceu R. de Freitas Jr.) Date: Wed, 12 Jul 2006 12:11:07 -0300 (ART) Subject: [Cascavel-pm] =?iso-8859-1?q?Como_tratar_os_par=E2metros_de_um_sc?= =?iso-8859-1?q?ript=3F?= In-Reply-To: <44B50A0E.4020707@tcnet.com.br> Message-ID: <20060712151107.164.qmail@web30803.mail.mud.yahoo.com> Procurar algo no CPAN deve ser sempre a primeira coisa a fazer nesses casos... eu fiz uma pesquisa e achei isso em alguns segundos: http://search.cpan.org/~dconway/Getopt-Declare-1.11/lib/Getopt/Declare.pm Nunca usei, mas vindo do autor eu diria que é promissor. ;-) []'s Alceu --- Thomas Britis escreveu: > Isso não funciona se $ARGV[0] tiver caracteres > diferentes depois de \d+, > algo como: 123a > (...) unless $ARGV[0] =~ /^[+-]?\d+$/; # Acho que > resolve > > Adriano Ferreira wrote: > > On 7/12/06, Murilo Opsfelder Araújo > wrote: > > > >>Olá pessoal, > >> > >>tem como eu saber, por exemplo, se o $ARGV[0] > passado é um número > >>inteiro ou se foi digitado um texto? Que função eu > utilizo pra tratar > >>isso? > > > > > > die "Eu quero um número como parâmetro\n" unless > $ARGV[0] =~ /^[+-]?\d+/; > > _______________________________________________ > > Cascavel-pm mailing list > > Cascavel-pm em pm.org > > http://mail.pm.org/mailman/listinfo/cascavel-pm > > > > > > -- > Thomas Storino Britis > TCNet Informatica e Telecomunicacoes LTDA > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm em pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > _______________________________________________________ Abra sua conta no Yahoo! Mail: 1GB de espaço, alertas de e-mail no celular e anti-spam realmente eficaz. http://mail.yahoo.com.br/ From acid06 em gmail.com Wed Jul 12 08:11:41 2006 From: acid06 em gmail.com (Nilson Santos Figueiredo Junior) Date: Wed, 12 Jul 2006 12:11:41 -0300 Subject: [Cascavel-pm] OT: SkypeIn no Brasil In-Reply-To: <44B4DE74.3070804@yahoo.com.br> References: <9a08c9b40607110951g7da2014cj60c33b2a41ad1442@mail.gmail.com> <44B4DE74.3070804@yahoo.com.br> Message-ID: <9a08c9b40607120811m55cddeb8v8f6e5b78877ca5c8@mail.gmail.com> On 7/12/06, Luis Motta Campos wrote: > Nilson, eu tenho interesse nisto, mas tenho um problema muito sério > com o Skype: ele funciona mal à beça no meu linux. Tem uma versão nova do Skype para Linux, a 1.3, que teoricamente foi bastante melhorada em relação à anterior. Todos os problemas chatos que existiam antes como ter que reiniciar o Skype depois de cada ligação e não ter suporte à ALSA foram solucionados. Tente dar uma experimentada e ver se melhorou... a 1.3 ainda está como versão beta, mas logo logo deve virar stable. E os desenvolvedores monitoram os foruns lá do Skype para bug reports, então se você encontrar algum problema é só reportar por lá. Mas eu nunca usei o Skype no Linux, só sei desses problemas por relatos de usuários, etc. -Nilson Santos F. Jr. From ptfzs em yahoo.com.br Wed Jul 12 11:45:52 2006 From: ptfzs em yahoo.com.br (Patty Silva) Date: Wed, 12 Jul 2006 15:45:52 -0300 (ART) Subject: [Cascavel-pm] Banco mysql Message-ID: <20060712184552.16881.qmail@web31305.mail.mud.yahoo.com> Pessoal.. fiz um Select no banco.. porem gostaria de saber qts registros me retornaram antes de imprimir os dados.. tem como?? (sem ser com o select count) obrigada: obs: estsou fazendo assim: $sql="Select Nome,End,Tel from registros where data>"2006-07-12 00" and data<"2006-07-12 12" "; $sth2 = $dbh->prepare($sql) || die $DBI::errstr; $sth2->execute || die $DBI::errstr; //Eu sei se eu fizer $cont=@array (dentro do while) ele ira me retornar.. //porem eu quero que antes de fazer o while eu tenha a contagem... // while ( @array = $sth2->fetchrow_array() ) { } Obrigada --------------------------------- Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho agora! -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060712/045dd5b6/attachment.html From nascimenthiago em gmail.com Wed Jul 12 11:49:33 2006 From: nascimenthiago em gmail.com (tnas) Date: Wed, 12 Jul 2006 15:49:33 -0300 Subject: [Cascavel-pm] Banco mysql In-Reply-To: <20060712184552.16881.qmail@web31305.mail.mud.yahoo.com> References: <20060712184552.16881.qmail@web31305.mail.mud.yahoo.com> Message-ID: <44B5443D.2070100@gmail.com> Patty Silva escreveu: > Pessoal.. fiz um Select no banco.. porem gostaria de saber qts > registros me retornaram antes de imprimir os dados.. tem como?? (sem > ser com o select count) > > obrigada: > > obs: > estsou fazendo assim: > $sql="Select Nome,End,Tel from registros where data>"2006-07-12 00" > and data<"2006-07-12 12" "; > $sth2 = $dbh->prepare($sql) || die $DBI::errstr; > $sth2->execute || die $DBI::errstr; > > //Eu sei se eu fizer $cont=@array (dentro do while) ele ira me retornar.. > //porem eu quero que antes de fazer o while eu tenha a contagem... > // > > > while ( @array = $sth2->fetchrow_array() ) > { > > } > > > > > Obrigada > > ------------------------------------------------------------------------ > Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu > celular. Registre seu aparelho agora! > > > ------------------------------------------------------------------------ > > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm at pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm my $quant_registros = $sth2->rows; From a.r.ferreira em gmail.com Wed Jul 12 11:57:57 2006 From: a.r.ferreira em gmail.com (Adriano Ferreira) Date: Wed, 12 Jul 2006 15:57:57 -0300 Subject: [Cascavel-pm] Banco mysql In-Reply-To: <44B5443D.2070100@gmail.com> References: <20060712184552.16881.qmail@web31305.mail.mud.yahoo.com> <44B5443D.2070100@gmail.com> Message-ID: <73ddeb6c0607121157l6a963551t6be21e6f1aeb6c9@mail.gmail.com> On 7/12/06, tnas wrote: > my $quant_registros = $sth2->rows; A maioria dos drivers DBD não vai responder com o número de registros a serem retornados pela consulta. Este método é mais usado para INSERTs e UPDATEs para saber o número de linhas afetadas (e neste caso a maioria dos drivers lhe dá um retorno útil). Não há em geral nenhum método genérico que funcione melhor do que "SELECT COUNT(*)". From ptfzs em yahoo.com.br Wed Jul 12 12:06:52 2006 From: ptfzs em yahoo.com.br (Patty Silva) Date: Wed, 12 Jul 2006 16:06:52 -0300 (ART) Subject: [Cascavel-pm] Banco mysql In-Reply-To: <73ddeb6c0607121157l6a963551t6be21e6f1aeb6c9@mail.gmail.com> Message-ID: <20060712190652.4731.qmail@web31304.mail.mud.yahoo.com> Oks.. Fiz um Select DataHora,count(DataHora) from table1 where DataHora>="2006-07-12 13" and pcdmet.DataHora<="2006-07-12 17" group by date_format(DataHora,"%Y-%m-%d %H") Funcionou.. porem como no meu banco possui 2006-07-12 13:00:00 2----------------------->esse 2006-07-12 13:20:00 3 2006-07-12 13:21:00 1 2006-07-12 13:25:00 10 2006-07-12 13:26:00 1 2006-07-12 13:30:00 1 2006-07-12 13:40:00 1 2006-07-12 14:00:00 11------------------------>esse 2006-07-12 14:11:00 1 2006-07-12 14:21:00 1 . . . Resultado: 2006-07-12 13:00:00 18 2006-07-12 14:00:00 13 . . Eu quero contar somente as horas Cheias.. nao consegui.. tentei colocar date_format(DataHora,"%Y-%m-%d %H:00:00") tb nao funcionou.. Alguem tem alguma solucao?? Obrigada Pessoal Adriano Ferreira escreveu: On 7/12/06, tnas wrote: > my $quant_registros = $sth2->rows; A maioria dos drivers DBD não vai responder com o número de registros a serem retornados pela consulta. Este método é mais usado para INSERTs e UPDATEs para saber o número de linhas afetadas (e neste caso a maioria dos drivers lhe dá um retorno útil). Não há em geral nenhum método genérico que funcione melhor do que "SELECT COUNT(*)". _______________________________________________ Cascavel-pm mailing list Cascavel-pm em pm.org http://mail.pm.org/mailman/listinfo/cascavel-pm --------------------------------- Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho agora! -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060712/5c12a843/attachment.html From a.r.ferreira em gmail.com Wed Jul 12 12:14:49 2006 From: a.r.ferreira em gmail.com (Adriano Ferreira) Date: Wed, 12 Jul 2006 16:14:49 -0300 Subject: [Cascavel-pm] Banco mysql In-Reply-To: <20060712190652.4731.qmail@web31304.mail.mud.yahoo.com> References: <73ddeb6c0607121157l6a963551t6be21e6f1aeb6c9@mail.gmail.com> <20060712190652.4731.qmail@web31304.mail.mud.yahoo.com> Message-ID: <73ddeb6c0607121214qebd5054k88a430630d34042f@mail.gmail.com> On 7/12/06, Patty Silva wrote: > Eu quero contar somente as horas Cheias.. nao consegui.. > tentei colocar > date_format(DataHora,"%Y-%m-%d %H:00:00") tb nao funcionou.. Tente algo parecido com Select date_format(DataHora,"%Y-%m-%d %H"), count(DataHora) from table1 where DataHora>="2006-07-12 13" and pcdmet.DataHora<="2006-07-12 17" group by date_format(DataHora,"%Y-%m-%d %H") From ptfzs em yahoo.com.br Wed Jul 12 12:18:35 2006 From: ptfzs em yahoo.com.br (Patty Silva) Date: Wed, 12 Jul 2006 16:18:35 -0300 (ART) Subject: [Cascavel-pm] Banco mysql In-Reply-To: <73ddeb6c0607121214qebd5054k88a430630d34042f@mail.gmail.com> Message-ID: <20060712191835.96953.qmail@web31307.mail.mud.yahoo.com> Nada :) Deu no msm -- Estou pensando uma solucao...e se encontrar posto.. Obrigada Adriano Ferreira escreveu: On 7/12/06, Patty Silva wrote: > Eu quero contar somente as horas Cheias.. nao consegui.. > tentei colocar > date_format(DataHora,"%Y-%m-%d %H:00:00") tb nao funcionou.. Tente algo parecido com Select date_format(DataHora,"%Y-%m-%d %H"), count(DataHora) from table1 where DataHora>="2006-07-12 13" and pcdmet.DataHora<="2006-07-12 17" group by date_format(DataHora,"%Y-%m-%d %H") _______________________________________________ Cascavel-pm mailing list Cascavel-pm em pm.org http://mail.pm.org/mailman/listinfo/cascavel-pm --------------------------------- Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho agora! -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060712/13e8de63/attachment.html From gsmachado em gmail.com Wed Jul 12 13:17:53 2006 From: gsmachado em gmail.com (Guilherme Sperb Machado) Date: Wed, 12 Jul 2006 17:17:53 -0300 Subject: [Cascavel-pm] OT: SkypeIn no Brasil In-Reply-To: <9a08c9b40607120811m55cddeb8v8f6e5b78877ca5c8@mail.gmail.com> References: <9a08c9b40607110951g7da2014cj60c33b2a41ad1442@mail.gmail.com> <44B4DE74.3070804@yahoo.com.br> <9a08c9b40607120811m55cddeb8v8f6e5b78877ca5c8@mail.gmail.com> Message-ID: <90cbfd80607121317t16efb451yed5172fca7cb774f@mail.gmail.com> Olá... Seguinte, eu uso o Skype no Linux (um gentoo) e ele funciona muito bem sim... É a versão 1.3, porém, sem comparação com as anteriores que nem rodavam com o meu som... hehe. Vale apena tentar... Abraço :) On 7/12/06, Nilson Santos Figueiredo Junior wrote: > On 7/12/06, Luis Motta Campos wrote: > > Nilson, eu tenho interesse nisto, mas tenho um problema muito sério > > com o Skype: ele funciona mal à beça no meu linux. > > Tem uma versão nova do Skype para Linux, a 1.3, que teoricamente foi > bastante melhorada em relação à anterior. Todos os problemas chatos > que existiam antes como ter que reiniciar o Skype depois de cada > ligação e não ter suporte à ALSA foram solucionados. > > Tente dar uma experimentada e ver se melhorou... a 1.3 ainda está como > versão beta, mas logo logo deve virar stable. E os desenvolvedores > monitoram os foruns lá do Skype para bug reports, então se você > encontrar algum problema é só reportar por lá. > > Mas eu nunca usei o Skype no Linux, só sei desses problemas por > relatos de usuários, etc. > > -Nilson Santos F. Jr. > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm em pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > From frederico em gmail.com Wed Jul 12 18:24:00 2006 From: frederico em gmail.com (Frederico Recsky) Date: Wed, 12 Jul 2006 22:24:00 -0300 Subject: [Cascavel-pm] OT: SkypeIn no Brasil In-Reply-To: <90cbfd80607121317t16efb451yed5172fca7cb774f@mail.gmail.com> References: <9a08c9b40607110951g7da2014cj60c33b2a41ad1442@mail.gmail.com> <44B4DE74.3070804@yahoo.com.br> <9a08c9b40607120811m55cddeb8v8f6e5b78877ca5c8@mail.gmail.com> <90cbfd80607121317t16efb451yed5172fca7cb774f@mail.gmail.com> Message-ID: <88fe68ee0607121824h4a464233t8ed87829f4a656bb@mail.gmail.com> Eu tenho skypein, se alguem quiser testar pega o numero comigo em pvt e liga. Eu acho a qualidade aceitavel, versao 1.3 :) bom pra falar com a famila ja que eu to longe. Fala bastante e barato. On 7/12/06, Guilherme Sperb Machado wrote: > Olá... > > Seguinte, eu uso o Skype no Linux (um gentoo) e ele funciona muito bem sim... > É a versão 1.3, porém, sem comparação com as anteriores que nem > rodavam com o meu som... hehe. > > Vale apena tentar... > > Abraço :) > > On 7/12/06, Nilson Santos Figueiredo Junior wrote: > > On 7/12/06, Luis Motta Campos wrote: > > > Nilson, eu tenho interesse nisto, mas tenho um problema muito sério > > > com o Skype: ele funciona mal à beça no meu linux. > > > > Tem uma versão nova do Skype para Linux, a 1.3, que teoricamente foi > > bastante melhorada em relação à anterior. Todos os problemas chatos > > que existiam antes como ter que reiniciar o Skype depois de cada > > ligação e não ter suporte à ALSA foram solucionados. > > > > Tente dar uma experimentada e ver se melhorou... a 1.3 ainda está como > > versão beta, mas logo logo deve virar stable. E os desenvolvedores > > monitoram os foruns lá do Skype para bug reports, então se você > > encontrar algum problema é só reportar por lá. > > > > Mas eu nunca usei o Skype no Linux, só sei desses problemas por > > relatos de usuários, etc. > > > > -Nilson Santos F. Jr. > > _______________________________________________ > > Cascavel-pm mailing list > > Cascavel-pm em pm.org > > http://mail.pm.org/mailman/listinfo/cascavel-pm > > > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm em pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > -- ____________________________ Frederico Recsky Linux User: 253572 http://www.gulivap.org http://sao-paulo.pm.org/ From andre.garcia.carneir em terra.com.br Thu Jul 13 05:21:01 2006 From: andre.garcia.carneir em terra.com.br (=?iso-8859-1?b?QW5kcukgR2FyY2lhIENhcm5laXJv?=) Date: Thu, 13 Jul 2006 09:21:01 -0300 Subject: [Cascavel-pm] Banco mysql Message-ID: Tente isso, depois do 'execute': my $num_rows = $sth2->rows;//$sth2 pq é o q está no seu código :) Sugiro também que você leia o manual do DBI. Ele está disponível na sua máquina mesmo(Se estiver usando Linux, no Windows não sei), é só digitar man DBI ou perldoc DBI. Ou se não estiver instalado procure em www.cpan.org Cheers ---------- Cabeçalho original ----------- De: cascavel-pm-bounces+andre.garcia.carneir=terra.com.br em pm.org Para: "Cascavel Perl Mongers" cascavel-pm em pm.org Cópia: Data: Wed, 12 Jul 2006 15:45:52 -0300 (ART) Assunto: [Cascavel-pm] Banco mysql > Pessoal.. fiz um Select no banco.. porem gostaria de saber qts registros me retornaram antes de imprimir os dados.. tem como?? (sem ser com o select count) > > obrigada: > > obs: > estsou fazendo assim: > $sql="Select Nome,End,Tel from registros where data>"2006-07-12 00" and data<"2006-07-12 12" "; > $sth2 = $dbh->prepare($sql) || die $DBI::errstr; > $sth2->execute || die $DBI::errstr; > > //Eu sei se eu fizer $cont=@array (dentro do while) ele ira me retornar.. > //porem eu quero que antes de fazer o while eu tenha a contagem... > // > > > while ( @array = $sth2->fetchrow_array() ) > { > > } > > > > > Obrigada > > > --------------------------------- > Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho agora! > E-mail classificado pelo Identificador de Spam Inteligente Terra. > Para alterar a categoria classificada, visite > http://mail.terra.com.br/protected_email/imail/imail.cgi?+_u=andre.garcia.carneir&_l=1,1152729979.63070.2948.curepipe.hst.terra.com.br,5340,Des15,Des15 > > Esta mensagem foi verificada pelo E-mail Protegido Terra. > Scan engine: McAfee VirusScan / Atualizado em 12/07/2006 / Versão: 4.4.00/4805 > Proteja o seu e-mail Terra: http://mail.terra.com.br/ > -- André Garcia Carneiro Developer(Perl) Member of "São Paulo Perl Mongers" - http://sao-paulo.pm.org From ptfzs em yahoo.com.br Thu Jul 13 06:23:35 2006 From: ptfzs em yahoo.com.br (Patty Silva) Date: Thu, 13 Jul 2006 10:23:35 -0300 (ART) Subject: [Cascavel-pm] Acionar Script pelo Mysql Message-ID: <20060713132335.39819.qmail@web31304.mail.mud.yahoo.com> Pessoal.. tem como o MYSQL ao receber um dado acionar um script em perl?? Obrigada --------------------------------- Yahoo! Search Música para ver e ouvir: You're Beautiful, do James Blunt -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060713/d158a5fe/attachment.html From igor.sutton em gmail.com Thu Jul 13 06:28:51 2006 From: igor.sutton em gmail.com (Igor Sutton) Date: Thu, 13 Jul 2006 10:28:51 -0300 Subject: [Cascavel-pm] Acionar Script pelo Mysql In-Reply-To: <20060713132335.39819.qmail@web31304.mail.mud.yahoo.com> References: <20060713132335.39819.qmail@web31304.mail.mud.yahoo.com> Message-ID: <6c65a53f0607130628t27b03bas60a1277d8a125316@mail.gmail.com> Pode ser que eu esteja enganado, mas ateh a ultima vez que eu utilizei MySQL ele nao aceitava triggers... Pode ser que nas versoes mais atuais suporte, mas nao sei se ele conseguirah executar um programa do sistema operacional (a menos que exista uma extensao para isto). Procure por TRIGGER no site da MySQL. On 7/13/06, Patty Silva wrote: > > Pessoal.. tem como o MYSQL ao receber um dado acionar um script em perl?? > > > Obrigada > > ------------------------------ > Yahoo! Search > Música para ver e ouvir: You're Beautiful, do James Blunt > > > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm em pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > > -- Igor Sutton Lopes -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060713/1ce3d613/attachment-0001.html From ptfzs em yahoo.com.br Thu Jul 13 06:32:33 2006 From: ptfzs em yahoo.com.br (Patty Silva) Date: Thu, 13 Jul 2006 10:32:33 -0300 (ART) Subject: [Cascavel-pm] Concatenar arquivos Message-ID: <20060713133233.73266.qmail@web31306.mail.mud.yahoo.com> Ola Pessoal.. Eu again! :) Fiz um script para concatenar arquivo de um diretorio: --------------------------------------------------------------------------------------------- my $caminho= "$ENV{HOME}/teste"; chdir ($caminho) || die "\n *** Erro no diretorio $caminho ***"; while ($arquivo = <*.txt>) { $InFile= $caminho.$arquivo; push(@arquivos,$arquivo); } system(`cat @arquivos>>$data_out.tmp`); unlink(@arquivos); --------------------------------------------------------------------------------------------- Porem quero concatenar arquivos com a msm data ou seja, os nomes dos arquivos sao ANOMESDIAHORA_tipo.txt Quero concatenar arquivos com ANOMESDIAHORA iguais.. e gerar somente um ANOMESDIA.txt Se alguem puder me dar uma lUz :) Obrigada --------------------------------- Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho agora! -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060713/3f40aa5e/attachment.html From ptfzs em yahoo.com.br Thu Jul 13 06:33:29 2006 From: ptfzs em yahoo.com.br (Patty Silva) Date: Thu, 13 Jul 2006 10:33:29 -0300 (ART) Subject: [Cascavel-pm] Acionar Script pelo Mysql In-Reply-To: <6c65a53f0607130628t27b03bas60a1277d8a125316@mail.gmail.com> Message-ID: <20060713133329.73545.qmail@web31306.mail.mud.yahoo.com> Entao.. a nova versao do Mysql aceita!! :) Sera que usando TRIGGER eu consigo acionar?? Obrigada Igor Sutton escreveu: Pode ser que eu esteja enganado, mas ateh a ultima vez que eu utilizei MySQL ele nao aceitava triggers... Pode ser que nas versoes mais atuais suporte, mas nao sei se ele conseguirah executar um programa do sistema operacional (a menos que exista uma extensao para isto). Procure por TRIGGER no site da MySQL. On 7/13/06, Patty Silva wrote: Pessoal.. tem como o MYSQL ao receber um dado acionar um script em perl?? --------------------------------- Você quer respostas para suas perguntas? Ou você sabe muito e quer compartilhar seu conhecimento? Experimente o Yahoo! Respostas! -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060713/ef892cd0/attachment.html From acid06 em gmail.com Thu Jul 13 08:05:59 2006 From: acid06 em gmail.com (Nilson Santos Figueiredo Junior) Date: Thu, 13 Jul 2006 12:05:59 -0300 Subject: [Cascavel-pm] Acionar Script pelo Mysql In-Reply-To: <20060713133329.73545.qmail@web31306.mail.mud.yahoo.com> References: <6c65a53f0607130628t27b03bas60a1277d8a125316@mail.gmail.com> <20060713133329.73545.qmail@web31306.mail.mud.yahoo.com> Message-ID: <9a08c9b40607130805x47f781fh8b397577109f4201@mail.gmail.com> On 7/13/06, Patty Silva wrote: > Entao.. a nova versao do Mysql aceita!! :) > > Sera que usando TRIGGER eu consigo acionar?? Trigger não tem nada a ver com código Perl. Triggers servem pra executar algum código SQL (uma stored procedure, etc) no banco de dados. Possivelmente, com o PostgreSQL, utilizando PL/Perl, seja possível algo da forma como você imagina. Mas com o MySQL não. Só se existir algum comando (que eu não conheço) que faça executar um equivalente a um system() do Perl, aí você poderia chamar seu script externo. -Nilson Santos F. Jr. From lgbassani em terra.com.br Thu Jul 13 11:12:20 2006 From: lgbassani em terra.com.br (Luciano Giordani Bassani) Date: Thu, 13 Jul 2006 15:12:20 -0300 Subject: [Cascavel-pm] Acionar Script pelo Mysql In-Reply-To: <20060713132335.39819.qmail@web31304.mail.mud.yahoo.com> References: <20060713132335.39819.qmail@web31304.mail.mud.yahoo.com> Message-ID: <44B68D04.9010205@terra.com.br> É por estas e outras que eu desisti do MySQL... Ainda lembro com se fosse hoje (a uns 6 anos atrás), procurando no manual, atrás da sintaxe das Triggers... "Nós não iremos suportar triggers, pq achamos desnecessário. Vamos apenas suportar Store Procedures". Muita coisa mudou nestes anos, e parece que na versão 5 já tem isso, mas não sei. Só sei que neste tempo todo estou usando PostgreSQL, com Store Procedure e Triggers. Ainda uso mysql em alguns projetos legados. Em relação a tua dúvida, com o PostgreSQL é possível vc criar uma trigger ou store procedure usando linguagem Perl (só não sei se dá para chamar um programa externo desta forma, mas com certeza tu pode "colar" o código no banco de dados). Se tu pensa em construir aplicações com banco de dados complexas e está iniciando teu projeto, pense seriamente em trocar o mysql pelo PostgreSQL. Na minha opinião, o mysql é bom apenas para projetos simples, sendo que ele tem algumas vantagens, mas na medida que a tua aplicação for crescendo em termos de complexidade, teu arrependimento vai crescendo em igual proporção... :-) SDS, Luciano Patty Silva escreveu: > Pessoal.. tem como o MYSQL ao receber um dado acionar um script em perl?? > > > Obrigada > > ------------------------------------------------------------------------ > Yahoo! Search > Música para ver e ouvir: You're Beautiful, do James Blunt > > > ------------------------------------------------------------------------ > > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm em pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060713/d1f03499/attachment.html From acid06 em gmail.com Thu Jul 13 11:33:31 2006 From: acid06 em gmail.com (Nilson Santos Figueiredo Junior) Date: Thu, 13 Jul 2006 15:33:31 -0300 Subject: [Cascavel-pm] Acionar Script pelo Mysql In-Reply-To: <44B68D04.9010205@terra.com.br> References: <20060713132335.39819.qmail@web31304.mail.mud.yahoo.com> <44B68D04.9010205@terra.com.br> Message-ID: <9a08c9b40607131133w4cfceb8ak1b7fe440a8b74589@mail.gmail.com> On 7/13/06, Luciano Giordani Bassani wrote: > Na minha opinião, o mysql é bom apenas para projetos simples, sendo que ele > tem algumas vantagens, mas na medida que a tua aplicação for crescendo em > termos de complexidade, teu arrependimento vai crescendo em igual > proporção... :-) O MySQL 5 tem todos os recursos relevantes que faltavam IMO (Triggers, Views e Stored Procedures). E ainda existe o fato de que o MySQL é uma ordem de magnitude mais rápido que o PostgreSQL e é *bem* mais simples de se configurar. Mas se você realmente *precisa* de um banco de dados com todos os recursos possíveis então o Postgres é uma boa. Só que a maioria das pessoas não precisa. -Nilson Santos F. Jr. From daniel em ruoso.com Thu Jul 13 12:05:53 2006 From: daniel em ruoso.com (Daniel Ruoso) Date: Thu, 13 Jul 2006 16:05:53 -0300 Subject: [Cascavel-pm] Acionar Script pelo Mysql In-Reply-To: <9a08c9b40607131133w4cfceb8ak1b7fe440a8b74589@mail.gmail.com> References: <20060713132335.39819.qmail@web31304.mail.mud.yahoo.com> <44B68D04.9010205@terra.com.br> <9a08c9b40607131133w4cfceb8ak1b7fe440a8b74589@mail.gmail.com> Message-ID: <1152817553.9887.2.camel@cajazeiras.matriz.oktiva.com.br> Em Qui, 2006-07-13 às 15:33 -0300, Nilson Santos Figueiredo Junior escreveu: > On 7/13/06, Luciano Giordani Bassani wrote: > > Na minha opinião, o mysql é bom apenas para projetos simples, sendo que ele > > tem algumas vantagens, mas na medida que a tua aplicação for crescendo em > > termos de complexidade, teu arrependimento vai crescendo em igual > > proporção... :-) > O MySQL 5 tem todos os recursos relevantes que faltavam IMO (Triggers, > Views e Stored Procedures). Hmm... Eu posso escrever stored procedures em Perl? :) No PostgreSql eu posso :)... Mas falando sério, eu sempre dou preferência ao Mysql, exceto quando eu realmente preciso de uma feature que não tenha nele... Passei a usar PostgreSql na época que o Mysql ainda não tinha subselects... daniel From ricardoportilho em terra.com.br Thu Jul 13 15:43:17 2006 From: ricardoportilho em terra.com.br (Ricardo Portilho Proni) Date: Thu, 13 Jul 2006 19:43:17 -0300 Subject: [Cascavel-pm] Acionar Script pelo Mysql In-Reply-To: <1152817553.9887.2.camel@cajazeiras.matriz.oktiva.com.br> References: <20060713132335.39819.qmail@web31304.mail.mud.yahoo.com> <44B68D04.9010205@terra.com.br> <9a08c9b40607131133w4cfceb8ak1b7fe440a8b74589@mail.gmail.com> <1152817553.9887.2.camel@cajazeiras.matriz.oktiva.com.br> Message-ID: <44B6CC85.5030401@terra.com.br> Sua esperança no MySQL são as User Defined Function, mas se não me engano precisam ser em C (talvez de dentro do progrma C vc posso chamar o script... sei lá.). Está pedindo muito pro MySQL... Daniel Ruoso escreveu: > Em Qui, 2006-07-13 às 15:33 -0300, Nilson Santos Figueiredo Junior > escreveu: >> On 7/13/06, Luciano Giordani Bassani wrote: >>> Na minha opinião, o mysql é bom apenas para projetos simples, sendo que ele >>> tem algumas vantagens, mas na medida que a tua aplicação for crescendo em >>> termos de complexidade, teu arrependimento vai crescendo em igual >>> proporção... :-) >> O MySQL 5 tem todos os recursos relevantes que faltavam IMO (Triggers, >> Views e Stored Procedures). > > Hmm... Eu posso escrever stored procedures em Perl? :) No PostgreSql eu > posso :)... Mas falando sério, eu sempre dou preferência ao Mysql, > exceto quando eu realmente preciso de uma feature que não tenha nele... > Passei a usar PostgreSql na época que o Mysql ainda não tinha > subselects... > > daniel > > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm em pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > > > -- Ricardo Portilho Proni Oracle Database 10g Administrator Certified Associate Microsoft Certified Professional Nerv Informática Ltda. http://www.slackel.com From daniel em ruoso.com Thu Jul 13 15:56:48 2006 From: daniel em ruoso.com (Daniel Ruoso) Date: Thu, 13 Jul 2006 19:56:48 -0300 Subject: [Cascavel-pm] Acionar Script pelo Mysql In-Reply-To: <44B6CC85.5030401@terra.com.br> References: <20060713132335.39819.qmail@web31304.mail.mud.yahoo.com> <44B68D04.9010205@terra.com.br> <9a08c9b40607131133w4cfceb8ak1b7fe440a8b74589@mail.gmail.com> <1152817553.9887.2.camel@cajazeiras.matriz.oktiva.com.br> <44B6CC85.5030401@terra.com.br> Message-ID: <1152831408.9887.7.camel@cajazeiras.matriz.oktiva.com.br> Em Qui, 2006-07-13 às 19:43 -0300, Ricardo Portilho Proni escreveu: > Sua esperança no MySQL são as User Defined Function, mas se não me > engano precisam ser em C (talvez de dentro do progrma C vc posso chamar > o script... sei lá.). > Está pedindo muito pro MySQL... Hmmm... Se ele carrega biblioteca C, pode carregar a libperl, logo pode carregar um modulo Perl, logo pode executar um codigo perl... :)... acho que não seria tão impossível... daniel From shonorio em gmail.com Fri Jul 14 04:34:17 2006 From: shonorio em gmail.com (Solli Honorio) Date: Fri, 14 Jul 2006 08:34:17 -0300 Subject: [Cascavel-pm] =?iso-8859-1?q?Convite_para_o_=27Encontro_T=E9cnico?= =?iso-8859-1?q?_de_Perl_do_S=E3o_Paulo_Perl_Mongers=22?= Message-ID: <12d1f4ee0607140434i7050a56ft9c314e7ef18305e8@mail.gmail.com> O São Paulo Perl Mongers o convida para o evento 'Encontro Técnico de Perl' que será realizado às 9h 30m do dia 22/07/2006 na Faculdade Impacta Tecnologia (FIT), na sala 20 do endereço Rua Arabé, 71 - Vl. Clementino ( http://www.impacta.edu.br/imagens/mapa_faculdade.gif) próximo ao metro Sta. Cruz. Está programada duas palestras, sendo : - "Desenvolvimento gráfico com o Perl GTK" - "Otimize baseado em fatos - Módulos do Perl que auxiliam e mostram o que otimizar" - Apresentar módulos do Perl para fazer benchmark de código, descobrir qual parte do código está consumindo mais recursos, mensurar quantidade de memória consumida pelas variáveis e caching. A FIT disponibilizou uma excelente, e confortável, infra-estrutura para o evento que é aberto ao público em geral e extensível a todos os interessado. Fique a vontade de extender este convites aos amigos(as) e/ou divulgar nos meios que você tenha acesso. Conto com sua presença, Solli M. Honório -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060714/a376dd3a/attachment.html From joenio em gmail.com Fri Jul 14 05:12:23 2006 From: joenio em gmail.com (Joenio Marques) Date: Fri, 14 Jul 2006 09:12:23 -0300 Subject: [Cascavel-pm] Search Engine via Google Message-ID: <65934b450607140512m552bb6f8ydda527041b510747@mail.gmail.com> Olá Monges, Esses dias procurando plugins pro vim em http://www.vim.org/search.php me deu ideia de criar uma busca parecida pra essa lista utilizando o google engine. espero que seja útil: http://salvador.pm.org/ Att, -- Joenio Marques - Salvador Perl Mongers From shonorio em gmail.com Fri Jul 14 07:22:00 2006 From: shonorio em gmail.com (Solli Honorio) Date: Fri, 14 Jul 2006 11:22:00 -0300 Subject: [Cascavel-pm] [OT] DVDs FISL 7.0 a venda ?! In-Reply-To: <20060628121335.63262.qmail@web30812.mail.mud.yahoo.com> References: <65934b450606280455y4618557k536eaca644491893@mail.gmail.com> <20060628121335.63262.qmail@web30812.mail.mud.yahoo.com> Message-ID: <12d1f4ee0607140722w74b8a870lc9a37ba96ccb53e5@mail.gmail.com> > > > > Os palestrantes foram convidados a assinar um termo > > cedendo os > > direitos a organizacao do evento... > > Que mal lhe pergunte... vocês cederam os direitos das > palestras em troca de quê mesmo? Se as edições dos > vídeos estivessem disponíveis para download gratuito > (nem que seja via bit torrent) eu até entenderia; caso > contrário, IMHO eu acho que ou vocês ou o SPB devessem > receber algum apoio (se é que isso á não é feito). Bem, estou meio atrasado neste assunto mais acredito que ainda existe conversa. Eles não deram nada, assim como o CONISLI não oferecá nenhuma grana. A assinatura do termo é obrigatório para você realizar a palestra. Como palestrante (e profissional) é interessante participar deste eventos devido a visibilidade e ao acesso a outros palestrantes, no meu caso por exemplo recebo email até hoje com pedidos de mais informações sobre o assunto (pena que não consegui reverter isto em money, principalmente agora que estou desempregado :( ). A impressão que os palestrante teve, era que todo o material estaria disponível para download em algum momento, e acredito que o DVD seja a comodidade de evitar de fazer o download de 25 GB (afinal isto é muita banda para a grande maioria das pessoas). Mas se isto não acontecer, pessoalmente vou repensar em postar nova palestra no próximo evento. Abraços, Solli M. Honório -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060714/ba7b1284/attachment.html From shonorio em gmail.com Fri Jul 14 07:38:55 2006 From: shonorio em gmail.com (Solli Honorio) Date: Fri, 14 Jul 2006 11:38:55 -0300 Subject: [Cascavel-pm] Chamado de trabalho para o CONISLI/YAPC::SA Message-ID: <12d1f4ee0607140738g351d7e86q87042690e0880f1f@mail.gmail.com> Pessoal, O CONISLI (www.conisli.org) e o YAPC::SA, que será realizado de 7 a 11 de novembro, está recebendo as proposta de palestra, todo estão sabendo disto ? Alguém do grupo tem algum interesse em participar como palestrante do CONISLI, ou do YAPC::SA ? Se alguém tiver interesse, mas for muito tímido, pode utilizar os encontros técnicos (que se for bem recebido será mensal) para ir treinando. Vamos lá pessoal, vocês não querem mostrar que Perl é uma linguagem legal ? Ou vão deixar todos os espaços para a comunidade Phython ? Abraços, Solli M. Honório Ps.: Larry Wall está confirmado (isto, aquele cara que começou tudo isto...), além do Randall. -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060714/c5119322/attachment.html From a.r.ferreira em gmail.com Fri Jul 14 08:00:14 2006 From: a.r.ferreira em gmail.com (Adriano Ferreira) Date: Fri, 14 Jul 2006 12:00:14 -0300 Subject: [Cascavel-pm] Chamado de trabalho para o CONISLI/YAPC::SA In-Reply-To: <12d1f4ee0607140738g351d7e86q87042690e0880f1f@mail.gmail.com> References: <12d1f4ee0607140738g351d7e86q87042690e0880f1f@mail.gmail.com> Message-ID: <73ddeb6c0607140800g43565c47tb6c11de1cbabe3a2@mail.gmail.com> On 7/14/06, Solli Honorio wrote: > Ps.: Larry Wall está confirmado (isto, aquele cara que começou tudo > isto...), além do Randall. O Flávio Glock disse também que Audrey Tang (pugs e mil e um módulos Perl 5) e David Fetter (Postgresql/Perl) também estão confirmados. From monsieur_champs em yahoo.com.br Fri Jul 14 08:18:52 2006 From: monsieur_champs em yahoo.com.br (Luis Motta Campos) Date: Fri, 14 Jul 2006 16:18:52 +0100 Subject: [Cascavel-pm] Acionar Script pelo Mysql In-Reply-To: <20060713132335.39819.qmail@web31304.mail.mud.yahoo.com> References: <20060713132335.39819.qmail@web31304.mail.mud.yahoo.com> Message-ID: <44B7B5DC.3080202@yahoo.com.br> Patty Silva wrote: > Pessoal.. tem como o MYSQL ao receber um dado acionar um script em perl?? > Esta funcionalidade chama-se "trigger" e não está disponível no MySQL, até onde eu sei. -- =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Luis Motta Campos is Software Engineer, Oracle OCP/DBA, Un*x Sysadmin, Member of {Lisbon,São Paulo,Cascavel,Brasil,London} Perl Mongers and Perl Fanatic Evangelist =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= From ricardoportilho em terra.com.br Fri Jul 14 08:30:25 2006 From: ricardoportilho em terra.com.br (Ricardo Portilho Proni) Date: Fri, 14 Jul 2006 12:30:25 -0300 Subject: [Cascavel-pm] Acionar Script pelo Mysql In-Reply-To: <44B7B5DC.3080202@yahoo.com.br> References: <20060713132335.39819.qmail@web31304.mail.mud.yahoo.com> <44B7B5DC.3080202@yahoo.com.br> Message-ID: <44B7B891.1060004@terra.com.br> MySQL 5 tem trigger. Mas não dá pra chamar Perl via trigger no MySQL. http://dev.mysql.com/doc/refman/5.0/en/triggers.html Luis Motta Campos escreveu: > Patty Silva wrote: >> Pessoal.. tem como o MYSQL ao receber um dado acionar um script em perl?? >> > > Esta funcionalidade chama-se "trigger" e não está disponível no MySQL, > até onde eu sei. > -- Ricardo Portilho Proni Oracle Database 10g Administrator Certified Associate Microsoft Certified Professional Nerv Informática Ltda. http://www.slackel.com From ptfzs em yahoo.com.br Fri Jul 14 13:09:53 2006 From: ptfzs em yahoo.com.br (Patty Silva) Date: Fri, 14 Jul 2006 17:09:53 -0300 (ART) Subject: [Cascavel-pm] Concatenar arquivos In-Reply-To: <20060713133233.73266.qmail@web31306.mail.mud.yahoo.com> Message-ID: <20060714200953.79323.qmail@web31312.mail.mud.yahoo.com> Pessoal consegui Fiz assim: e funcionou.. porem nao sei se eh a melhor forma: -------------------------------------------------------------------------------------------------------------------------------- #!/usr/bin/perl # my $caminho= "$ENV{HOME}/perl"; chdir ($caminho) || die "\n *** Erro no diretorio $caminho ***"; while ($arquivo = <*.txt>) { $arquivo=~ /(\d\d\d\d\d\d\d\d\d\d)/; $arquivo=$1; push(@arquivos,$arquivo); } my %hash; foreach (@arquivos) { $hash{$_} = 1; } foreach (sort keys %hash) { print "$_\n"; `cat $_* >$_.txt`; } -------------------------------------------------------------------------------------------------------------------------------- E outra coisa.. queria apagar os arquivos permanecendo somente o que eu concatenei.. :) Obrigada pessoal Patty Silva escreveu: Ola Pessoal.. Eu again! :) Fiz um script para concatenar arquivo de um diretorio: --------------------------------------------------------------------------------------------- my $caminho= "$ENV{HOME}/teste"; chdir ($caminho) || die "\n *** Erro no diretorio $caminho ***"; while ($arquivo = <*.txt>) { $InFile= $caminho.$arquivo; push(@arquivos,$arquivo); } system(`cat @arquivos>>$data_out.tmp`); unlink(@arquivos); --------------------------------------------------------------------------------------------- Porem quero concatenar arquivos com a msm data ou seja, os nomes dos arquivos sao ANOMESDIAHORA_tipo.txt Quero concatenar arquivos com ANOMESDIAHORA iguais.. e gerar somente um ANOMESDIA.txt Se alguem puder me dar uma lUz :) Obrigada --------------------------------- Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho agora!_______________________________________________ Cascavel-pm mailing list Cascavel-pm em pm.org http://mail.pm.org/mailman/listinfo/cascavel-pm --------------------------------- Você quer respostas para suas perguntas? Ou você sabe muito e quer compartilhar seu conhecimento? Experimente o Yahoo! Respostas! -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060714/601b4f77/attachment.html From jamorreu em gmail.com Sun Jul 16 12:32:41 2006 From: jamorreu em gmail.com (=?ISO-8859-1?Q?Jo=E3o_Gabriel?=) Date: Sun, 16 Jul 2006 16:32:41 -0300 Subject: [Cascavel-pm] Search Engine via Google In-Reply-To: <65934b450607140512m552bb6f8ydda527041b510747@mail.gmail.com> References: <65934b450607140512m552bb6f8ydda527041b510747@mail.gmail.com> Message-ID: <8ff2963a0607161232k5254632v382335b232df54bd@mail.gmail.com> Já viu esse: http://cgiclube.cidadeinternet.com.br/?area=downloads&arq=225 ? -- Um abraço, João Gabriel Página pessoal - www.JGCL.pt.to CGiClube.net - www.CGiClube.net Vitória Perl Mongers - Vitoria.pm.org From joenio em gmail.com Sun Jul 16 12:37:44 2006 From: joenio em gmail.com (Joenio Marques) Date: Sun, 16 Jul 2006 16:37:44 -0300 Subject: [Cascavel-pm] Search Engine via Google In-Reply-To: <8ff2963a0607161232k5254632v382335b232df54bd@mail.gmail.com> References: <65934b450607140512m552bb6f8ydda527041b510747@mail.gmail.com> <8ff2963a0607161232k5254632v382335b232df54bd@mail.gmail.com> Message-ID: <65934b450607161237x77f01b63vbc2d709514f10b89@mail.gmail.com> não... vou olhar... valew! 2006/7/16, João Gabriel : > Já viu esse: > http://cgiclube.cidadeinternet.com.br/?area=downloads&arq=225 > ? > > > -- > Um abraço, > João Gabriel > Página pessoal - www.JGCL.pt.to > CGiClube.net - www.CGiClube.net > Vitória Perl Mongers - Vitoria.pm.org > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm em pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > -- Joenio Marques - Salvador Perl Mongers From gilmarjr em dcc.ufba.br Sun Jul 16 16:02:47 2006 From: gilmarjr em dcc.ufba.br (Gilmar Santos Jr) Date: Sun, 16 Jul 2006 20:02:47 -0300 Subject: [Cascavel-pm] Chamado de trabalho para o CONISLI/YAPC::SA In-Reply-To: <12d1f4ee0607140738g351d7e86q87042690e0880f1f@mail.gmail.com> References: <12d1f4ee0607140738g351d7e86q87042690e0880f1f@mail.gmail.com> Message-ID: <44BAC597.1030302@dcc.ufba.br> Oi Solli! Logo que abriu o período pra submissões eu entrei no site, mas não achei como proceder. Então mandei um e-mail perguntando (pelo form de contato no site) e até hoje não tive resposta.... Como é que eu faço pra submeter??? Valeu! Gilmar. - Salvador Perl Mongers Solli Honorio escreveu: > Pessoal, > > O CONISLI (www.conisli.org ) e o YAPC::SA, que > será realizado de 7 a 11 de novembro, está recebendo as proposta de > palestra, todo estão sabendo disto ? > > Alguém do grupo tem algum interesse em participar como palestrante do > CONISLI, ou do YAPC::SA ? Se alguém tiver interesse, mas for muito > tímido, pode utilizar os encontros técnicos (que se for bem recebido > será mensal) para ir treinando. > > Vamos lá pessoal, vocês não querem mostrar que Perl é uma linguagem > legal ? Ou vão deixar todos os espaços para a comunidade Phython ? > > Abraços, > > Solli M. Honório > Ps.: Larry Wall está confirmado (isto, aquele cara que começou tudo > isto...), além do Randall. > ------------------------------------------------------------------------ > > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm em pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm From shonorio em gmail.com Sun Jul 16 17:33:48 2006 From: shonorio em gmail.com (Solli Honorio) Date: Sun, 16 Jul 2006 21:33:48 -0300 Subject: [Cascavel-pm] Chamado de trabalho para o CONISLI/YAPC::SA In-Reply-To: <44BAC597.1030302@dcc.ufba.br> References: <12d1f4ee0607140738g351d7e86q87042690e0880f1f@mail.gmail.com> <44BAC597.1030302@dcc.ufba.br> Message-ID: <12d1f4ee0607161733l41a85ffcy3db9cb1b1bdbcf76@mail.gmail.com> Você precisa se cadastrar como palestrante ( http://www.conisli.org/index.php?mod=palestrante&action=cadastro), aí eles enviam um email com as informações para inserir as palestras. Solli M. Honório On 7/16/06, Gilmar Santos Jr wrote: > > Oi Solli! > > Logo que abriu o período pra submissões eu entrei no site, mas não achei > como proceder. Então mandei um e-mail perguntando (pelo form de contato > no site) e até hoje não tive resposta.... > Como é que eu faço pra submeter??? > > > Valeu! > > Gilmar. > - Salvador Perl Mongers > > Solli Honorio escreveu: > > Pessoal, > > > > O CONISLI (www.conisli.org ) e o YAPC::SA, que > > será realizado de 7 a 11 de novembro, está recebendo as proposta de > > palestra, todo estão sabendo disto ? > > > > Alguém do grupo tem algum interesse em participar como palestrante do > > CONISLI, ou do YAPC::SA ? Se alguém tiver interesse, mas for muito > > tímido, pode utilizar os encontros técnicos (que se for bem recebido > > será mensal) para ir treinando. > > > > Vamos lá pessoal, vocês não querem mostrar que Perl é uma linguagem > > legal ? Ou vão deixar todos os espaços para a comunidade Phython ? > > > > Abraços, > > > > Solli M. Honório > > Ps.: Larry Wall está confirmado (isto, aquele cara que começou tudo > > isto...), além do Randall. > > ------------------------------------------------------------------------ > > > > _______________________________________________ > > Cascavel-pm mailing list > > Cascavel-pm em pm.org > > http://mail.pm.org/mailman/listinfo/cascavel-pm > > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm em pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060716/5224fd4a/attachment.html From ptfzs em yahoo.com.br Tue Jul 18 07:17:33 2006 From: ptfzs em yahoo.com.br (Patty Silva) Date: Tue, 18 Jul 2006 11:17:33 -0300 (ART) Subject: [Cascavel-pm] Expressao Regular Message-ID: <20060718141733.9574.qmail@web31315.mail.mud.yahoo.com> Pessoal.. preciso de ajuda em uma expressao regular: preciso recuperar somente os ultimos 4 digitos do arquivo: $file=teste_A1202012.TXT para tirar o .TXT fiz $file=~ s/.TXT//; tentei fazer algo do tipo: $file=~ /[a-z]_[a-z]\d\d\d\d(\d\d\d\d)/; mas nao funcionou tb :) Alguem pode dar uma Luzzzzz Obrigada --------------------------------- Você quer respostas para suas perguntas? Ou você sabe muito e quer compartilhar seu conhecimento? Experimente o Yahoo! Respostas! -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060718/17f79b68/attachment.html From ptfzs em yahoo.com.br Tue Jul 18 07:20:12 2006 From: ptfzs em yahoo.com.br (Patty Silva) Date: Tue, 18 Jul 2006 11:20:12 -0300 (ART) Subject: [Cascavel-pm] Expressao Regular In-Reply-To: <20060718141733.9574.qmail@web31315.mail.mud.yahoo.com> Message-ID: <20060718142012.20532.qmail@web31311.mail.mud.yahoo.com> eu consegui assim: $texto=~ /teste_A\d\d\d(\d\d\d\d)/; Ai funcionou.. nao sei se eh a melhor solucao :) obs: sempre ira ser teste_A Patty Silva escreveu: Pessoal.. preciso de ajuda em uma expressao regular: preciso recuperar somente os ultimos 4 digitos do arquivo: $file=teste_A1202012.TXT para tirar o .TXT fiz $file=~ s/.TXT//; tentei fazer algo do tipo: $file=~ /[a-z]_[a-z]\d\d\d\d(\d\d\d\d)/; mas nao funcionou tb :) Alguem pode dar uma Luzzzzz Obrigada --------------------------------- Você quer respostas para suas perguntas? Ou você sabe muito e quer compartilhar seu conhecimento? Experimente o Yahoo! Respostas!_______________________________________________ Cascavel-pm mailing list Cascavel-pm em pm.org http://mail.pm.org/mailman/listinfo/cascavel-pm --------------------------------- Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho agora! -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060718/6dafd82d/attachment.html From a.r.ferreira em gmail.com Tue Jul 18 07:22:02 2006 From: a.r.ferreira em gmail.com (Adriano Ferreira) Date: Tue, 18 Jul 2006 11:22:02 -0300 Subject: [Cascavel-pm] Expressao Regular In-Reply-To: <20060718141733.9574.qmail@web31315.mail.mud.yahoo.com> References: <20060718141733.9574.qmail@web31315.mail.mud.yahoo.com> Message-ID: <73ddeb6c0607180722j6e40d4a3je0ccaf8614073e46@mail.gmail.com> On 7/18/06, Patty Silva wrote: > Pessoal.. preciso de ajuda em uma expressao regular: > preciso recuperar somente os ultimos 4 digitos do arquivo: > > $file=teste_A1202012.TXT tente $file =~ /(\d{4})\.TXT$/; print "os ultimos 4 digitos: $1\n"; From ptfzs em yahoo.com.br Tue Jul 18 07:24:41 2006 From: ptfzs em yahoo.com.br (Patty Silva) Date: Tue, 18 Jul 2006 11:24:41 -0300 (ART) Subject: [Cascavel-pm] Expressao Regular In-Reply-To: <73ddeb6c0607180722j6e40d4a3je0ccaf8614073e46@mail.gmail.com> Message-ID: <20060718142441.35359.qmail@web31303.mail.mud.yahoo.com> ok Adriano :) Perfeito.. Obrigada Adriano Ferreira escreveu: On 7/18/06, Patty Silva wrote: > Pessoal.. preciso de ajuda em uma expressao regular: > preciso recuperar somente os ultimos 4 digitos do arquivo: > > $file=teste_A1202012.TXT tente $file =~ /(\d{4})\.TXT$/; print "os ultimos 4 digitos: $1\n"; _______________________________________________ Cascavel-pm mailing list Cascavel-pm em pm.org http://mail.pm.org/mailman/listinfo/cascavel-pm --------------------------------- Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho agora! -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060718/bc808916/attachment.html From a.r.ferreira em gmail.com Tue Jul 18 07:30:24 2006 From: a.r.ferreira em gmail.com (Adriano Ferreira) Date: Tue, 18 Jul 2006 11:30:24 -0300 Subject: [Cascavel-pm] Expressao Regular In-Reply-To: <20060718142012.20532.qmail@web31311.mail.mud.yahoo.com> References: <20060718141733.9574.qmail@web31315.mail.mud.yahoo.com> <20060718142012.20532.qmail@web31311.mail.mud.yahoo.com> Message-ID: <73ddeb6c0607180730r626aae66u4b9bbfd9f4962e65@mail.gmail.com> On 7/18/06, Patty Silva wrote: > Ai funcionou.. nao sei se eh a melhor solucao :) There is more than way to do it. > obs: sempre ira ser teste_A De maneira geral, acho preferível as abordagens que podem dar certo mesmo se você mudar um pouco os detalhes. Quando você apresentou o problema para o qual você procurava uma solução, você disse "preciso recuperar somente os ultimos 4 digitos do arquivo". Quer dizer, acho que não é necessário fazer hipótese alguma sobre o que NÃO faz parte dos últimos 4 dígitos do arquivo. Por isso a solução que sugeri: $file =~ /(\d{4})\.TXT$/; print "os ultimos 4 digitos: $1\n"; que também não se preocupa em arrancar o ".TXT" com uma substituição (s//). Deste jeito, funciona para entradas como $file = 'teste_A1202012.TXT'; $file = 'BOO2892.TXT'; $file = 'splash_splish_0000.TXT'; e você ainda pode tornar a extensão mais genérica ("." seguido de qualquer coisa que não é "."). $file =~ /(\d{4})\.[^.]*$/; > > > > Patty Silva escreveu: > Pessoal.. preciso de ajuda em uma expressao regular: > preciso recuperar somente os ultimos 4 digitos do arquivo: > > $file=teste_A1202012.TXT > > para tirar o .TXT > fiz > $file=~ s/.TXT//; > > tentei fazer algo do tipo: > $file=~ /[a-z]_[a-z]\d\d\d\d(\d\d\d\d)/; > > mas nao funcionou tb :) > > Alguem pode dar uma Luzzzzz > > Obrigada > > > > > ________________________________ > Você quer respostas para suas perguntas? Ou você sabe muito e quer > compartilhar seu conhecimento? Experimente o Yahoo! > Respostas!_______________________________________________ > Cascavel-pm mailing list > Cascavel-pm em pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > > > > ________________________________ > Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. > Registre seu aparelho agora! > > > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm em pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > > From ptfzs em yahoo.com.br Tue Jul 18 07:42:18 2006 From: ptfzs em yahoo.com.br (Patty Silva) Date: Tue, 18 Jul 2006 11:42:18 -0300 (ART) Subject: [Cascavel-pm] Expressao Regular In-Reply-To: <73ddeb6c0607180730r626aae66u4b9bbfd9f4962e65@mail.gmail.com> Message-ID: <20060718144218.41855.qmail@web31301.mail.mud.yahoo.com> Realmente :) Perfeito Adriano.. Obrigada Adriano Ferreira escreveu: On 7/18/06, Patty Silva wrote: > Ai funcionou.. nao sei se eh a melhor solucao :) There is more than way to do it. > obs: sempre ira ser teste_A De maneira geral, acho preferível as abordagens que podem dar certo mesmo se você mudar um pouco os detalhes. Quando você apresentou o problema para o qual você procurava uma solução, você disse "preciso recuperar somente os ultimos 4 digitos do arquivo". Quer dizer, acho que não é necessário fazer hipótese alguma sobre o que NÃO faz parte dos últimos 4 dígitos do arquivo. Por isso a solução que sugeri: $file =~ /(\d{4})\.TXT$/; print "os ultimos 4 digitos: $1\n"; que também não se preocupa em arrancar o ".TXT" com uma substituição (s//). Deste jeito, funciona para entradas como $file = 'teste_A1202012.TXT'; $file = 'BOO2892.TXT'; $file = 'splash_splish_0000.TXT'; e você ainda pode tornar a extensão mais genérica ("." seguido de qualquer coisa que não é "."). $file =~ /(\d{4})\.[^.]*$/; > > > > Patty Silva escreveu: > Pessoal.. preciso de ajuda em uma expressao regular: > preciso recuperar somente os ultimos 4 digitos do arquivo: > > $file=teste_A1202012.TXT > > para tirar o .TXT > fiz > $file=~ s/.TXT//; > > tentei fazer algo do tipo: > $file=~ /[a-z]_[a-z]\d\d\d\d(\d\d\d\d)/; > > mas nao funcionou tb :) > > Alguem pode dar uma Luzzzzz > > Obrigada > > > > > ________________________________ > Você quer respostas para suas perguntas? Ou você sabe muito e quer > compartilhar seu conhecimento? Experimente o Yahoo! > Respostas!_______________________________________________ > Cascavel-pm mailing list > Cascavel-pm em pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > > > > ________________________________ > Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. > Registre seu aparelho agora! > > > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm em pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > > _______________________________________________ Cascavel-pm mailing list Cascavel-pm em pm.org http://mail.pm.org/mailman/listinfo/cascavel-pm --------------------------------- Yahoo! Search Música para ver e ouvir: You're Beautiful, do James Blunt -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060718/6d26e2d0/attachment.html From ptfzs em yahoo.com.br Wed Jul 19 11:50:32 2006 From: ptfzs em yahoo.com.br (Patty Silva) Date: Wed, 19 Jul 2006 15:50:32 -0300 (ART) Subject: [Cascavel-pm] Banco de Dados auxiliar Message-ID: <20060719185032.69482.qmail@web31312.mail.mud.yahoo.com> Pessoal.. Preciso utilizar um banco de dados auxiliar.. pensei no DB_File, porem o que quero fazer eh o seguinte: Estou buscando no mysql dados de hora em hora, e gravando-os em um arquivo, so que nessa busca no banco eu busco dados das ultimas 2 horas.. porem acontece de dados chegarem atrasados.. e nao quero perder esses dados e nem repetir dados ja gravados.. pensei em armazenar no Banco auxilar o NOME e a DATAHORA do dado.. porem pensei no tamanho desse banco de dados auxiliar.. Alguma sugestao?? Obrigada Pessoal. --------------------------------- Yahoo! Search Música para ver e ouvir: You're Beautiful, do James Blunt -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060719/f79321c2/attachment.html From igor.sutton em gmail.com Wed Jul 19 12:09:47 2006 From: igor.sutton em gmail.com (Igor Sutton Lopes) Date: Wed, 19 Jul 2006 12:09:47 -0700 (PDT) Subject: [Cascavel-pm] Banco de Dados auxiliar In-Reply-To: <20060719185032.69482.qmail@web31312.mail.mud.yahoo.com> References: <20060719185032.69482.qmail@web31312.mail.mud.yahoo.com> Message-ID: Por que razão você está fazendo isso? Não seria melhor fazer uma consolidação no próprio banco de dados? Mais uma vez, vou bater na tecla da formulação de uma pergunta. O Ruoso postou hoje um link interessante, que vale a pena ser lido: http://www.perlmonks.org/?node=XY+Problem De volta ao seu problema, poderia contar mais um pouco dele para entendermos o contexto? Geralmente fazemos o contrário - deixamos de utilizar arquivos texto e bases de dados locais e migramos para um RDBMS. Patty Silva writes: > Pessoal.. > > Preciso utilizar um banco de dados auxiliar.. pensei no DB_File, porem o que quero fazer eh o seguinte: > > Estou buscando no mysql dados de hora em hora, e gravando-os em um arquivo, so que nessa busca no banco eu busco dados das ultimas 2 horas.. porem acontece de dados chegarem atrasados.. e nao quero perder esses dados e nem repetir dados ja gravados.. > pensei em armazenar no Banco auxilar o NOME e a DATAHORA do dado.. > porem pensei no tamanho desse banco de dados auxiliar.. > > Alguma sugestao?? > > > Obrigada Pessoal. > > > > > --------------------------------- > Yahoo! Search > Música para ver e ouvir: You're Beautiful, do James Blunt_______________________________________________ > Cascavel-pm mailing list > Cascavel-pm em pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm From edencardim em gmail.com Wed Jul 19 16:53:09 2006 From: edencardim em gmail.com (Eden Cardim) Date: Wed, 19 Jul 2006 20:53:09 -0300 Subject: [Cascavel-pm] =?iso-8859-1?q?Atualizando_m=F3dulos_padr=E3o_do_Pe?= =?iso-8859-1?q?rl?= Message-ID: <3de55ead0607191653o7d545163n99d6ec565c991143@mail.gmail.com> Saudações monges, Recentemente resolvi mudar minha dev-distro de fedora pra debian stable, soh q ele soh vem com perl 5.8.4, aí instalei o pacote perl 5.8.8 da versão testing, soh q esse pacote n vem com o módulo-padrão B.pm Aí o perl acaba usando a versão desatualizada do B.pm q vem com o 5.8.4 e quando eu peço pra instalar pelo cpan ele baixa o perl 5.8.7 e começa a compilar. Q q eu faço pra atualizar soh o B.pm? From acid06 em gmail.com Wed Jul 19 17:49:59 2006 From: acid06 em gmail.com (Nilson Santos Figueiredo Junior) Date: Wed, 19 Jul 2006 21:49:59 -0300 Subject: [Cascavel-pm] =?iso-8859-1?q?Atualizando_m=F3dulos_padr=E3o_do_Pe?= =?iso-8859-1?q?rl?= In-Reply-To: <3de55ead0607191653o7d545163n99d6ec565c991143@mail.gmail.com> References: <3de55ead0607191653o7d545163n99d6ec565c991143@mail.gmail.com> Message-ID: <9a08c9b40607191749h5a88d168qeaef0843aa4765c@mail.gmail.com> On 7/19/06, Eden Cardim wrote: > Recentemente resolvi mudar minha dev-distro de fedora pra debian > stable, soh q ele soh vem com perl 5.8.4, aí instalei o pacote perl > 5.8.8 da versão testing, soh q esse pacote n vem com o módulo-padrão > B.pm Aí o perl acaba usando a versão desatualizada do B.pm q vem com o > 5.8.4 e quando eu peço pra instalar pelo cpan ele baixa o perl 5.8.7 e > começa a compilar. Q q eu faço pra atualizar soh o B.pm? Normalmente utilizar um perl diferente do que já vem na sua distro só vai te dar dor de cabeça (a não que você já tenha muita experiência em fazer isso). A melhor recomendação que posso te dar é a utilização de uma distribuição decente. -Nilson Santos F. Jr. From edencardim em gmail.com Wed Jul 19 17:53:41 2006 From: edencardim em gmail.com (Eden Cardim) Date: Wed, 19 Jul 2006 21:53:41 -0300 Subject: [Cascavel-pm] =?iso-8859-1?q?Atualizando_m=F3dulos_padr=E3o_do_Pe?= =?iso-8859-1?q?rl?= In-Reply-To: <9a08c9b40607191749h5a88d168qeaef0843aa4765c@mail.gmail.com> References: <3de55ead0607191653o7d545163n99d6ec565c991143@mail.gmail.com> <9a08c9b40607191749h5a88d168qeaef0843aa4765c@mail.gmail.com> Message-ID: <3de55ead0607191753g2ff8feb7q1fadbd58a7fc000b@mail.gmail.com> On 7/19/06, Nilson Santos Figueiredo Junior wrote: > On 7/19/06, Eden Cardim wrote: > > Recentemente resolvi mudar minha dev-distro de fedora pra debian > > stable, soh q ele soh vem com perl 5.8.4, aí instalei o pacote perl > > 5.8.8 da versão testing, soh q esse pacote n vem com o módulo-padrão > > B.pm Aí o perl acaba usando a versão desatualizada do B.pm q vem com o > > 5.8.4 e quando eu peço pra instalar pelo cpan ele baixa o perl 5.8.7 e > > começa a compilar. Q q eu faço pra atualizar soh o B.pm? > > Normalmente utilizar um perl diferente do que já vem na sua distro só > vai te dar dor de cabeça (a não que você já tenha muita experiência em > fazer isso). > > A melhor recomendação que posso te dar é a utilização de uma > distribuição decente. Hmm, grrrr.... Já era de se imaginar, to agora mesmo queimando um cd do debian testing... é o jeito. É bom q já resolve a dor de cabeça q eh instalar o Catalyst pois jah vem com um pacote deb da versao 5.7000. From acid06 em gmail.com Wed Jul 19 17:58:19 2006 From: acid06 em gmail.com (Nilson Santos Figueiredo Junior) Date: Wed, 19 Jul 2006 21:58:19 -0300 Subject: [Cascavel-pm] =?iso-8859-1?q?Atualizando_m=F3dulos_padr=E3o_do_Pe?= =?iso-8859-1?q?rl?= In-Reply-To: <3de55ead0607191753g2ff8feb7q1fadbd58a7fc000b@mail.gmail.com> References: <3de55ead0607191653o7d545163n99d6ec565c991143@mail.gmail.com> <9a08c9b40607191749h5a88d168qeaef0843aa4765c@mail.gmail.com> <3de55ead0607191753g2ff8feb7q1fadbd58a7fc000b@mail.gmail.com> Message-ID: <9a08c9b40607191758n39f1a14ao3d5a7424ffc2971e@mail.gmail.com> On 7/19/06, Eden Cardim wrote: > Hmm, grrrr.... Já era de se imaginar, to agora mesmo queimando um cd > do debian testing... é o jeito. É bom q já resolve a dor de cabeça q > eh instalar o Catalyst pois jah vem com um pacote deb da versao > 5.7000. Dor de cabeça pra instalar o Catalyst?! http://www.shadowcatsystems.co.uk/static/cat-install -Nilson Santos F. Jr. From edencardim em gmail.com Wed Jul 19 18:00:09 2006 From: edencardim em gmail.com (Eden Cardim) Date: Wed, 19 Jul 2006 22:00:09 -0300 Subject: [Cascavel-pm] =?iso-8859-1?q?Atualizando_m=F3dulos_padr=E3o_do_Pe?= =?iso-8859-1?q?rl?= In-Reply-To: <9a08c9b40607191758n39f1a14ao3d5a7424ffc2971e@mail.gmail.com> References: <3de55ead0607191653o7d545163n99d6ec565c991143@mail.gmail.com> <9a08c9b40607191749h5a88d168qeaef0843aa4765c@mail.gmail.com> <3de55ead0607191753g2ff8feb7q1fadbd58a7fc000b@mail.gmail.com> <9a08c9b40607191758n39f1a14ao3d5a7424ffc2971e@mail.gmail.com> Message-ID: <3de55ead0607191800i6bcf475bgc598779ebe15cb12@mail.gmail.com> On 7/19/06, Nilson Santos Figueiredo Junior wrote: > On 7/19/06, Eden Cardim wrote: > > Hmm, grrrr.... Já era de se imaginar, to agora mesmo queimando um cd > > do debian testing... é o jeito. É bom q já resolve a dor de cabeça q > > eh instalar o Catalyst pois jah vem com um pacote deb da versao > > 5.7000. > > Dor de cabeça pra instalar o Catalyst?! > http://www.shadowcatsystems.co.uk/static/cat-install Bem, era ateh o Matt desenvolver esse implantador... XD From gilmarjr em dcc.ufba.br Wed Jul 19 18:01:04 2006 From: gilmarjr em dcc.ufba.br (Gilmar Santos Jr) Date: Wed, 19 Jul 2006 22:01:04 -0300 Subject: [Cascavel-pm] =?iso-8859-1?q?Atualizando_m=F3dulos_padr=E3o_do_Pe?= =?iso-8859-1?q?rl?= In-Reply-To: <3de55ead0607191653o7d545163n99d6ec565c991143@mail.gmail.com> References: <3de55ead0607191653o7d545163n99d6ec565c991143@mail.gmail.com> Message-ID: <44BED5D0.5040404@dcc.ufba.br> Olá, Eden! Bem, usar o debian foi uma ótima escolha. Parabéns! Usar distribuição mista não é uma boa na maioria das vezes. Eu uso mantenho um servidor com debian estável, mas preciso do perl 5.8.8, então peguei o pacote fonta da unstable e compilei na stable e sempre que sai alguma atualização tenho que recompilar.... Iso, por incrível que pareça, nesse caso específico dá menos dor de cabeça (quando considero questões de segurança, já que é um servidor de produção) do que manter uma híbrida. Em casa uso uma híbrida entre a testing e unstable, mas é como se não fosse, pq tá bem configuradinho pra baixar pacotes da unstable (e dependências) somente se não tiver na testing e o aptitude lida com isso muito bem. Isso pode ser feito no /et/apt/apt_preferences e no /etc/apt/apt.conf (tem os respectivos manuais pra mais detalhes). Você pode ver, por http://packages.debian.org, buscando por B.pm no conteúdo dos pacotes que ele faz parte do perl-base e não do perl, então vc teria que atualizar o perl-base também ;-) Mas, na boa, como é uma dev-distro use a testing... é bom programar com coisas novas ;-) Qualquer coisa posso explicar melhor sobre essas configurações no apt_preferences e apt.conf ;-) Gilmar. - Salvador Perl Mongers Eden Cardim escreveu: > Saudações monges, > Recentemente resolvi mudar minha dev-distro de fedora pra debian > stable, soh q ele soh vem com perl 5.8.4, aí instalei o pacote perl > 5.8.8 da versão testing, soh q esse pacote n vem com o módulo-padrão > B.pm Aí o perl acaba usando a versão desatualizada do B.pm q vem com o > 5.8.4 e quando eu peço pra instalar pelo cpan ele baixa o perl 5.8.7 e > começa a compilar. Q q eu faço pra atualizar soh o B.pm? > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm em pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > > From fernandocorrea em gmail.com Wed Jul 19 18:02:17 2006 From: fernandocorrea em gmail.com (Fernando) Date: Wed, 19 Jul 2006 22:02:17 -0300 Subject: [Cascavel-pm] =?iso-8859-1?q?Atualizando_m=F3dulos_padr=E3o_do_Pe?= =?iso-8859-1?q?rl?= In-Reply-To: <3de55ead0607191753g2ff8feb7q1fadbd58a7fc000b@mail.gmail.com> References: <3de55ead0607191653o7d545163n99d6ec565c991143@mail.gmail.com> <9a08c9b40607191749h5a88d168qeaef0843aa4765c@mail.gmail.com> <3de55ead0607191753g2ff8feb7q1fadbd58a7fc000b@mail.gmail.com> Message-ID: <44BED619.5050802@gmail.com> -----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 Boa noite... eu imagino q não devo ter entendido muito bem a su, mas se e entendí, se vc quer instalar a versão mais nova do B.pm, basta vc escrever "cpan B" no shell... E quanto a critica sobre a distro, não liga não... debian é muito bom (meu coração é em espiral...) quem diz o contrário não sabe do que está falando... Eden Cardim escreveu: > On 7/19/06, Nilson Santos Figueiredo Junior wrote: >> On 7/19/06, Eden Cardim wrote: >>> Recentemente resolvi mudar minha dev-distro de fedora pra debian >>> stable, soh q ele soh vem com perl 5.8.4, aí instalei o pacote perl >>> 5.8.8 da versão testing, soh q esse pacote n vem com o módulo-padrão >>> B.pm Aí o perl acaba usando a versão desatualizada do B.pm q vem com o >>> 5.8.4 e quando eu peço pra instalar pelo cpan ele baixa o perl 5.8.7 e >>> começa a compilar. Q q eu faço pra atualizar soh o B.pm? >> Normalmente utilizar um perl diferente do que já vem na sua distro só >> vai te dar dor de cabeça (a não que você já tenha muita experiência em >> fazer isso). >> >> A melhor recomendação que posso te dar é a utilização de uma >> distribuição decente. > > Hmm, grrrr.... Já era de se imaginar, to agora mesmo queimando um cd > do debian testing... é o jeito. É bom q já resolve a dor de cabeça q > eh instalar o Catalyst pois jah vem com um pacote deb da versao > 5.7000. > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm em pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.4.2.2 (GNU/Linux) Comment: Using GnuPG with Mozilla - http://enigmail.mozdev.org iD8DBQFEvtYYqUTNa2oq34gRAiyKAKCoQ+llBUvXIKuCw68bnGMVxZKO7QCgl1ZV z6wAlJJJyelOsDDRtNEL7Bs= =bNMx -----END PGP SIGNATURE----- From edencardim em gmail.com Wed Jul 19 18:10:10 2006 From: edencardim em gmail.com (Eden Cardim) Date: Wed, 19 Jul 2006 22:10:10 -0300 Subject: [Cascavel-pm] =?iso-8859-1?q?Atualizando_m=F3dulos_padr=E3o_do_Pe?= =?iso-8859-1?q?rl?= In-Reply-To: <44BED5D0.5040404@dcc.ufba.br> References: <3de55ead0607191653o7d545163n99d6ec565c991143@mail.gmail.com> <44BED5D0.5040404@dcc.ufba.br> Message-ID: <3de55ead0607191810h7bea6d91nb2d54f6d687a3cf1@mail.gmail.com> On 7/19/06, Gilmar Santos Jr wrote: > Olá, Eden! > > > Bem, usar o debian foi uma ótima escolha. Parabéns! > > > Usar distribuição mista não é uma boa na maioria das vezes. Eu uso > mantenho um servidor com debian estável, mas preciso do perl 5.8.8, > então peguei o pacote fonta da unstable e compilei na stable e sempre > que sai alguma atualização tenho que recompilar.... Iso, por incrível > que pareça, nesse caso específico dá menos dor de cabeça (quando > considero questões de segurança, já que é um servidor de produção) do > que manter uma híbrida. Em casa uso uma híbrida entre a testing e > unstable, mas é como se não fosse, pq tá bem configuradinho pra baixar > pacotes da unstable (e dependências) somente se não tiver na testing e o > aptitude lida com isso muito bem. Isso pode ser feito no > /et/apt/apt_preferences e no /etc/apt/apt.conf (tem os respectivos > manuais pra mais detalhes). Rss, dá dor de cabeça só de pensar em manter um configuração assim XD > Você pode ver, por http://packages.debian.org, buscando por B.pm no > conteúdo dos pacotes que ele faz parte do perl-base e não do perl, então > vc teria que atualizar o perl-base também ;-) Naum sei, eu atualizei o perl-base (q eh uma das dependencias do pacote perl 5.8.8) e mesmo assim ele n instalou o B.om mais atual q eh o q vem com o perl 5.8.7, se não me engano. > Mas, na boa, como é uma dev-distro use a testing... é bom programar com > coisas novas ;-) Pois é, a minha aposta é q a testing vai ser congelada mais ou menos qdo sair a primeira versão de produção da aplicação q to desenvolvendo. From edencardim em gmail.com Wed Jul 19 18:12:23 2006 From: edencardim em gmail.com (Eden Cardim) Date: Wed, 19 Jul 2006 22:12:23 -0300 Subject: [Cascavel-pm] =?iso-8859-1?q?Atualizando_m=F3dulos_padr=E3o_do_Pe?= =?iso-8859-1?q?rl?= In-Reply-To: <44BED619.5050802@gmail.com> References: <3de55ead0607191653o7d545163n99d6ec565c991143@mail.gmail.com> <9a08c9b40607191749h5a88d168qeaef0843aa4765c@mail.gmail.com> <3de55ead0607191753g2ff8feb7q1fadbd58a7fc000b@mail.gmail.com> <44BED619.5050802@gmail.com> Message-ID: <3de55ead0607191812u478e47f0mdb5e5e87e2794cd1@mail.gmail.com> On 7/19/06, Fernando wrote: > -----BEGIN PGP SIGNED MESSAGE----- > Hash: SHA1 > > Boa noite... eu imagino q não devo ter entendido muito bem a su, mas > se e entendí, se vc quer instalar a versão mais nova do B.pm, basta vc > escrever "cpan B" no shell... Módulos padrão não são instalados pelo cpan a não ser que você use a opção force. From acid06 em gmail.com Wed Jul 19 18:15:00 2006 From: acid06 em gmail.com (Nilson Santos Figueiredo Junior) Date: Wed, 19 Jul 2006 22:15:00 -0300 Subject: [Cascavel-pm] =?iso-8859-1?q?Atualizando_m=F3dulos_padr=E3o_do_Pe?= =?iso-8859-1?q?rl?= In-Reply-To: <44BED619.5050802@gmail.com> References: <3de55ead0607191653o7d545163n99d6ec565c991143@mail.gmail.com> <9a08c9b40607191749h5a88d168qeaef0843aa4765c@mail.gmail.com> <3de55ead0607191753g2ff8feb7q1fadbd58a7fc000b@mail.gmail.com> <44BED619.5050802@gmail.com> Message-ID: <9a08c9b40607191815l3c3cddcbyf2b8956ec0834d1d@mail.gmail.com> On 7/19/06, Fernando wrote: > E quanto a critica sobre a distro, não liga não... debian é muito bom > (meu coração é em espiral...) quem diz o contrário não sabe do que > está falando... Debian é bom se o shell + programas de 2 anos atrás são suficientes pra você. Se você quer que as coisas recentes (ou qualquer coisa em geral mesmo) funcione sem a necessidade de trabalho braçal, só existem duas distribuições aceitáveis: SuSE ou Ubuntu. Agora, se você tem prazer em sofrer, pode usar Debian. ;-) -Nilson Santos F. Jr. From gilmarjr em dcc.ufba.br Wed Jul 19 18:21:51 2006 From: gilmarjr em dcc.ufba.br (Gilmar Santos Jr) Date: Wed, 19 Jul 2006 22:21:51 -0300 Subject: [Cascavel-pm] =?iso-8859-1?q?Atualizando_m=F3dulos_padr=E3o_do_Pe?= =?iso-8859-1?q?rl?= In-Reply-To: <3de55ead0607191810h7bea6d91nb2d54f6d687a3cf1@mail.gmail.com> References: <3de55ead0607191653o7d545163n99d6ec565c991143@mail.gmail.com> <44BED5D0.5040404@dcc.ufba.br> <3de55ead0607191810h7bea6d91nb2d54f6d687a3cf1@mail.gmail.com> Message-ID: <44BEDAAF.4020705@dcc.ufba.br> Eden Cardim escreveu: > Rss, dá dor de cabeça só de pensar em manter um configuração assim XD hehehehehe $ cat /etc/apt/apt_preferences Package: * Pin: release a=testing Pin-Priority: 995 Package: * Pin: release a=unstable Pin-Priority: 550 $ cat /etc/apt/apt.conf APT::Default-Release "testing"; APT::Cache-Limit 50000000; Faz um ano que esses arquivos estão assim (isso pq eu instalei a máquina há um ano, se contar o perído todo que uso isso.. bem uns 2 anos e meio). > Naum sei, eu atualizei o perl-base (q eh uma das dependencias do > pacote perl 5.8.8) e mesmo assim ele n instalou o B.om mais atual q eh > o q vem com o perl 5.8.7, se não me engano. > $ dpkg -l perl-base Desejado=U=Desconhecido/Instalar/Remover/aPagar/H=Manter | status=Não/Instalado/arquiv.-Config./U=Descomp./Falhou-config/H=semi-inst. |/ Erro?=(nenhum)/H=Mantido/precisa-Reinst./X=os dois problemas (status,Erro: maiúsculas=ruim) ||/ Nome Versão Descrição +++-============================-============================-======================================================================== ii perl-base 5.8.8-4 The Pathologically Eclectic Rubbish Lister Versão 5.8.8-4 $ grep VERSION /usr/lib/perl/5.8.8/B.pm our $VERSION = '1.09_01'; Se essa versão do B.pm é a que está com o 5.8.7 eu não sei, mas é a que está na minha máquina e veio com o perl-base 5.8.8 :p > Pois é, a minha aposta é q a testing vai ser congelada mais ou menos > qdo sair a primeira versão de produção da aplicação q to > desenvolvendo. > Li há pouco tempo no Debian News que a testing vai ser a versão 4.0 da debian e tem lançamento previsto pra 4 de Dezembro, então ela está prestes a ser congelada... Mas o meu palpite pessimista é que só vai rolar esse lançamento lá pra março do ano que vem.... :'( Gilmar. - Salvador Perl Mongers From gilmarjr em dcc.ufba.br Wed Jul 19 18:26:22 2006 From: gilmarjr em dcc.ufba.br (Gilmar Santos Jr) Date: Wed, 19 Jul 2006 22:26:22 -0300 Subject: [Cascavel-pm] =?iso-8859-1?q?Atualizando_m=F3dulos_padr=E3o_do_Pe?= =?iso-8859-1?q?rl?= In-Reply-To: <9a08c9b40607191815l3c3cddcbyf2b8956ec0834d1d@mail.gmail.com> References: <3de55ead0607191653o7d545163n99d6ec565c991143@mail.gmail.com> <9a08c9b40607191749h5a88d168qeaef0843aa4765c@mail.gmail.com> <3de55ead0607191753g2ff8feb7q1fadbd58a7fc000b@mail.gmail.com> <44BED619.5050802@gmail.com> <9a08c9b40607191815l3c3cddcbyf2b8956ec0834d1d@mail.gmail.com> Message-ID: <44BEDBBE.6070306@dcc.ufba.br> Nilson Santos Figueiredo Junior escreveu: > Debian é bom se o shell + programas de 2 anos atrás são suficientes pra você. > Ou se você não se importar com isso e precisar de segurança (servidores de rede...) > Se você quer que as coisas recentes (ou qualquer coisa em geral mesmo) > funcione sem a necessidade de trabalho braçal, só existem duas > distribuições aceitáveis: SuSE ou Ubuntu. > Você esqueceu do debian testing/unstable/experimental e do gentoo! :p > Agora, se você tem prazer em sofrer, pode usar Debian. ;-) > Recentemente tive uma experiência com fedora... aquilo sim é sofrer! (tudo bem, eu sei, era um fedora core 1 sem yum, por isso que fiquei morrendo de raiva... "rpm -i <...>" "falha de dependência...." Gilmar. - Salvador Perl Mongers From ivocarv em cais.rnp.br Fri Jul 21 13:39:53 2006 From: ivocarv em cais.rnp.br (Ivo Peixinho) Date: Fri, 21 Jul 2006 17:39:53 -0300 (BRT) Subject: [Cascavel-pm] Perl Windows x Perl Linux Message-ID: Prezados, Considerando o seguinte codigo: $path=$ARGV[0]; open(MW,$path); read MW,$buff,1024; close ($buff); print unpack('h1024',$buff); print "\n"; No linux eu rodo e tenho: perl dump.pl irpf2005v1.0.exe d4a509003000000040000000ffff00008b0000000000000004000000000000000000000000000000 00000000000000000000000000000000000000000d000000e0f1abe0004b90dc128b10c4dc124586 9637020727f6762716d6023616e6e6f647022656022757e60296e60244f43502d6f64656e2d0d0a0 4200000000000000d60b46cf921da0fa921da0fa921da0fa921da0fa821da0fa921db0faf61da0fa b4ec91fa021da0fa673f00fab21da0faee7dc0fa821da0fa6d1fe0fa821da0fa25963686921da0fa 000000000000000005540000c41040002ca087b300000000000000000e00f050b010600000220000 0061000000000000fa12000000010000000400000000040000010000002000004000000040000000 40000000000000000007000000400000000000002000000000000100000100000000010000010000 00000000010000000174000096000000821400004600000000060000046000000000000000000000 00000000000000000000000000000000000000000000000000000000000000000000000000000000 00000000000000000000000000000000000000000000000000040000821000000000000000000000 00000000000000000000000000000000e24756874700000062120000000100000022000000400000 00000000000000000000000002000006e2274616471600009770000000040000 No windows eu rodo e tenho: perl dump.pl irpf2005v1.0.exe d4a509003000000040000000ffff00008b0000000000000004000000000000000000000000000000 00000000000000000000000000000000000000000d000000e0f1abe0004b90dc128b10c4dc124586 9637020727f6762716d6023616e6e6f647022656022757e60296e60244f43502d6f64656e2d0a042 00000000000000d60b46cf921da0fa921da0fa921da0fa921da0fa821da0fa921db0faf61da0fab4 ec91fa021da0fa673f00fab21da0faee7dc0fa821da0fa6d1fe0fa821da0fa25963686921da0fa00 0000000000000005540000c41040002ca087b300000000000000000e00f050b01060000022000000 61000000000000fa1200000001000000040000000004000001000000200000400000004000000040 00000000000000000700000040000000000000200000000000010000010000000001000001000000 00000001000000017400009600000082140000460000000006000004600000000000000000000000 00000000000000000000000000000000000000000000000000000000000000000000000000000000 00000000000000000000000000000000000000000000000004000082100000000000000000000000 000000000000000000000000000000e2475687470000006212000000010000002200000040000000 000000000000000000000002000006e227461647160000977000000004000000 Alguem sabe me explicar porque o *mesmo* codigo, aplicado ao *mesmo* executavel da' dumps diferentes? (comparando a 3a linha dos dois, enquanto um tem "e2d0d0a042", o do windows tem "e2d0a042", ou seja, o windows "comeu" um "d0"). Versoes do perl: This is perl, v5.8.0 built for i386-linux-thread-multi This is perl, v5.8.7 built for MSWin32-x86-multi-thread Ivo. From daniel em ruoso.com Fri Jul 21 13:45:40 2006 From: daniel em ruoso.com (Daniel Ruoso) Date: Fri, 21 Jul 2006 17:45:40 -0300 Subject: [Cascavel-pm] Perl Windows x Perl Linux In-Reply-To: References: Message-ID: <1153514740.5577.11.camel@cajazeiras.matriz.oktiva.com.br> Em Sex, 2006-07-21 às 17:39 -0300, Ivo Peixinho escreveu: > Prezados, > > Considerando o seguinte codigo: > > $path=$ARGV[0]; > open(MW,$path); > read MW,$buff,1024; > close ($buff); > print unpack('h1024',$buff); > print "\n"; Um chute no escuro... mas você não deveria usar binmode para funcionar direito no windows? e mais... acesse www.perlcritic.com e faça upload do seu código, ele vai te ajudar em várias coisas :) daniel From ivocarv em cais.rnp.br Fri Jul 21 13:52:55 2006 From: ivocarv em cais.rnp.br (Ivo Peixinho) Date: Fri, 21 Jul 2006 17:52:55 -0300 (BRT) Subject: [Cascavel-pm] Perl Windows x Perl Linux In-Reply-To: <1153514740.5577.11.camel@cajazeiras.matriz.oktiva.com.br> References: <1153514740.5577.11.camel@cajazeiras.matriz.oktiva.com.br> Message-ID: Chutou muito bem!!! o binmode resolveu! (agora a explicacao porque ele cortou apenas o 0d em uma unica posical em 1024 bytes de arquivo, vou ficar devendo). Existe algum site que enumere as diferencas do perl do windows pro linux? Ivo. On Fri, 21 Jul 2006, Daniel Ruoso wrote: > Em Sex, 2006-07-21 às 17:39 -0300, Ivo Peixinho escreveu: >> Prezados, >> >> Considerando o seguinte codigo: >> >> $path=$ARGV[0]; >> open(MW,$path); >> read MW,$buff,1024; >> close ($buff); >> print unpack('h1024',$buff); >> print "\n"; > > Um chute no escuro... mas você não deveria usar binmode para funcionar > direito no windows? > > e mais... acesse www.perlcritic.com e faça upload do seu código, ele vai > te ajudar em várias coisas :) > > daniel > > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm em pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > From daniel em ruoso.com Fri Jul 21 13:58:03 2006 From: daniel em ruoso.com (Daniel Ruoso) Date: Fri, 21 Jul 2006 17:58:03 -0300 Subject: [Cascavel-pm] Perl Windows x Perl Linux In-Reply-To: References: <1153514740.5577.11.camel@cajazeiras.matriz.oktiva.com.br> Message-ID: <1153515483.5577.14.camel@cajazeiras.matriz.oktiva.com.br> Em Sex, 2006-07-21 às 17:52 -0300, Ivo Peixinho escreveu: > o binmode resolveu! (agora a explicacao porque ele cortou apenas o 0d > em uma unica posical em 1024 bytes de arquivo, vou ficar devendo). Pq provavelmente ele pensou q era unicode ou qualquer coisa a ver com codificacao de caracteres ou quebras de linha... > Existe algum site que enumere as diferencas do perl do windows pro linux? Hmmm... não sei... mas #perl da freenode com certeza deve ajudar... P.S.: E aí, tentou o perlcritic.com? daniel From ivocarv em cais.rnp.br Fri Jul 21 14:03:44 2006 From: ivocarv em cais.rnp.br (Ivo Peixinho) Date: Fri, 21 Jul 2006 18:03:44 -0300 (BRT) Subject: [Cascavel-pm] Perl Windows x Perl Linux In-Reply-To: <1153515483.5577.14.camel@cajazeiras.matriz.oktiva.com.br> References: <1153514740.5577.11.camel@cajazeiras.matriz.oktiva.com.br> <1153515483.5577.14.camel@cajazeiras.matriz.oktiva.com.br> Message-ID: Nossa, deu uma tonelada de coisa :D. Mas para o que eu preciso, o codigo completo esta' funcionando. Abracos, Ivo. On Fri, 21 Jul 2006, Daniel Ruoso wrote: > Em Sex, 2006-07-21 às 17:52 -0300, Ivo Peixinho escreveu: >> o binmode resolveu! (agora a explicacao porque ele cortou apenas o 0d >> em uma unica posical em 1024 bytes de arquivo, vou ficar devendo). > > Pq provavelmente ele pensou q era unicode ou qualquer coisa a ver com > codificacao de caracteres ou quebras de linha... > >> Existe algum site que enumere as diferencas do perl do windows pro linux? > > Hmmm... não sei... mas #perl da freenode com certeza deve ajudar... > > P.S.: E aí, tentou o perlcritic.com? > > daniel > > > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm em pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > From daniel em ruoso.com Fri Jul 21 14:07:48 2006 From: daniel em ruoso.com (Daniel Ruoso) Date: Fri, 21 Jul 2006 18:07:48 -0300 Subject: [Cascavel-pm] Perl Windows x Perl Linux In-Reply-To: References: <1153514740.5577.11.camel@cajazeiras.matriz.oktiva.com.br> <1153515483.5577.14.camel@cajazeiras.matriz.oktiva.com.br> Message-ID: <1153516068.5577.16.camel@cajazeiras.matriz.oktiva.com.br> Em Sex, 2006-07-21 às 18:03 -0300, Ivo Peixinho escreveu: > Nossa, deu uma tonelada de coisa :D. Mas para o que eu preciso, o codigo > completo esta' funcionando. Porque, por mais que There Is More Than a Way To Do It, Some Ways are Better... :) daniel :) From acid06 em gmail.com Fri Jul 21 17:52:34 2006 From: acid06 em gmail.com (Nilson Santos Figueiredo Junior) Date: Fri, 21 Jul 2006 21:52:34 -0300 Subject: [Cascavel-pm] Perl Windows x Perl Linux In-Reply-To: References: <1153514740.5577.11.camel@cajazeiras.matriz.oktiva.com.br> Message-ID: <9a08c9b40607211752i6b8642acr5d813b7f9c593cce@mail.gmail.com> On 7/21/06, Ivo Peixinho wrote: > Existe algum site que enumere as diferencas do perl do windows pro linux? Isso não é uma diferença do perl. É uma diferença do sistema operacional. Sempre que você estiver lendo arquivos cujo conteúdo poderá, possivelmente, ser estritamente binário (por exemplo, um executável) você deve utilizar o binmode(). Somente leituras de arquivos que serão garantidamente somente texto podem omití-lo. Na gama de plataformas suportadas pelo perl, não é só o Windows que distingüe arquivos binários de arquivo texto. Existem outros que também fazem a mesma distinção (só não me pergunte quais). -Nilson Santos F. Jr. From acid06 em gmail.com Fri Jul 21 18:03:04 2006 From: acid06 em gmail.com (Nilson Santos Figueiredo Junior) Date: Fri, 21 Jul 2006 22:03:04 -0300 Subject: [Cascavel-pm] Perl Windows x Perl Linux In-Reply-To: <1153514740.5577.11.camel@cajazeiras.matriz.oktiva.com.br> References: <1153514740.5577.11.camel@cajazeiras.matriz.oktiva.com.br> Message-ID: <9a08c9b40607211803j7d12c94erd29f5872b780614d@mail.gmail.com> On 7/21/06, Daniel Ruoso wrote: > e mais... acesse www.perlcritic.com e faça upload do seu código, ele vai > te ajudar em várias coisas :) Particularmente, eu não gosto muito do Perl::Critic (eu tinha escrito essa frase de outra forma, mas achei melhor reescrevê-la num tom mais amigável ;-) ). Ele tem sugestões ridículas como, por exemplo, a não utilização de blocos "unless". Ou reclamar quando você coloca uma string sem variáveis interpoladas dentro de double-quotes. Ou quando você tem um método em sua classe que tem o mesmo nome de um builtin (e.g. delete, select, etc). Ele simplesmente também não gosta do estilo de documentação em que o POD está interpolado com o código (que eu também não sou muito fã, mas isso não é errado, pelo contrário, eu até queria gostar pois acho mais organizado). Tem a coisa ridícula dele esperar palavras chave do CVS também. E ele considera como "severidade: 4" (o que quer que seja isso em sua escala arbitrária de qualidade) o fato de alguns métodos não terminarem com um return(). Claro que isso tudo são apenas as configurações padrão e é customizável e bla bla bla. Mas eu não gosto e não recomendo. -Nilson Santos F. Jr. From leoccosta em gmail.com Mon Jul 24 21:08:22 2006 From: leoccosta em gmail.com (=?ISO-8859-1?Q?L=E9o?=) Date: Tue, 25 Jul 2006 01:08:22 -0300 Subject: [Cascavel-pm] =?iso-8859-1?q?d=FAvida_com_DBD=3A=3Amysql?= Message-ID: Caros usuários, estou tentando instalar o Bugzilla-2.22, mas tenho tido problemas com o módulo "DBD::mysql": # ./checksetup.pl Checking perl modules ... Checking for AppConfig (v1.52) ok: found v1.56 Checking for CGI (v2.93) ok: found v3.05 Checking for Data::Dumper (any) ok: found v2.121_02 Checking for Date::Format (v2.21) ok: found v2.22 Checking for DBI (v1.38) ok: found v1.47 Checking for File::Spec (v0.84) ok: found v3.01 Checking for File::Temp (any) ok: found v0.14 Checking for Template (v2.08) ok: found v2.15 Checking for Text::Wrap (v2001.0131) ok: found v2001.09292 Checking for Mail::Mailer (v1.67) ok: found v1.74 Checking for MIME::Base64 (v3.01) ok: found v3.05 Checking for MIME::Parser (v5.406) ok: found v5.415 Checking for Storable (any) ok: found v2.13 The following Perl modules are optional: Checking for GD (v1.20) ok: found v2.19 Checking for Chart::Base (v1.0) ok: found v2.3 Checking for XML::Twig (any) ok: found v3.24 Checking for GD::Graph (any) ok: found v1.43 Checking for GD::Text::Align (any) ok: found v1 Checking for PatchReader (v0.9.4) ok: found v0.9.5 Checking for Image::Magick (any) ok: found v6.1.8 Checking user setup ... Removing existing compiled templates ... Precompiling templates ... Bugzilla requires that perl's DBD::mysql be installed. To install this module, you can do: /usr/bin/perl -MCPAN -e 'install "DBD::mysql" Primeiro ele acha o módulo mas depois diz que o módulo tem que ser instalado. Já instalei o Bugzilla várias vezes, mas nas outras vezes utilizando rpms. Desta vez baixei os pacotes do apache e mysql nos sites. Acho que o problema é na minha instalação do Perl mesmo. Primeiro instalei pelo cpan o módulo DBD::mysql, mas como não funcionou instalei pelo YaST (SuSE!!!). Como não funcionou já desinstalei o rpm do DBD::mysql. Se alguém puder ajudar, muito obrigado, Abraço, Leonardo. -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060725/c8657e2c/attachment.html From lorn.br em gmail.com Tue Jul 25 06:03:52 2006 From: lorn.br em gmail.com (Lorn) Date: Tue, 25 Jul 2006 10:03:52 -0300 Subject: [Cascavel-pm] =?iso-8859-1?q?d=FAvida_com_DBD=3A=3Amysql?= In-Reply-To: References: Message-ID: voce fez o que ele recomendou? /usr/bin/perl -MCPAN -e 'install "DBD::mysql" On 7/25/06, Léo wrote: > > Caros usuários, > > estou tentando instalar o Bugzilla-2.22, mas tenho tido problemas com o > módulo "DBD::mysql": > > # ./checksetup.pl > > Checking perl modules ... > Checking for AppConfig (v1.52 ) ok: found v1.56 > Checking for CGI (v2.93) ok: found v3.05 > Checking for Data::Dumper (any) ok: found v2.121_02 > Checking for Date::Format (v2.21) ok: found v2.22 > Checking for DBI ( v1.38) ok: found v1.47 > Checking for File::Spec (v0.84) ok: found v3.01 > Checking for File::Temp (any) ok: found v0.14 > Checking for Template (v2.08) ok: found v2.15 > Checking for Text::Wrap ( v2001.0131) ok: found v2001.09292 > Checking for Mail::Mailer (v1.67) ok: found v1.74 > Checking for MIME::Base64 (v3.01) ok: found v3.05 > Checking for MIME::Parser (v5.406) ok: found v5.415 > Checking for Storable (any) ok: found v2.13 > > The following Perl modules are optional: > Checking for GD (v1.20) ok: found v2.19 > Checking for Chart::Base (v1.0) ok: found v2.3 > Checking for XML::Twig (any) ok: found v3.24 > Checking for GD::Graph (any) ok: found v1.43 > Checking for GD::Text::Align (any) ok: found v1 > Checking for PatchReader (v0.9.4) ok: found v0.9.5 > Checking for Image::Magick (any) ok: found v6.1.8 > > Checking user setup ... > Removing existing compiled templates ... > Precompiling templates ... > Bugzilla requires that perl's DBD::mysql be installed. > To install this module, you can do: > /usr/bin/perl -MCPAN -e 'install "DBD::mysql" > > Primeiro ele acha o módulo mas depois diz que o módulo tem que ser > instalado. > > Já instalei o Bugzilla várias vezes, mas nas outras vezes utilizando rpms. > Desta vez baixei os pacotes do apache e mysql nos sites. Acho que o problema > é na minha instalação do Perl mesmo. Primeiro instalei pelo cpan o módulo > DBD::mysql, mas como não funcionou instalei pelo YaST (SuSE!!!). Como não > funcionou já desinstalei o rpm do DBD::mysql. > > Se alguém puder ajudar, muito obrigado, > > Abraço, > > Leonardo. > > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm em pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > > -- Lorn - Slackware Linux www.slackwarezine.com.br -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060725/609f5617/attachment.html From leoccosta em gmail.com Tue Jul 25 10:12:24 2006 From: leoccosta em gmail.com (=?ISO-8859-1?Q?L=E9o?=) Date: Tue, 25 Jul 2006 14:12:24 -0300 Subject: [Cascavel-pm] =?iso-8859-1?q?d=FAvida_com_DBD=3A=3Amysql?= In-Reply-To: References: Message-ID: Sim. Dei esse comando e o cpan me retornou que esse módulo já está instalado. 2006/7/25, Lorn : > > voce fez o que ele recomendou? > > /usr/bin/perl -MCPAN -e 'install "DBD::mysql" > > > On 7/25/06, Léo wrote: > > > Caros usuários, > > estou tentando instalar o Bugzilla-2.22, mas tenho tido problemas com o > módulo "DBD::mysql": > > # ./checksetup.pl > > Checking perl modules ... > Checking for AppConfig ( v1.52 ) ok: found v1.56 > Checking for CGI (v2.93) ok: found v3.05 > Checking for Data::Dumper (any) ok: found v2.121_02 > Checking for Date::Format (v2.21) ok: found v2.22 > Checking for DBI ( v1.38) ok: found v1.47 > Checking for File::Spec (v0.84) ok: found v3.01 > Checking for File::Temp (any) ok: found v0.14 > Checking for Template (v2.08) ok: found v2.15 > Checking for Text::Wrap ( v2001.0131) ok: found v2001.09292 > Checking for Mail::Mailer (v1.67) ok: found v1.74 > Checking for MIME::Base64 (v3.01) ok: found v3.05 > Checking for MIME::Parser (v5.406) ok: found v5.415 > Checking for Storable (any) ok: found v2.13 > > The following Perl modules are optional: > Checking for GD (v1.20) ok: found v2.19 > Checking for Chart::Base (v1.0) ok: found v2.3 > Checking for XML::Twig (any) ok: found v3.24 > Checking for GD::Graph (any) ok: found v1.43 > Checking for GD::Text::Align (any) ok: found v1 > Checking for PatchReader (v0.9.4) ok: found v0.9.5 > Checking for Image::Magick (any) ok: found v6.1.8 > > Checking user setup ... > Removing existing compiled templates ... > Precompiling templates ... > Bugzilla requires that perl's DBD::mysql be installed. > To install this module, you can do: > /usr/bin/perl -MCPAN -e 'install "DBD::mysql" > > Primeiro ele acha o módulo mas depois diz que o módulo tem que ser > instalado. > > Já instalei o Bugzilla várias vezes, mas nas outras vezes utilizando rpms. > Desta vez baixei os pacotes do apache e mysql nos sites. Acho que o problema > é na minha instalação do Perl mesmo. Primeiro instalei pelo cpan o módulo > DBD::mysql, mas como não funcionou instalei pelo YaST (SuSE!!!). Como não > funcionou já desinstalei o rpm do DBD::mysql. > > Se alguém puder ajudar, muito obrigado, > > Abraço, > > Leonardo. > > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm em pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > > > > > -- > Lorn > - Slackware Linux > www.slackwarezine.com.br > > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm em pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > > -- Leonardo Corrêa msn -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060725/580b5538/attachment.html From PMontini em ymf.com.br Tue Jul 25 10:16:46 2006 From: PMontini em ymf.com.br (Paola Montini) Date: Tue, 25 Jul 2006 14:16:46 -0300 Subject: [Cascavel-pm] =?iso-8859-1?q?RES=3A__d=FAvida_com_DBD=3A=3Amysql?= In-Reply-To: Message-ID: <88C3C4DD4C530B4FAD96EC86F99095535DFC35@ymfspsrv03.ymfsp.local> Tenta procurar esse módulo no cpan ou em qualquer outro site, que tenha uma instalação do tipo .tar.gz, descompacte o arquivo na sua máquina e proceda com a instalação, verifique a versão do sabor de linux que está usando para ver se é compatível.... Pode ser esse o problema. Att *Paola Montini YMF-Consultoria Fone: 5010-9220 -----Mensagem original----- De: cascavel-pm-bounces+pmontini=ymf.com.br em pm.org [mailto:cascavel-pm-bounces+pmontini=ymf.com.br em pm.org]Em nome de Léo Enviada em: terça-feira, 25 de julho de 2006 14:12 Para: Cascavel Perl Mongers Assunto: Re: [Cascavel-pm] dúvida com DBD::mysql Sim. Dei esse comando e o cpan me retornou que esse módulo já está instalado. 2006/7/25, Lorn < lorn.br em gmail.com>: voce fez o que ele recomendou? /usr/bin/perl -MCPAN -e 'install "DBD::mysql" On 7/25/06, Léo < leoccosta em gmail.com> wrote: Caros usuários, estou tentando instalar o Bugzilla-2.22, mas tenho tido problemas com o módulo "DBD::mysql": # ./checksetup.pl Checking perl modules ... Checking for AppConfig ( v1.52 ) ok: found v1.56 Checking for CGI (v2.93) ok: found v3.05 Checking for Data::Dumper (any) ok: found v2.121_02 Checking for Date::Format (v2.21) ok: found v2.22 Checking for DBI ( v1.38) ok: found v1.47 Checking for File::Spec (v0.84) ok: found v3.01 Checking for File::Temp (any) ok: found v0.14 Checking for Template (v2.08) ok: found v2.15 Checking for Text::Wrap ( v2001.0131) ok: found v2001.09292 Checking for Mail::Mailer (v1.67) ok: found v1.74 Checking for MIME::Base64 (v3.01) ok: found v3.05 Checking for MIME::Parser (v5.406) ok: found v5.415 Checking for Storable (any) ok: found v2.13 The following Perl modules are optional: Checking for GD (v1.20) ok: found v2.19 Checking for Chart::Base (v1.0) ok: found v2.3 Checking for XML::Twig (any) ok: found v3.24 Checking for GD::Graph (any) ok: found v1.43 Checking for GD::Text::Align (any) ok: found v1 Checking for PatchReader (v0.9.4) ok: found v0.9.5 Checking for Image::Magick (any) ok: found v6.1.8 Checking user setup ... Removing existing compiled templates ... Precompiling templates ... Bugzilla requires that perl's DBD::mysql be installed. To install this module, you can do: /usr/bin/perl -MCPAN -e 'install "DBD::mysql" Primeiro ele acha o módulo mas depois diz que o módulo tem que ser instalado. Já instalei o Bugzilla várias vezes, mas nas outras vezes utilizando rpms. Desta vez baixei os pacotes do apache e mysql nos sites. Acho que o problema é na minha instalação do Perl mesmo. Primeiro instalei pelo cpan o módulo DBD::mysql, mas como não funcionou instalei pelo YaST (SuSE!!!). Como não funcionou já desinstalei o rpm do DBD::mysql. Se alguém puder ajudar, muito obrigado, Abraço, Leonardo. _______________________________________________ Cascavel-pm mailing list Cascavel-pm em pm.org http://mail.pm.org/mailman/listinfo/cascavel-pm -- Lorn - Slackware Linux www.slackwarezine.com.br _______________________________________________ Cascavel-pm mailing list Cascavel-pm em pm.org http://mail.pm.org/mailman/listinfo/cascavel-pm -- Leonardo Corrêa msn < leoccosta em hotmail.com> -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060725/eb49d4c4/attachment-0001.html From igor.sutton em gmail.com Tue Jul 25 10:26:18 2006 From: igor.sutton em gmail.com (Igor Sutton) Date: Tue, 25 Jul 2006 14:26:18 -0300 Subject: [Cascavel-pm] =?iso-8859-1?q?d=FAvida_com_DBD=3A=3Amysql?= In-Reply-To: References: Message-ID: <6c65a53f0607251026kf3b206dva1351e909169d274@mail.gmail.com> Oi Léo, Tente, na linha de comando: $ perl -MDBD::mysql -e0 Se não der problema algum, o módulo está instalado. Se você estiver em um Linux (assumindo que o updatedb seja executado de tempos em tempos...): $ locate mysql.pm Verifique se ele está em algum diretório do @INC $ perl -le 'print "@INC"' Caso você queira forçar a re-instalação do módulo no CPAN: cpan> force install DBD::mysql Caso o cpan continue reclamando que o módulo está instalado, tente cpan> look DBD::mysql $ make distclean; perl Makefile.PL; make; make install 2006/7/25, Léo : > > Caros usuários, > > estou tentando instalar o Bugzilla-2.22, mas tenho tido problemas com o > módulo "DBD::mysql": > > # ./checksetup.pl > > Checking perl modules ... > Checking for AppConfig (v1.52 ) ok: found v1.56 > Checking for CGI (v2.93) ok: found v3.05 > Checking for Data::Dumper (any) ok: found v2.121_02 > Checking for Date::Format (v2.21) ok: found v2.22 > Checking for DBI ( v1.38) ok: found v1.47 > Checking for File::Spec (v0.84) ok: found v3.01 > Checking for File::Temp (any) ok: found v0.14 > Checking for Template (v2.08) ok: found v2.15 > Checking for Text::Wrap ( v2001.0131) ok: found v2001.09292 > Checking for Mail::Mailer (v1.67) ok: found v1.74 > Checking for MIME::Base64 (v3.01) ok: found v3.05 > Checking for MIME::Parser (v5.406) ok: found v5.415 > Checking for Storable (any) ok: found v2.13 > > The following Perl modules are optional: > Checking for GD (v1.20) ok: found v2.19 > Checking for Chart::Base (v1.0) ok: found v2.3 > Checking for XML::Twig (any) ok: found v3.24 > Checking for GD::Graph (any) ok: found v1.43 > Checking for GD::Text::Align (any) ok: found v1 > Checking for PatchReader (v0.9.4) ok: found v0.9.5 > Checking for Image::Magick (any) ok: found v6.1.8 > > Checking user setup ... > Removing existing compiled templates ... > Precompiling templates ... > Bugzilla requires that perl's DBD::mysql be installed. > To install this module, you can do: > /usr/bin/perl -MCPAN -e 'install "DBD::mysql" > > Primeiro ele acha o módulo mas depois diz que o módulo tem que ser > instalado. > > Já instalei o Bugzilla várias vezes, mas nas outras vezes utilizando rpms. > Desta vez baixei os pacotes do apache e mysql nos sites. Acho que o problema > é na minha instalação do Perl mesmo. Primeiro instalei pelo cpan o módulo > DBD::mysql, mas como não funcionou instalei pelo YaST (SuSE!!!). Como não > funcionou já desinstalei o rpm do DBD::mysql. > > Se alguém puder ajudar, muito obrigado, > > Abraço, > > Leonardo. > > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm em pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > > -- Igor Sutton Lopes t: +55 51 9627.0779 e: igor.sutton em gmail.com -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060725/de5c6091/attachment.html From PMontini em ymf.com.br Tue Jul 25 14:11:04 2006 From: PMontini em ymf.com.br (Paola Montini) Date: Tue, 25 Jul 2006 18:11:04 -0300 Subject: [Cascavel-pm] =?iso-8859-1?q?Procurando_um_arquivo_dentro_de_uma_?= =?iso-8859-1?q?=E1rvore_de_diret=F3rio?= Message-ID: <88C3C4DD4C530B4FAD96EC86F99095535F5F98@ymfspsrv03.ymfsp.local> Olá Pessoal.... Preciso da ajuda de vocês.... Tenho uma raiz de diretório que se estende em n pastas e mais n subpastas e assim por diante, sei que dentro delas existem n arquivos com o nome POM.xml( arquivo do Maven). Preciso através de um script PERL encontrar todos os arquivos POM.xml dentro dessa raiz de diretórios. Já tentei com find mas não sei... não está funcionando.... Please me help é super urgente!!!!! Abs *Paola Montini YMF-Consultoria Fone: 5010-9220 -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060725/e98744cb/attachment.html From mda em embratel.net.br Tue Jul 25 14:15:05 2006 From: mda em embratel.net.br (=?ISO-8859-1?Q?Marco_A_P_D=B4Andrade?=) Date: Tue, 25 Jul 2006 18:15:05 -0300 Subject: [Cascavel-pm] =?iso-8859-1?q?Procurando_um_arquivo_dentro_de_uma_?= =?iso-8859-1?q?=E1rvore_de_diret=F3rio?= In-Reply-To: <88C3C4DD4C530B4FAD96EC86F99095535F5F98@ymfspsrv03.ymfsp.local> References: <88C3C4DD4C530B4FAD96EC86F99095535F5F98@ymfspsrv03.ymfsp.local> Message-ID: <44C689D9.8020204@embratel.net.br> Paola, Conhece a sintaxe do find do unix ? Tente gerar o codigo com find2perl ... Exemplos: find2perl -name POM.xml find2perl -name POM.xml -mtime +1 Cada saida resultará em um codigo para tratamentos apropriados ... Mais informações: perldoc find2perl perldoc File::Find search.cpan.org (file find) ... Paola Montini wrote: > Olá Pessoal.... > Preciso da ajuda de vocês.... > Tenho uma raiz de diretório que se estende em n pastas e mais > n subpastas e assim por diante, sei que dentro delas existem n > arquivos com o nome POM.xml( arquivo do Maven). > > Preciso através de um script PERL encontrar todos os arquivos > POM.xml dentro dessa raiz de diretórios. > Já tentei com find mas não sei... não está funcionando.... > > Please me help é super urgente!!!!! > Abs > > > bPaola Montini > YMF-Consultoria > Fone: 5010-9220 > >------------------------------------------------------------------------ > >_______________________________________________ >Cascavel-pm mailing list >Cascavel-pm em pm.org >http://mail.pm.org/mailman/listinfo/cascavel-pm > -- Marco Antonio P D'Andrade Gerencia Servicos Redes Clientes - (Servidores Internet) Embratel - Rio de Janeiro - RIT 521-4898 From igor.sutton em gmail.com Tue Jul 25 14:34:25 2006 From: igor.sutton em gmail.com (Igor Sutton) Date: Tue, 25 Jul 2006 18:34:25 -0300 Subject: [Cascavel-pm] =?iso-8859-1?q?Procurando_um_arquivo_dentro_de_uma_?= =?iso-8859-1?q?=E1rvore_de_diret=F3rio?= In-Reply-To: <88C3C4DD4C530B4FAD96EC86F99095535F5F98@ymfspsrv03.ymfsp.local> References: <88C3C4DD4C530B4FAD96EC86F99095535F5F98@ymfspsrv03.ymfsp.local> Message-ID: <6c65a53f0607251434w5a1b393cq5e7ee8b67630ebe7@mail.gmail.com> Você pode utilizar o File::Find. Abaixo está uma implementação rápida: use strict; use warnings; use File::Find; sub wanted { next unless m/pom\.xml/i; print $File::Find::name, "\n"; } find(\&wanted, "/meu/diretorio"); E, claro, também vale a dica do *maior* monge do Brasil (mda ;) que acabei de receber :) Em 25/07/06, Paola Montini escreveu: > > Olá Pessoal.... > Preciso da ajuda de vocês.... > Tenho uma raiz de diretório que se estende em n pastas e mais n > subpastas e assim por diante, sei que dentro delas existem n arquivos com o > nome POM.xml( arquivo do Maven). > > Preciso através de um script PERL encontrar todos os arquivos > POM.xml dentro dessa raiz de diretórios. > Já tentei com find mas não sei... não está funcionando.... > > Please me help é super urgente!!!!! > Abs > > bPaola Montini > YMF-Consultoria > Fone: 5010-9220 > > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm em pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > > -- Igor Sutton Lopes t: +55 51 9627.0779 e: igor.sutton em gmail.com -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060725/4082be57/attachment.html From leoccosta em gmail.com Wed Jul 26 19:13:13 2006 From: leoccosta em gmail.com (=?ISO-8859-1?Q?L=E9o?=) Date: Wed, 26 Jul 2006 23:13:13 -0300 Subject: [Cascavel-pm] =?iso-8859-1?q?d=FAvida_sobre_cpan?= Message-ID: Caros usuários, É possível desinstalar um módulo do cpan? Como faço? Eu procurei mas realmente não achei... é que sou bastante leigo em Perl. :) Valeu, Leonardo. -- Leonardo Corrêa msn -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060726/63f602aa/attachment.html From victor em bit-man.com.ar Wed Jul 26 15:45:31 2006 From: victor em bit-man.com.ar (=?iso-8859-1?Q?V=EDctor_A._Rodr=EDguez?=) Date: Wed, 26 Jul 2006 23:45:31 +0100 Subject: [Cascavel-pm] =?iso-8859-1?q?d=FAvida_sobre_cpan?= Message-ID: <20060727024531.295024980F7@favaloro.2xdtech.com.ar> Oi Leonardo, > Caros usuários,É possível desinstalar um módulo > do cpan? Como faço?Eu procurei mas realmente não > achei... é que sou bastante leigo em Perl. então você não tem lida a FAQ do CPAN ;-) http://www.cpan.org/misc/cpan-faq.html#How_delete_Perl_modules []'s -- Víctor A. Rodríguez (http://www.bit-man.com.ar) El bit Fantasma (Bit-Man) CaFe.pm - Perl Mongers Capital Federal (http://cafe.pm.org/) Probaste con Software Libre (http://www.bit-man.com.ar/cgi-bin/wiki.pl/AyudaCompu/SoftwareLibre ?? From glasswalk3r em yahoo.com.br Thu Jul 27 05:31:31 2006 From: glasswalk3r em yahoo.com.br (Alceu R. de Freitas Jr.) Date: Thu, 27 Jul 2006 12:31:31 +0000 (GMT) Subject: [Cascavel-pm] =?iso-8859-1?q?d=FAvida_sobre_cpan?= In-Reply-To: <20060727024531.295024980F7@favaloro.2xdtech.com.ar> Message-ID: <20060727123131.55685.qmail@web30805.mail.mud.yahoo.com> --- "Víctor A. Rodríguez" escreveu: > > Caros usuários,É possível desinstalar um módulo > > do cpan? Como faço?Eu procurei mas realmente não > > achei... é que sou > bastante leigo em Perl. > > então você não tem lida a FAQ do CPAN ;-) > http://www.cpan.org/misc/cpan-faq.html#How_delete_Perl_modules Se isso é tão trivial assim eu me pergunto porque o shell do CPAN já não fornece essa opção de remoção... []'s Alceu Alceu Rodrigues de Freitas Junior -------------------------------------- glasswalk3r em yahoo.com.br http://www.imortais.cjb.net ----------------------------------------------------------------------- A well-used door needs no oil on its hinges. A swift-flowing stream does not grow stagnant. Neither sound nor thoughts can travel through a vacuum. Software rots if not used. These are great mysteries -- The Tao Of Programming, 5.1 _______________________________________________________ Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho agora! http://br.mobile.yahoo.com/mailalertas/ From a.r.ferreira em gmail.com Thu Jul 27 05:46:08 2006 From: a.r.ferreira em gmail.com (Adriano Ferreira) Date: Thu, 27 Jul 2006 09:46:08 -0300 Subject: [Cascavel-pm] =?iso-8859-1?q?d=FAvida_sobre_cpan?= In-Reply-To: <20060727123131.55685.qmail@web30805.mail.mud.yahoo.com> References: <20060727024531.295024980F7@favaloro.2xdtech.com.ar> <20060727123131.55685.qmail@web30805.mail.mud.yahoo.com> Message-ID: <73ddeb6c0607270546t630a3f9fpb6a749f3546f55ec@mail.gmail.com> On 7/27/06, Alceu R. de Freitas Jr. wrote: > --- "Víctor A. Rodríguez" > > > Caros usuários,É possível desinstalar um módulo do cpan? > http://www.cpan.org/misc/cpan-faq.html#How_delete_Perl_modules > > Se isso é tão trivial assim eu me pergunto porque o > shell do CPAN já não fornece essa opção de remoção... Porque você está por sua conta se resolve apagar um módulo de que outros dependem. Como o Perl não mantém informação sobre as dependências dos módulos instalados (porque elas podem mudar de uma versão e para outra e ninguém construiu um mecanismo confiável para implementar esta funcionalidade), você pode fazer programas pararem de funcionar porque removeu módulos que deviam estar lá. Em geral, a reinstalação resolve. Parece que o CPANPLUS oferece esta funcionalidade. (Este não é um problema só do Perl. Em Windows, se você resolve desinstalar um programa, ele pergunta se você gostaria de desinstalar DLLs que *aparentemente* não tem outros programas usando. Se acontecer de ter programas que estão usando as DLLs mas não registraram sua dependência, você terá problemas. O mesmo vale para bibliotecas em Unix. Na maioria das vezes, não acontece, mas é bom saber que as coisas podem dar errado no caso de desinstalação.) Adriano. From acid06 em gmail.com Thu Jul 27 06:17:39 2006 From: acid06 em gmail.com (Nilson Santos Figueiredo Junior) Date: Thu, 27 Jul 2006 10:17:39 -0300 Subject: [Cascavel-pm] =?iso-8859-1?q?d=FAvida_sobre_cpan?= In-Reply-To: <20060727123131.55685.qmail@web30805.mail.mud.yahoo.com> References: <20060727024531.295024980F7@favaloro.2xdtech.com.ar> <20060727123131.55685.qmail@web30805.mail.mud.yahoo.com> Message-ID: <9a08c9b40607270617x4c742700j17c181b7c23c6aa2@mail.gmail.com> On 7/27/06, Alceu R. de Freitas Jr. wrote: > Se isso é tão trivial assim eu me pergunto porque o > shell do CPAN já não fornece essa opção de remoção... Porque não tem muito sentido remover um módulo. -Nilson Santos F. Jr. From a.r.ferreira em gmail.com Thu Jul 27 06:20:50 2006 From: a.r.ferreira em gmail.com (Adriano Ferreira) Date: Thu, 27 Jul 2006 10:20:50 -0300 Subject: [Cascavel-pm] =?iso-8859-1?q?d=FAvida_sobre_cpan?= In-Reply-To: <9a08c9b40607270617x4c742700j17c181b7c23c6aa2@mail.gmail.com> References: <20060727024531.295024980F7@favaloro.2xdtech.com.ar> <20060727123131.55685.qmail@web30805.mail.mud.yahoo.com> <9a08c9b40607270617x4c742700j17c181b7c23c6aa2@mail.gmail.com> Message-ID: <73ddeb6c0607270620g3182e71u74761881aaac4ec0@mail.gmail.com> On 7/27/06, Nilson Santos Figueiredo Junior wrote: > Porque não tem muito sentido remover um módulo. Se você instalou um módulo para um test drive e não gostou dele, faz sentido remover um módulo. From mdacwb em gmail.com Thu Jul 27 07:24:44 2006 From: mdacwb em gmail.com (Marco A P D'Andrade) Date: Thu, 27 Jul 2006 11:24:44 -0300 Subject: [Cascavel-pm] =?iso-8859-1?q?d=FAvida_sobre_cpan?= In-Reply-To: <73ddeb6c0607270620g3182e71u74761881aaac4ec0@mail.gmail.com> References: <20060727024531.295024980F7@favaloro.2xdtech.com.ar> <20060727123131.55685.qmail@web30805.mail.mud.yahoo.com> <9a08c9b40607270617x4c742700j17c181b7c23c6aa2@mail.gmail.com> <73ddeb6c0607270620g3182e71u74761881aaac4ec0@mail.gmail.com> Message-ID: <44C8CCAC.1070202@gmail.com> Bem, segue minha sugestão... Uma boa pratica, a ser feita para testar modulos é não instalar na arvore padrão, mas comumente desconhecida... perl Makefile.PL LIB=/tmp/td ... na hora de usar o modulo em teste (assumindo bash/sh): export PERL5LIB=/tmp/td ou em seu script: use lib qw( /tmp/td ); Desta maneira bastaria remover o diretorio de testes. Claro que a url informada para a documentação supre o requisito de remoção dos modulos (que por sinal eu desconhecia). Sds, Marco Antonio Adriano Ferreira wrote: >On 7/27/06, Nilson Santos Figueiredo Junior wrote: > > >>Porque não tem muito sentido remover um módulo. >> >> > >Se você instalou um módulo para um test drive e não gostou dele, faz >sentido remover um módulo. >_______________________________________________ >Cascavel-pm mailing list >Cascavel-pm em pm.org >http://mail.pm.org/mailman/listinfo/cascavel-pm > > > From PMontini em ymf.com.br Thu Jul 27 09:17:42 2006 From: PMontini em ymf.com.br (Paola Montini) Date: Thu, 27 Jul 2006 13:17:42 -0300 Subject: [Cascavel-pm] =?iso-8859-1?q?Substitui=E7=E3o_de_string_e_grava?= =?iso-8859-1?q?=E7=E3o_no_arquivo?= Message-ID: <88C3C4DD4C530B4FAD96EC86F9909553615328@ymfspsrv03.ymfsp.local> Pessoal, Tenho um arquivo XML no qual existe a string SNAPSHOT na tag de versão.Preciso encontrar essa tag dentro do arquivo e substituí-la pelo número da versão salvando o arquivo com essa informação nova. Fiz o script de teste abaixo, porém o que esta acontecendo, é ele encontra a string SNAPSHOT, porém não grava nada no arquivo, pior apaga o conteúdo do arquivo inteiro... Please o que estou fazendo de errado: #! /usr/bin/perl $local = "arquivoxml.xml"; open (ARQXML,"<$local"); $nome = SNAPSHOT; @texto = ; foreach $matriz (@texto) { if ($matriz =~ /$nome/) { print $matriz; $matriz =~ s/$nome/Beta2006.2.1/g; print ARQXML $matriz; } close (ARQXML); ps: sei que o comando de substituição tb está funcionando corretamente pois quando peço apenas para substituir e "printar" em tela funciona, o problema está realmente com o arquivo. Também é valido dizer que já tentei abrir o arquivo com > e >> e acontece a mesma coisa. TKS galera *Paola Montini YMF-Consultoria Fone: 5010-9220 -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060727/24c71cfb/attachment.html From nferraz em gmail.com Thu Jul 27 09:25:30 2006 From: nferraz em gmail.com (Nelson Ferraz) Date: Thu, 27 Jul 2006 17:25:30 +0100 Subject: [Cascavel-pm] =?iso-8859-1?q?Substitui=E7=E3o_de_string_e_grava?= =?iso-8859-1?q?=E7=E3o_no_arquivo?= In-Reply-To: <88C3C4DD4C530B4FAD96EC86F9909553615328@ymfspsrv03.ymfsp.local> References: <88C3C4DD4C530B4FAD96EC86F9909553615328@ymfspsrv03.ymfsp.local> Message-ID: <44C8E8FA.3000201@gmail.com> Se o que você quer fazer é uma simples substituição, pode usar o seguinte one-liner: perl -pi -e 's/foo/bar/g' arquivo.xml Leia a página "perlrun" para entender como essa mágica funciona. :) De qualquer forma, ao invés de copiar todo o conteúdo do arquivo para uma array, seria melhor trabalhar uma linha de cada vez: #!/usr/bin/perl while ( <> ) { s/foo/bar/g; print; } []s Nelson -- Nelson Corrêa de Toledo Ferraz Segula Technologies (www.segula.fr) Free Software Foundation Associate Member #3203 Sociedade Perl do Brasil (www.perl.org.br) Rede Livre de Compartilhamento de Cultura Digital From thomas em tcnet.com.br Thu Jul 27 09:31:04 2006 From: thomas em tcnet.com.br (Thomas Britis) Date: Thu, 27 Jul 2006 13:31:04 -0300 Subject: [Cascavel-pm] =?iso-8859-1?q?Substitui=E7=E3o_de_string_e_grava?= =?iso-8859-1?q?=E7=E3o_no_arquivo?= In-Reply-To: <88C3C4DD4C530B4FAD96EC86F9909553615328@ymfspsrv03.ymfsp.local> References: <88C3C4DD4C530B4FAD96EC86F9909553615328@ymfspsrv03.ymfsp.local> Message-ID: <44C8EA48.3090105@tcnet.com.br> Não seria necessário abrir dois filehandles?? Ou fechar o primeiro depois de jogá-lo para a array (perigoso para arquivos grandes) e abrí-lo novamente como escrita. open (ARQXML, "<$local"); @texto = ; close (ARQXML); open (ARQXML, ">$local"); Isso deve resolver. Paola Montini wrote: > Pessoal, > Tenho um arquivo XML no qual existe a string SNAPSHOT na tag de > versão.Preciso encontrar essa tag dentro do arquivo e substituí-la pelo > número da versão > > salvando o arquivo com essa informação nova. > Fiz o script de teste abaixo, porém o que esta acontecendo, é > ele encontra a string SNAPSHOT, porém não grava nada no arquivo, pior > apaga o conteúdo do arquivo inteiro... > > Please o que estou fazendo de errado: > > > #! /usr/bin/perl > $local = "arquivoxml.xml"; > open (ARQXML,"<$local"); > $nome = SNAPSHOT; > @texto = ; > foreach $matriz (@texto) > { > if ($matriz =~ /$nome/) > { > print $matriz; > $matriz =~ s/$nome/Beta2006.2.1/g; > print ARQXML $matriz; > } > close (ARQXML); > > ps: sei que o comando de substituição tb está funcionando corretamente > pois quando peço apenas para substituir e "printar" em tela funciona, o > problema está realmente com o arquivo. Também é valido dizer que já > tentei abrir o arquivo com > e >> e acontece a mesma coisa. > > TKS galera > > > > bPaola Montini > YMF-Consultoria > Fone: 5010-9220 > > > ------------------------------------------------------------------------ > > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm em pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm -- Thomas Storino Britis TCNet Informatica e Telecomunicacoes LTDA From igor.sutton em gmail.com Thu Jul 27 09:35:35 2006 From: igor.sutton em gmail.com (Igor Sutton) Date: Thu, 27 Jul 2006 13:35:35 -0300 Subject: [Cascavel-pm] =?iso-8859-1?q?Substitui=E7=E3o_de_string_e_grava?= =?iso-8859-1?q?=E7=E3o_no_arquivo?= In-Reply-To: <88C3C4DD4C530B4FAD96EC86F9909553615328@ymfspsrv03.ymfsp.local> References: <88C3C4DD4C530B4FAD96EC86F9909553615328@ymfspsrv03.ymfsp.local> Message-ID: <6c65a53f0607270935q1515ec17k7da8901cbcd82d3@mail.gmail.com> Oi, Você pode testar utilizar um código semelhante a este - fazendo o Perl se portar mais ou menos como o sed: #!/usr/bin/perl # diz para o Perl usar inline edit e configura a extensao do arquivo # de backup $^I = ".bak"; # faz as modificacoes necessarias. while (<>) { s/SNAPSHOT/1.1/ if /SNAPSHOT/; } Utilização: $ perl prog.pl arquivo.xml Em 27/07/06, Paola Montini escreveu: > > Pessoal, > Tenho um arquivo XML no qual existe a string SNAPSHOT na tag de > versão.Preciso encontrar essa tag dentro do arquivo e substituí-la pelo > número da versão > > salvando o arquivo com essa informação nova. > Fiz o script de teste abaixo, porém o que esta acontecendo, é ele > encontra a string SNAPSHOT, porém não grava nada no arquivo, pior apaga o > conteúdo do arquivo inteiro... > > Please o que estou fazendo de errado: > > #! /usr/bin/perl > $local = "arquivoxml.xml"; > open (ARQXML,"<$local"); > $nome = SNAPSHOT; > @texto = ; > foreach $matriz (@texto) > { > if ($matriz =~ /$nome/) > { > print $matriz; > $matriz =~ s/$nome/Beta2006.2.1/g; > print ARQXML $matriz; > } > close (ARQXML); > > ps: sei que o comando de substituição tb está funcionando corretamente > pois quando peço apenas para substituir e "printar" em tela funciona, o > problema está realmente com o arquivo. Também é valido dizer que já tentei > abrir o arquivo com > e >> e acontece a mesma coisa. > > TKS galera > > > bPaola Montini > YMF-Consultoria > Fone: 5010-9220 > > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm em pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > > -- Igor Sutton Lopes t: +55 51 9627.0779 e: igor.sutton em gmail.com -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060727/395efe5e/attachment.html From thomas em tcnet.com.br Thu Jul 27 09:35:54 2006 From: thomas em tcnet.com.br (Thomas Britis) Date: Thu, 27 Jul 2006 13:35:54 -0300 Subject: [Cascavel-pm] =?iso-8859-1?q?Substitui=E7=E3o_de_string_e_grava?= =?iso-8859-1?q?=E7=E3o_no_arquivo?= In-Reply-To: <44C8EA48.3090105@tcnet.com.br> References: <88C3C4DD4C530B4FAD96EC86F9909553615328@ymfspsrv03.ymfsp.local> <44C8EA48.3090105@tcnet.com.br> Message-ID: <44C8EB6A.5070207@tcnet.com.br> Também acho que dá pra se fazer usando open (ARQXML, "+<$local"); Thomas Britis wrote: > Não seria necessário abrir dois filehandles?? > Ou fechar o primeiro depois de jogá-lo para a array (perigoso para > arquivos grandes) e abrí-lo novamente como escrita. > open (ARQXML, "<$local"); > @texto = ; > close (ARQXML); > open (ARQXML, ">$local"); > > Isso deve resolver. > > Paola Montini wrote: > >>Pessoal, >> Tenho um arquivo XML no qual existe a string SNAPSHOT na tag de >>versão.Preciso encontrar essa tag dentro do arquivo e substituí-la pelo >>número da versão >> >>salvando o arquivo com essa informação nova. >> Fiz o script de teste abaixo, porém o que esta acontecendo, é >>ele encontra a string SNAPSHOT, porém não grava nada no arquivo, pior >>apaga o conteúdo do arquivo inteiro... >> >> Please o que estou fazendo de errado: >> >> >>#! /usr/bin/perl >>$local = "arquivoxml.xml"; >>open (ARQXML,"<$local"); >>$nome = SNAPSHOT; >>@texto = ; >>foreach $matriz (@texto) >> { >> if ($matriz =~ /$nome/) >> { >> print $matriz; >> $matriz =~ s/$nome/Beta2006.2.1/g; >> print ARQXML $matriz; >> } >>close (ARQXML); >> >>ps: sei que o comando de substituição tb está funcionando corretamente >>pois quando peço apenas para substituir e "printar" em tela funciona, o >>problema está realmente com o arquivo. Também é valido dizer que já >>tentei abrir o arquivo com > e >> e acontece a mesma coisa. >> >>TKS galera >> >> >> >>bPaola Montini >>YMF-Consultoria >>Fone: 5010-9220 >> >> >>------------------------------------------------------------------------ >> >>_______________________________________________ >>Cascavel-pm mailing list >>Cascavel-pm em pm.org >>http://mail.pm.org/mailman/listinfo/cascavel-pm > > -- Thomas Storino Britis TCNet Informatica e Telecomunicacoes LTDA From acid06 em gmail.com Thu Jul 27 09:42:30 2006 From: acid06 em gmail.com (Nilson Santos Figueiredo Junior) Date: Thu, 27 Jul 2006 13:42:30 -0300 Subject: [Cascavel-pm] =?iso-8859-1?q?d=FAvida_sobre_cpan?= In-Reply-To: <73ddeb6c0607270620g3182e71u74761881aaac4ec0@mail.gmail.com> References: <20060727024531.295024980F7@favaloro.2xdtech.com.ar> <20060727123131.55685.qmail@web30805.mail.mud.yahoo.com> <9a08c9b40607270617x4c742700j17c181b7c23c6aa2@mail.gmail.com> <73ddeb6c0607270620g3182e71u74761881aaac4ec0@mail.gmail.com> Message-ID: <9a08c9b40607270942p316500c6uc11090d1829a89dd@mail.gmail.com> On 7/27/06, Adriano Ferreira wrote: > Se você instalou um módulo para um test drive e não gostou dele, faz > sentido remover um módulo. Deixar ele no sistema não vai estragar nada e "economizar alguns KBs" não é uma justificativa suficiente pro trabalho que daria bolar um mecanismo de desinstalação. -Nilson Santos F. Jr. From PMontini em ymf.com.br Thu Jul 27 09:49:13 2006 From: PMontini em ymf.com.br (Paola Montini) Date: Thu, 27 Jul 2006 13:49:13 -0300 Subject: [Cascavel-pm] =?iso-8859-1?q?RES=3A__Substitui=E7=E3o_de_string_e?= =?iso-8859-1?q?_grava=E7=E3o_no_arquivo?= In-Reply-To: <44C8EB6A.5070207@tcnet.com.br> Message-ID: <88C3C4DD4C530B4FAD96EC86F990955362A64A@ymfspsrv03.ymfsp.local> Fiz as alterações sugeridas e agora tenho um pequeno erro #!/usr/bin/perl $local ="arquivoxml.xml"; open(ARQXML,"+<$local"); @texto = ; #close(ARQXML); #open (ARQXML,">$local"); $nome = SNAPSHOT; foreach $matriz (@texto) { if ($matriz =~ /$nome/) { $matriz =~ s/$nome/Beta2006.1.2/g; print ARQXML $matriz ; } close(ARQXML); ERRO: Missing right curly or square bracket at testexml.pl line 15, at end of line syntax error at testexml.pl line 15, at EOF Execution of testexml.pl aborted due to compilation errors. Ai meu Deus tô perdida.... *Paola Montini YMF-Consultoria Fone: 5010-9220 -----Mensagem original----- De: cascavel-pm-bounces+pmontini=ymf.com.br em pm.org [mailto:cascavel-pm-bounces+pmontini=ymf.com.br em pm.org]Em nome de Thomas Britis Enviada em: quinta-feira, 27 de julho de 2006 13:36 Para: Cascavel Perl Mongers Assunto: Re: [Cascavel-pm] Substituição de string e gravação no arquivo Também acho que dá pra se fazer usando open (ARQXML, "+<$local"); Thomas Britis wrote: > Não seria necessário abrir dois filehandles?? > Ou fechar o primeiro depois de jogá-lo para a array (perigoso para > arquivos grandes) e abrí-lo novamente como escrita. > open (ARQXML, "<$local"); > @texto = ; > close (ARQXML); > open (ARQXML, ">$local"); > > Isso deve resolver. > > Paola Montini wrote: > >>Pessoal, >> Tenho um arquivo XML no qual existe a string SNAPSHOT na tag de >>versão.Preciso encontrar essa tag dentro do arquivo e substituí-la pelo >>número da versão >> >>salvando o arquivo com essa informação nova. >> Fiz o script de teste abaixo, porém o que esta acontecendo, é >>ele encontra a string SNAPSHOT, porém não grava nada no arquivo, pior >>apaga o conteúdo do arquivo inteiro... >> >> Please o que estou fazendo de errado: >> >> >>#! /usr/bin/perl >>$local = "arquivoxml.xml"; >>open (ARQXML,"<$local"); >>$nome = SNAPSHOT; >>@texto = ; >>foreach $matriz (@texto) >> { >> if ($matriz =~ /$nome/) >> { >> print $matriz; >> $matriz =~ s/$nome/Beta2006.2.1/g; >> print ARQXML $matriz; >> } >>close (ARQXML); >> >>ps: sei que o comando de substituição tb está funcionando corretamente >>pois quando peço apenas para substituir e "printar" em tela funciona, o >>problema está realmente com o arquivo. Também é valido dizer que já >>tentei abrir o arquivo com > e >> e acontece a mesma coisa. >> >>TKS galera >> >> >> >>bPaola Montini >>YMF-Consultoria >>Fone: 5010-9220 >> >> >>------------------------------------------------------------------------ >> >>_______________________________________________ >>Cascavel-pm mailing list >>Cascavel-pm em pm.org >>http://mail.pm.org/mailman/listinfo/cascavel-pm > > -- Thomas Storino Britis TCNet Informatica e Telecomunicacoes LTDA _______________________________________________ Cascavel-pm mailing list Cascavel-pm em pm.org http://mail.pm.org/mailman/listinfo/cascavel-pm From acid06 em gmail.com Thu Jul 27 09:55:13 2006 From: acid06 em gmail.com (Nilson Santos Figueiredo Junior) Date: Thu, 27 Jul 2006 13:55:13 -0300 Subject: [Cascavel-pm] =?iso-8859-1?q?RES=3A_Substitui=E7=E3o_de_string_e_?= =?iso-8859-1?q?grava=E7=E3o_no_arquivo?= In-Reply-To: <88C3C4DD4C530B4FAD96EC86F990955362A64A@ymfspsrv03.ymfsp.local> References: <44C8EB6A.5070207@tcnet.com.br> <88C3C4DD4C530B4FAD96EC86F990955362A64A@ymfspsrv03.ymfsp.local> Message-ID: <9a08c9b40607270955i2a2392edof45ad5a087ad8e28@mail.gmail.com> On 7/27/06, Paola Montini wrote: > Missing right curly or square bracket at testexml.pl line 15, at end of line > syntax error at testexml.pl line 15, at EOF Você tentou olhar se existe algum erro próximo ao final da linha 15 do arquivo testexml.pl, aonde está faltando uma chave ou colchete de fechamento? -Nilson Santos F. Jr. From PMontini em ymf.com.br Thu Jul 27 09:59:05 2006 From: PMontini em ymf.com.br (Paola Montini) Date: Thu, 27 Jul 2006 13:59:05 -0300 Subject: [Cascavel-pm] =?iso-8859-1?q?RES=3A__RES=3A__Substitui=E7=E3o_de_?= =?iso-8859-1?q?string_e_grava=E7=E3o_no_arquivo?= In-Reply-To: <88C3C4DD4C530B4FAD96EC86F990955362A64A@ymfspsrv03.ymfsp.local> Message-ID: <88C3C4DD4C530B4FAD96EC86F990955362A65E@ymfspsrv03.ymfsp.local> Meninos deu certo, o erro ocorria porque esqueci de fechar o foreach... OBRIGADAÇO *Paola Montini YMF-Consultoria Fone: 5010-9220 -----Mensagem original----- De: cascavel-pm-bounces+pmontini=ymf.com.br em pm.org [mailto:cascavel-pm-bounces+pmontini=ymf.com.br em pm.org]Em nome de Paola Montini Enviada em: quinta-feira, 27 de julho de 2006 13:49 Para: Cascavel Perl Mongers Assunto: [Cascavel-pm] RES: Substituição de string e gravação no arquivo Fiz as alterações sugeridas e agora tenho um pequeno erro #!/usr/bin/perl $local ="arquivoxml.xml"; open(ARQXML,"+<$local"); @texto = ; #close(ARQXML); #open (ARQXML,">$local"); $nome = SNAPSHOT; foreach $matriz (@texto) { if ($matriz =~ /$nome/) { $matriz =~ s/$nome/Beta2006.1.2/g; print ARQXML $matriz ; } close(ARQXML); ERRO: Missing right curly or square bracket at testexml.pl line 15, at end of line syntax error at testexml.pl line 15, at EOF Execution of testexml.pl aborted due to compilation errors. Ai meu Deus tô perdida.... *Paola Montini YMF-Consultoria Fone: 5010-9220 -----Mensagem original----- De: cascavel-pm-bounces+pmontini=ymf.com.br em pm.org [mailto:cascavel-pm-bounces+pmontini=ymf.com.br em pm.org]Em nome de Thomas Britis Enviada em: quinta-feira, 27 de julho de 2006 13:36 Para: Cascavel Perl Mongers Assunto: Re: [Cascavel-pm] Substituição de string e gravação no arquivo Também acho que dá pra se fazer usando open (ARQXML, "+<$local"); Thomas Britis wrote: > Não seria necessário abrir dois filehandles?? > Ou fechar o primeiro depois de jogá-lo para a array (perigoso para > arquivos grandes) e abrí-lo novamente como escrita. > open (ARQXML, "<$local"); > @texto = ; > close (ARQXML); > open (ARQXML, ">$local"); > > Isso deve resolver. > > Paola Montini wrote: > >>Pessoal, >> Tenho um arquivo XML no qual existe a string SNAPSHOT na tag de >>versão.Preciso encontrar essa tag dentro do arquivo e substituí-la pelo >>número da versão >> >>salvando o arquivo com essa informação nova. >> Fiz o script de teste abaixo, porém o que esta acontecendo, é >>ele encontra a string SNAPSHOT, porém não grava nada no arquivo, pior >>apaga o conteúdo do arquivo inteiro... >> >> Please o que estou fazendo de errado: >> >> >>#! /usr/bin/perl >>$local = "arquivoxml.xml"; >>open (ARQXML,"<$local"); >>$nome = SNAPSHOT; >>@texto = ; >>foreach $matriz (@texto) >> { >> if ($matriz =~ /$nome/) >> { >> print $matriz; >> $matriz =~ s/$nome/Beta2006.2.1/g; >> print ARQXML $matriz; >> } >>close (ARQXML); >> >>ps: sei que o comando de substituição tb está funcionando corretamente >>pois quando peço apenas para substituir e "printar" em tela funciona, o >>problema está realmente com o arquivo. Também é valido dizer que já >>tentei abrir o arquivo com > e >> e acontece a mesma coisa. >> >>TKS galera >> >> >> >>bPaola Montini >>YMF-Consultoria >>Fone: 5010-9220 >> >> >>------------------------------------------------------------------------ >> >>_______________________________________________ >>Cascavel-pm mailing list >>Cascavel-pm em pm.org >>http://mail.pm.org/mailman/listinfo/cascavel-pm > > -- Thomas Storino Britis TCNet Informatica e Telecomunicacoes LTDA _______________________________________________ Cascavel-pm mailing list Cascavel-pm em pm.org http://mail.pm.org/mailman/listinfo/cascavel-pm _______________________________________________ Cascavel-pm mailing list Cascavel-pm em pm.org http://mail.pm.org/mailman/listinfo/cascavel-pm From PMontini em ymf.com.br Thu Jul 27 09:59:26 2006 From: PMontini em ymf.com.br (Paola Montini) Date: Thu, 27 Jul 2006 13:59:26 -0300 Subject: [Cascavel-pm] =?iso-8859-1?q?RES=3A_RES=3A_Substitui=E7=E3o_de_st?= =?iso-8859-1?q?ring_e_grava=E7=E3o_no_arquivo?= In-Reply-To: <9a08c9b40607270955i2a2392edof45ad5a087ad8e28@mail.gmail.com> Message-ID: <88C3C4DD4C530B4FAD96EC86F990955362A65F@ymfspsrv03.ymfsp.local> é isso nilson, o erro era esse *Paola Montini YMF-Consultoria Fone: 5010-9220 -----Mensagem original----- De: cascavel-pm-bounces+pmontini=ymf.com.br em pm.org [mailto:cascavel-pm-bounces+pmontini=ymf.com.br em pm.org]Em nome de Nilson Santos Figueiredo Junior Enviada em: quinta-feira, 27 de julho de 2006 13:55 Para: Cascavel Perl Mongers Assunto: Re: [Cascavel-pm]RES: Substituição de string e gravação no arquivo On 7/27/06, Paola Montini wrote: > Missing right curly or square bracket at testexml.pl line 15, at end of line > syntax error at testexml.pl line 15, at EOF Você tentou olhar se existe algum erro próximo ao final da linha 15 do arquivo testexml.pl, aonde está faltando uma chave ou colchete de fechamento? -Nilson Santos F. Jr. _______________________________________________ Cascavel-pm mailing list Cascavel-pm em pm.org http://mail.pm.org/mailman/listinfo/cascavel-pm From PMontini em ymf.com.br Thu Jul 27 10:01:55 2006 From: PMontini em ymf.com.br (Paola Montini) Date: Thu, 27 Jul 2006 14:01:55 -0300 Subject: [Cascavel-pm] =?iso-8859-1?q?RES=3A__RES=3A_RES=3A_Substitui=E7?= =?iso-8859-1?q?=E3o_de_string_e_grava=E7=E3o_no_arquivo?= In-Reply-To: <88C3C4DD4C530B4FAD96EC86F990955362A65F@ymfspsrv03.ymfsp.local> Message-ID: <88C3C4DD4C530B4FAD96EC86F990955362A672@ymfspsrv03.ymfsp.local> Meleca falei rápido demais.... o que esta acontecendo é que ele está colocando uma linha a mais no meu arquivo vejam: Amplis ymf-utils SNAPSHOT Beta2006.1.2 #!/usr/bin/perl $local ="arquivoxml.xml"; open(ARQXML,"+<$local"); @texto = ; $nome = SNAPSHOT; foreach $matriz (@texto) { if ($matriz =~ /$nome/) { $matriz =~ s/$nome/Beta2006.1.2/g; print ARQXML $matriz ; } } *Paola Montini YMF-Consultoria Fone: 5010-9220 -----Mensagem original----- De: cascavel-pm-bounces+pmontini=ymf.com.br em pm.org [mailto:cascavel-pm-bounces+pmontini=ymf.com.br em pm.org]Em nome de Paola Montini Enviada em: quinta-feira, 27 de julho de 2006 13:59 Para: Cascavel Perl Mongers Assunto: [Cascavel-pm] RES: RES: Substituição de string e gravação no arquivo é isso nilson, o erro era esse *Paola Montini YMF-Consultoria Fone: 5010-9220 -----Mensagem original----- De: cascavel-pm-bounces+pmontini=ymf.com.br em pm.org [mailto:cascavel-pm-bounces+pmontini=ymf.com.br em pm.org]Em nome de Nilson Santos Figueiredo Junior Enviada em: quinta-feira, 27 de julho de 2006 13:55 Para: Cascavel Perl Mongers Assunto: Re: [Cascavel-pm]RES: Substituição de string e gravação no arquivo On 7/27/06, Paola Montini wrote: > Missing right curly or square bracket at testexml.pl line 15, at end of line > syntax error at testexml.pl line 15, at EOF Você tentou olhar se existe algum erro próximo ao final da linha 15 do arquivo testexml.pl, aonde está faltando uma chave ou colchete de fechamento? -Nilson Santos F. Jr. _______________________________________________ Cascavel-pm mailing list Cascavel-pm em pm.org http://mail.pm.org/mailman/listinfo/cascavel-pm _______________________________________________ Cascavel-pm mailing list Cascavel-pm em pm.org http://mail.pm.org/mailman/listinfo/cascavel-pm From igor.sutton em gmail.com Thu Jul 27 10:05:21 2006 From: igor.sutton em gmail.com (Igor Sutton) Date: Thu, 27 Jul 2006 14:05:21 -0300 Subject: [Cascavel-pm] =?iso-8859-1?q?RES=3A_RES=3A_RES=3A_Substitui=E7=E3?= =?iso-8859-1?q?o_de_string_e_grava=E7=E3o_no_arquivo?= In-Reply-To: <88C3C4DD4C530B4FAD96EC86F990955362A672@ymfspsrv03.ymfsp.local> References: <88C3C4DD4C530B4FAD96EC86F990955362A65F@ymfspsrv03.ymfsp.local> <88C3C4DD4C530B4FAD96EC86F990955362A672@ymfspsrv03.ymfsp.local> Message-ID: <6c65a53f0607271005p479a6b3bs5242bde7377b2669@mail.gmail.com> No exemplo que o Nelson postou ( e no meu também ) isso não acontece. Dê uma olhada, pois o que você precisa está lá. Em 27/07/06, Paola Montini escreveu: > > Meleca falei rápido demais.... > o que esta acontecendo é que ele está colocando uma linha a mais no meu > arquivo vejam: > > Amplis > ymf-utils > SNAPSHOT > Beta2006.1.2 > > > #!/usr/bin/perl > $local ="arquivoxml.xml"; > open(ARQXML,"+<$local"); > @texto = ; > $nome = SNAPSHOT; > foreach $matriz (@texto) > { > if ($matriz =~ /$nome/) > { > $matriz =~ s/$nome/Beta2006.1.2/g; > print ARQXML $matriz ; > } > } > > > > *Paola Montini > YMF-Consultoria > Fone: 5010-9220 > > > -----Mensagem original----- > De: cascavel-pm-bounces+pmontini=ymf.com.br em pm.org > [mailto:cascavel-pm-bounces+pmontini=ymf.com.br em pm.org]Em nome de Paola > Montini > Enviada em: quinta-feira, 27 de julho de 2006 13:59 > Para: Cascavel Perl Mongers > Assunto: [Cascavel-pm] RES: RES: Substituição de string e gravação no > arquivo > > > é isso nilson, o erro era esse > > *Paola Montini > YMF-Consultoria > Fone: 5010-9220 > > > -----Mensagem original----- > De: cascavel-pm-bounces+pmontini=ymf.com.br em pm.org > [mailto:cascavel-pm-bounces+pmontini=ymf.com.br em pm.org]Em nome de Nilson > Santos Figueiredo Junior > Enviada em: quinta-feira, 27 de julho de 2006 13:55 > Para: Cascavel Perl Mongers > Assunto: Re: [Cascavel-pm]RES: Substituição de string e gravação no > arquivo > > > On 7/27/06, Paola Montini wrote: > > Missing right curly or square bracket at testexml.pl line 15, at end of > line > > syntax error at testexml.pl line 15, at EOF > > Você tentou olhar se existe algum erro próximo ao final da linha 15 do > arquivo testexml.pl, aonde está faltando uma chave ou colchete de > fechamento? > > -Nilson Santos F. Jr. > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm em pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm em pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm em pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > -- Igor Sutton Lopes t: +55 51 9627.0779 e: igor.sutton em gmail.com -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060727/e03b8052/attachment.html From PMontini em ymf.com.br Thu Jul 27 10:19:14 2006 From: PMontini em ymf.com.br (Paola Montini) Date: Thu, 27 Jul 2006 14:19:14 -0300 Subject: [Cascavel-pm] =?iso-8859-1?q?RES=3A_RES=3A_RES=3A_RES=3A_Substitu?= =?iso-8859-1?q?i=E7=E3o_de_string_e_grava=E7=E3o_no_arquivo?= In-Reply-To: <6c65a53f0607271005p479a6b3bs5242bde7377b2669@mail.gmail.com> Message-ID: <88C3C4DD4C530B4FAD96EC86F990955362A6CE@ymfspsrv03.ymfsp.local> Desculpe Igor, mas a sua solução não está funcionando nessa linha s/SNAPSHOT/1.1/ if /SNAPSHOT/;. Att *Paola Montini YMF-Consultoria Fone: 5010-9220 -----Mensagem original----- De: cascavel-pm-bounces+pmontini=ymf.com.br em pm.org [mailto:cascavel-pm-bounces+pmontini=ymf.com.br em pm.org]Em nome de Igor Sutton Enviada em: quinta-feira, 27 de julho de 2006 14:05 Para: Cascavel Perl Mongers Assunto: Re: [Cascavel-pm]RES: RES: RES: Substituição de string e gravação no arquivo No exemplo que o Nelson postou ( e no meu também ) isso não acontece. Dê uma olhada, pois o que você precisa está lá. Em 27/07/06, Paola Montini < PMontini em ymf.com.br> escreveu: Meleca falei rápido demais.... o que esta acontecendo é que ele está colocando uma linha a mais no meu arquivo vejam: Amplis ymf-utils SNAPSHOT Beta2006.1.2 #!/usr/bin/perl $local =" arquivoxml.xml"; open(ARQXML,"+<$local"); @texto = ; $nome = SNAPSHOT; foreach $matriz (@texto) { if ($matriz =~ /$nome/) { $matriz =~ s/$nome/Beta2006.1.2/g; print ARQXML $matriz ; } } *Paola Montini YMF-Consultoria Fone: 5010-9220 -----Mensagem original----- De: cascavel-pm-bounces+pmontini= ymf.com.br em pm.org [mailto: cascavel-pm-bounces+pmontini=ymf.com.br em pm.org]Em nome de Paola Montini Enviada em: quinta-feira, 27 de julho de 2006 13:59 Para: Cascavel Perl Mongers Assunto: [Cascavel-pm] RES: RES: Substituição de string e gravação no arquivo é isso nilson, o erro era esse *Paola Montini YMF-Consultoria Fone: 5010-9220 -----Mensagem original----- De: cascavel-pm-bounces+pmontini= ymf.com.br em pm.org [mailto: cascavel-pm-bounces+pmontini=ymf.com.br em pm.org ]Em nome de Nilson Santos Figueiredo Junior Enviada em: quinta-feira, 27 de julho de 2006 13:55 Para: Cascavel Perl Mongers Assunto: Re: [Cascavel-pm]RES: Substituição de string e gravação no arquivo On 7/27/06, Paola Montini < PMontini em ymf.com.br> wrote: > Missing right curly or square bracket at testexml.pl line 15, at end of line > syntax error at testexml.pl line 15, at EOF Você tentou olhar se existe algum erro próximo ao final da linha 15 do arquivo testexml.pl, aonde está faltando uma chave ou colchete de fechamento? -Nilson Santos F. Jr. _______________________________________________ Cascavel-pm mailing list Cascavel-pm em pm.org http://mail.pm.org/mailman/listinfo/cascavel-pm _______________________________________________ Cascavel-pm mailing list Cascavel-pm em pm.org http://mail.pm.org/mailman/listinfo/cascavel-pm _______________________________________________ Cascavel-pm mailing list Cascavel-pm em pm.org http://mail.pm.org/mailman/listinfo/cascavel-pm -- Igor Sutton Lopes t: +55 51 9627.0779 e: igor.sutton em gmail.com -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060727/7581e29e/attachment.html From igor.sutton em gmail.com Thu Jul 27 10:42:52 2006 From: igor.sutton em gmail.com (Igor Sutton) Date: Thu, 27 Jul 2006 14:42:52 -0300 Subject: [Cascavel-pm] =?iso-8859-1?q?RES=3A_RES=3A_RES=3A_RES=3A_Substitu?= =?iso-8859-1?q?i=E7=E3o_de_string_e_grava=E7=E3o_no_arquivo?= In-Reply-To: <88C3C4DD4C530B4FAD96EC86F990955362A6CE@ymfspsrv03.ymfsp.local> References: <6c65a53f0607271005p479a6b3bs5242bde7377b2669@mail.gmail.com> <88C3C4DD4C530B4FAD96EC86F990955362A6CE@ymfspsrv03.ymfsp.local> Message-ID: <6c65a53f0607271042u6cd1de8aidfb50e5c50a743b6@mail.gmail.com> Como você executou o seu programa? input.xml: 1.1 teste.pl: #!/usr/bin/perl $^I = ".bak"; while(<>) { s/SNAPSHOT/1.1/; print; } como executar: $ perl teste.pl input.xml saída: $ ls input.xml* input.xml input.xml.bak $ cat input.xml 1.1 Em 27/07/06, Paola Montini escreveu: > > Desculpe Igor, mas a sua solução não está funcionando nessa linha > s/SNAPSHOT/1.1/ if /SNAPSHOT/;. > > Att > > > bPaola Montini > YMF-Consultoria > Fone: 5010-9220 > > -----Mensagem original----- > *De:* cascavel-pm-bounces+pmontini=ymf.com.br em pm.org [mailto: > cascavel-pm-bounces+pmontini=ymf.com.br em pm.org]*Em nome de *Igor Sutton > *Enviada em:* quinta-feira, 27 de julho de 2006 14:05 > *Para:* Cascavel Perl Mongers > *Assunto:* Re: [Cascavel-pm]RES: RES: RES: Substituição de string e > gravação no arquivo > > No exemplo que o Nelson postou ( e no meu também ) isso não acontece. Dê > uma olhada, pois o que você precisa está lá. > > Em 27/07/06, Paola Montini < PMontini em ymf.com.br> escreveu: > > > > Meleca falei rápido demais.... > > o que esta acontecendo é que ele está colocando uma linha a mais no meu > > arquivo vejam: > > > > Amplis > > ymf-utils > > SNAPSHOT > > Beta2006.1.2 > > > > > > #!/usr/bin/perl > > $local =" arquivoxml.xml"; > > open(ARQXML,"+<$local"); > > @texto = ; > > $nome = SNAPSHOT; > > foreach $matriz (@texto) > > { > > if ($matriz =~ /$nome/) > > { > > $matriz =~ s/$nome/Beta2006.1.2/g; > > print ARQXML $matriz ; > > } > > } > > > > > > > > *Paola Montini > > YMF-Consultoria > > Fone: 5010-9220 > > > > > > -----Mensagem original----- > > De: cascavel-pm-bounces+pmontini= ymf.com.br em pm.org > > [mailto:cascavel-pm-bounces+pmontini=ymf.com.br em pm.org]Em nome de Paola > > Montini > > Enviada em: quinta-feira, 27 de julho de 2006 13:59 > > Para: Cascavel Perl Mongers > > Assunto: [Cascavel-pm] RES: RES: Substituição de string e gravação no > > arquivo > > > > > > é isso nilson, o erro era esse > > > > *Paola Montini > > YMF-Consultoria > > Fone: 5010-9220 > > > > > > -----Mensagem original----- > > De: cascavel-pm-bounces+pmontini=ymf.com.br em pm.org > > [mailto:cascavel-pm-bounces+pmontini=ymf.com.br em pm.org ]Em nome de > > Nilson > > Santos Figueiredo Junior > > Enviada em: quinta-feira, 27 de julho de 2006 13:55 > > Para: Cascavel Perl Mongers > > Assunto: Re: [Cascavel-pm]RES: Substituição de string e gravação no > > arquivo > > > > > > On 7/27/06, Paola Montini wrote: > > > Missing right curly or square bracket at testexml.pl line 15, at end > > of line > > > syntax error at testexml.pl line 15, at EOF > > > > Você tentou olhar se existe algum erro próximo ao final da linha 15 do > > arquivo testexml.pl, aonde está faltando uma chave ou colchete de > > fechamento? > > > > -Nilson Santos F. Jr. > > _______________________________________________ > > Cascavel-pm mailing list > > Cascavel-pm em pm.org > > http://mail.pm.org/mailman/listinfo/cascavel-pm > > _______________________________________________ > > Cascavel-pm mailing list > > Cascavel-pm em pm.org > > http://mail.pm.org/mailman/listinfo/cascavel-pm > > _______________________________________________ > > Cascavel-pm mailing list > > Cascavel-pm em pm.org > > http://mail.pm.org/mailman/listinfo/cascavel-pm > > > > > > -- > Igor Sutton Lopes > t: +55 51 9627.0779 > e: igor.sutton em gmail.com > > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm em pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > > -- Igor Sutton Lopes t: +55 51 9627.0779 e: igor.sutton em gmail.com -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060727/7933bef1/attachment-0001.html From daniel em ruoso.com Thu Jul 27 10:45:40 2006 From: daniel em ruoso.com (Daniel Ruoso) Date: Thu, 27 Jul 2006 14:45:40 -0300 Subject: [Cascavel-pm] =?iso-8859-1?q?Substitui=E7=E3o_de_string_e_grava?= =?iso-8859-1?q?=E7=E3o_no_arquivo?= In-Reply-To: <88C3C4DD4C530B4FAD96EC86F9909553615328@ymfspsrv03.ymfsp.local> References: <88C3C4DD4C530B4FAD96EC86F9909553615328@ymfspsrv03.ymfsp.local> Message-ID: <1154022340.5157.9.camel@cajazeiras.matriz.oktiva.com.br> Em Qui, 2006-07-27 às 13:17 -0300, Paola Montini escreveu: > Pessoal, > Tenho um arquivo XML no qual existe a string SNAPSHOT na tag > de versão.Preciso encontrar essa tag dentro do arquivo e substituí-la > pelo número da versão perl -pi -e 's/SNAPSHOT/1.1/g' arquivo.xml daniel From igor.sutton em gmail.com Thu Jul 27 11:01:06 2006 From: igor.sutton em gmail.com (Igor Sutton) Date: Thu, 27 Jul 2006 15:01:06 -0300 Subject: [Cascavel-pm] =?iso-8859-1?q?Substitui=E7=E3o_de_string_e_grava?= =?iso-8859-1?q?=E7=E3o_no_arquivo?= In-Reply-To: <88C3C4DD4C530B4FAD96EC86F9909553615328@ymfspsrv03.ymfsp.local> References: <88C3C4DD4C530B4FAD96EC86F9909553615328@ymfspsrv03.ymfsp.local> Message-ID: <6c65a53f0607271101n462b45a1m3b9f31b3d4390f9e@mail.gmail.com> Outra opção que você tem é criar o esqueleto do seu arquivo com as informações necessárias, e utilizar um processador de templates, como o Template-Toolkit. Isto é, caso você tenha que modificar mais de uma string neste arquivo. Melhor que diversos s/// em sequência. Em 27/07/06, Paola Montini escreveu: > > Pessoal, > Tenho um arquivo XML no qual existe a string SNAPSHOT na tag de > versão.Preciso encontrar essa tag dentro do arquivo e substituí-la pelo > número da versão > > salvando o arquivo com essa informação nova. > Fiz o script de teste abaixo, porém o que esta acontecendo, é ele > encontra a string SNAPSHOT, porém não grava nada no arquivo, pior apaga o > conteúdo do arquivo inteiro... > > Please o que estou fazendo de errado: > > #! /usr/bin/perl > $local = "arquivoxml.xml"; > open (ARQXML,"<$local"); > $nome = SNAPSHOT; > @texto = ; > foreach $matriz (@texto) > { > if ($matriz =~ /$nome/) > { > print $matriz; > $matriz =~ s/$nome/Beta2006.2.1/g; > print ARQXML $matriz; > } > close (ARQXML); > > ps: sei que o comando de substituição tb está funcionando corretamente > pois quando peço apenas para substituir e "printar" em tela funciona, o > problema está realmente com o arquivo. Também é valido dizer que já tentei > abrir o arquivo com > e >> e acontece a mesma coisa. > > TKS galera > > > bPaola Montini > YMF-Consultoria > Fone: 5010-9220 > > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm em pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > > -- Igor Sutton Lopes t: +55 51 9627.0779 e: igor.sutton em gmail.com -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060727/c913c5aa/attachment.html From PMontini em ymf.com.br Thu Jul 27 11:18:50 2006 From: PMontini em ymf.com.br (Paola Montini) Date: Thu, 27 Jul 2006 15:18:50 -0300 Subject: [Cascavel-pm] =?iso-8859-1?q?RES=3A_RES=3A_RES=3A_RES=3A_RES=3A_S?= =?iso-8859-1?q?ubstitui=E7=E3o_de_string_e_grava=E7=E3o_no_arquivo?= In-Reply-To: <6c65a53f0607271042u6cd1de8aidfb50e5c50a743b6@mail.gmail.com> Message-ID: <88C3C4DD4C530B4FAD96EC86F990955362A89D@ymfspsrv03.ymfsp.local> Igor agora funcionou certinho......mas eu não vou poder passar o nome do arquivo na linha de chamada do script..... como fazer?? PS: As perguntas podem ser ignorantes.... desculpem-me, mas sou analista de CM e estou tendo que fazer esses scripts... é a primeira vez que trabablho com perl *Paola Montini YMF-Consultoria Fone: 5010-9220 -----Mensagem original----- De: cascavel-pm-bounces+pmontini=ymf.com.br em pm.org [mailto:cascavel-pm-bounces+pmontini=ymf.com.br em pm.org]Em nome de Igor Sutton Enviada em: quinta-feira, 27 de julho de 2006 14:43 Para: Cascavel Perl Mongers Assunto: Re: [Cascavel-pm]RES: RES: RES: RES: Substituição de string e gravação no arquivo Como você executou o seu programa? input.xml: 1.1 teste.pl: #!/usr/bin/perl $^I = ".bak"; while(<>) { s/SNAPSHOT/1.1/; print; } como executar: $ perl teste.pl input.xml saída: $ ls input.xml* input.xml input.xml.bak $ cat input.xml 1.1 Em 27/07/06, Paola Montini < PMontini em ymf.com.br > escreveu: Desculpe Igor, mas a sua solução não está funcionando nessa linha s/SNAPSHOT/1.1/ if /SNAPSHOT/;. Att *Paola Montini YMF-Consultoria Fone: 5010-9220 -----Mensagem original----- De: cascavel-pm-bounces+pmontini= ymf.com.br em pm.org [mailto: cascavel-pm-bounces+pmontini=ymf.com.br em pm.org]Em nome de Igor Sutton Enviada em: quinta-feira, 27 de julho de 2006 14:05 Para: Cascavel Perl Mongers Assunto: Re: [Cascavel-pm]RES: RES: RES: Substituição de string e gravação no arquivo No exemplo que o Nelson postou ( e no meu também ) isso não acontece. Dê uma olhada, pois o que você precisa está lá. Em 27/07/06, Paola Montini < PMontini em ymf.com.br> escreveu: Meleca falei rápido demais.... o que esta acontecendo é que ele está colocando uma linha a mais no meu arquivo vejam: Amplis ymf-utils SNAPSHOT Beta2006.1.2 #!/usr/bin/perl $local =" arquivoxml.xml"; open(ARQXML,"+<$local"); @texto = ; $nome = SNAPSHOT; foreach $matriz (@texto) { if ($matriz =~ /$nome/) { $matriz =~ s/$nome/Beta2006.1.2/g; print ARQXML $matriz ; } } *Paola Montini YMF-Consultoria Fone: 5010-9220 -----Mensagem original----- De: cascavel-pm-bounces+pmontini= ymf.com.br em pm.org [mailto: cascavel-pm-bounces+pmontini=ymf.com.br em pm.org]Em nome de Paola Montini Enviada em: quinta-feira, 27 de julho de 2006 13:59 Para: Cascavel Perl Mongers Assunto: [Cascavel-pm] RES: RES: Substituição de string e gravação no arquivo é isso nilson, o erro era esse *Paola Montini YMF-Consultoria Fone: 5010-9220 -----Mensagem original----- De: cascavel-pm-bounces+pmontini= ymf.com.br em pm.org [mailto: cascavel-pm-bounces+pmontini=ymf.com.br em pm.org ]Em nome de Nilson Santos Figueiredo Junior Enviada em: quinta-feira, 27 de julho de 2006 13:55 Para: Cascavel Perl Mongers Assunto: Re: [Cascavel-pm]RES: Substituição de string e gravação no arquivo On 7/27/06, Paola Montini < PMontini em ymf.com.br> wrote: > Missing right curly or square bracket at testexml.pl line 15, at end of line > syntax error at testexml.pl line 15, at EOF Você tentou olhar se existe algum erro próximo ao final da linha 15 do arquivo testexml.pl, aonde está faltando uma chave ou colchete de fechamento? -Nilson Santos F. Jr. _______________________________________________ Cascavel-pm mailing list Cascavel-pm em pm.org http://mail.pm.org/mailman/listinfo/cascavel-pm _______________________________________________ Cascavel-pm mailing list Cascavel-pm em pm.org http://mail.pm.org/mailman/listinfo/cascavel-pm _______________________________________________ Cascavel-pm mailing list Cascavel-pm em pm.org http://mail.pm.org/mailman/listinfo/cascavel-pm -- Igor Sutton Lopes t: +55 51 9627.0779 e: igor.sutton em gmail.com _______________________________________________ Cascavel-pm mailing list Cascavel-pm em pm.org http://mail.pm.org/mailman/listinfo/cascavel-pm -- Igor Sutton Lopes t: +55 51 9627.0779 e: igor.sutton em gmail.com -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060727/2a6277b5/attachment.html From igor.sutton em gmail.com Thu Jul 27 11:39:08 2006 From: igor.sutton em gmail.com (Igor Sutton) Date: Thu, 27 Jul 2006 15:39:08 -0300 Subject: [Cascavel-pm] =?iso-8859-1?q?RES=3A_RES=3A_RES=3A_RES=3A_RES=3A_S?= =?iso-8859-1?q?ubstitui=E7=E3o_de_string_e_grava=E7=E3o_no_arquivo?= In-Reply-To: <88C3C4DD4C530B4FAD96EC86F990955362A89D@ymfspsrv03.ymfsp.local> References: <6c65a53f0607271042u6cd1de8aidfb50e5c50a743b6@mail.gmail.com> <88C3C4DD4C530B4FAD96EC86F990955362A89D@ymfspsrv03.ymfsp.local> Message-ID: <6c65a53f0607271139w3b6c2b9bq42b58305dd8142bd@mail.gmail.com> Como assim 'não vai poder passar o nome do arquivo'? Ele é sempre o mesmo? Se é sempre o mesmo, faça assim: #!/usr/bin/perl $^I = ".bak"; @ARGV = ("/meu/arquivo/input.xml"); while (<>) { s/SNAPSHOT/1.1/; } Em 27/07/06, Paola Montini escreveu: > > Igor agora funcionou certinho......mas eu não vou poder passar o nome do > arquivo na linha de chamada do script..... > como fazer?? > PS: As perguntas podem ser ignorantes.... desculpem-me, mas sou analista > de CM e estou tendo que fazer esses scripts... > é a primeira vez que trabablho com perl > > > > bPaola Montini > YMF-Consultoria > Fone: 5010-9220 > > -----Mensagem original----- > *De:* cascavel-pm-bounces+pmontini=ymf.com.br em pm.org [mailto: > cascavel-pm-bounces+pmontini=ymf.com.br em pm.org]*Em nome de *Igor Sutton > *Enviada em:* quinta-feira, 27 de julho de 2006 14:43 > *Para:* Cascavel Perl Mongers > *Assunto:* Re: [Cascavel-pm]RES: RES: RES: RES: Substituição de string e > gravação no arquivo > > Como você executou o seu programa? > > input.xml: > > 1.1 > > > > teste.pl: > #!/usr/bin/perl > > $^I = ".bak"; > > while(<>) { > s/SNAPSHOT/1.1/; > print; > } > > como executar: > > $ perl teste.pl input.xml > > saída: > > $ ls input.xml* > input.xml input.xml.bak > $ cat input.xml > > 1.1 > > > > Em 27/07/06, Paola Montini escreveu: > > > > Desculpe Igor, mas a sua solução não está funcionando nessa linha > > s/SNAPSHOT/1.1/ if /SNAPSHOT/;. > > > > Att > > > > > > bPaola Montini > > YMF-Consultoria > > Fone: 5010-9220 > > > > -----Mensagem original----- > > *De:* cascavel-pm-bounces+pmontini=ymf.com.br em pm.org [mailto: > > cascavel-pm-bounces+pmontini=ymf.com.br em pm.org]*Em nome de *Igor Sutton > > *Enviada em:* quinta-feira, 27 de julho de 2006 14:05 > > *Para:* Cascavel Perl Mongers > > *Assunto:* Re: [Cascavel-pm]RES: RES: RES: Substituição de string e > > gravação no arquivo > > > > No exemplo que o Nelson postou ( e no meu também ) isso não acontece. Dê > > uma olhada, pois o que você precisa está lá. > > > > Em 27/07/06, Paola Montini < PMontini em ymf.com.br> escreveu: > > > > > > Meleca falei rápido demais.... > > > o que esta acontecendo é que ele está colocando uma linha a mais no > > > meu arquivo vejam: > > > > > > Amplis > > > ymf-utils > > > SNAPSHOT > > > Beta2006.1.2 > > > > > > > > > #!/usr/bin/perl > > > $local =" arquivoxml.xml"; > > > open(ARQXML,"+<$local"); > > > @texto = ; > > > $nome = SNAPSHOT; > > > foreach $matriz (@texto) > > > { > > > if ($matriz =~ /$nome/) > > > { > > > $matriz =~ s/$nome/Beta2006.1.2/g; > > > print ARQXML $matriz ; > > > } > > > } > > > > > > > > > > > > *Paola Montini > > > YMF-Consultoria > > > Fone: 5010-9220 > > > > > > > > > -----Mensagem original----- > > > De: cascavel-pm-bounces+pmontini= ymf.com.br em pm.org > > > [mailto: cascavel-pm-bounces+pmontini=ymf.com.br em pm.org]Em nome de > > > Paola > > > Montini > > > Enviada em: quinta-feira, 27 de julho de 2006 13:59 > > > Para: Cascavel Perl Mongers > > > Assunto: [Cascavel-pm] RES: RES: Substituição de string e gravação no > > > arquivo > > > > > > > > > é isso nilson, o erro era esse > > > > > > *Paola Montini > > > YMF-Consultoria > > > Fone: 5010-9220 > > > > > > > > > -----Mensagem original----- > > > De: cascavel-pm-bounces+pmontini=ymf.com.br em pm.org > > > [mailto: cascavel-pm-bounces+pmontini=ymf.com.br em pm.org ]Em nome de > > > Nilson > > > Santos Figueiredo Junior > > > Enviada em: quinta-feira, 27 de julho de 2006 13:55 > > > Para: Cascavel Perl Mongers > > > Assunto: Re: [Cascavel-pm]RES: Substituição de string e gravação no > > > arquivo > > > > > > > > > On 7/27/06, Paola Montini wrote: > > > > Missing right curly or square bracket at testexml.pl line 15, at end > > > of line > > > > syntax error at testexml.pl line 15, at EOF > > > > > > Você tentou olhar se existe algum erro próximo ao final da linha 15 do > > > arquivo testexml.pl, aonde está faltando uma chave ou colchete de > > > fechamento? > > > > > > -Nilson Santos F. Jr. > > > _______________________________________________ > > > Cascavel-pm mailing list > > > Cascavel-pm em pm.org > > > http://mail.pm.org/mailman/listinfo/cascavel-pm > > > _______________________________________________ > > > Cascavel-pm mailing list > > > Cascavel-pm em pm.org > > > http://mail.pm.org/mailman/listinfo/cascavel-pm > > > _______________________________________________ > > > Cascavel-pm mailing list > > > Cascavel-pm em pm.org > > > http://mail.pm.org/mailman/listinfo/cascavel-pm > > > > > > > > > > > -- > > Igor Sutton Lopes > > t: +55 51 9627.0779 > > e: igor.sutton em gmail.com > > > > _______________________________________________ > > Cascavel-pm mailing list > > Cascavel-pm em pm.org > > http://mail.pm.org/mailman/listinfo/cascavel-pm > > > > > > > -- > Igor Sutton Lopes > t: +55 51 9627.0779 > e: igor.sutton em gmail.com > > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm em pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > > -- Igor Sutton Lopes t: +55 51 9627.0779 e: igor.sutton em gmail.com -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060727/da58eacf/attachment-0001.html From PMontini em ymf.com.br Thu Jul 27 11:42:56 2006 From: PMontini em ymf.com.br (Paola Montini) Date: Thu, 27 Jul 2006 15:42:56 -0300 Subject: [Cascavel-pm] =?iso-8859-1?q?RES=3A_RES=3A_RES=3A_RES=3A_RES=3A_R?= =?iso-8859-1?q?ES=3A_Substitui=E7=E3o_de_string_e_grava=E7=E3o_no_?= =?iso-8859-1?q?arquivo?= In-Reply-To: <6c65a53f0607271139w3b6c2b9bq42b58305dd8142bd@mail.gmail.com> Message-ID: <88C3C4DD4C530B4FAD96EC86F990955362A94F@ymfspsrv03.ymfsp.local> ótimo..... Nossa vcs não sabem como estão me ajudando ...... estão quebrando o maior galho...... *Paola Montini YMF-Consultoria Fone: 5010-9220 -----Mensagem original----- De: cascavel-pm-bounces+pmontini=ymf.com.br em pm.org [mailto:cascavel-pm-bounces+pmontini=ymf.com.br em pm.org]Em nome de Igor Sutton Enviada em: quinta-feira, 27 de julho de 2006 15:39 Para: Cascavel Perl Mongers Assunto: Re: [Cascavel-pm]RES: RES: RES: RES: RES: Substituição de string e gravação no arquivo Como assim 'não vai poder passar o nome do arquivo'? Ele é sempre o mesmo? Se é sempre o mesmo, faça assim: #!/usr/bin/perl $^I = ".bak"; @ARGV = ("/meu/arquivo/input.xml"); while (<>) { s/SNAPSHOT/1.1/; } Em 27/07/06, Paola Montini < PMontini em ymf.com.br > escreveu: Igor agora funcionou certinho......mas eu não vou poder passar o nome do arquivo na linha de chamada do script..... como fazer?? PS: As perguntas podem ser ignorantes.... desculpem-me, mas sou analista de CM e estou tendo que fazer esses scripts... é a primeira vez que trabablho com perl *Paola Montini YMF-Consultoria Fone: 5010-9220 -----Mensagem original----- De: cascavel-pm-bounces+pmontini= ymf.com.br em pm.org [mailto: cascavel-pm-bounces+pmontini=ymf.com.br em pm.org]Em nome de Igor Sutton Enviada em: quinta-feira, 27 de julho de 2006 14:43 Para: Cascavel Perl Mongers Assunto: Re: [Cascavel-pm]RES: RES: RES: RES: Substituição de string e gravação no arquivo Como você executou o seu programa? input.xml: 1.1 teste.pl: #!/usr/bin/perl $^I = ".bak"; while(<>) { s/SNAPSHOT/1.1/; print; } como executar: $ perl teste.pl input.xml saída: $ ls input.xml* input.xml input.xml.bak $ cat input.xml 1.1 Em 27/07/06, Paola Montini < PMontini em ymf.com.br > escreveu: Desculpe Igor, mas a sua solução não está funcionando nessa linha s/SNAPSHOT/1.1/ if /SNAPSHOT/;. Att *Paola Montini YMF-Consultoria Fone: 5010-9220 -----Mensagem original----- De: cascavel-pm-bounces+pmontini= ymf.com.br em pm.org [mailto: cascavel-pm-bounces+pmontini=ymf.com.br em pm.org]Em nome de Igor Sutton Enviada em: quinta-feira, 27 de julho de 2006 14:05 Para: Cascavel Perl Mongers Assunto: Re: [Cascavel-pm]RES: RES: RES: Substituição de string e gravação no arquivo No exemplo que o Nelson postou ( e no meu também ) isso não acontece. Dê uma olhada, pois o que você precisa está lá. Em 27/07/06, Paola Montini < PMontini em ymf.com.br> escreveu: Meleca falei rápido demais.... o que esta acontecendo é que ele está colocando uma linha a mais no meu arquivo vejam: Amplis ymf-utils SNAPSHOT Beta2006.1.2 #!/usr/bin/perl $local =" arquivoxml.xml"; open(ARQXML,"+<$local"); @texto = ; $nome = SNAPSHOT; foreach $matriz (@texto) { if ($matriz =~ /$nome/) { $matriz =~ s/$nome/Beta2006.1.2/g; print ARQXML $matriz ; } } *Paola Montini YMF-Consultoria Fone: 5010-9220 -----Mensagem original----- De: cascavel-pm-bounces+pmontini= ymf.com.br em pm.org [mailto: cascavel-pm-bounces+pmontini=ymf.com.br em pm.org ]Em nome de Paola Montini Enviada em: quinta-feira, 27 de julho de 2006 13:59 Para: Cascavel Perl Mongers Assunto: [Cascavel-pm] RES: RES: Substituição de string e gravação no arquivo é isso nilson, o erro era esse *Paola Montini YMF-Consultoria Fone: 5010-9220 -----Mensagem original----- De: cascavel-pm-bounces+pmontini= ymf.com.br em pm.org [mailto: cascavel-pm-bounces+pmontini=ymf.com.br em pm.org ]Em nome de Nilson Santos Figueiredo Junior Enviada em: quinta-feira, 27 de julho de 2006 13:55 Para: Cascavel Perl Mongers Assunto: Re: [Cascavel-pm]RES: Substituição de string e gravação no arquivo On 7/27/06, Paola Montini < PMontini em ymf.com.br> wrote: > Missing right curly or square bracket at testexml.pl line 15, at end of line > syntax error at testexml.pl line 15, at EOF Você tentou olhar se existe algum erro próximo ao final da linha 15 do arquivo testexml.pl, aonde está faltando uma chave ou colchete de fechamento? -Nilson Santos F. Jr. _______________________________________________ Cascavel-pm mailing list Cascavel-pm em pm.org http://mail.pm.org/mailman/listinfo/cascavel-pm _______________________________________________ Cascavel-pm mailing list Cascavel-pm em pm.org http://mail.pm.org/mailman/listinfo/cascavel-pm _______________________________________________ Cascavel-pm mailing list Cascavel-pm em pm.org http://mail.pm.org/mailman/listinfo/cascavel-pm -- Igor Sutton Lopes t: +55 51 9627.0779 e: igor.sutton em gmail.com _______________________________________________ Cascavel-pm mailing list Cascavel-pm em pm.org http://mail.pm.org/mailman/listinfo/cascavel-pm -- Igor Sutton Lopes t: +55 51 9627.0779 e: igor.sutton em gmail.com _______________________________________________ Cascavel-pm mailing list Cascavel-pm em pm.org http://mail.pm.org/mailman/listinfo/cascavel-pm -- Igor Sutton Lopes t: +55 51 9627.0779 e: igor.sutton em gmail.com -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060727/83d3b4e7/attachment.html From ptfzs em yahoo.com.br Thu Jul 27 11:42:49 2006 From: ptfzs em yahoo.com.br (Patty Silva) Date: Thu, 27 Jul 2006 15:42:49 -0300 (ART) Subject: [Cascavel-pm] Ler arquivo DOC Message-ID: <20060727184249.62570.qmail@web31308.mail.mud.yahoo.com> Pesssoal, tenho um arquivo .doc , preciso ler as tabelas que estao nesse arquivo e recuperar os dados: ex: Class 00 - BUFR table entries 1 04 002 nome1 teste 0 0 4 teste 0 2 1 04 003 nome2 teste 0 0 6 teste 0 2 1 04 004 nome3 teste 0 0 5 teste 0 2 1 0 04 nome4 teste Year 0 0 teste teste 2 1 04 006 nome5 teste 0 0 6 teste 0 2 1 04 007 nome6 teste 6 0 26 S 6 8 estao separados por .. eu quero recuperar os valores porem quero que junte a 1 e a 2 coluna: ex: 104002 nome1 teste 0 e assim vai.. a minha duvida é.. existe varias tabelas porem existem coisas escritas entre uma tabela e outra.. como ler somente os dados das tabelas??? Obrigada --------------------------------- Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho agora! -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060727/6394a98d/attachment-0001.html From igor.sutton em gmail.com Thu Jul 27 11:43:08 2006 From: igor.sutton em gmail.com (Igor Sutton) Date: Thu, 27 Jul 2006 15:43:08 -0300 Subject: [Cascavel-pm] =?iso-8859-1?q?RES=3A_RES=3A_RES=3A_RES=3A_RES=3A_R?= =?iso-8859-1?q?ES=3A_Substitui=E7=E3o_de_string_e_grava=E7=E3o_no_?= =?iso-8859-1?q?arquivo?= In-Reply-To: <88C3C4DD4C530B4FAD96EC86F990955362A94F@ymfspsrv03.ymfsp.local> References: <6c65a53f0607271139w3b6c2b9bq42b58305dd8142bd@mail.gmail.com> <88C3C4DD4C530B4FAD96EC86F990955362A94F@ymfspsrv03.ymfsp.local> Message-ID: <6c65a53f0607271143j3b2fd7e4xc190ce035e9ca99e@mail.gmail.com> Esperamos que isto se reverta em contribuição sua para a comunidade :-) E seja bem vinda! PS: O que é 'CM', que você mencionou antes? Em 27/07/06, Paola Montini escreveu: > > ótimo..... > Nossa vcs não sabem como estão me ajudando ...... estão quebrando o maior > galho...... > > > bPaola Montini > YMF-Consultoria > Fone: 5010-9220 > > -----Mensagem original----- > *De:* cascavel-pm-bounces+pmontini=ymf.com.br em pm.org [mailto: > cascavel-pm-bounces+pmontini=ymf.com.br em pm.org]*Em nome de *Igor Sutton > *Enviada em:* quinta-feira, 27 de julho de 2006 15:39 > *Para:* Cascavel Perl Mongers > *Assunto:* Re: [Cascavel-pm]RES: RES: RES: RES: RES: Substituição de > string e gravação no arquivo > > Como assim 'não vai poder passar o nome do arquivo'? Ele é sempre o mesmo? > Se é sempre o mesmo, faça assim: > > > #!/usr/bin/perl > > $^I = ".bak"; > @ARGV = ("/meu/arquivo/input.xml"); > while (<>) { > s/SNAPSHOT/1.1/; > } > > > Em 27/07/06, Paola Montini escreveu: > > > > Igor agora funcionou certinho......mas eu não vou poder passar o nome > > do arquivo na linha de chamada do script..... > > como fazer?? > > PS: As perguntas podem ser ignorantes.... desculpem-me, mas sou analista > > de CM e estou tendo que fazer esses scripts... > > é a primeira vez que trabablho com perl > > > > > > > > bPaola Montini > > YMF-Consultoria > > Fone: 5010-9220 > > > > -----Mensagem original----- > > *De:* cascavel-pm-bounces+pmontini=ymf.com.br em pm.org [mailto: > > cascavel-pm-bounces+pmontini=ymf.com.br em pm.org]*Em nome de *Igor Sutton > > *Enviada em:* quinta-feira, 27 de julho de 2006 14:43 > > *Para:* Cascavel Perl Mongers > > *Assunto:* Re: [Cascavel-pm]RES: RES: RES: RES: Substituição de string e > > gravação no arquivo > > > > Como você executou o seu programa? > > > > input.xml: > > > > 1.1 > > > > > > > > teste.pl: > > #!/usr/bin/perl > > > > $^I = ".bak"; > > > > while(<>) { > > s/SNAPSHOT/1.1/; > > print; > > } > > > > como executar: > > > > $ perl teste.pl input.xml > > > > saída: > > > > $ ls input.xml* > > input.xml input.xml.bak > > $ cat input.xml > > > > 1.1 > > > > > > > > Em 27/07/06, Paola Montini escreveu: > > > > > > Desculpe Igor, mas a sua solução não está funcionando nessa linha > > > s/SNAPSHOT/1.1/ if /SNAPSHOT/;. > > > > > > Att > > > > > > > > > bPaola Montini > > > YMF-Consultoria > > > Fone: 5010-9220 > > > > > > -----Mensagem original----- > > > *De:* cascavel-pm-bounces+pmontini=ymf.com.br em pm.org [mailto: > > > cascavel-pm-bounces+pmontini=ymf.com.br em pm.org]*Em nome de *Igor > > > Sutton > > > *Enviada em:* quinta-feira, 27 de julho de 2006 14:05 > > > *Para:* Cascavel Perl Mongers > > > *Assunto:* Re: [Cascavel-pm]RES: RES: RES: Substituição de string e > > > gravação no arquivo > > > > > > No exemplo que o Nelson postou ( e no meu também ) isso não acontece. > > > Dê uma olhada, pois o que você precisa está lá. > > > > > > Em 27/07/06, Paola Montini < PMontini em ymf.com.br> escreveu: > > > > > > > > Meleca falei rápido demais.... > > > > o que esta acontecendo é que ele está colocando uma linha a mais no > > > > meu arquivo vejam: > > > > > > > > Amplis > > > > ymf-utils > > > > SNAPSHOT > > > > Beta2006.1.2 > > > > > > > > > > > > #!/usr/bin/perl > > > > $local =" arquivoxml.xml"; > > > > open(ARQXML,"+<$local"); > > > > @texto = ; > > > > $nome = SNAPSHOT; > > > > foreach $matriz (@texto) > > > > { > > > > if ($matriz =~ /$nome/) > > > > { > > > > $matriz =~ s/$nome/Beta2006.1.2/g; > > > > print ARQXML $matriz ; > > > > } > > > > } > > > > > > > > > > > > > > > > *Paola Montini > > > > YMF-Consultoria > > > > Fone: 5010-9220 > > > > > > > > > > > > -----Mensagem original----- > > > > De: cascavel-pm-bounces+pmontini= ymf.com.br em pm.org > > > > [mailto: cascavel-pm-bounces+pmontini=ymf.com.br em pm.org ]Em nome de > > > > Paola > > > > Montini > > > > Enviada em: quinta-feira, 27 de julho de 2006 13:59 > > > > Para: Cascavel Perl Mongers > > > > Assunto: [Cascavel-pm] RES: RES: Substituição de string e gravação > > > > no > > > > arquivo > > > > > > > > > > > > é isso nilson, o erro era esse > > > > > > > > *Paola Montini > > > > YMF-Consultoria > > > > Fone: 5010-9220 > > > > > > > > > > > > -----Mensagem original----- > > > > De: cascavel-pm-bounces+pmontini=ymf.com.br em pm.org > > > > [mailto: cascavel-pm-bounces+pmontini=ymf.com.br em pm.org ]Em nome de > > > > Nilson > > > > Santos Figueiredo Junior > > > > Enviada em: quinta-feira, 27 de julho de 2006 13:55 > > > > Para: Cascavel Perl Mongers > > > > Assunto: Re: [Cascavel-pm]RES: Substituição de string e gravação no > > > > arquivo > > > > > > > > > > > > On 7/27/06, Paola Montini wrote: > > > > > Missing right curly or square bracket at testexml.pl line 15, at > > > > end of line > > > > > syntax error at testexml.pl line 15, at EOF > > > > > > > > Você tentou olhar se existe algum erro próximo ao final da linha 15 > > > > do > > > > arquivo testexml.pl, aonde está faltando uma chave ou colchete de > > > > fechamento? > > > > > > > > -Nilson Santos F. Jr. > > > > _______________________________________________ > > > > Cascavel-pm mailing list > > > > Cascavel-pm em pm.org > > > > http://mail.pm.org/mailman/listinfo/cascavel-pm > > > > _______________________________________________ > > > > Cascavel-pm mailing list > > > > Cascavel-pm em pm.org > > > > http://mail.pm.org/mailman/listinfo/cascavel-pm > > > > _______________________________________________ > > > > Cascavel-pm mailing list > > > > Cascavel-pm em pm.org > > > > http://mail.pm.org/mailman/listinfo/cascavel-pm > > > > > > > > > > > > > > > > -- > > > Igor Sutton Lopes > > > t: +55 51 9627.0779 > > > e: igor.sutton em gmail.com > > > > > > _______________________________________________ > > > Cascavel-pm mailing list > > > Cascavel-pm em pm.org > > > http://mail.pm.org/mailman/listinfo/cascavel-pm > > > > > > > > > > > > -- > > Igor Sutton Lopes > > t: +55 51 9627.0779 > > e: igor.sutton em gmail.com > > > > _______________________________________________ > > Cascavel-pm mailing list > > Cascavel-pm em pm.org > > http://mail.pm.org/mailman/listinfo/cascavel-pm > > > > > > > -- > Igor Sutton Lopes > t: +55 51 9627.0779 > e: igor.sutton em gmail.com > > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm em pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > > -- Igor Sutton Lopes t: +55 51 9627.0779 e: igor.sutton em gmail.com -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060727/f7a3d2b2/attachment.html From igor.sutton em gmail.com Thu Jul 27 11:43:08 2006 From: igor.sutton em gmail.com (Igor Sutton) Date: Thu, 27 Jul 2006 15:43:08 -0300 Subject: [Cascavel-pm] =?iso-8859-1?q?RES=3A_RES=3A_RES=3A_RES=3A_RES=3A_R?= =?iso-8859-1?q?ES=3A_Substitui=E7=E3o_de_string_e_grava=E7=E3o_no_?= =?iso-8859-1?q?arquivo?= In-Reply-To: <88C3C4DD4C530B4FAD96EC86F990955362A94F@ymfspsrv03.ymfsp.local> References: <6c65a53f0607271139w3b6c2b9bq42b58305dd8142bd@mail.gmail.com> <88C3C4DD4C530B4FAD96EC86F990955362A94F@ymfspsrv03.ymfsp.local> Message-ID: <6c65a53f0607271143j3b2fd7e4xc190ce035e9ca99e@mail.gmail.com> Esperamos que isto se reverta em contribuição sua para a comunidade :-) E seja bem vinda! PS: O que é 'CM', que você mencionou antes? Em 27/07/06, Paola Montini escreveu: > > ótimo..... > Nossa vcs não sabem como estão me ajudando ...... estão quebrando o maior > galho...... > > > bPaola Montini > YMF-Consultoria > Fone: 5010-9220 > > -----Mensagem original----- > *De:* cascavel-pm-bounces+pmontini=ymf.com.br em pm.org [mailto: > cascavel-pm-bounces+pmontini=ymf.com.br em pm.org]*Em nome de *Igor Sutton > *Enviada em:* quinta-feira, 27 de julho de 2006 15:39 > *Para:* Cascavel Perl Mongers > *Assunto:* Re: [Cascavel-pm]RES: RES: RES: RES: RES: Substituição de > string e gravação no arquivo > > Como assim 'não vai poder passar o nome do arquivo'? Ele é sempre o mesmo? > Se é sempre o mesmo, faça assim: > > > #!/usr/bin/perl > > $^I = ".bak"; > @ARGV = ("/meu/arquivo/input.xml"); > while (<>) { > s/SNAPSHOT/1.1/; > } > > > Em 27/07/06, Paola Montini escreveu: > > > > Igor agora funcionou certinho......mas eu não vou poder passar o nome > > do arquivo na linha de chamada do script..... > > como fazer?? > > PS: As perguntas podem ser ignorantes.... desculpem-me, mas sou analista > > de CM e estou tendo que fazer esses scripts... > > é a primeira vez que trabablho com perl > > > > > > > > bPaola Montini > > YMF-Consultoria > > Fone: 5010-9220 > > > > -----Mensagem original----- > > *De:* cascavel-pm-bounces+pmontini=ymf.com.br em pm.org [mailto: > > cascavel-pm-bounces+pmontini=ymf.com.br em pm.org]*Em nome de *Igor Sutton > > *Enviada em:* quinta-feira, 27 de julho de 2006 14:43 > > *Para:* Cascavel Perl Mongers > > *Assunto:* Re: [Cascavel-pm]RES: RES: RES: RES: Substituição de string e > > gravação no arquivo > > > > Como você executou o seu programa? > > > > input.xml: > > > > 1.1 > > > > > > > > teste.pl: > > #!/usr/bin/perl > > > > $^I = ".bak"; > > > > while(<>) { > > s/SNAPSHOT/1.1/; > > print; > > } > > > > como executar: > > > > $ perl teste.pl input.xml > > > > saída: > > > > $ ls input.xml* > > input.xml input.xml.bak > > $ cat input.xml > > > > 1.1 > > > > > > > > Em 27/07/06, Paola Montini escreveu: > > > > > > Desculpe Igor, mas a sua solução não está funcionando nessa linha > > > s/SNAPSHOT/1.1/ if /SNAPSHOT/;. > > > > > > Att > > > > > > > > > bPaola Montini > > > YMF-Consultoria > > > Fone: 5010-9220 > > > > > > -----Mensagem original----- > > > *De:* cascavel-pm-bounces+pmontini=ymf.com.br em pm.org [mailto: > > > cascavel-pm-bounces+pmontini=ymf.com.br em pm.org]*Em nome de *Igor > > > Sutton > > > *Enviada em:* quinta-feira, 27 de julho de 2006 14:05 > > > *Para:* Cascavel Perl Mongers > > > *Assunto:* Re: [Cascavel-pm]RES: RES: RES: Substituição de string e > > > gravação no arquivo > > > > > > No exemplo que o Nelson postou ( e no meu também ) isso não acontece. > > > Dê uma olhada, pois o que você precisa está lá. > > > > > > Em 27/07/06, Paola Montini < PMontini em ymf.com.br> escreveu: > > > > > > > > Meleca falei rápido demais.... > > > > o que esta acontecendo é que ele está colocando uma linha a mais no > > > > meu arquivo vejam: > > > > > > > > Amplis > > > > ymf-utils > > > > SNAPSHOT > > > > Beta2006.1.2 > > > > > > > > > > > > #!/usr/bin/perl > > > > $local =" arquivoxml.xml"; > > > > open(ARQXML,"+<$local"); > > > > @texto = ; > > > > $nome = SNAPSHOT; > > > > foreach $matriz (@texto) > > > > { > > > > if ($matriz =~ /$nome/) > > > > { > > > > $matriz =~ s/$nome/Beta2006.1.2/g; > > > > print ARQXML $matriz ; > > > > } > > > > } > > > > > > > > > > > > > > > > *Paola Montini > > > > YMF-Consultoria > > > > Fone: 5010-9220 > > > > > > > > > > > > -----Mensagem original----- > > > > De: cascavel-pm-bounces+pmontini= ymf.com.br em pm.org > > > > [mailto: cascavel-pm-bounces+pmontini=ymf.com.br em pm.org ]Em nome de > > > > Paola > > > > Montini > > > > Enviada em: quinta-feira, 27 de julho de 2006 13:59 > > > > Para: Cascavel Perl Mongers > > > > Assunto: [Cascavel-pm] RES: RES: Substituição de string e gravação > > > > no > > > > arquivo > > > > > > > > > > > > é isso nilson, o erro era esse > > > > > > > > *Paola Montini > > > > YMF-Consultoria > > > > Fone: 5010-9220 > > > > > > > > > > > > -----Mensagem original----- > > > > De: cascavel-pm-bounces+pmontini=ymf.com.br em pm.org > > > > [mailto: cascavel-pm-bounces+pmontini=ymf.com.br em pm.org ]Em nome de > > > > Nilson > > > > Santos Figueiredo Junior > > > > Enviada em: quinta-feira, 27 de julho de 2006 13:55 > > > > Para: Cascavel Perl Mongers > > > > Assunto: Re: [Cascavel-pm]RES: Substituição de string e gravação no > > > > arquivo > > > > > > > > > > > > On 7/27/06, Paola Montini wrote: > > > > > Missing right curly or square bracket at testexml.pl line 15, at > > > > end of line > > > > > syntax error at testexml.pl line 15, at EOF > > > > > > > > Você tentou olhar se existe algum erro próximo ao final da linha 15 > > > > do > > > > arquivo testexml.pl, aonde está faltando uma chave ou colchete de > > > > fechamento? > > > > > > > > -Nilson Santos F. Jr. > > > > _______________________________________________ > > > > Cascavel-pm mailing list > > > > Cascavel-pm em pm.org > > > > http://mail.pm.org/mailman/listinfo/cascavel-pm > > > > _______________________________________________ > > > > Cascavel-pm mailing list > > > > Cascavel-pm em pm.org > > > > http://mail.pm.org/mailman/listinfo/cascavel-pm > > > > _______________________________________________ > > > > Cascavel-pm mailing list > > > > Cascavel-pm em pm.org > > > > http://mail.pm.org/mailman/listinfo/cascavel-pm > > > > > > > > > > > > > > > > -- > > > Igor Sutton Lopes > > > t: +55 51 9627.0779 > > > e: igor.sutton em gmail.com > > > > > > _______________________________________________ > > > Cascavel-pm mailing list > > > Cascavel-pm em pm.org > > > http://mail.pm.org/mailman/listinfo/cascavel-pm > > > > > > > > > > > > -- > > Igor Sutton Lopes > > t: +55 51 9627.0779 > > e: igor.sutton em gmail.com > > > > _______________________________________________ > > Cascavel-pm mailing list > > Cascavel-pm em pm.org > > http://mail.pm.org/mailman/listinfo/cascavel-pm > > > > > > > -- > Igor Sutton Lopes > t: +55 51 9627.0779 > e: igor.sutton em gmail.com > > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm em pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > > -- Igor Sutton Lopes t: +55 51 9627.0779 e: igor.sutton em gmail.com -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060727/f7a3d2b2/attachment-0003.html From PMontini em ymf.com.br Thu Jul 27 11:48:49 2006 From: PMontini em ymf.com.br (Paola Montini) Date: Thu, 27 Jul 2006 15:48:49 -0300 Subject: [Cascavel-pm] =?iso-8859-1?q?RES=3A_RES=3A_RES=3A_RES=3A_RES=3A_R?= =?iso-8859-1?q?ES=3A_RES=3A_Substitui=E7=E3o_de_string_e_grava=E7?= =?iso-8859-1?q?=E3o_no_arquivo?= In-Reply-To: <6c65a53f0607271143j3b2fd7e4xc190ce035e9ca99e@mail.gmail.com> Message-ID: <88C3C4DD4C530B4FAD96EC86F990955362A976@ymfspsrv03.ymfsp.local> é analista de configuração de software, faz parte de um departamento montado para implantação das técnicas de CMMI.... e eu faço parte dele, então pouco programo, minha função é mais coordenar para tudo ficar direitinho...... PS fiz como disse coloquei aquela linha mas quando executo, o cursor fica paradão... sem me retornar novamente para a linha [root...]# tem ideia do que eu fiz de errado?? Espero que eu possa contribuir sim com vcs *Paola Montini YMF-Consultoria Fone: 5010-9220 -----Mensagem original----- De: cascavel-pm-bounces+pmontini=ymf.com.br em pm.org [mailto:cascavel-pm-bounces+pmontini=ymf.com.br em pm.org]Em nome de Igor Sutton Enviada em: quinta-feira, 27 de julho de 2006 15:43 Para: Cascavel Perl Mongers Assunto: Re: [Cascavel-pm]RES: RES: RES: RES: RES: RES: Substituição de string e gravação no arquivo Esperamos que isto se reverta em contribuição sua para a comunidade :-) E seja bem vinda! PS: O que é 'CM', que você mencionou antes? Em 27/07/06, Paola Montini < PMontini em ymf.com.br> escreveu: ótimo..... Nossa vcs não sabem como estão me ajudando ...... estão quebrando o maior galho...... *Paola Montini YMF-Consultoria Fone: 5010-9220 -----Mensagem original----- De: cascavel-pm-bounces+pmontini= ymf.com.br em pm.org [mailto: cascavel-pm-bounces+pmontini=ymf.com.br em pm.org]Em nome de Igor Sutton Enviada em: quinta-feira, 27 de julho de 2006 15:39 Para: Cascavel Perl Mongers Assunto: Re: [Cascavel-pm]RES: RES: RES: RES: RES: Substituição de string e gravação no arquivo Como assim 'não vai poder passar o nome do arquivo'? Ele é sempre o mesmo? Se é sempre o mesmo, faça assim: #!/usr/bin/perl $^I = ".bak"; @ARGV = ("/meu/arquivo/input.xml"); while (<>) { s/SNAPSHOT/1.1/; } Em 27/07/06, Paola Montini < PMontini em ymf.com.br > escreveu: Igor agora funcionou certinho......mas eu não vou poder passar o nome do arquivo na linha de chamada do script..... como fazer?? PS: As perguntas podem ser ignorantes.... desculpem-me, mas sou analista de CM e estou tendo que fazer esses scripts... é a primeira vez que trabablho com perl *Paola Montini YMF-Consultoria Fone: 5010-9220 -----Mensagem original----- De: cascavel-pm-bounces+pmontini= ymf.com.br em pm.org [mailto: cascavel-pm-bounces+pmontini=ymf.com.br em pm.org]Em nome de Igor Sutton Enviada em: quinta-feira, 27 de julho de 2006 14:43 Para: Cascavel Perl Mongers Assunto: Re: [Cascavel-pm]RES: RES: RES: RES: Substituição de string e gravação no arquivo Como você executou o seu programa? input.xml: 1.1 teste.pl: #!/usr/bin/perl $^I = ".bak"; while(<>) { s/SNAPSHOT/1.1/; print; } como executar: $ perl teste.pl input.xml saída: $ ls input.xml* input.xml input.xml.bak $ cat input.xml 1.1 Em 27/07/06, Paola Montini < PMontini em ymf.com.br > escreveu: Desculpe Igor, mas a sua solução não está funcionando nessa linha s/SNAPSHOT/1.1/ if /SNAPSHOT/;. Att *Paola Montini YMF-Consultoria Fone: 5010-9220 -----Mensagem original----- De: cascavel-pm-bounces+pmontini= ymf.com.br em pm.org [mailto: cascavel-pm-bounces+pmontini=ymf.com.br em pm.org]Em nome de Igor Sutton Enviada em: quinta-feira, 27 de julho de 2006 14:05 Para: Cascavel Perl Mongers Assunto: Re: [Cascavel-pm]RES: RES: RES: Substituição de string e gravação no arquivo No exemplo que o Nelson postou ( e no meu também ) isso não acontece. Dê uma olhada, pois o que você precisa está lá. Em 27/07/06, Paola Montini < PMontini em ymf.com.br> escreveu: Meleca falei rápido demais.... o que esta acontecendo é que ele está colocando uma linha a mais no meu arquivo vejam: Amplis ymf-utils SNAPSHOT Beta2006.1.2 #!/usr/bin/perl $local =" arquivoxml.xml"; open(ARQXML,"+<$local"); @texto = ; $nome = SNAPSHOT; foreach $matriz (@texto) { if ($matriz =~ /$nome/) { $matriz =~ s/$nome/Beta2006.1.2/g; print ARQXML $matriz ; } } *Paola Montini YMF-Consultoria Fone: 5010-9220 -----Mensagem original----- De: cascavel-pm-bounces+pmontini= ymf.com.br em pm.org [mailto: cascavel-pm-bounces+pmontini=ymf.com.br em pm.org ]Em nome de Paola Montini Enviada em: quinta-feira, 27 de julho de 2006 13:59 Para: Cascavel Perl Mongers Assunto: [Cascavel-pm] RES: RES: Substituição de string e gravação no arquivo é isso nilson, o erro era esse *Paola Montini YMF-Consultoria Fone: 5010-9220 -----Mensagem original----- De: cascavel-pm-bounces+pmontini= ymf.com.br em pm.org [mailto: cascavel-pm-bounces+pmontini=ymf.com.br em pm.org ]Em nome de Nilson Santos Figueiredo Junior Enviada em: quinta-feira, 27 de julho de 2006 13:55 Para: Cascavel Perl Mongers Assunto: Re: [Cascavel-pm]RES: Substituição de string e gravação no arquivo On 7/27/06, Paola Montini < PMontini em ymf.com.br> wrote: > Missing right curly or square bracket at testexml.pl line 15, at end of line > syntax error at testexml.pl line 15, at EOF Você tentou olhar se existe algum erro próximo ao final da linha 15 do arquivo testexml.pl, aonde está faltando uma chave ou colchete de fechamento? -Nilson Santos F. Jr. _______________________________________________ Cascavel-pm mailing list Cascavel-pm em pm.org http://mail.pm.org/mailman/listinfo/cascavel-pm _______________________________________________ Cascavel-pm mailing list Cascavel-pm em pm.org http://mail.pm.org/mailman/listinfo/cascavel-pm _______________________________________________ Cascavel-pm mailing list Cascavel-pm em pm.org http://mail.pm.org/mailman/listinfo/cascavel-pm -- Igor Sutton Lopes t: +55 51 9627.0779 e: igor.sutton em gmail.com _______________________________________________ Cascavel-pm mailing list Cascavel-pm em pm.org http://mail.pm.org/mailman/listinfo/cascavel-pm -- Igor Sutton Lopes t: +55 51 9627.0779 e: igor.sutton em gmail.com _______________________________________________ Cascavel-pm mailing list Cascavel-pm em pm.org http://mail.pm.org/mailman/listinfo/cascavel-pm -- Igor Sutton Lopes t: +55 51 9627.0779 e: igor.sutton em gmail.com _______________________________________________ Cascavel-pm mailing list Cascavel-pm em pm.org http://mail.pm.org/mailman/listinfo/cascavel-pm -- Igor Sutton Lopes t: +55 51 9627.0779 e: igor.sutton em gmail.com -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060727/857f8157/attachment.html From PMontini em ymf.com.br Thu Jul 27 12:05:31 2006 From: PMontini em ymf.com.br (Paola Montini) Date: Thu, 27 Jul 2006 16:05:31 -0300 Subject: [Cascavel-pm] =?iso-8859-1?q?RES=3A_RES=3A_RES=3A_RES=3A_RES=3A_R?= =?iso-8859-1?q?ES=3A_RES=3A_Substitui=E7=E3o_de_string_e_grava=E7?= =?iso-8859-1?q?=E3o_no_arquivo?= In-Reply-To: <6c65a53f0607271143j3b2fd7e4xc190ce035e9ca99e@mail.gmail.com> Message-ID: <88C3C4DD4C530B4FAD96EC86F990955362A9CB@ymfspsrv03.ymfsp.local> Igor, Seu comando deu certo .... *Paola Montini YMF-Consultoria Fone: 5010-9220 -----Mensagem original----- De: cascavel-pm-bounces+pmontini=ymf.com.br em pm.org [mailto:cascavel-pm-bounces+pmontini=ymf.com.br em pm.org]Em nome de Igor Sutton Enviada em: quinta-feira, 27 de julho de 2006 15:43 Para: Cascavel Perl Mongers Assunto: Re: [Cascavel-pm]RES: RES: RES: RES: RES: RES: Substituição de string e gravação no arquivo Esperamos que isto se reverta em contribuição sua para a comunidade :-) E seja bem vinda! PS: O que é 'CM', que você mencionou antes? Em 27/07/06, Paola Montini < PMontini em ymf.com.br> escreveu: ótimo..... Nossa vcs não sabem como estão me ajudando ...... estão quebrando o maior galho...... *Paola Montini YMF-Consultoria Fone: 5010-9220 -----Mensagem original----- De: cascavel-pm-bounces+pmontini= ymf.com.br em pm.org [mailto: cascavel-pm-bounces+pmontini=ymf.com.br em pm.org]Em nome de Igor Sutton Enviada em: quinta-feira, 27 de julho de 2006 15:39 Para: Cascavel Perl Mongers Assunto: Re: [Cascavel-pm]RES: RES: RES: RES: RES: Substituição de string e gravação no arquivo Como assim 'não vai poder passar o nome do arquivo'? Ele é sempre o mesmo? Se é sempre o mesmo, faça assim: #!/usr/bin/perl $^I = ".bak"; @ARGV = ("/meu/arquivo/input.xml"); while (<>) { s/SNAPSHOT/1.1/; } Em 27/07/06, Paola Montini < PMontini em ymf.com.br > escreveu: Igor agora funcionou certinho......mas eu não vou poder passar o nome do arquivo na linha de chamada do script..... como fazer?? PS: As perguntas podem ser ignorantes.... desculpem-me, mas sou analista de CM e estou tendo que fazer esses scripts... é a primeira vez que trabablho com perl *Paola Montini YMF-Consultoria Fone: 5010-9220 -----Mensagem original----- De: cascavel-pm-bounces+pmontini= ymf.com.br em pm.org [mailto: cascavel-pm-bounces+pmontini=ymf.com.br em pm.org]Em nome de Igor Sutton Enviada em: quinta-feira, 27 de julho de 2006 14:43 Para: Cascavel Perl Mongers Assunto: Re: [Cascavel-pm]RES: RES: RES: RES: Substituição de string e gravação no arquivo Como você executou o seu programa? input.xml: 1.1 teste.pl: #!/usr/bin/perl $^I = ".bak"; while(<>) { s/SNAPSHOT/1.1/; print; } como executar: $ perl teste.pl input.xml saída: $ ls input.xml* input.xml input.xml.bak $ cat input.xml 1.1 Em 27/07/06, Paola Montini < PMontini em ymf.com.br > escreveu: Desculpe Igor, mas a sua solução não está funcionando nessa linha s/SNAPSHOT/1.1/ if /SNAPSHOT/;. Att *Paola Montini YMF-Consultoria Fone: 5010-9220 -----Mensagem original----- De: cascavel-pm-bounces+pmontini= ymf.com.br em pm.org [mailto: cascavel-pm-bounces+pmontini=ymf.com.br em pm.org]Em nome de Igor Sutton Enviada em: quinta-feira, 27 de julho de 2006 14:05 Para: Cascavel Perl Mongers Assunto: Re: [Cascavel-pm]RES: RES: RES: Substituição de string e gravação no arquivo No exemplo que o Nelson postou ( e no meu também ) isso não acontece. Dê uma olhada, pois o que você precisa está lá. Em 27/07/06, Paola Montini < PMontini em ymf.com.br> escreveu: Meleca falei rápido demais.... o que esta acontecendo é que ele está colocando uma linha a mais no meu arquivo vejam: Amplis ymf-utils SNAPSHOT Beta2006.1.2 #!/usr/bin/perl $local =" arquivoxml.xml"; open(ARQXML,"+<$local"); @texto = ; $nome = SNAPSHOT; foreach $matriz (@texto) { if ($matriz =~ /$nome/) { $matriz =~ s/$nome/Beta2006.1.2/g; print ARQXML $matriz ; } } *Paola Montini YMF-Consultoria Fone: 5010-9220 -----Mensagem original----- De: cascavel-pm-bounces+pmontini= ymf.com.br em pm.org [mailto: cascavel-pm-bounces+pmontini=ymf.com.br em pm.org ]Em nome de Paola Montini Enviada em: quinta-feira, 27 de julho de 2006 13:59 Para: Cascavel Perl Mongers Assunto: [Cascavel-pm] RES: RES: Substituição de string e gravação no arquivo é isso nilson, o erro era esse *Paola Montini YMF-Consultoria Fone: 5010-9220 -----Mensagem original----- De: cascavel-pm-bounces+pmontini= ymf.com.br em pm.org [mailto: cascavel-pm-bounces+pmontini=ymf.com.br em pm.org ]Em nome de Nilson Santos Figueiredo Junior Enviada em: quinta-feira, 27 de julho de 2006 13:55 Para: Cascavel Perl Mongers Assunto: Re: [Cascavel-pm]RES: Substituição de string e gravação no arquivo On 7/27/06, Paola Montini < PMontini em ymf.com.br> wrote: > Missing right curly or square bracket at testexml.pl line 15, at end of line > syntax error at testexml.pl line 15, at EOF Você tentou olhar se existe algum erro próximo ao final da linha 15 do arquivo testexml.pl, aonde está faltando uma chave ou colchete de fechamento? -Nilson Santos F. Jr. _______________________________________________ Cascavel-pm mailing list Cascavel-pm em pm.org http://mail.pm.org/mailman/listinfo/cascavel-pm _______________________________________________ Cascavel-pm mailing list Cascavel-pm em pm.org http://mail.pm.org/mailman/listinfo/cascavel-pm _______________________________________________ Cascavel-pm mailing list Cascavel-pm em pm.org http://mail.pm.org/mailman/listinfo/cascavel-pm -- Igor Sutton Lopes t: +55 51 9627.0779 e: igor.sutton em gmail.com _______________________________________________ Cascavel-pm mailing list Cascavel-pm em pm.org http://mail.pm.org/mailman/listinfo/cascavel-pm -- Igor Sutton Lopes t: +55 51 9627.0779 e: igor.sutton em gmail.com _______________________________________________ Cascavel-pm mailing list Cascavel-pm em pm.org http://mail.pm.org/mailman/listinfo/cascavel-pm -- Igor Sutton Lopes t: +55 51 9627.0779 e: igor.sutton em gmail.com _______________________________________________ Cascavel-pm mailing list Cascavel-pm em pm.org http://mail.pm.org/mailman/listinfo/cascavel-pm -- Igor Sutton Lopes t: +55 51 9627.0779 e: igor.sutton em gmail.com -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060727/f54eea0f/attachment.html From fernandocorrea em gmail.com Thu Jul 27 15:08:00 2006 From: fernandocorrea em gmail.com (Fernando) Date: Thu, 27 Jul 2006 19:08:00 -0300 Subject: [Cascavel-pm] =?iso-8859-1?q?Substitui=E7=E3o_de_string_e_grava?= =?iso-8859-1?q?=E7=E3o_no_arquivo?= In-Reply-To: <88C3C4DD4C530B4FAD96EC86F9909553615328@ymfspsrv03.ymfsp.local> References: <88C3C4DD4C530B4FAD96EC86F9909553615328@ymfspsrv03.ymfsp.local> Message-ID: <44C93940.1020803@gmail.com> -----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 Paola Montini escreveu: > Substituição de string e gravação no arquivo > > Pessoal, > Tenho um arquivo XML no qual existe a string SNAPSHOT na tag > de versão.Preciso encontrar essa tag dentro do arquivo e > substituí-la pelo número da versão > > salvando o arquivo com essa informação nova. > Fiz o script de teste abaixo, porém o que esta acontecendo, > é ele encontra a string SNAPSHOT, porém não grava nada no arquivo, > pior apaga o conteúdo do arquivo inteiro... > > Please o que estou fazendo de errado: > > > #! /usr/bin/perl > $local = "arquivoxml.xml"; > open (ARQXML,"<$local"); > $nome = SNAPSHOT; > @texto = ; > foreach $matriz (@texto) > { > if ($matriz =~ /$nome/) > { > print $matriz; > $matriz =~ s/$nome/Beta2006.2.1/g; > print ARQXML $matriz; > } > close (ARQXML); > > ps: sei que o comando de substituição tb está funcionando > corretamente pois quando peço apenas para substituir e "printar" em > tela funciona, o problema está realmente com o arquivo. Também é > valido dizer que já tentei abrir o arquivo com > e >> e acontece a > mesma coisa. > > TKS galera > > > > bPaola Montini > YMF-Consultoria > Fone: 5010-9220 > > > ---------------------------------------------------------------------- > > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm em pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm perl -i -pe 'BEGIN{$nome=shift; $subs=shift}s/$nome/$subs/g' SNAPSHOT Beta2006.2.1 arquivo.xml -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.4.2.2 (GNU/Linux) Comment: Using GnuPG with Mozilla - http://enigmail.mozdev.org iD8DBQFEyTlAqUTNa2oq34gRAiKPAJ9NtNm0522AO/pe4dDC6ZFU4QRr/QCgmn57 8nV1ZTY+rAfkk6cUXrWSnZo= =yHpk -----END PGP SIGNATURE----- From rodzadra em yahoo.com Thu Jul 27 19:00:29 2006 From: rodzadra em yahoo.com (Rod Za) Date: Thu, 27 Jul 2006 19:00:29 -0700 (PDT) Subject: [Cascavel-pm] dúvida sobre cpan In-Reply-To: <9a08c9b40607270942p316500c6uc11090d1829a89dd@mail.gmail.com> Message-ID: <20060728020029.46024.qmail@web50408.mail.yahoo.com> --- Nilson Santos Figueiredo Junior wrote: > Deixar ele no sistema não vai estragar nada e "economizar alguns KBs" > não é uma justificativa suficiente pro trabalho que daria bolar um > mecanismo de desinstalação. > > -Nilson Santos F. Jr. Nilson, Eu discordo um pouco desta posição, trabalhando com segurança em redes você irá descobrir que tudo que é supérfulo em uma máquina passa a ser perigoso. Como o Perl/CPAN não tem nem um mecanismo de desinstalação e nem de atualização automatizada - que avisaria em casos de bugs de segurança - passar a instalar indiscriminadamente módulos tornaria sua máquina potencialmente mais vunerável. E é muito comum ir no CPAN pegar um módulo "com mais de 200 anos de idade que não é mantido" para testar até que descobrimos outro módulo muito superior e com atualizações constantes. Nisso temos um bando de possíveis brechas de segurança. Se tratando de uma máquina "standalone" o impacto pode não representar nada mas considerando um servidor conectado 24h na internet e, principalmente, com shells disponíveis é um prato cheio. []'s Rodrigo. __________________________________________________ Do You Yahoo!? Tired of spam? Yahoo! Mail has the best spam protection around http://mail.yahoo.com From glasswalk3r em yahoo.com.br Fri Jul 28 05:26:53 2006 From: glasswalk3r em yahoo.com.br (Alceu R. de Freitas Jr.) Date: Fri, 28 Jul 2006 09:26:53 -0300 (ART) Subject: [Cascavel-pm] =?iso-8859-1?q?d=FAvida_sobre_cpan?= In-Reply-To: <44C8CCAC.1070202@gmail.com> Message-ID: <20060728122653.79342.qmail@web30808.mail.mud.yahoo.com> Essa é uma outra boa idéia. Mas no final das contas acho que vale a pena se utilizar de pacotes RPM ou DEB para administrar os módulos Perl: pelo menos assim você pode checar dependências antes de remover. Existem alguns programas que criam pacotes diretamente de tarballs do CPAN, mas eu nunca testei. []'s Alceu --- Marco A P D'Andrade escreveu: > Bem, segue minha sugestão... > > Uma boa pratica, a ser feita para testar modulos é > não instalar na > arvore padrão, mas comumente desconhecida... > > perl Makefile.PL LIB=/tmp/td > ... > > na hora de usar o modulo em teste (assumindo > bash/sh): > > export PERL5LIB=/tmp/td > > ou em seu script: > use lib qw( /tmp/td ); > > Desta maneira bastaria remover o diretorio de > testes. > > Claro que a url informada para a documentação supre > o requisito de > remoção dos modulos (que por sinal eu desconhecia). > > Sds, > Marco Antonio > > Adriano Ferreira wrote: > > >On 7/27/06, Nilson Santos Figueiredo Junior > wrote: > > > > > >>Porque não tem muito sentido remover um módulo. > >> > >> > > > >Se você instalou um módulo para um test drive e não > gostou dele, faz > >sentido remover um módulo. > >_______________________________________________ > >Cascavel-pm mailing list > >Cascavel-pm em pm.org > >http://mail.pm.org/mailman/listinfo/cascavel-pm > > > > > > > > > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm em pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > Alceu Rodrigues de Freitas Junior -------------------------------------- glasswalk3r em yahoo.com.br http://www.imortais.cjb.net ----------------------------------------------------------------------- A well-used door needs no oil on its hinges. A swift-flowing stream does not grow stagnant. Neither sound nor thoughts can travel through a vacuum. Software rots if not used. These are great mysteries -- The Tao Of Programming, 5.1 _______________________________________________________ Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho agora! http://br.mobile.yahoo.com/mailalertas/ From igor.sutton em gmail.com Fri Jul 28 05:30:30 2006 From: igor.sutton em gmail.com (Igor Sutton) Date: Fri, 28 Jul 2006 09:30:30 -0300 Subject: [Cascavel-pm] =?iso-8859-1?q?d=FAvida_sobre_cpan?= In-Reply-To: <20060728122653.79342.qmail@web30808.mail.mud.yahoo.com> References: <44C8CCAC.1070202@gmail.com> <20060728122653.79342.qmail@web30808.mail.mud.yahoo.com> Message-ID: <6c65a53f0607280530m3704e923s30de8cc41f8149b0@mail.gmail.com> Eu utilizo o cpan2rpm. A maioria das vezes não dá problema, só quando tem algo do tipo em arquivos .pm: # blabla use something blabla O RPM se perde e cria uma dependência para o módulo 'something'. Em 28/07/06, Alceu R. de Freitas Jr. escreveu: > > Essa é uma outra boa idéia. Mas no final das contas > acho que vale a pena se utilizar de pacotes RPM ou DEB > para administrar os módulos Perl: pelo menos assim > você pode checar dependências antes de remover. > > Existem alguns programas que criam pacotes diretamente > de tarballs do CPAN, mas eu nunca testei. > > []'s > Alceu > > --- Marco A P D'Andrade escreveu: > > > Bem, segue minha sugestão... > > > > Uma boa pratica, a ser feita para testar modulos é > > não instalar na > > arvore padrão, mas comumente desconhecida... > > > > perl Makefile.PL LIB=/tmp/td > > ... > > > > na hora de usar o modulo em teste (assumindo > > bash/sh): > > > > export PERL5LIB=/tmp/td > > > > ou em seu script: > > use lib qw( /tmp/td ); > > > > Desta maneira bastaria remover o diretorio de > > testes. > > > > Claro que a url informada para a documentação supre > > o requisito de > > remoção dos modulos (que por sinal eu desconhecia). > > > > Sds, > > Marco Antonio > > > > Adriano Ferreira wrote: > > > > >On 7/27/06, Nilson Santos Figueiredo Junior > > wrote: > > > > > > > > >>Porque não tem muito sentido remover um módulo. > > >> > > >> > > > > > >Se você instalou um módulo para um test drive e não > > gostou dele, faz > > >sentido remover um módulo. > > >_______________________________________________ > > >Cascavel-pm mailing list > > >Cascavel-pm em pm.org > > >http://mail.pm.org/mailman/listinfo/cascavel-pm > > > > > > > > > > > > > > > _______________________________________________ > > Cascavel-pm mailing list > > Cascavel-pm em pm.org > > http://mail.pm.org/mailman/listinfo/cascavel-pm > > > > > Alceu Rodrigues de Freitas Junior > -------------------------------------- > glasswalk3r em yahoo.com.br > http://www.imortais.cjb.net > ----------------------------------------------------------------------- > A well-used door needs no oil on its hinges. > A swift-flowing stream does not grow stagnant. > Neither sound nor thoughts can travel through a vacuum. > Software rots if not used. > These are great mysteries -- The Tao Of Programming, 5.1 > > > > _______________________________________________________ > Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. > Registre seu aparelho agora! > http://br.mobile.yahoo.com/mailalertas/ > > > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm em pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > -- Igor Sutton Lopes t: +55 51 9627.0779 e: igor.sutton em gmail.com -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060728/ad53556b/attachment.html From PMontini em ymf.com.br Fri Jul 28 05:35:29 2006 From: PMontini em ymf.com.br (Paola Montini) Date: Fri, 28 Jul 2006 09:35:29 -0300 Subject: [Cascavel-pm] Matriz Message-ID: <88C3C4DD4C530B4FAD96EC86F990955362B14F@ymfspsrv03.ymfsp.local> Olha eu novamente, vcs ainda não se livraram de mim Tenho um arquivo texto o qual coloquei dentro de uma matriz, cada linha desse arquivo é um caminho diferente que deve ser lido um de cada vez, não sei quantas linhas possue essa matriz..... no perl existe a função While not EOF ???? Não quero fazer besteira!!!! *Paola Montini YMF-Consultoria Fone: 5010-9220 -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060728/88823356/attachment.html From daniel_5h4d0w em hotmail.com Fri Jul 28 05:40:52 2006 From: daniel_5h4d0w em hotmail.com (Shadow Elf) Date: Fri, 28 Jul 2006 09:40:52 -0300 Subject: [Cascavel-pm] Matriz In-Reply-To: <88C3C4DD4C530B4FAD96EC86F990955362B14F@ymfspsrv03.ymfsp.local> Message-ID: Corrijam-me se eu estiver errado mais nesse caso seria possivel usar while(@matriz!=EOF){...} hehehe!!! faz um tempo que não uso EOF... ^^ >From: "Paola Montini" >Reply-To: Cascavel Perl Mongers >To: >Subject: [Cascavel-pm] Matriz >Date: Fri, 28 Jul 2006 09:35:29 -0300 > >Olha eu novamente, vcs ainda não se livraram de mim >Tenho um arquivo texto o qual coloquei dentro de uma matriz, cada linha >desse arquivo é um caminho diferente que deve ser lido um de cada vez, >não sei quantas linhas possue essa matriz..... >no perl existe a função While not EOF ???? >Não quero fazer besteira!!!! > >*Paola Montini >YMF-Consultoria >Fone: 5010-9220 > >_______________________________________________ >Cascavel-pm mailing list >Cascavel-pm em pm.org >http://mail.pm.org/mailman/listinfo/cascavel-pm _________________________________________________________________ Baixe agora o Windows Live Messenger! http://get.live.com/messenger/overview From igor.sutton em gmail.com Fri Jul 28 05:47:19 2006 From: igor.sutton em gmail.com (Igor Sutton) Date: Fri, 28 Jul 2006 09:47:19 -0300 Subject: [Cascavel-pm] Matriz In-Reply-To: <88C3C4DD4C530B4FAD96EC86F990955362B14F@ymfspsrv03.ymfsp.local> References: <88C3C4DD4C530B4FAD96EC86F990955362B14F@ymfspsrv03.ymfsp.local> Message-ID: <6c65a53f0607280547i162be7cu393f57843e2f2c3b@mail.gmail.com> Paola, Vou repetir o mesmo que já falei várias vezes para outros membros da lista... Envie-nos um exemplo do código que você fez (mesmo que não funcione) e um exemplo do arquivo de entrada, e o que você espera que este programa faça. Um exemplo de leitura de arquivo: #!/usr/bin/perl use strict; use warnings; open my $fh, "<", "arquivo.txt" or die "Problemas ao abrir arquivo: $!"; while (<$fh>) { # le o arquivo ateh o final, armazenando cada linha na variavel $_ chomp; # remove o \n no final da linha print "> $_\n"; # imprime } close $fh or warn "Problemas ao fechar arquivo: $!"; Em 28/07/06, Paola Montini escreveu: > > Olha eu novamente, vcs ainda não se livraram de mim > Tenho um arquivo texto o qual coloquei dentro de uma matriz, cada linha > desse arquivo é um caminho diferente que deve ser lido um de cada vez, > > não sei quantas linhas possue essa matriz..... > no perl existe a função While not EOF ???? > Não quero fazer besteira!!!! > > bPaola Montini > YMF-Consultoria > Fone: 5010-9220 > > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm em pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > > -- Igor Sutton Lopes t: +55 51 9627.0779 e: igor.sutton em gmail.com -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060728/310723b9/attachment-0001.html From PMontini em ymf.com.br Fri Jul 28 05:56:12 2006 From: PMontini em ymf.com.br (Paola Montini) Date: Fri, 28 Jul 2006 09:56:12 -0300 Subject: [Cascavel-pm] RES: Matriz In-Reply-To: <6c65a53f0607280547i162be7cu393f57843e2f2c3b@mail.gmail.com> Message-ID: <88C3C4DD4C530B4FAD96EC86F990955362B1A2@ymfspsrv03.ymfsp.local> OK... Então aí vai O meu script voltaversao.pl deve abrir o arquivo caminho.txt, aonde será encontrado uma lista de caminhos , deve ler uma linha por vez desse arquivo, pegar esse caminho com o arquivo pom.xml. procurar dentro desse pom.xml a versão atual informada pelo usuário e substituí-la pela versão antiga também informada pelo usuário. em todas as ocorrências da mesma. O script deve repetir isso até que não encontre mais nenhuma linha de caminho no arquivo caminho.txt.... Vamos ver se pelo menos a lógica está correta. PS : o voltaversao.pl estará no mesmo diretório que o caminho.txt *Paola Montini YMF-Consultoria Fone: 5010-9220 -----Mensagem original----- De: cascavel-pm-bounces+pmontini=ymf.com.br em pm.org [mailto:cascavel-pm-bounces+pmontini=ymf.com.br em pm.org]Em nome de Igor Sutton Enviada em: sexta-feira, 28 de julho de 2006 09:47 Para: Cascavel Perl Mongers Assunto: Re: [Cascavel-pm] Matriz Paola, Vou repetir o mesmo que já falei várias vezes para outros membros da lista... Envie-nos um exemplo do código que você fez (mesmo que não funcione) e um exemplo do arquivo de entrada, e o que você espera que este programa faça. Um exemplo de leitura de arquivo: #!/usr/bin/perl use strict; use warnings; open my $fh, "<", "arquivo.txt" or die "Problemas ao abrir arquivo: $!"; while (<$fh>) { # le o arquivo ateh o final, armazenando cada linha na variavel $_ chomp; # remove o \n no final da linha print "> $_\n"; # imprime } close $fh or warn "Problemas ao fechar arquivo: $!"; Em 28/07/06, Paola Montini < PMontini em ymf.com.br> escreveu: Olha eu novamente, vcs ainda não se livraram de mim Tenho um arquivo texto o qual coloquei dentro de uma matriz, cada linha desse arquivo é um caminho diferente que deve ser lido um de cada vez, não sei quantas linhas possue essa matriz..... no perl existe a função While not EOF ???? Não quero fazer besteira!!!! *Paola Montini YMF-Consultoria Fone: 5010-9220 _______________________________________________ Cascavel-pm mailing list Cascavel-pm em pm.org http://mail.pm.org/mailman/listinfo/cascavel-pm -- Igor Sutton Lopes t: +55 51 9627.0779 e: igor.sutton em gmail.com -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060728/3a5f3bd9/attachment.html -------------- Próxima Parte ---------- Um texto embutido e sem conjunto de caracteres especificado associado... Nome: caminho.txt Url: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060728/3a5f3bd9/attachment.txt -------------- Próxima Parte ---------- Um anexo não texto foi limpo... Nome : pom.xml Tipo : text/xml Tam : 5464 bytes Descr.: pom.xml Url : http://mail.pm.org/pipermail/cascavel-pm/attachments/20060728/3a5f3bd9/attachment.xml -------------- Próxima Parte ---------- Um anexo não texto foi limpo... Nome : voltaversao.pl Tipo : application/octet-stream Tam : 554 bytes Descr.: voltaversao.pl Url : http://mail.pm.org/pipermail/cascavel-pm/attachments/20060728/3a5f3bd9/attachment.obj From thomas em tcnet.com.br Fri Jul 28 05:58:36 2006 From: thomas em tcnet.com.br (Thomas Britis) Date: Fri, 28 Jul 2006 09:58:36 -0300 Subject: [Cascavel-pm] Matriz In-Reply-To: <88C3C4DD4C530B4FAD96EC86F990955362B14F@ymfspsrv03.ymfsp.local> References: <88C3C4DD4C530B4FAD96EC86F990955362B14F@ymfspsrv03.ymfsp.local> Message-ID: <44CA09FC.8070804@tcnet.com.br> my @matriz; open (F, "<$file"); @matriz = ; my $num = $#matriz + 1; ou: foreach (@matriz) { # Vai até o fim de @matriz, alocando a linha na variavel $_ ou ainda: for ($x = 0; $matrix[$x]; $x++) { # Ai vc lê a linha com: $matrix[$x] Paola Montini wrote: > Olha eu novamente, vcs ainda não se livraram de mim > Tenho um arquivo texto o qual coloquei dentro de uma matriz, cada linha > desse arquivo é um caminho diferente que deve ser lido um de cada vez, > > não sei quantas linhas possue essa matriz..... > no perl existe a função While not EOF ???? > Não quero fazer besteira!!!! > > bPaola Montini > YMF-Consultoria > Fone: 5010-9220 > > > ------------------------------------------------------------------------ > > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm em pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm -- Thomas Storino Britis TCNet Informatica e Telecomunicacoes LTDA From igor.sutton em gmail.com Fri Jul 28 06:23:41 2006 From: igor.sutton em gmail.com (Igor Sutton) Date: Fri, 28 Jul 2006 10:23:41 -0300 Subject: [Cascavel-pm] Matriz In-Reply-To: <44CA09FC.8070804@tcnet.com.br> References: <88C3C4DD4C530B4FAD96EC86F990955362B14F@ymfspsrv03.ymfsp.local> <44CA09FC.8070804@tcnet.com.br> Message-ID: <6c65a53f0607280623l72769cc3qcbc2b4e2af88455e@mail.gmail.com> Hum. Para a dúvida da matriz (que eu ainda acho que é uma dúvida de listas, já que pelo que lembro matrizes são multidimensionais). Quando você vai iterar um arquivo, você tem que lembrar que ele pode ser muito grande - pode não ser em todas as situações, mas é uma boa prática evitar que possa haver um estouro de memória. Temos algumas situações: open my $fh, "<", "arquivo.txt" or die $!; # não bom, pois pode exceder o limite de memória, já que o # Perl irá transformar todo o conteúdo do arquivo em um array, # quebrando na posição em que existir $/ (perldoc perlvar) foreach (<$fh>) { ... } # bom, pois pega cada linha do arquivo (podendo mudar o delimitador padrão $/) # por vez, não gerando um array temporário while (defined(my $line = <$fh>)) { ... } # ou utilizando a variável mágica $_ while (<$fh>) { ... } Agora voltando ao EOF, quando você executa <$fh> em contexto escalar, ele retorna 'undef' quando não existem mais linhas (ou elementos) para retornar. Isto serve para arrays também: my @array = qw/1 2 3 4 5/; foreach my $e (@array) { ... } Acho que outros monges podem contribuir com isso também. Em 28/07/06, Thomas Britis escreveu: > > my @matriz; > open (F, "<$file"); > @matriz = ; > my $num = $#matriz + 1; > > ou: > > foreach (@matriz) { # Vai até o fim de @matriz, alocando a linha na > variavel $_ > ou ainda: > for ($x = 0; $matrix[$x]; $x++) { # Ai vc lê a linha com: $matrix[$x] > > Paola Montini wrote: > > Olha eu novamente, vcs ainda não se livraram de mim > > Tenho um arquivo texto o qual coloquei dentro de uma matriz, cada linha > > desse arquivo é um caminho diferente que deve ser lido um de cada vez, > > > > não sei quantas linhas possue essa matriz..... > > no perl existe a função While not EOF ???? > > Não quero fazer besteira!!!! > > > > bPaola Montini > > YMF-Consultoria > > Fone: 5010-9220 > > > > > > ------------------------------------------------------------------------ > > > > _______________________________________________ > > Cascavel-pm mailing list > > Cascavel-pm em pm.org > > http://mail.pm.org/mailman/listinfo/cascavel-pm > > -- > Thomas Storino Britis > TCNet Informatica e Telecomunicacoes LTDA > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm em pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > -- Igor Sutton Lopes t: +55 51 9627.0779 e: igor.sutton em gmail.com -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060728/226960c4/attachment-0001.html From nferraz em gmail.com Fri Jul 28 06:31:22 2006 From: nferraz em gmail.com (Nelson Ferraz) Date: Fri, 28 Jul 2006 14:31:22 +0100 Subject: [Cascavel-pm] RES: Matriz In-Reply-To: <88C3C4DD4C530B4FAD96EC86F990955362B1A2@ymfspsrv03.ymfsp.local> References: <88C3C4DD4C530B4FAD96EC86F990955362B1A2@ymfspsrv03.ymfsp.local> Message-ID: <44CA11AA.8090706@gmail.com> > O meu script voltaversao.pl deve abrir o arquivo caminho.txt, aonde > será encontrado uma lista de caminhos Você começou bem o script, mas poderia fechar o arquivo depois de ler seu conteúdo: open (CAM,$arquivo); @caminhos=; close CAM; Além disso, você deve SEMPRE verificar se a abertura do arquivo funcionou: open (CAM,$arquivo) or die "Erro ao abrir '$arquivo': $!\n"; @caminhos=; close CAM; Esta expressão idiomática pode ser lida como "open file or die", e é a maneira como a gente normalmente abre um arquivo. (De maneira geral, se o seu programa tiver que falhar, deve falhar cedo e ruidosamente. Se não tiver nada de surpreendente para dizer, deve terminar em silêncio.) > arquivo, pegar esse caminho com o arquivo pom.xml. procurar dentro desse > pom.xml a versão atual informada pelo usuário e substituí-la pela versão > antiga também informada pelo usuário. em todas as ocorrências da mesma. > O script deve repetir isso até que não encontre mais nenhuma linha de > caminho no arquivo caminho.txt.... Nesse caso, como você tem todos os elementos em um array, é mais fácil usar um foreach: foreach ( @caminhos ) { # do something with $_ } Se você preferir, pode especificar a variável de loop (o que é recomendável): foreach my $caminho ( @caminhos ) { # do something with $caminho } []s Nelson -- Nelson Corrêa de Toledo Ferraz Segula Technologies (www.segula.fr) Free Software Foundation Associate Member #3203 Sociedade Perl do Brasil (www.perl.org.br) Rede Livre de Compartilhamento de Cultura Digital From nferraz em gmail.com Fri Jul 28 06:41:36 2006 From: nferraz em gmail.com (Nelson Ferraz) Date: Fri, 28 Jul 2006 14:41:36 +0100 Subject: [Cascavel-pm] Matriz In-Reply-To: <88C3C4DD4C530B4FAD96EC86F990955362B14F@ymfspsrv03.ymfsp.local> References: <88C3C4DD4C530B4FAD96EC86F990955362B14F@ymfspsrv03.ymfsp.local> Message-ID: <44CA1410.5010405@gmail.com> Paola Montini wrote: > Olha eu novamente, vcs ainda não se livraram de mim > Tenho um arquivo texto o qual coloquei dentro de uma matriz, cada linha > desse arquivo é um caminho diferente que deve ser lido um de cada vez, > > não sei quantas linhas possue essa matriz..... > no perl existe a função While not EOF ???? > Não quero fazer besteira!!!! Na prática, eu abordaria o problema da seguinte maneira: #!/usr/bin/perl while ( <> ) { # do something with $_ } Simples assim. O programa poderia então ser executado da seguinte maneira: ./meuscript.pl caminhos.txt Ou, o que é ainda mais flexível: find . -name pom.xml | ./meuscript.pl De uma maneira como de outra, o script receberia uma lista de arquivos, e faria alguma coisa com eles, um de cada vez. Para não complicar muito o loop, você pode colocar a ação principal dentro de uma sub: #!/usr/bin/perl use strict; use warnings; while ( <> ) { Do_something( $_ ); } sub Do_something { my $filename = shift; # do something with $filename } []s Nelson -- Nelson Corrêa de Toledo Ferraz Segula Technologies (www.segula.fr) Free Software Foundation Associate Member #3203 Sociedade Perl do Brasil (www.perl.org.br) Rede Livre de Compartilhamento de Cultura Digital From acid06 em gmail.com Fri Jul 28 09:14:34 2006 From: acid06 em gmail.com (Nilson Santos Figueiredo Junior) Date: Fri, 28 Jul 2006 13:14:34 -0300 Subject: [Cascavel-pm] =?iso-8859-1?q?d=FAvida_sobre_cpan?= In-Reply-To: <20060728020029.46024.qmail@web50408.mail.yahoo.com> References: <9a08c9b40607270942p316500c6uc11090d1829a89dd@mail.gmail.com> <20060728020029.46024.qmail@web50408.mail.yahoo.com> Message-ID: <9a08c9b40607280914v4f6a3496ga4908a5992169a19@mail.gmail.com> On 7/27/06, Rod Za wrote: > Eu discordo um pouco desta posição, trabalhando com segurança em redes você irá descobrir que tudo > que é supérfulo em uma máquina passa a ser perigoso. Tudo supérfluo *em execução* *pode* ser perigoso. > Como o Perl/CPAN não tem nem um mecanismo de desinstalação e nem de atualização automatizada - que > avisaria em casos de bugs de segurança - passar a instalar indiscriminadamente módulos tornaria > sua máquina potencialmente mais vunerável. perl -MCPAN -e"CPAN::Shell->install(CPAN::Shell->r)" > E é muito comum ir no CPAN pegar um módulo "com mais de 200 anos de idade que não é mantido" para > testar até que descobrimos outro módulo muito superior e com atualizações constantes. Nisso temos > um bando de possíveis brechas de segurança. E deixar ele na sua máquina *sem utilizá-lo* não irá expor seu sistema a nenhuma das supostas brechas de segurança existentes. -Nilson Santos F. Jr. From acid06 em gmail.com Fri Jul 28 09:25:19 2006 From: acid06 em gmail.com (Nilson Santos Figueiredo Junior) Date: Fri, 28 Jul 2006 13:25:19 -0300 Subject: [Cascavel-pm] Matriz In-Reply-To: <6c65a53f0607280623l72769cc3qcbc2b4e2af88455e@mail.gmail.com> References: <88C3C4DD4C530B4FAD96EC86F990955362B14F@ymfspsrv03.ymfsp.local> <44CA09FC.8070804@tcnet.com.br> <6c65a53f0607280623l72769cc3qcbc2b4e2af88455e@mail.gmail.com> Message-ID: <9a08c9b40607280925t3647775bqd84440e17c8f5669@mail.gmail.com> On 7/28/06, Igor Sutton wrote: > Para a dúvida da matriz (que eu ainda acho que é uma dúvida de listas, já > que pelo que lembro matrizes são multidimensionais). Um vetor é uma matriz 1 x n ou n x 1. Particularmente, eu não gosto da nomenclatura em português e prefiro usar array mesmo. Uma lista em Perl é um conceito sutilmente diferente de uma array. -Nilson Santos F. Jr. From breno em clavis.com.br Fri Jul 28 09:28:02 2006 From: breno em clavis.com.br (Breno G. de Oliveira) Date: Fri, 28 Jul 2006 13:28:02 -0300 Subject: [Cascavel-pm] =?iso-8859-1?q?d=FAvida_sobre_cpan?= In-Reply-To: <9a08c9b40607280914v4f6a3496ga4908a5992169a19@mail.gmail.com> References: <9a08c9b40607270942p316500c6uc11090d1829a89dd@mail.gmail.com> <20060728020029.46024.qmail@web50408.mail.yahoo.com> <9a08c9b40607280914v4f6a3496ga4908a5992169a19@mail.gmail.com> Message-ID: <44CA3B12.2090704@clavis.com.br> Nilson Santos Figueiredo Junior wrote: > >>E é muito comum ir no CPAN pegar um módulo "com mais de 200 anos de idade que não é mantido" para >>testar até que descobrimos outro módulo muito superior e com atualizações constantes. Nisso temos >>um bando de possíveis brechas de segurança. > > > E deixar ele na sua máquina *sem utilizá-lo* não irá expor seu sistema > a nenhuma das supostas brechas de segurança existentes. > Nilson, o fato de *vc não utilizá-lo* não significa que ninguém mais vai. Suponha que vc tem instalado um módulo em seu servidor mas não esteja utilizando, justamente pq, como o Rodrigo enunciou, o módulo é velho e possui um erro que, digamos, dê acesso de root a quem o explorar (ou apague arquivos críticos, ou escute por comandos numa determinada porta, ou ). Daí um usuário de seu sistema decide ir para o lado negro da força e escreve: $ perl -e 'use Modulo::Quebrado; my $a = Modulo::Quebrado->new(); $a->b()' pronto. Ele usou o módulo e seu sistema foi pro brejo. Acho que era isso que o Rodrigo queria dizer na afirmação dele... Pessoalmente, já vivi a situação em que a versão atualizada do módulo estava quebrada no meu sistema. O rollback teve que ser na mão, e talvez uma opção de uninstall ou reinstall viesse a calhar sim (acho que o ppm tem essas opções inclusive). No mais, sobre a questão do cpan não ter método de verificação de dependência para módulos desinstalados, isso seria tão difícil de implementar? []s breno From acid06 em gmail.com Fri Jul 28 09:44:50 2006 From: acid06 em gmail.com (Nilson Santos Figueiredo Junior) Date: Fri, 28 Jul 2006 13:44:50 -0300 Subject: [Cascavel-pm] =?iso-8859-1?q?d=FAvida_sobre_cpan?= In-Reply-To: <44CA3B12.2090704@clavis.com.br> References: <9a08c9b40607270942p316500c6uc11090d1829a89dd@mail.gmail.com> <20060728020029.46024.qmail@web50408.mail.yahoo.com> <9a08c9b40607280914v4f6a3496ga4908a5992169a19@mail.gmail.com> <44CA3B12.2090704@clavis.com.br> Message-ID: <9a08c9b40607280944v58026e6fk9f783dc49c3a6eef@mail.gmail.com> On 7/28/06, Breno G. de Oliveira wrote: > Suponha que vc tem instalado um módulo em seu servidor mas não esteja > utilizando, justamente pq, como o Rodrigo enunciou, o módulo é velho e > possui um erro que, digamos, dê acesso de root a quem o explorar (ou > apague arquivos críticos, ou escute por comandos numa determinada porta, > ou ). Se o seu sistema é vulnerável o suficiente pra um mero módulo rodando em user-mode conseguir escalar os privilégios para root você tem problemas *muito maiores* que um mero módulo a ser desinstalado. > Pessoalmente, já vivi a situação em que a versão atualizada do módulo > estava quebrada no meu sistema. O rollback teve que ser na mão, e talvez > uma opção de uninstall ou reinstall viesse a calhar sim (acho que o ppm > tem essas opções inclusive). Você pode instalar versões antigas do módulo pelo shell da CPAN e essa instalação irá sobreescrever a mais recente. Você não precisa de desinstalar antes. Sim, o PPM tem essa opção e ela só funciona pro que foi instalado pelo PPM. > No mais, sobre a questão do cpan não ter método de verificação de > dependência para módulos desinstalados, isso seria tão difícil de > implementar? Não existe uma forma padrão de determinar as depedências de um módulo. Nem de determinar quais arquivos pertencem a uma distribuição e isso seria uma mudança que afetaria todos os módulos da CPAN, ou seja, algo completamente inviável. A não ser que fosse uma solução como a do PPM (e também do CPANPLUS) onde só módulos instalados pelo shell teriam esse recurso. Mas essa é só uma meia-solução. -Nilson Santos F. Jr. From thomas em tcnet.com.br Fri Jul 28 09:35:57 2006 From: thomas em tcnet.com.br (Thomas Britis) Date: Fri, 28 Jul 2006 13:35:57 -0300 Subject: [Cascavel-pm] =?iso-8859-1?q?d=FAvida_sobre_cpan?= In-Reply-To: <44CA3B12.2090704@clavis.com.br> References: <9a08c9b40607270942p316500c6uc11090d1829a89dd@mail.gmail.com> <20060728020029.46024.qmail@web50408.mail.yahoo.com> <9a08c9b40607280914v4f6a3496ga4908a5992169a19@mail.gmail.com> <44CA3B12.2090704@clavis.com.br> Message-ID: <44CA3CED.8080602@tcnet.com.br> Existe algum módulo que seja instalado com suid bit ? Eu desconheço. Breno G. de Oliveira wrote: > Nilson Santos Figueiredo Junior wrote: > >>>E é muito comum ir no CPAN pegar um módulo "com mais de 200 anos de idade que não é mantido" para >>>testar até que descobrimos outro módulo muito superior e com atualizações constantes. Nisso temos >>>um bando de possíveis brechas de segurança. >> >> >>E deixar ele na sua máquina *sem utilizá-lo* não irá expor seu sistema >>a nenhuma das supostas brechas de segurança existentes. >> > > > Nilson, o fato de *vc não utilizá-lo* não significa que ninguém mais vai. > > Suponha que vc tem instalado um módulo em seu servidor mas não esteja > utilizando, justamente pq, como o Rodrigo enunciou, o módulo é velho e > possui um erro que, digamos, dê acesso de root a quem o explorar (ou > apague arquivos críticos, ou escute por comandos numa determinada porta, > ou ). > > Daí um usuário de seu sistema decide ir para o lado negro da força e > escreve: > > $ perl -e 'use Modulo::Quebrado; my $a = Modulo::Quebrado->new(); $a->b()' > > pronto. Ele usou o módulo e seu sistema foi pro brejo. Acho que era isso > que o Rodrigo queria dizer na afirmação dele... > > Pessoalmente, já vivi a situação em que a versão atualizada do módulo > estava quebrada no meu sistema. O rollback teve que ser na mão, e talvez > uma opção de uninstall ou reinstall viesse a calhar sim (acho que o ppm > tem essas opções inclusive). > > No mais, sobre a questão do cpan não ter método de verificação de > dependência para módulos desinstalados, isso seria tão difícil de > implementar? > > []s > > breno > > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm em pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > > -- Thomas Storino Britis TCNet Informatica e Telecomunicacoes LTDA From breno em clavis.com.br Fri Jul 28 18:00:03 2006 From: breno em clavis.com.br (Breno G. de Oliveira) Date: Fri, 28 Jul 2006 22:00:03 -0300 Subject: [Cascavel-pm] =?iso-8859-1?q?d=FAvida_sobre_cpan?= In-Reply-To: <44CAAB4D.9090204@clavis.com.br> References: <9a08c9b40607270942p316500c6uc11090d1829a89dd@mail.gmail.com> <20060728020029.46024.qmail@web50408.mail.yahoo.com> <9a08c9b40607280914v4f6a3496ga4908a5992169a19@mail.gmail.com> <44CA3B12.2090704@clavis.com.br> <9a08c9b40607280944v58026e6fk9f783dc49c3a6eef@mail.gmail.com> <44CAAB4D.9090204@clavis.com.br> Message-ID: <44CAB313.3050101@clavis.com.br> Oi Nilson, na verdade eu queria pedir desculpas, pois o problema que mostrei refere-se a um bug no perl em si, e o usuário malicioso poderia simplesmente fazer algo como: $ perl -e 'sprintf $minha_string_maligna' para fazer besteira, e isso foge à questão. Agora, pra exemplificar o ponto do Rodrigo, talvez fosse melhor citar algo como o Safe::World ou algum outro que tente, por exemplo, prender o usuário a um determinado grupo de comandos, funções e/ou sintaxes. Imagino não ser difícil supor que um módulo defeituoso permitisse que um usuário preso a esse mundo seguro conseguisse sair e fazer alguma besteira em seu sistema (lembrando que para causar estrago vc não precisa ser root). Ou ainda se vc pensar que, dentro de sua estrutura "segura", vc deixa o sujeito usar apenas alguns módulos, e um deles apresenta esse defeito na versão nova. Como fazer rapidamente o downgrade de volta à versão anterior? As vezes a gente acha que um problema não existe apenas pq não existe para nós. Mas se as pessoas estão perguntando na lista, é pq deve haver *alguma* necessidade, não acha? Afinal, se está até no FAQ do CPAN, o Leonardo não deve ser o único a ter essa dúvida ;) No mais, chega de justificar o argumento dos outros, que sabem se defender muito bem... []s breno Breno G. de Oliveira wrote: > Nilson Santos Figueiredo Junior wrote: > >>Se o seu sistema é vulnerável o suficiente pra um mero módulo rodando >>em user-mode conseguir escalar os privilégios para root você tem >>problemas *muito maiores* que um mero módulo a ser desinstalado. >> > > > CVE-2005-3962 - Integer overflow in the format string functionality > (Perl_sv_vcatpvfn) in Perl 5.9.2 and 5.8.6 Perl allows attackers to > overwrite arbitrary memory and possibly execute arbitrary code via > format string specifiers with large values, which causes an integer wrap > and leads to a buffer overflow, as demonstrated using format string > vulnerabilities in Perl applications. > > Sobre ter problemas *muito maiores* que um mero módulo, sim, vc tem toda > a razão - e talvez ficasse até surpreso com a quantidade de furos > grosseiros que se encontra em sistemas de produção. Mas quando se > trabalha com segurança da informação e o seu nome está na reta, todo o > cuidado é pouco. > > > []s > > breno > From breno em clavis.com.br Fri Jul 28 17:26:53 2006 From: breno em clavis.com.br (Breno G. de Oliveira) Date: Fri, 28 Jul 2006 21:26:53 -0300 Subject: [Cascavel-pm] =?iso-8859-1?q?d=FAvida_sobre_cpan?= In-Reply-To: <9a08c9b40607280944v58026e6fk9f783dc49c3a6eef@mail.gmail.com> References: <9a08c9b40607270942p316500c6uc11090d1829a89dd@mail.gmail.com> <20060728020029.46024.qmail@web50408.mail.yahoo.com> <9a08c9b40607280914v4f6a3496ga4908a5992169a19@mail.gmail.com> <44CA3B12.2090704@clavis.com.br> <9a08c9b40607280944v58026e6fk9f783dc49c3a6eef@mail.gmail.com> Message-ID: <44CAAB4D.9090204@clavis.com.br> Nilson Santos Figueiredo Junior wrote: > > Se o seu sistema é vulnerável o suficiente pra um mero módulo rodando > em user-mode conseguir escalar os privilégios para root você tem > problemas *muito maiores* que um mero módulo a ser desinstalado. > CVE-2005-3962 - Integer overflow in the format string functionality (Perl_sv_vcatpvfn) in Perl 5.9.2 and 5.8.6 Perl allows attackers to overwrite arbitrary memory and possibly execute arbitrary code via format string specifiers with large values, which causes an integer wrap and leads to a buffer overflow, as demonstrated using format string vulnerabilities in Perl applications. Sobre ter problemas *muito maiores* que um mero módulo, sim, vc tem toda a razão - e talvez ficasse até surpreso com a quantidade de furos grosseiros que se encontra em sistemas de produção. Mas quando se trabalha com segurança da informação e o seu nome está na reta, todo o cuidado é pouco. []s breno From acid06 em gmail.com Fri Jul 28 19:30:40 2006 From: acid06 em gmail.com (Nilson Santos Figueiredo Junior) Date: Fri, 28 Jul 2006 23:30:40 -0300 Subject: [Cascavel-pm] =?iso-8859-1?q?d=FAvida_sobre_cpan?= In-Reply-To: <44CAB313.3050101@clavis.com.br> References: <9a08c9b40607270942p316500c6uc11090d1829a89dd@mail.gmail.com> <20060728020029.46024.qmail@web50408.mail.yahoo.com> <9a08c9b40607280914v4f6a3496ga4908a5992169a19@mail.gmail.com> <44CA3B12.2090704@clavis.com.br> <9a08c9b40607280944v58026e6fk9f783dc49c3a6eef@mail.gmail.com> <44CAAB4D.9090204@clavis.com.br> <44CAB313.3050101@clavis.com.br> Message-ID: <9a08c9b40607281930g58d87aa1l24edec5698f1ec09@mail.gmail.com> On 7/28/06, Breno G. de Oliveira wrote: > na verdade eu queria pedir desculpas, pois o problema que mostrei > refere-se a um bug no perl em si, e o usuário malicioso poderia > simplesmente fazer algo como: Notado (como já respondido em privado diretamente pra você). > Imagino não ser difícil supor que um módulo defeituoso permitisse que um > usuário preso a esse mundo seguro conseguisse sair e fazer alguma > besteira em seu sistema (lembrando que para causar estrago vc não O Safe restringe a compilação de opcodes específicos. Os módulos externos são compilados fora desse compartimento e portanto, não ocorre nenhuma restrição sobre eles. Cabe a quem está permitindo o acesso a esses módulos determinar se alguma das funções desse módulo não deveriam ser permitidas dentro do compartimento. Então se você liberou o acesso a algo externo para o compartimento, isso já é um risco de segurança, pois quase qualquer módulo útil faz coisas como escrever em arquivos, abrir sockets, ou qualquer outra coisa possivelmente "perigosa" (sob esse ponto de vista). Se o módulo fosse compilado dentro do compartimento que ele estaria sujeito às restrições de segurança. > precisa ser root). Ou ainda se vc pensar que, dentro de sua estrutura > "segura", vc deixa o sujeito usar apenas alguns módulos, e um deles > apresenta esse defeito na versão nova. Como fazer rapidamente o > downgrade de volta à versão anterior? perl -MCPAN -e "install A/AU/AUTOR/Nome::Modulo-0.versaoantiga.tar.gz" Mas se seu modelo de segurança fosse baseado em algo assim eu consideraria que tem algo errado (ou, no mínimo, estranho). ;-) > As vezes a gente acha que um problema não existe apenas pq não existe > para nós. Mas se as pessoas estão perguntando na lista, é pq deve haver > *alguma* necessidade, não acha? Afinal, se está até no FAQ do CPAN, o > Leonardo não deve ser o único a ter essa dúvida ;) Muitas vezes, as pessoas já estão induzidas a buscar as soluções menos adequadas ou tentam solucionar o problema errado. Esse é o principal problema. Quando alguém me pergunta alguma coisa, muitas vezes, minha resposta inicial vem na forma da seguinte pergunta: "O que você está tentando fazer?" Um exemplo simples e bobo mas que talvez seja suficiente pra ilustrar a idéia: um iniciante em Perl pode te perguntar como que faz pra concatenar strings em Perl. Você responderia: $str3 = $str1 . $str2. Algum tempo depois, você olha o código e vê algo assim: print $nome . $delimitador . $sobrenome . $delimitador . $idade . $delimitador . $etc; Se você soubesse o problema inteiro, poderia ter sugerido uma forma mais legível: print join $delimitador, $nome, $sobrenome, $idade, $etc; Para problemas mais complexos, muitas vezes, a solução será algo que foge do aspecto de pura implementação e cai em pontos como design do programa ou estilo de programação, boas práticas, etc. -Nilson Santos F. Jr. From rodzadra em yahoo.com Fri Jul 28 16:05:22 2006 From: rodzadra em yahoo.com (Rod Za) Date: Fri, 28 Jul 2006 16:05:22 -0700 (PDT) Subject: [Cascavel-pm] dúvida sobre cpan In-Reply-To: <9a08c9b40607280944v58026e6fk9f783dc49c3a6eef@mail.gmail.com> Message-ID: <20060728230522.45344.qmail@web50401.mail.yahoo.com> --- Nilson Santos Figueiredo Junior wrote: > On 7/28/06, Breno G. de Oliveira wrote: > > Suponha que vc tem instalado um módulo em seu servidor mas não esteja > > utilizando, justamente pq, como o Rodrigo enunciou, o módulo é velho e > > possui um erro que, digamos, dê acesso de root a quem o explorar (ou > > apague arquivos críticos, ou escute por comandos numa determinada porta, > > ou ). > > Se o seu sistema é vulnerável o suficiente pra um mero módulo rodando > em user-mode conseguir escalar os privilégios para root você tem > problemas *muito maiores* que um mero módulo a ser desinstalado. Breno, você soube "me expressar" melhor que eu mesmo! :) Nilson, em Linux em torno de 85% das brechas de seguranças são exploradas em modo usuário - em Windows esses números sobem para quase 100%. Um script/módulo executável tem o mesmo poder - ou até mais - que um binário. Já vi inúmeros exploit feitos em Perl e todos são muito poderosos. Além do mais segurança em uma rede não se resume somente a abrir um shell supervitaminado, existem inúmeros tipos de ataques (DoS, Spy, Sniffer, Smurf, etc, etc, etc). Quer um pequeno exemplo? Tente executar a linha abaixo em um bash-shell (cuidado): .(){ .|.&};. A máquina pode ter um bilhão de processadores, com um trilhão de Tb de memória que ela vai travar! E só destrava no 'reset'. Existe um meio simples de barrar este tipo de script mas aposto que 99,999999999999999999% das máquinas, no mundo inteiro, não são configuradas de forma satisfatória a ponto de barrar esta simples linha de comando. Agora imagine o que não dá para fazer com o Perl?? []'s Rodrigo. __________________________________________________ Do You Yahoo!? Tired of spam? Yahoo! Mail has the best spam protection around http://mail.yahoo.com From lorn.br em gmail.com Sat Jul 29 19:30:48 2006 From: lorn.br em gmail.com (Lorn) Date: Sat, 29 Jul 2006 23:30:48 -0300 Subject: [Cascavel-pm] =?iso-8859-1?q?d=FAvida_sobre_cpan?= In-Reply-To: <20060728230522.45344.qmail@web50401.mail.yahoo.com> References: <9a08c9b40607280944v58026e6fk9f783dc49c3a6eef@mail.gmail.com> <20060728230522.45344.qmail@web50401.mail.yahoo.com> Message-ID: On 7/28/06, Rod Za wrote: > > > > --- Nilson Santos Figueiredo Junior wrote: > > > On 7/28/06, Breno G. de Oliveira wrote: > > > Suponha que vc tem instalado um módulo em seu servidor mas não esteja > > > utilizando, justamente pq, como o Rodrigo enunciou, o módulo é velho e > > > possui um erro que, digamos, dê acesso de root a quem o explorar (ou > > > apague arquivos críticos, ou escute por comandos numa determinada > porta, > > > ou ). > > > > Se o seu sistema é vulnerável o suficiente pra um mero módulo rodando > > em user-mode conseguir escalar os privilégios para root você tem > > problemas *muito maiores* que um mero módulo a ser desinstalado. > > Breno, você soube "me expressar" melhor que eu mesmo! :) > > Nilson, em Linux em torno de 85% das brechas de seguranças são exploradas > em modo usuário - em > Windows esses números sobem para quase 100%. > > Um script/módulo executável tem o mesmo poder - ou até mais - que um > binário. Já vi inúmeros > exploit feitos em Perl e todos são muito poderosos. Além do mais segurança > em uma rede não se Exploits em perl sao poderosos por causa da vulnerabilidade, e porque e mais facil fazer com perl, o problema seria exploits para o Perl ;) resume somente a abrir um shell supervitaminado, existem inúmeros tipos de > ataques (DoS, Spy, > Sniffer, Smurf, etc, etc, etc). > > Quer um pequeno exemplo? Tente executar a linha abaixo em um bash-shell > (cuidado): > > .(){ .|.&};. > > A máquina pode ter um bilhão de processadores, com um trilhão de Tb de > memória que ela vai travar! > E só destrava no 'reset'. Existe um meio simples de barrar este tipo de > script mas aposto que > 99,999999999999999999% das máquinas, no mundo inteiro, não são > configuradas de forma satisfatória > a ponto de barrar esta simples linha de comando. Nao testei o comando mais imagino o potencial dele, e fiquei curioso em saber como barrar isso. Agora imagine o que não dá para fazer com o Perl?? > > []'s > > Rodrigo. > > > > __________________________________________________ > Do You Yahoo!? > Tired of spam? Yahoo! Mail has the best spam protection around > http://mail.yahoo.com > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm em pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > -- Lorn - Slackware Linux www.slackwarezine.com.br -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060729/c46ae78c/attachment.html From jamorreu em gmail.com Sun Jul 30 12:30:24 2006 From: jamorreu em gmail.com (=?ISO-8859-1?Q?Jo=E3o_Gabriel?=) Date: Sun, 30 Jul 2006 16:30:24 -0300 Subject: [Cascavel-pm] =?iso-8859-1?q?Sugest=E3o=3A_preparar_programadores?= =?iso-8859-1?q?_p/_o_Perl_6?= Message-ID: <8ff2963a0607301230u7aadae22y838624e7f4a06808@mail.gmail.com> Fala povo! Tava vendo a discussão sobre um comentário que foi postado no PerlMonks de um usuário falando que o Perl está morrendo e blábláblá (aquela velha história que ataca o Perl). Eu já vi várias vezes o pessoal comentando algo como: "Perl 5 é bom, melhor que os outros, mas se você quer se surpreender, espere o Perl 6" ou simplesmente algo como... "Espere o Perl 6" em tom de "Vai ser o fodão". Realmente, pelo que eu já vi vai ser "O FODÃO" mas... que tal prepararmos os programadores p/ o Perl 6? Preparar o "público" para saber quais são seus pontos forte; Preparar o "público" para saber usar e mostrar o quanto será bom; Acho que esse deve ser o caminho a ser seguido para o Perl 6 não ficar com má fama que o Perl 5 tem (apenas para quem não conheçe a linguagem). -- Um abraço, João Gabriel Página pessoal - www.JGCL.pt.to CGiClube.net - www.CGiClube.net Vitória Perl Mongers - Vitoria.pm.org From acid06 em gmail.com Sun Jul 30 12:34:37 2006 From: acid06 em gmail.com (Nilson Santos Figueiredo Junior) Date: Sun, 30 Jul 2006 16:34:37 -0300 Subject: [Cascavel-pm] =?iso-8859-1?q?Sugest=E3o=3A_preparar_programadores?= =?iso-8859-1?q?_p/_o_Perl_6?= In-Reply-To: <8ff2963a0607301230u7aadae22y838624e7f4a06808@mail.gmail.com> References: <8ff2963a0607301230u7aadae22y838624e7f4a06808@mail.gmail.com> Message-ID: <9a08c9b40607301234i75e4059esb981abd2a2b70f39@mail.gmail.com> On 7/30/06, João Gabriel wrote: > Acho que esse deve ser o caminho a ser seguido para o Perl 6 não ficar > com má fama que o Perl 5 tem (apenas para quem não conheçe a > linguagem). Impossível. Eles deveriam ter mudado o nome da linguagem, seria a melhor estratégia de marketing. -Nilson Santos F. Jr. From jamorreu em gmail.com Sun Jul 30 12:52:17 2006 From: jamorreu em gmail.com (=?ISO-8859-1?Q?Jo=E3o_Gabriel?=) Date: Sun, 30 Jul 2006 16:52:17 -0300 Subject: [Cascavel-pm] =?iso-8859-1?q?Sugest=E3o=3A_preparar_programadores?= =?iso-8859-1?q?_p/_o_Perl_6?= In-Reply-To: <9a08c9b40607301234i75e4059esb981abd2a2b70f39@mail.gmail.com> References: <8ff2963a0607301230u7aadae22y838624e7f4a06808@mail.gmail.com> <9a08c9b40607301234i75e4059esb981abd2a2b70f39@mail.gmail.com> Message-ID: <8ff2963a0607301252w334d4167wd8eb03c80ea5f158@mail.gmail.com> Nilson Santos F. Jr. > Impossível. > Eles deveriam ter mudado o nome da linguagem, seria a melhor > estratégia de marketing. Nilson, você tá sendo muito radical... Pode não tirar a má fama, mas acho que pode reduzi-la. -- Um abraço, João Gabriel Página pessoal - www.JGCL.pt.to CGiClube.net - www.CGiClube.net Vitória Perl Mongers - Vitoria.pm.org From daniel_5h4d0w em hotmail.com Sun Jul 30 13:40:33 2006 From: daniel_5h4d0w em hotmail.com (Shadow Elf) Date: Sun, 30 Jul 2006 17:40:33 -0300 Subject: [Cascavel-pm] =?iso-8859-1?q?Sugest=E3o=3A_preparar_programadores?= =?iso-8859-1?q?_p/_o_Perl_6?= In-Reply-To: <8ff2963a0607301252w334d4167wd8eb03c80ea5f158@mail.gmail.com> Message-ID: Ai na minha opinião... a Perl eh uma excelente linguagem... não deve nada as outras... a Perl sem duvidas eh a melhor linguagem na minha opinião e ninguem vai me fazer mudar de ideia... A negocio estah es cemos bons no que fazemos não importa o que os outros digam ou pensem... _________________________________________________________________ Descubra como mandar Torpedos Messenger do computador para o celular http://www.msn.com.br/artigos/maguire/default.asp From breno em clavis.com.br Sun Jul 30 18:55:08 2006 From: breno em clavis.com.br (Breno G. de Oliveira) Date: Sun, 30 Jul 2006 22:55:08 -0300 Subject: [Cascavel-pm] =?iso-8859-1?q?Sugest=E3o=3A_preparar_programadores?= =?iso-8859-1?q?_p/_o_Perl_6?= In-Reply-To: References: Message-ID: <44CD62FC.9090305@clavis.com.br> Shadow Elf wrote: > Ai na minha opinião... a Perl eh uma excelente linguagem... não deve > nada as outras... > a Perl sem duvidas eh a melhor linguagem na minha opinião e ninguem > vai me fazer mudar de ideia... > > A negocio estah es cemos bons no que fazemos não importa o que os > outros digam ou pensem... > Acho que nem o Nilson nem ninguém dessa lista duvida disso. Mas concordo plenamente com o que ele disse: mudar de nome na versão 6 seria a melhor estratégia de marketing - os antigos programadores fariam um simples s/Perl/Novo_Nome/g; e os novos olhariam para ela com outros olhos. É triste mas é verdade, nossa sociedade vê a idade como um sinal de ultrapassado e obsoleto, e não de sólido e experiente, e esse é um problema para o Perl. Do meu ponto de vista, Perl poderia ter mudado de nome desde a versão 5, e seria uma ótima estratégia de marketing naquela época também. No entanto, como vc explicitou tão bem, não é o marketing que move nossa comunidade. Programadores profissionais acabam sofrendo com isso, mas a verdade é que Perl sempre foi a linguagem feita pensando apenas no lado prático, mudando o que precisa ser mudado para tornar "coisas simples simples e coisas complicadas possíveis", sem se preocupar tanto com o que "vende" ou com a moda da vez. Talvez falte ao Perl um bom marketeiro, alguém preocupado apenas com a imagem da linguagem, para garantir uma maior adoção da mesma, o que certamente é benéfico em todos os sentidos. A "falácia da ratoeira" é o melhor exemplo disso e está presente em muitos livros de empreendimento. Ela é um dos maiores motivos pelo qual negócios vão a falência, e diz que se alguém criasse a melhor ratoeira do mundo e a colocasse à venda na própria casa, em algum lugar longínquo e de difícil acesso, sem fazer grandes propagandas, eventualmente alguém se encantaria e passaria a informação adiante, e aos poucos o mundo abriria uma grande rodovia até a casa do sujeito e todos iriam felizes comprar a ratoeira, fazendo dela um grande sucesso. Talvez essa seja a principal crítica dos que dizem que falta ao Perl uma grande empresa, pois grandes empresas nunca fariam um investimento como esse sem uma grande estratégia de marketing por trás (vide Sun/Java e Microsoft/.NET). Mas se não temos uma grande empresa, temos uma das comunidades de desenvolvedores mais significativas do mundo, e no meio dela deve existir alguém disposto a tomar essa frente. Não sei até que ponto essa questão seria levada à frente (se é que já não foi descartada), mas sem dúvida nos faz pensar. Hoje, infelizmente (ou felizmente, do ponto de vista de tantos outros), o círculo tomador de decisões acerca do Perl é composto de desenvolvedores, que mantém as idéias originais (e até um tanto "xiitas") do Larry Wall, idéias essas que aprendemos a gostar - umas mais do que outras, naturalmente - sendo a principal a de que o Perl é uma ferramenta para resolver problemas, e não tem o menor interesse em disputar a fama com outras linguagens - mesmo que tenha o potencial para vencer de lavada. []s breno > _________________________________________________________________ > Descubra como mandar Torpedos Messenger do computador para o celular > http://www.msn.com.br/artigos/maguire/default.asp > > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm em pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > > From acid06 em gmail.com Sun Jul 30 19:39:09 2006 From: acid06 em gmail.com (Nilson Santos Figueiredo Junior) Date: Sun, 30 Jul 2006 23:39:09 -0300 Subject: [Cascavel-pm] =?iso-8859-1?q?Sugest=E3o=3A_preparar_programadores?= =?iso-8859-1?q?_p/_o_Perl_6?= In-Reply-To: References: <8ff2963a0607301252w334d4167wd8eb03c80ea5f158@mail.gmail.com> Message-ID: <9a08c9b40607301939yb044216ve997caf05ee9f9d@mail.gmail.com> On 7/30/06, Shadow Elf wrote: > A negocio estah es cemos bons no que fazemos não importa o que os outros > digam ou pensem... A idéia é muito bonita mas, no final, alguém precisa de pagar as contas. Em minha opinião, Perl é a melhor linguagem existente atualmente para aplicações server-side e o Catalyst deixa o Ruby on Rails no chinelo. Mas isso não muda o fato de que eu provavelmente sou uma das únicas pessoas no Brasil inteiro que desenvolve utilizando o Catalyst. Infelizmente, é pequeno o número de empresas realizando novos desenvolvimentos utilizando Perl no Brasil. Esse é o principal problema que eu não acredito que será solucionado com o Perl 6. Não é falta de capacidade técnica da linguagem ou algo do gênero. -Nilson Santos F. Jr. From edencardim em gmail.com Mon Jul 31 04:00:06 2006 From: edencardim em gmail.com (Eden Cardim) Date: Mon, 31 Jul 2006 08:00:06 -0300 Subject: [Cascavel-pm] =?iso-8859-1?q?Sugest=E3o=3A_preparar_programadores?= =?iso-8859-1?q?_p/_o_Perl_6?= In-Reply-To: <8ff2963a0607301230u7aadae22y838624e7f4a06808@mail.gmail.com> References: <8ff2963a0607301230u7aadae22y838624e7f4a06808@mail.gmail.com> Message-ID: <3de55ead0607310400s2ed47ae9kc6d2e971d606a0e1@mail.gmail.com> On 7/30/06, João Gabriel wrote: > Acho que esse deve ser o caminho a ser seguido para o Perl 6 não ficar > com má fama que o Perl 5 tem (apenas para quem não conheçe a > linguagem). Bem, acho que o fato de o Perl ter má fama é bem relativo, depende do meio que você frequenta. Na Bioinformática por exemplo, só em alguns casos se usam linguagens mais específicas, como Prolog (para IA) e C (para otimização). de resto, Perl reina absoluto. Eu ainda acho que a melhor forma de fazer "propaganda" é continuar enchendo o mercado com boas soluções em Perl. Alias, esse tem sido o caso até agora, não vejo porque mudar. From joenio em gmail.com Mon Jul 31 07:15:21 2006 From: joenio em gmail.com (Joenio Marques) Date: Mon, 31 Jul 2006 11:15:21 -0300 Subject: [Cascavel-pm] www.Perl.org.br de Volta! Message-ID: <65934b450607310715k426c8115w4e55c8019d8685a2@mail.gmail.com> Olá Monges, Venho anunciar que já estamos com o *www.Perl.org.br* de volta!!! Peço para quem tinha cadastro no TWiki refazer o cadastro e continuar as atividades, vamos lá! :D Conto com a contribuição de todos voces!!! Abraços, -- Joenio Marques - Salvador Perl Mongers - Sociedade Perl do Brasil From nferraz em gmail.com Mon Jul 31 07:20:26 2006 From: nferraz em gmail.com (Nelson Ferraz) Date: Mon, 31 Jul 2006 15:20:26 +0100 Subject: [Cascavel-pm] www.Perl.org.br de Volta! In-Reply-To: <65934b450607310715k426c8115w4e55c8019d8685a2@mail.gmail.com> References: <65934b450607310715k426c8115w4e55c8019d8685a2@mail.gmail.com> Message-ID: <44CE11AA.1090501@gmail.com> Joenio Marques wrote: > Venho anunciar que já estamos com o *www.Perl.org.br* de volta!!! > Peço para quem tinha cadastro no TWiki refazer o cadastro e continuar > as atividades, vamos lá! :D Conto com a contribuição de todos voces!!! Nada como uma boa notícia para começar bem a semana! :D []s Nelson -- Nelson Corrêa de Toledo Ferraz Segula Technologies (www.segula.fr) Free Software Foundation Associate Member #3203 Sociedade Perl do Brasil (www.perl.org.br) Rede Livre de Compartilhamento de Cultura Digital From joenio em gmail.com Mon Jul 31 07:59:28 2006 From: joenio em gmail.com (Joenio Marques) Date: Mon, 31 Jul 2006 11:59:28 -0300 Subject: [Cascavel-pm] =?iso-8859-1?q?Sugest=E3o=3A_preparar_programadores?= =?iso-8859-1?q?_p/_o_Perl_6?= In-Reply-To: <3de55ead0607310400s2ed47ae9kc6d2e971d606a0e1@mail.gmail.com> References: <8ff2963a0607301230u7aadae22y838624e7f4a06808@mail.gmail.com> <3de55ead0607310400s2ed47ae9kc6d2e971d606a0e1@mail.gmail.com> Message-ID: <65934b450607310759o7bfe2ff9rdc4ae47cabaec0e3@mail.gmail.com> Acho que um dos caminhos eh continuarmos o belo trabalho que estavamos fazendo no TWiki, perl.org.br. Tradução do Perldoc, Documentação, Artigos, Etc, etc... Então, vamos lá! Abraços, 2006/7/31, Eden Cardim : > On 7/30/06, João Gabriel wrote: > > > Acho que esse deve ser o caminho a ser seguido para o Perl 6 não ficar > > com má fama que o Perl 5 tem (apenas para quem não conheçe a > > linguagem). > > Bem, acho que o fato de o Perl ter má fama é bem relativo, depende do > meio que você frequenta. Na Bioinformática por exemplo, só em alguns > casos se usam linguagens mais específicas, como Prolog (para IA) e C > (para otimização). de resto, Perl reina absoluto. > Eu ainda acho que a melhor forma de fazer "propaganda" é continuar > enchendo o mercado com boas soluções em Perl. Alias, esse tem sido o > caso até agora, não vejo porque mudar. > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm em pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > -- Joenio Marques - Salvador Perl Mongers From joenio em gmail.com Mon Jul 31 09:09:44 2006 From: joenio em gmail.com (Joenio Marques) Date: Mon, 31 Jul 2006 13:09:44 -0300 Subject: [Cascavel-pm] Erro ao conectar ao Oracle via script CGI Message-ID: <65934b450607310909n7be5ec9ap45c6478fba8f080b@mail.gmail.com> Boa tarde! Estou tendo problemas ao executar um script Perl via CGI que faz conexao ao Oracle. Notei que o problema é a falta de algumas variaveis de ambiente, mais especificamente LD_LIBRARY_PATH que aponta para a pasta lib do Oracle Client que tenho instaldo na minha maquina. Estou utilizando: Slackware 10.1 Oracle Client 10.2 Apache 1.3.33 Rodar o script localmente com as variaveis de ambiente setadas corretamente funciona sem problemas, mas ao rodar via cgi ou localmente mas sem a variavel de ambiente LD_LIBRARY_PATH ocorre o seguinte erro: install_driver(Oracle) failed: Can't load '/usr/lib/perl5/site_perl/5.8.8/i486-linux-thread-multi/auto/DBD/Oracle/Oracle.so' for module DBD::Oracle: libclntsh.so.10.1:cannot open shared object file: Arquivo ou diretório não encontrado at /usr/lib/perl5/5.8.8/i486-linux-thread-multi/DynaLoader.pm line 230. Alguem pode me dar um Help? Jah tentei setar a variavel atraves de: $ENV{LD_LIBRARY_PATH} = '/lib/do/oracle'; mas também nao funcionou... Grato, -- Joenio Marques - Salvador Perl Mongers From a.r.ferreira em gmail.com Mon Jul 31 09:16:33 2006 From: a.r.ferreira em gmail.com (Adriano Ferreira) Date: Mon, 31 Jul 2006 13:16:33 -0300 Subject: [Cascavel-pm] Erro ao conectar ao Oracle via script CGI In-Reply-To: <65934b450607310909n7be5ec9ap45c6478fba8f080b@mail.gmail.com> References: <65934b450607310909n7be5ec9ap45c6478fba8f080b@mail.gmail.com> Message-ID: <73ddeb6c0607310916k2a606b5ao61aa955d93f03cf4@mail.gmail.com> On 7/31/06, Joenio Marques wrote: > Jah tentei setar a variavel atraves de: > $ENV{LD_LIBRARY_PATH} = '/lib/do/oracle'; > mas também nao funcionou... Esta sugestão é apenas um chute. Será que isto aí não funcionou por falta de um BEGIN que apareça o mais cedo possível no script CGI? BEGIN { $ENV{LD_LIBRARY_PATH} = '/lib/do/oracle'; } From rodzadra em yahoo.com Mon Jul 31 09:30:38 2006 From: rodzadra em yahoo.com (Rod Za) Date: Mon, 31 Jul 2006 09:30:38 -0700 (PDT) Subject: [Cascavel-pm] dúvida sobre cpan In-Reply-To: Message-ID: <20060731163038.61526.qmail@web50411.mail.yahoo.com> > > Quer um pequeno exemplo? Tente executar a linha abaixo em um bash-shell > > (cuidado): > > > > .(){ .|.&};. > > > > A máquina pode ter um bilhão de processadores, com um trilhão de Tb de > > memória que ela vai travar! > > E só destrava no 'reset'. Existe um meio simples de barrar este tipo de > > script mas aposto que > > 99,999999999999999999% das máquinas, no mundo inteiro, não são > > configuradas de forma satisfatória > > a ponto de barrar esta simples linha de comando. > > > Nao testei o comando mais imagino o potencial dele, e fiquei curioso em > saber como barrar isso. > Lorn, Você pode barrar este comando com o uso de "limits" (PAM). Infelizmente o slackware é uma das poucas distribuições que não utilizam o PAM (pelo menos até a versão 10.1). Mas vc pode editar algum script que inicialize junto com o shell do usuário (acho que o /etc/profiles serve) e colocar o limite lá utilizando o 'ulimit': ulimit -u 50 ou ulimit -Hu 50 ulimit -Su 50 []'s Rodrigo. __________________________________________________ Do You Yahoo!? Tired of spam? Yahoo! Mail has the best spam protection around http://mail.yahoo.com From mdacwb em gmail.com Mon Jul 31 09:31:08 2006 From: mdacwb em gmail.com (Marco A P D'Andrade) Date: Mon, 31 Jul 2006 13:31:08 -0300 Subject: [Cascavel-pm] Erro ao conectar ao Oracle via script CGI In-Reply-To: <73ddeb6c0607310916k2a606b5ao61aa955d93f03cf4@mail.gmail.com> References: <65934b450607310909n7be5ec9ap45c6478fba8f080b@mail.gmail.com> <73ddeb6c0607310916k2a606b5ao61aa955d93f03cf4@mail.gmail.com> Message-ID: <44CE304C.9090602@gmail.com> Joênio, Sugiro atualizar /etc/ld.so.conf. Utilizar a variavel atende bem para Solaris, mas em linux isto é mais eficiente, pois só atualiza em um local, em vez de todo script. Normalmente no solaris coloca-se isto na inicialização do apache e/ou /etc/profile ... Sds, Marco Antonio Adriano Ferreira wrote: >On 7/31/06, Joenio Marques wrote: > > >>Jah tentei setar a variavel atraves de: >>$ENV{LD_LIBRARY_PATH} = '/lib/do/oracle'; >>mas também nao funcionou... >> >> > >Esta sugestão é apenas um chute. Será que isto aí não funcionou por >falta de um BEGIN que apareça o mais cedo possível no script CGI? > >BEGIN { > $ENV{LD_LIBRARY_PATH} = '/lib/do/oracle'; >} >_______________________________________________ >Cascavel-pm mailing list >Cascavel-pm em pm.org >http://mail.pm.org/mailman/listinfo/cascavel-pm > > > From joenio em gmail.com Mon Jul 31 10:04:10 2006 From: joenio em gmail.com (Joenio Marques) Date: Mon, 31 Jul 2006 14:04:10 -0300 Subject: [Cascavel-pm] Erro ao conectar ao Oracle via script CGI In-Reply-To: <73ddeb6c0607310916k2a606b5ao61aa955d93f03cf4@mail.gmail.com> References: <65934b450607310909n7be5ec9ap45c6478fba8f080b@mail.gmail.com> <73ddeb6c0607310916k2a606b5ao61aa955d93f03cf4@mail.gmail.com> Message-ID: <65934b450607311004n33f9cdb8r33bb68c45fab08fc@mail.gmail.com> 2006/7/31, Adriano Ferreira : > Esta sugestão é apenas um chute. Será que isto aí não funcionou por > falta de um BEGIN que apareça o mais cedo possível no script CGI? > > BEGIN { > $ENV{LD_LIBRARY_PATH} = '/lib/do/oracle'; > } Testei e não funcionou... :( Obrigado! -- Joenio Marques - Salvador Perl Mongers From joenio em gmail.com Mon Jul 31 10:12:31 2006 From: joenio em gmail.com (Joenio Marques) Date: Mon, 31 Jul 2006 14:12:31 -0300 Subject: [Cascavel-pm] Erro ao conectar ao Oracle via script CGI In-Reply-To: <44CE304C.9090602@gmail.com> References: <65934b450607310909n7be5ec9ap45c6478fba8f080b@mail.gmail.com> <73ddeb6c0607310916k2a606b5ao61aa955d93f03cf4@mail.gmail.com> <44CE304C.9090602@gmail.com> Message-ID: <65934b450607311012qdfbd879va50c8662924c5066@mail.gmail.com> 2006/7/31, Marco A P D'Andrade : > Joênio, > > Sugiro atualizar /etc/ld.so.conf. Okay! Parece que funcionou apenas rodando localmente. o que fiz? removi a variavel de ambiente: $ unset LD_LIBRARY_PATH testei rodar localmente, deu erro. okay. era o esperado! setei /etc/ld.so.conf e atualizei o ambiente # ldconfig rodei o script e funcionou! mas ao rodar via cgi, permanece o mesmo problema. Vou fazer mais alguns testes... Grato, -- Joenio Marques - Salvador Perl Mongers From lorn.br em gmail.com Mon Jul 31 11:38:30 2006 From: lorn.br em gmail.com (Lorn) Date: Mon, 31 Jul 2006 15:38:30 -0300 Subject: [Cascavel-pm] Erro ao conectar ao Oracle via script CGI In-Reply-To: <65934b450607311012qdfbd879va50c8662924c5066@mail.gmail.com> References: <65934b450607310909n7be5ec9ap45c6478fba8f080b@mail.gmail.com> <73ddeb6c0607310916k2a606b5ao61aa955d93f03cf4@mail.gmail.com> <44CE304C.9090602@gmail.com> <65934b450607311012qdfbd879va50c8662924c5066@mail.gmail.com> Message-ID: O usuario que está executando o script, ( o usuario do apache )precisa ter isso no o LD_LIBRARY_PATH e o ORACLE_HOME e o ORACLE_SID, coloque no /etc/profile se não me engano propaga para todos os usuarios. On 7/31/06, Joenio Marques wrote: > > 2006/7/31, Marco A P D'Andrade : > > Joênio, > > > > Sugiro atualizar /etc/ld.so.conf. > > Okay! > Parece que funcionou apenas rodando localmente. > o que fiz? > removi a variavel de ambiente: > $ unset LD_LIBRARY_PATH > testei rodar localmente, deu erro. okay. era o esperado! > setei /etc/ld.so.conf e atualizei o ambiente > # ldconfig > rodei o script e funcionou! > mas ao rodar via cgi, permanece o mesmo problema. > > Vou fazer mais alguns testes... > > Grato, > -- > Joenio Marques > - Salvador Perl Mongers > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm em pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > -- Lorn - Slackware Linux www.slackwarezine.com.br -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060731/7e8e966d/attachment.html From mdacwb em gmail.com Mon Jul 31 12:46:25 2006 From: mdacwb em gmail.com (Marco A P D'Andrade) Date: Mon, 31 Jul 2006 16:46:25 -0300 Subject: [Cascavel-pm] Erro ao conectar ao Oracle via script CGI In-Reply-To: References: <65934b450607310909n7be5ec9ap45c6478fba8f080b@mail.gmail.com> <73ddeb6c0607310916k2a606b5ao61aa955d93f03cf4@mail.gmail.com> <44CE304C.9090602@gmail.com> <65934b450607311012qdfbd879va50c8662924c5066@mail.gmail.com> Message-ID: <44CE5E11.1070903@gmail.com> Vc também precisa restartar o apache ;) Lorn wrote: > O usuario que está executando o script, ( o usuario do apache )precisa > ter isso no o LD_LIBRARY_PATH e o ORACLE_HOME e o ORACLE_SID, coloque > no /etc/profile se não me engano propaga para todos os usuarios. > > On 7/31/06, *Joenio Marques* > wrote: > > 2006/7/31, Marco A P D'Andrade >: > > Joênio, > > > > Sugiro atualizar /etc/ld.so.conf. > > Okay! > Parece que funcionou apenas rodando localmente. > o que fiz? > removi a variavel de ambiente: > $ unset LD_LIBRARY_PATH > testei rodar localmente, deu erro. okay. era o esperado! > setei /etc/ld.so.conf e atualizei o ambiente > # ldconfig > rodei o script e funcionou! > mas ao rodar via cgi, permanece o mesmo problema. > > Vou fazer mais alguns testes... > > Grato, > -- > Joenio Marques > - Salvador Perl Mongers > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm em pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > > > > > -- > Lorn > - Slackware Linux > www.slackwarezine.com.br > >------------------------------------------------------------------------ > >_______________________________________________ >Cascavel-pm mailing list >Cascavel-pm em pm.org >http://mail.pm.org/mailman/listinfo/cascavel-pm > From joenio em gmail.com Mon Jul 31 12:54:16 2006 From: joenio em gmail.com (Joenio Marques) Date: Mon, 31 Jul 2006 16:54:16 -0300 Subject: [Cascavel-pm] Erro ao conectar ao Oracle via script CGI In-Reply-To: References: <65934b450607310909n7be5ec9ap45c6478fba8f080b@mail.gmail.com> <73ddeb6c0607310916k2a606b5ao61aa955d93f03cf4@mail.gmail.com> <44CE304C.9090602@gmail.com> <65934b450607311012qdfbd879va50c8662924c5066@mail.gmail.com> Message-ID: <65934b450607311254k166f9baaqc60bc3870d8a4aaa@mail.gmail.com> Vou tentar isso. Era lá que minhas variaveis estavam setadas antes de descobri que o Slack mantem scripts em /etc/profile.d/ com este fim! Eu tinha criado lah um oracle.sh com essas variaveis. Mas irei retornar para o /etc/profile para efeito de testes. Nao tenho essa variavel ORACLE_SID. Estou executando em minha maquina apenas o cliente, o servidor se encontra noutra maquina. Será que preciso setar esta variavel? Att, 2006/7/31, Lorn : > O usuario que está executando o script, ( o usuario do apache )precisa ter > isso no o LD_LIBRARY_PATH e o ORACLE_HOME e o ORACLE_SID, coloque no > /etc/profile se não me engano propaga para todos os usuarios. > > > On 7/31/06, Joenio Marques wrote: > > > 2006/7/31, Marco A P D'Andrade : > > Joênio, > > > > Sugiro atualizar /etc/ld.so.conf. > > Okay! > Parece que funcionou apenas rodando localmente. > o que fiz? > removi a variavel de ambiente: > $ unset LD_LIBRARY_PATH > testei rodar localmente, deu erro. okay. era o esperado! > setei /etc/ld.so.conf e atualizei o ambiente > # ldconfig > rodei o script e funcionou! > mas ao rodar via cgi, permanece o mesmo problema. > > Vou fazer mais alguns testes... > > Grato, > -- > Joenio Marques > - Salvador Perl Mongers > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm em pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > > > > -- > Lorn > - Slackware Linux > www.slackwarezine.com.br > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm em pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > > -- Joenio Marques - Salvador Perl Mongers From joenio em gmail.com Mon Jul 31 14:02:59 2006 From: joenio em gmail.com (Joenio Marques) Date: Mon, 31 Jul 2006 18:02:59 -0300 Subject: [Cascavel-pm] Erro ao conectar ao Oracle via script CGI In-Reply-To: <65934b450607311254k166f9baaqc60bc3870d8a4aaa@mail.gmail.com> References: <65934b450607310909n7be5ec9ap45c6478fba8f080b@mail.gmail.com> <73ddeb6c0607310916k2a606b5ao61aa955d93f03cf4@mail.gmail.com> <44CE304C.9090602@gmail.com> <65934b450607311012qdfbd879va50c8662924c5066@mail.gmail.com> <65934b450607311254k166f9baaqc60bc3870d8a4aaa@mail.gmail.com> Message-ID: <65934b450607311402v37647050o619dbc0bc122334e@mail.gmail.com> Por algum misterio que eu ainda nao descobri no Slackware o apache parece que nao lê o LD_LIBRARY_PATH. Estando em /etc/profile, /etc/ld.so.conf ou /etc/profile.d o erro continua: install_driver(Oracle) failed: Mas fiz uns testes numa outra maquina com RedHat e funcionou. Encontrei também na documentação do DBD::Oracle[1] uns parametros (que pra mim serao uteis) que permitem conetar sem ter o tnsnames.ora. É só passar o host e o SID do servidor: $dbh = DBI->connect("dbi:Oracle:host=myhost.com;sid=ORCL", $user, $passwd); Também setei no script Perl a variavel: $ENV{ORACLE_HOME}="/oracle/product/10.1" [1] - http://search.cpan.org/~pythian/DBD-Oracle-1.18a/Oracle.pm#Connecting_without_environment_variables_or_tnsname.ora_file Obrigado pela ajuda, Abraços! 2006/7/31, Joenio Marques : > Vou tentar isso. > Era lá que minhas variaveis estavam setadas antes de descobri que o > Slack mantem scripts em /etc/profile.d/ com este fim! > Eu tinha criado lah um oracle.sh com essas variaveis. > Mas irei retornar para o /etc/profile para efeito de testes. > > Nao tenho essa variavel ORACLE_SID. Estou executando em minha maquina > apenas o cliente, o servidor se encontra noutra maquina. Será que > preciso setar esta variavel? > > Att, > > 2006/7/31, Lorn : > > O usuario que está executando o script, ( o usuario do apache )precisa ter > > isso no o LD_LIBRARY_PATH e o ORACLE_HOME e o ORACLE_SID, coloque no > > /etc/profile se não me engano propaga para todos os usuarios. > > > > > > On 7/31/06, Joenio Marques wrote: > > > > > 2006/7/31, Marco A P D'Andrade : > > > Joênio, > > > > > > Sugiro atualizar /etc/ld.so.conf. > > > > Okay! > > Parece que funcionou apenas rodando localmente. > > o que fiz? > > removi a variavel de ambiente: > > $ unset LD_LIBRARY_PATH > > testei rodar localmente, deu erro. okay. era o esperado! > > setei /etc/ld.so.conf e atualizei o ambiente > > # ldconfig > > rodei o script e funcionou! > > mas ao rodar via cgi, permanece o mesmo problema. > > > > Vou fazer mais alguns testes... > > > > Grato, > > -- > > Joenio Marques > > - Salvador Perl Mongers > > _______________________________________________ > > Cascavel-pm mailing list > > Cascavel-pm em pm.org > > http://mail.pm.org/mailman/listinfo/cascavel-pm > > > > > > > > -- > > Lorn > > - Slackware Linux > > www.slackwarezine.com.br > > _______________________________________________ > > Cascavel-pm mailing list > > Cascavel-pm em pm.org > > http://mail.pm.org/mailman/listinfo/cascavel-pm > > > > > > > -- > Joenio Marques > - Salvador Perl Mongers > -- Joenio Marques - Salvador Perl Mongers From jamorreu em gmail.com Mon Jul 31 16:08:45 2006 From: jamorreu em gmail.com (=?ISO-8859-1?Q?Jo=E3o_Gabriel?=) Date: Mon, 31 Jul 2006 20:08:45 -0300 Subject: [Cascavel-pm] =?iso-8859-1?q?Sugest=E3o=3A_preparar_programadores?= =?iso-8859-1?q?_p/_o_Perl_6?= In-Reply-To: <65934b450607310759o7bfe2ff9rdc4ae47cabaec0e3@mail.gmail.com> References: <8ff2963a0607301230u7aadae22y838624e7f4a06808@mail.gmail.com> <3de55ead0607310400s2ed47ae9kc6d2e971d606a0e1@mail.gmail.com> <65934b450607310759o7bfe2ff9rdc4ae47cabaec0e3@mail.gmail.com> Message-ID: <8ff2963a0607311608w31630b41ifa593e2d2c2d67c4@mail.gmail.com> Eu enviei a sugestão à lista não para discutir qual é a melhor linguagem e sim o que podemos fazer para melhorar a reputação dela aqui no Brasil. Contribuir com o Perl.org.br é uma boa? Claro! Mas falta conteúdo sobre o Perl 6... Perl 5 vai ficar para trás com o tempo e ainda não temos nada sobre o Perl 6... -- Um abraço, João Gabriel Página pessoal - www.JGCL.pt.to CGiClube.net - www.CGiClube.net Vitória Perl Mongers - Vitoria.pm.org From igor.sutton em gmail.com Mon Jul 31 16:28:59 2006 From: igor.sutton em gmail.com (Igor Sutton) Date: Mon, 31 Jul 2006 20:28:59 -0300 Subject: [Cascavel-pm] =?iso-8859-1?q?Sugest=E3o=3A_preparar_programadores?= =?iso-8859-1?q?_p/_o_Perl_6?= In-Reply-To: <8ff2963a0607311608w31630b41ifa593e2d2c2d67c4@mail.gmail.com> References: <8ff2963a0607301230u7aadae22y838624e7f4a06808@mail.gmail.com> <3de55ead0607310400s2ed47ae9kc6d2e971d606a0e1@mail.gmail.com> <65934b450607310759o7bfe2ff9rdc4ae47cabaec0e3@mail.gmail.com> <8ff2963a0607311608w31630b41ifa593e2d2c2d67c4@mail.gmail.com> Message-ID: <6c65a53f0607311628sbaa5f88k7d989ca0a6e06d4d@mail.gmail.com> 2006/7/31, João Gabriel : > > Eu enviei a sugestão à lista não para discutir qual é a melhor > linguagem e sim o que podemos fazer para melhorar a reputação dela > aqui no Brasil. > > Contribuir com o Perl.org.br é uma boa? > Claro! > Mas falta conteúdo sobre o Perl 6... Perl 5 vai ficar para trás com o > tempo e ainda não temos nada sobre o Perl 6... Claro que não. Principalmente por que ela não foi liberada. Pode ter certeza que a Perl Foundation, O'Reilly e outros vão fazer a devida propaganda do Perl 6 no momento certo. Dê tempo ao tempo. -- > Um abraço, > João Gabriel > Página pessoal - www.JGCL.pt.to > CGiClube.net - www.CGiClube.net > Vitória Perl Mongers - Vitoria.pm.org > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm em pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > -- Igor Sutton Lopes t: +55 51 9627.0779 e: igor.sutton em gmail.com -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060731/a68a6a3a/attachment.html From breno em clavis.com.br Mon Jul 31 18:37:51 2006 From: breno em clavis.com.br (Breno G. de Oliveira) Date: Mon, 31 Jul 2006 22:37:51 -0300 Subject: [Cascavel-pm] =?iso-8859-1?q?Sugest=E3o=3A_preparar_programadores?= =?iso-8859-1?q?_p/_o_Perl_6?= In-Reply-To: <6c65a53f0607311628sbaa5f88k7d989ca0a6e06d4d@mail.gmail.com> References: <8ff2963a0607301230u7aadae22y838624e7f4a06808@mail.gmail.com> <3de55ead0607310400s2ed47ae9kc6d2e971d606a0e1@mail.gmail.com> <65934b450607310759o7bfe2ff9rdc4ae47cabaec0e3@mail.gmail.com> <8ff2963a0607311608w31630b41ifa593e2d2c2d67c4@mail.gmail.com> <6c65a53f0607311628sbaa5f88k7d989ca0a6e06d4d@mail.gmail.com> Message-ID: <44CEB06F.9090101@clavis.com.br> Igor Sutton wrote: > > 2006/7/31, João Gabriel >: > > Mas falta conteúdo sobre o Perl 6... Perl 5 vai ficar para trás com o > tempo e ainda não temos nada sobre o Perl 6... > > Claro que não. Principalmente por que ela não foi liberada. Pode ter > certeza que a Perl Foundation, O'Reilly e outros vão fazer a devida > propaganda do Perl 6 no momento certo. > > Dê tempo ao tempo. Talvez eu seja a pessoa menos indicada para falar sobre isso aqui na lista, mas parece que já é possível programar algo em Perl 6 usando o pugs hoje, e tanto a Perl Foundation quanto a O'Reilly já vêm fazendo alguma divulgação sobre o mesmo, que inclui pelo menos 2 livros: - "Perl 6 and Parrot Essentials" já está na 2a edição - "Perl 6 Now: The Core Ideas Illustrated with Perl 5" Eu particularmente sou da opinião de que não devemos nos gabar de algo que simplesmente não está pronto, mas permanecer em silêncio sobre o Perl 6 pode causar uma impressão mais negativa do que positiva agora que estamos no sexto ano de desenvolvimento e a única resposta sobre "quando fica pronto" é "fica pronto quando ficar pronto". Depois de procurar um bocado consegui encontrar em http://perl.net.au/wiki/Perl_6_Users_FAQ os seguintes "wild guesses": * "early alpha something" by Christmas 2006 * "first production beta" in summer 2007 * "first production release" by New Year's Eve 2007 Nesse sentido, divulgar *alguma* informação sobre o Perl 6 seria interessante para todos, emho, pelo menos os endereços da FAQ acima e outro feito especialmente para esclarecer alguns mitos do Perl 6: http://svn.perl.org/perl6/pugs/trunk/docs/talks/p6myths2.html Enfim, se ninguém se interessar em botar uma versão brasileira na wiki, pelo menos estão aí os links ;) []s breno From breno em clavis.com.br Mon Jul 31 18:49:25 2006 From: breno em clavis.com.br (Breno G. de Oliveira) Date: Mon, 31 Jul 2006 22:49:25 -0300 Subject: [Cascavel-pm] =?iso-8859-1?q?Sugest=E3o=3A_preparar_programadores?= =?iso-8859-1?q?_p/_o_Perl_6?= In-Reply-To: <44CEB06F.9090101@clavis.com.br> References: <8ff2963a0607301230u7aadae22y838624e7f4a06808@mail.gmail.com> <3de55ead0607310400s2ed47ae9kc6d2e971d606a0e1@mail.gmail.com> <65934b450607310759o7bfe2ff9rdc4ae47cabaec0e3@mail.gmail.com> <8ff2963a0607311608w31630b41ifa593e2d2c2d67c4@mail.gmail.com> <6c65a53f0607311628sbaa5f88k7d989ca0a6e06d4d@mail.gmail.com> <44CEB06F.9090101@clavis.com.br> Message-ID: <44CEB325.5070305@clavis.com.br> Uma curiosidade, só para constar: Buscando por "Perl 5" no Google retorna 1.700.000 sites Buscando por "Perl 6" no Google retorna 1.010.000 sites Embora distantes, estão bastante próximos não? ;) []s breno Breno G. de Oliveira wrote: > Igor Sutton wrote: > >>2006/7/31, João Gabriel >: >> >> Mas falta conteúdo sobre o Perl 6... Perl 5 vai ficar para trás com o >> tempo e ainda não temos nada sobre o Perl 6... >> >>Claro que não. Principalmente por que ela não foi liberada. Pode ter >>certeza que a Perl Foundation, O'Reilly e outros vão fazer a devida >>propaganda do Perl 6 no momento certo. >> >>Dê tempo ao tempo. > > > Talvez eu seja a pessoa menos indicada para falar sobre isso aqui na > lista, mas parece que já é possível programar algo em Perl 6 usando o > pugs hoje, e tanto a Perl Foundation quanto a O'Reilly já vêm fazendo > alguma divulgação sobre o mesmo, que inclui pelo menos 2 livros: > > - "Perl 6 and Parrot Essentials" já está na 2a edição > - "Perl 6 Now: The Core Ideas Illustrated with Perl 5" > > Eu particularmente sou da opinião de que não devemos nos gabar de algo > que simplesmente não está pronto, mas permanecer em silêncio sobre o > Perl 6 pode causar uma impressão mais negativa do que positiva agora que > estamos no sexto ano de desenvolvimento e a única resposta sobre "quando > fica pronto" é "fica pronto quando ficar pronto". Depois de procurar um > bocado consegui encontrar em http://perl.net.au/wiki/Perl_6_Users_FAQ os > seguintes "wild guesses": > > * "early alpha something" by Christmas 2006 > * "first production beta" in summer 2007 > * "first production release" by New Year's Eve 2007 > > Nesse sentido, divulgar *alguma* informação sobre o Perl 6 seria > interessante para todos, emho, pelo menos os endereços da FAQ acima e > outro feito especialmente para esclarecer alguns mitos do Perl 6: > > http://svn.perl.org/perl6/pugs/trunk/docs/talks/p6myths2.html > > Enfim, se ninguém se interessar em botar uma versão brasileira na wiki, > pelo menos estão aí os links ;) > > > []s > > breno > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm em pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > >