Perl - Directiva Windows Linux

   
Vista:

Directiva Windows Linux

Publicado por Humbero (1 intervención) el 05/11/2010 03:29:42
Que tal tropa, tengo una duda de directivas les explico:

Soy nuevo en perl y estoy haciendo un script que permita el borrado de unos logs, pero la cosa es que este haga distincion entre windows y linux, cuando sea windows que busque en una ruta y cuando sea Linux busque en otra.

***** CODIGO *****

#!/usr/bin/perl -w

use strict;

my $RutaW='C:\Logs';

if (-d $Ruta){
print "La ruta: $RutaW Existe =). Listando archivos ... \n\n";
opendir(DIR,$RutaW) || die "No puedo abrir: $RutaW: $!";

while (my $Arch = readdir(DIR)){
next if ($Arch =~ m/^\./);
print "$Arch\n";
}
closedir(DIR);

}else{
print "La ruta: $RutaW NO existe =(";
}

exit 0;

De antemano gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Directiva Windows Linux

Publicado por JF (1 intervención) el 07/11/2010 18:05:07
Puedes usar la variable especial $^O, que guarda el nombre del sistema operativo en donde se encuentra el Perl.

PerlEnEspanol.com
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar