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="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="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; 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/" 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">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/">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>