Remover linhas em arquivo.

rafael martins
(usa Slackware)

Enviado em 01/08/2007 - 16:14h

Preciso de uma ajuda!!!!!
A variável "@user" recebe os valores de um outro código.. Esses valores são enviados quando o usuário marca os checkbox no
código "pesq.pl". O problema é que quando os usuários marcam mais de um checkbox, apenas o valor do primeiro é excluido no
arquivo "users" -> '/arquivos/usuarios/users'. Para tentar resolver o problema, criei um array com os valores de "usuario"
na linha 19, no entanto, não consigo fazer o código verificar cada elemento e exclui-lo..Na linha 22 deixei /$user[0]/ só
para não dar erro na hora de executar o código.. Resumindo, preciso remover do arquivo "users" todos os valores que forem
selecionados nos checkbox do código "pesq.pl"..

1 #!/usr/bin/perl
2 use warnings;
3 use strict;
4 use CGI qw ( :standard );
5 use constant PESQ =>
6 'http://meudominio.com.br/cgi-bin/usuarios/pesq.pl';
7 use constant MARCARUSUARIO =>
8 'http://meudominio.com.br/usuarios/marcarusuario.htm';
9 use constant USUARIODELETADO =>
10 'http://meudominio.com.br/usuarios/usuariodeletado.htm';
11
12 ## Abre o arquivo e cria o Handle <USERS>;
13 my $arquivo = '/arquivos/usuarios/users';
14 open ( USERS,$arquivo );
15 my @linhas = <USERS>;
16 close (USERS);
17 my $linhas = "@linhas";
18 ## Recebe o conteudo da variavel $user do formulario (/var/www/cgi-bin/usuarios/pesq.pl) ;
19 my @user = param ( "usuario" );
20 my @u;
21 foreach (@linhas) {
22 push (@u, $_ ) if $_ !~ /$user[0]/;
23 my $narq = "@u";
24 open ( USERS,"+>$arquivo" );
25 print ( USERS "$narq" );
26 close ( USERS );
27 #Exibe o codigo .htm (USUARIODELETADO) e fecha o else e o foreach;
28 print redirect (USUARIODELETADO);
29 }}