[Cascavel-pm] Erro estranho no Perl v5.8.6
Marco A P D´Andrade
mda em embratel.net.br
Quinta Agosto 4 17:17:10 PDT 2005
Sua duvida foi respondida em minha mensagem anterior...
Agora ...
Sugiro vc pensar em usar Perl para este seu problema...
unless ( open(F, "/usr/local/squid/logs/access.log") ) {
... die ... falha ao abrir ...
}
while ( $_ = <F> ) {
if ( /$ip/ ) {
print $_;
}
}
close(F);
Pode parecer mais simples trocar por um `cat ...| grep ...`, mas para
pegar este habito vc terá de se preocupar com as implicacoes disto, em
especial performance...
(Ainda é importante entender o perlsec)
Sds,
Marco Antonio
Sammuel de Souza wrote:
> Voltei para o mesmo principio,
>
> fui colocar as variaves no script original ele nao aceita
>
> #!/usr/bin/perl
>
> use CGI;
>
> my $query = new CGI;
>
> my $ip = $query->param('ip');
>
> print $query->header;
>
> $ENV{'PATH'} = '/bin:/usr/bin';
>
> *$cat = `cat /usr/local/squid/logs/access.log | grep $ip`;*
>
> print "oi $cat";
> http://192.168.0.150/cgi-bin/teste.cgi?ip=192.168.0.7
>
> agora se eu colocar
>
> *$cat = `cat /usr/local/squid/logs/access.log | grep 192.168.0.7`;*
> **
> ai executa normal.
>
> http://192.168.0.150/cgi-bin/teste.cgi
>
> pq?
>
>
>------------------------------------------------------------------------
>
>_______________________________________________
>Cascavel-pm mailing list
>Cascavel-pm em pm.org
>http://mail.pm.org/mailman/listinfo/cascavel-pm
>
Mais detalhes sobre a lista de discussão Cascavel-pm