Flávio == Flávio R Lopes flavio.lo...@links.inf.br writes:
Flávio Putz, desculpe! Escrevi errado! Supondo que a o número da
Flávio linha onde há a ocorrência seja a linha 100, como poderia
Flávio fazer então para copiar da linha 100 até o final do arquivo?
while (DATA) {
next
Você também pode selecionar de um ponto ao outro do arquivo se você quiser.
use 5.12.0;
...
when(/^foo/ .. /^baz/) {
print $_\n;
}
__DATA__
foo
bar
baz
quux
2011/6/27 Eden Cardim edencar...@gmail.com:
Flávio == Flávio R Lopes flavio.lo...@links.inf.br writes:
Flávio Putz, desculpe!
Caso você esteja procurando pela linha que contém foo:
perl -ne '$a=1 if /foo/; print if $a' nomedoarquivo.txt
=begin disclaimer
Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
Lhttp://mail.pm.org/mailman/listinfo/saopaulo-pm
=end disclaimer
Putz! Obrigado Eden! É exatamente isto!
On 27-06-2011 06:36, Eden Cardim wrote:
Flávio == Flávio R Lopesflavio.lo...@links.inf.br writes:
Flávio Putz, desculpe! Escrevi errado! Supondo que a o número da
Flávio linha onde há a ocorrência seja a linha 100, como
Olá pessoal!
Há alguns dias venho brigando com um script, onde gostaria que este
script me ajudasse a selecionar algumas linhas de um arquivo de texto.
Preciso selecionar, à partir da ocorrência de uma determinada string,
todo o texto até o final do arquivo.
Supondo que eu tenha uma linha
vc pode criar uma variavel que tera o valor falso antes do loop do arquivo,
e mais uma vazia, e quando encontar o texto que está procurando, jogue o
troque o valor da variavel para outro, e depois verifique se o valor é o ..
ah, que saber:
$encontrou = 0;
$texto = '';
open(.., '', ..);
while( ..)
Olá Renato!
Então, estive pensando também na seguinte hipótese: Eu tenho como obter
o número da linha onde está a primera ocorrência do valor. Então à
partir disto, eu copiaria desta linha até o final do arquivo.
Dá para fazer isto?
On 26-06-2011 20:56, Renato Santos wrote:
vc pode criar uma
pq da linha 50 se a ocorrência está na 100 ???
não entendi muito bem
[]'s
2011/6/26 Flávio R. Lopes flavio.lo...@links.inf.br
**
Deixar eu explicar melhor.
Supondo que o número da linha onde há a ocorrência da palavra seja a linha
número 100. Como eu faria para copiar/selecionar da
Não vejo muita diferença, mas você me deu outra idéia:
$linha = undef;
open
while ( ){
if ($_ =~ /text/){
$linha = $.; # $. tem a linha atual
}
if (defined $linha ) {
$juntatexto .= $_;
}
}
Asssim vc tem o lugar da linha.
# lendo e-mail do futuro!
pra copiar da 50
Putz, desculpe! Escrevi errado!
Supondo que a o número da linha onde há a ocorrência seja a linha 100,
como poderia fazer então para copiar da linha 100 até o final do arquivo?
On 26-06-2011 21:28, Gustavo Telly wrote:
pq da linha 50 se a ocorrência está na 100 ???
não entendi muito bem
Hmm
Abrindo um segundo loop dentro do loop [tericamente] gastaria mais processo
que analisar se a linha atual bate ou não [e ainda pode ser verificado
antes...]
mas,
se o intuito for performance, e o texto não for grande [menos de 1mb]
podemos fazer um slurp e jogar tudo numa msema linha e bater
11 matches
Mail list logo