Rgomes

Olá pessoal,

será que alguem pode me ajudar com algum script que fizesse o seguinte...

tenho duas arrays, uma vem de um arquivo com uma lista de emails, a outra é uma lista de email selecionados de um SELECT MULTIPLE para ser removido desse arquivo ( a primeira array ),
para cada email á ser removido preciso fazer uma busca na primeira array e remove-lo...

...ou seja, preciso fazer uma busca no arquivo e apagar os emails selecionados..

já tentei fazer de varias formas, mas como estou começando agora com Perl já estou meio sem idéia.

obrigado.

Dêem uma olhada nesse script que fiz, não está funcionando
Mas acho que dá pra exemplificar o que preciso!!!

if($REMOVER eq "ON"){
if(@RM_EMAIL){
open(BL, "$dir");
@List = <BL>;
close(BL);
my $rm_list = @RM_EMAIL;
my @new_list= shift;
foreach $mail(@List){
chomp $mail;
if($rm_list =~ /$mail/g){next;}
else{push(@new_list, "$mail");}
}
open (BL,">$dir");
foreach(@new_list){
print (BL "$_\n");
}
close(BL);
}
}




Finalmente consegui encontrar uma solução!!!
vejam como ficou...

if($REMOVER eq "ON"){
				if(@RM_EMAIL){
						open(BL, "$dir");
						@List = <BL>;
						close(BL);
						my %HASH_REM_MAIL;
						foreach(@RM_EMAIL){
								 $_ =~ tr/\r\n//d;
								 $HASH_REM_MAIL{$_} = 1;
						}
						open(BL, ">$dir");
						foreach(@List){
								chomp $_;
								if($HASH_REM_MAIL{$_}==1){next;}
								print(BL "$_\n");
						}
						close(BL);
				}
		}

Simples né!!!

Obrigado á todos!!!

Olá Pessoal, sou novo no forum!!

Espero que aqui alguem possa me ajudar em como resolver esse problema.

eu tinha uma conexão da Speed compartilhada por um roteador da Dlink em dois computadores,
A pouco tempo comprei um notebook e para usar a internet nele comprei mais um roteador da Dlink Wireless,
Liguei um dos cabos que ia para um PC nesse novo roteador em uma porta lan.
O notebook se conecta por wireless e esse outro PC por cabo mesmo.
Mudei o IP do roteador wireless para não dar conflito com o primeiro,
E configurei o Gateway dos dois computadores manual para se conectar com o Primeiro roteador que é o que compartilha a internet.
Isso funcionou muito bem por umas duas semanas. Tinha internet em dois PCs por cabo e um notebook por wireless.
Porem agora a internet no notebook nao está conseguindo se manter. Assim que eu ligo o Notebook consigo se conectar, mas é so o tempo de carregar uma página e quando tento entrar em alguma outra nao consegue mais carregar. nem Página nem MSN nem nada.
Mas continuo conectado á rede tanto que posso acessar os outros computadores inclusive os roteadores.
Já tentei reinstalar o drive da placa wireless, reiniciei os roteadores várias vezes, mudei a frequencia do wireless, mas continua mesma coisa.
Uso Windows XP SP2.
Se alguem souber alguma coisa e poder compartilhar FIco muito grato!!