Lo verifiqué como usuario "root" y me dice exactamente lo mismo.
Using perl Syntax Highlighting
- #!/usr/bin/perl
- use Term::ANSIColor qw(:constants);
- my $FICHERO4 = '/etc/inetd.conf';
- my $estatus4 = stat($FICHERO4);
- if ((! defined $estatus4) || (-r $FICHERO4)) {
- print BOLD, RED, 'No existe', RESET, " El archivo $FICHERO4 no existe en el sistema o no puede ser accedido\n";
- }
- foreach $varb2 (@sdefault){
- $comando2 = ( qx(grep '^$varb2' $FICHERO4 ));
- chomp $comando2;
- if ( "$comando2" ne "$varb2" ){
- }
- else
- {
- print BOLD, RED, "Negativo:", RESET . " El servicio $varb2 existe\n";
- }
- }
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
Obtengo:
No existe El archivo /etc/inetd.conf no existe en el sistema o no puede ser accedido
Muchas gracias.
