[SP-pm] [Fwd: duvidas] -

Daniel de Oliveira Mantovani daniel.oliveira.mantovani at gmail.com
Thu May 28 10:48:18 PDT 2009


Se você colar a mensagem de erro aqui vai ser fácil arrumar, se você colar o
código aqui vai ser mais fácil ainda :)


[]s

2009/5/28 Erick Herédia <andjusticeforall4 em msn.com>

>
>  eu utilizei a busca *literal* de linhas do meu arquivo, porem ele diz que
> tem 0 linhas
>
> eis o codigo que tu me passou, eu coloquei o meu arquivo
>
>
> open my $file, q{< c:/perl/discoverEdit[1].4796.11.30.5.8.2009.dci,
> 'foo.txt'} || die $!;
> my @palavras = <$file>;
> print "O seu arquivo tem: " .scalar(@palavras) . " linhas\n";
> print "Qual linha você deseja pesquisar?\n";
> chomp (my $var = <STDIN>);
> if ($var < scalar(@palavras)) {
>     print $palavras[$var];
> }
> open(OUTFILE, "> c:/perl/report.dci") or die "Can't open output file";
> chomp @read;
>
>
> o objetivo desse programa é mesmo buscar a linha respectiva do arquivo dci
> ou txt e criar um outro arquivo somente com essa linha!!
>
> acredito que sua ultima dica foi a que eu preciso,
>
> mas acho que eu deixei de declarar algo mas nao consigo identificar
>
> ....
>
> ------------------------------
> Date: Thu, 28 May 2009 12:59:34 -0300
> From: daniel.oliveira.mantovani em gmail.com
> To: saopaulo-pm em mail.pm.org
> Subject: Re: [SP-pm] [Fwd: duvidas]
>
> Algo como isso ?
>
> <code>
>
> perl -e 'map {print $_ if /foo/}<>' file.txt
>
> </code>
>
>
> Bom se o resultado for esse, você pode fazer algo assim:
>
> <code>
>
> #!/usr/bin/perl
>
> use strict;
> use warnings;
>
> print "O que deseja procurar\n";
> chomp (my $var = <STDIN>);
>
> # - Abra o arquivo com 3 argumentos;
> open my $file, q{<}, 'foo.txt' || die $!;
> foreach my $line(<$file>) {
>   chomp($line);
>
> # - 'qr' interpreta a variável.
>
>   print "$line\n" if $line =~ qr/$var/;
>
> }
>
> </code>
>
>
> Mas como você quer *literalmente* buscar por linha, você pode fazer assim:
>
> <code>
>
> #!/usr/bin/perl
>
> use strict;
> use warnings;
>
> open my $file, q{<}, 'foo.txt' || die $!;
> my @palavras = <$file>;
> print "O seu arquivo tem: " . scalar(@palavras) . " linhas\n";
> print "Qual linha você deseja pesquisar?\n";
> chomp (my $var = <STDIN>);
> if ($var < scalar(@palavras)) {
>     print $palavras[$var];
> }
>
> <code>
>
> []'s
>
>
> 2009/5/28 Luis Motta Campos <luismottacampos em yahoo.co.uk>
>
> Gente, O Erick Herédia está precisando de uma forcinha... será que vocês
> podem ajudar?
>
> Putamplexos!
>
> -------- Original Message --------
> Subject: duvidas
> Date: Thu, 28 May 2009 12:17:01 -0300
> From: Erick Herédia <andjusticeforall4 em msn.com>
> To: Perl Monks São Paulo <saopaulo-pm-owner em pm.org>
> References: <mailman.3103.1243522554.3331.saopaulo-pm em pm.org>
>
>
>
> Ola, Boa Tarde
>
>
>
> eu gostaria de saber se voces podem me dar uma maozinha com um
> programinha em perl:
>
> eu estou iniciando na programação em perl, e gostaria de tirar algumas
> duvidas
>
> eu tenho esse codigo que seria de um programa de busca por uma
> respectiva linha em um arquivo dci.
>
> e eu preciso pesquisar por linha, e nao por palavra chave o conteudo do
> edescovery.dci para evitar erros na busca,
>
>
> #!C:/perl/bin/perl.exe
>
>
> #Handle Area - in - outfile
>
> open FILE, "c:/perl/discoverEdit[1].4796.11.30.5.8.2009" || die "failed
> to open notice.txt $!\n";
> @read=<FILE>;
> close FILE;
> open(OUTFILE, "> c:/perl/report.dci") or die "Can't open output file";
>
> chomp @read;
>
>
>
> #searching area
>
>
>       print "digite uma linha\n";
>              $choose=<STDIN>; chomp $choose;
>               my @greplines = grep(/@lines/, em read);
>       print "Não encontrado!!"  unless(@greplines);
>         foreach $line (@greplines) {
>   print OUTFILE @lines."\n";
>  while (<FILE>) {
>  sub commify {
>
> }
> }
>
>
>
>
> Boa Tarde
>
>
>
>
> _________________________________________________________________
> More than messages–check out the rest of the Windows Live™.
> http://www.microsoft.com/windows/windowslive/
>
> --
> Luis Motta Campos is a software engineer,
> Perl Programmer, foodie and photographer.
> _______________________________________________
> SaoPaulo-pm mailing list
> SaoPaulo-pm em pm.org
> http://mail.pm.org/mailman/listinfo/saopaulo-pm
>
>
>
>
> --
> http://mantovanihouse.blogspot.com/
> This is my poney:
> -------(\_------------_/)-----------
> -------)--(----------)--(-----------
> ------(----(---------)----)----------
> -------)----(-------)----(-----------
> -------(----(-------)----)-----------
> --------\_-(\\.---.//)-_/------------
> ----------\)' -8--8- '(/--------------
> -----------/------------\---------------
> ----------(--)--------(--)--------------
> ------------(_c__c_)----------------
> ----------------------------------------
> perl -MLWP::Simple -le 'grep{ print $1 if /href="(http.+?)"/}split($/,get("
> http://www.perl.org.br"))'
>
> ------------------------------
> Invite your mail contacts to join your friends list with Windows Live
> Spaces. It's easy! Try it!<http://spaces.live.com/spacesapi.aspx?wx_action=create&wx_url=/friends.aspx&mkt=en-us>
>
> _______________________________________________
> SaoPaulo-pm mailing list
> SaoPaulo-pm em pm.org
> http://mail.pm.org/mailman/listinfo/saopaulo-pm
>



-- 
http://mantovanihouse.blogspot.com/
This is my poney:
-------(\_------------_/)-----------
-------)--(----------)--(-----------
------(----(---------)----)----------
-------)----(-------)----(-----------
-------(----(-------)----)-----------
--------\_-(\\.---.//)-_/------------
----------\)' -8--8- '(/--------------
-----------/------------\---------------
----------(--)--------(--)--------------
------------(_c__c_)----------------
----------------------------------------
perl -MLWP::Simple -le 'grep{ print $1 if /href="(http.+?)"/}split($/,get("
http://www.perl.org.br"))'
-------------- Pr?xima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20090528/abd3f126/attachment.html>


More information about the SaoPaulo-pm mailing list