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