22 replies to this topic

[Hospedar-se .Com]

Estou tentando a dias fazer com que meu código localize em um texto uma sequencia de palavras, o problema é que estão uma em cada linha.

arquivo: texto.txt

<seila aaaa>
user aaaa
grupo aaaa
</seila>

<seila bbb>
user bbb
grupo bbb
</seila>

<seila ccc>
user ccc
grupo ccc
</seila>


No caso, meu script abre esse arquivo, e tentaria procurar por
<seila bbb>
user bbb
grupo bbb
</seila>
mas mesmo se eu colocar somente

@busca =~ /user bbb/

isso é depois do open ... ele não retorna nada.

Alguem sabe como posso fazer pra ele buscar a sequencia inteira?

[jgcl]

Não testei mas ve se dá certo:

$valores = ($vem_do_foreach=~ m#<seila bbb>\s*(.*?)\s*</seila bbb>#is);

O "$vem_do_foreach" vc vai ter que dar um foreach no arquivo e usar essa variavel.

tente ai.

flw

[Gabriel]

se for nesse tipo que vc ta falando

os dados estãram separados com 5 linhas
faça um for que pegue cada 5 linha (isso dentro de um foreach, depois é so comparar com o if
tenta ai

flw

[jgcl]

mid: conseguiu?

[Hospedar-se .Com]

desculpe a demora, mas tem um outro jeito tbm,

open(FD, "arquivo.txt") or die("$!\n");
@usuarios = grep(/^<seila/i, FD);
close(FD);

ai ele já vai separar do jeito que eu preciso os usuários que tem cadastrado nesse arquivo, acho q agora o resto deve ser fácil de fazer

[prix]

parece q vc quer algo pra excluir linhas do apache neh.

tenta algo assim:
$input = "<seila aaaa>\n";
$output = "</seila>\n";

open(FILE, "+<$patch");
@db = <FILE>;

$cont = 0;
foreach $base(@db){
if($base eq $input) {
while(1){
$base = $db[$cont];
print "Apagando $db[$cont]\n";
$db[$cont] = "";
last if($base eq $output);
$cont++;
}
seek(FILE,0,0);
print FILE @db;
truncate(FILE, tell(FILE));
last;
}
$cont++;
}
close(FILE);

o output faz o script parar de deletar

esse eh um dos meios... eh meio confuso mas tem outros mais simples mas esse ja tava na mao ehehe...

ainda nao testei nao mas teste ai num arquivo separado

Edição feita por: prix, 23/01/2005, 17:47.

[jgcl]

Hum... vi esse comando em um arquivo de exemplo da PerlBR e gostaria de saber qual a função dele:

"+<" >> na parte que abre o arquivo.

flw

[prix]

basicamente ele eh usado para fazer um abertura para leitura e gravação como neste caso estou lendo e apagando dados eles eh mais recomendavel.

vc pode ter mais informações do comando usando
perldoc perlopentut
na pasta bin do perl

ou
perldoc -f open

[jgcl]

pra q se usa o seek e o truncate e o tell?

flw

Edição feita por: jgcl, 24/01/2005, 21:54.

[Gabriel]

e tbm para que serve o grep????
flw

[prix]

seek serve para varias coisas uma delas o white falou

porem ele tambem serve para acorda algo adormecido ou q tenha passado da posição desejada no meu caso o foreach passa a posicao entao uso o seek para restaurar a posicao.

quanto ao truncate e tell usado.
digamos assim para informar ao perl o novo valor do arquivo para q ele nao seja corrompido.

sendo q o truncate pega a expressao nome e o tell os bytes

grep
eh normalmente usado para expressoes regulares tipo para localizar algo etc. ou montar algum expressao de bloqueio.

[Gabriel]

ai prix, testei o seu codigo, so que ele nao remove a tag do </seila>
o resto tira certinho

e vc tem ai outro exemplo de como fazer isso?
abraços

[prix]

esse codigo ta feito pra deletar e parar.
ou seja o output eh onde ele para o input onde ele comeca.