Cómo hacer esta orden en perl?

[neodani]

Buenas,

Sabéis si se puede traducir estas ordenes de sistema con perl?

Código PERL:

TMP=$(cat /etc/awstats/web/$file | grep -v "#" | sed '/^$/d' | grep LogFile | awk -F"\"" '{print $2}')
RUTA_FILE=$(dirname $TMP)
 

Muchas gracias de antemano

[jferrero]

Eso depende del aspecto de lo que haya dentro del fichero $file.

¿No puedes poner un ejemplo?

[neodani]

Iniciado por jferrero

Eso depende del aspecto de lo que haya dentro del fichero $file.

¿No puedes poner un ejemplo?

Tiene muchas lineas comentadas y entre las que no están aparece por ejemplo.

LogFile="/mnt/logs/http/zeusmerged/HOS_vNxHosApa01_http/www.dominio.cat/www.dominio.cat.log.ex%YY-24%MM-24%DD-24"
SiteDomain="www.dominio.cat"
HostAliases="www.dominio.cat"
Include "zeus.generic.conf"

[jferrero]

Entonces, sería algo así:

Código Perl:

$TMP = do { local $/; open $FILE, "</etc/awstats/web/$file"; <$FILE> };
$TMP =~ /^LogFile \s* = \s* " (.*?) "/x;
 
use File::Basename;
$RUTA_FILE = '';
if ($1) {
    $RUTA_FILE = dirname $1;
}
 

Se puede abreviar un poco, pero más ofuscado.

Código Perl:

do { local $/; open $FILE, "</etc/awstats/web/$file"; <$FILE> } =~ /^LogFile \s* = \s* " (.*?) "/x;
 
use File::Basename;
$RUTA_FILE = $1 ? dirname($1) : '';
 

Utilizamos do{} para hacer la lectura de todo el fichero. Se lo pasamos a una expresión regular, que extrae la información de la entrada LogFile, de lo que hay entre llaves, de la cual extraemos solamente el directorio. Si no encontramos nada en el LogFile, pues obtenemos una cadena vacía.

[neodani]

Iniciado por jferrero

Entonces, sería algo así:

Código Perl:

$TMP = do { local $/; open $FILE, "</etc/awstats/web/$file"; <$FILE> };
$TMP =~ /^LogFile \s* = \s* " (.*?) "/x;
 
use File::Basename;
$RUTA_FILE = '';
if ($1) {
    $RUTA_FILE = dirname $1;
}
 

Puedes explicarme para que sirve el if del $1?

if ($1) {

$RUTA_FILE = dirname $1;

}

Muchas gracias

[jferrero]

$1 almacena lo capturado por los paréntesis, en la expresión regular.

El if() comprueba que hemos capturado realmente algo.

Si no hemos capturada nada, $1 es un valor indefinido, por lo que $RUTA_FILE sigue valiendo la cadena vacía. Si hemos capturado algo, entonces le sacamos el dirname() de él.