[SP-pm] [Fwd: duvidas] -

Erick Herédia andjusticeforall4 at msn.com
Thu May 28 10:24:56 PDT 2009



 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!
http://spaces.live.com/spacesapi.aspx?wx_action=create&wx_url=/friends.aspx&mkt=en-us
-------------- Pr?xima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20090528/c947a99e/attachment-0001.html>


More information about the SaoPaulo-pm mailing list