<html>
<head>
<style>
.hmmessage P
{
margin:0px;
padding:0px
}
body.hmmessage
{
font-size: 10pt;
font-family:Verdana
}
</style>
</head>
<body class='hmmessage'>
<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 id=stopSpelling>
Date: Thu, 28 May 2009 12:59:34 -0300<BR>From: daniel.oliveira.mantovani@gmail.com<BR>To: saopaulo-pm@mail.pm.org<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 class=EC_gmail_quote>2009/5/28 Luis Motta Campos <SPAN dir=ltr><<A href="mailto:luismottacampos@yahoo.co.uk">luismottacampos@yahoo.co.uk</A>></SPAN><BR>
<BLOCKQUOTE class=EC_gmail_quote 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">andjusticeforall4@msn.com</A>><BR>To: Perl Monks São Paulo <<A href="mailto:saopaulo-pm-owner@pm.org">saopaulo-pm-owner@pm.org</A>><BR>References: <<A href="mailto:mailman.3103.1243522554.3331.saopaulo-pm@pm.org">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/">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">SaoPaulo-pm@pm.org</A><BR><A href="http://mail.pm.org/mailman/listinfo/saopaulo-pm">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/">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><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='_new'>Try it!</a></body>
</html>