Foro - Perl en Español

Hola a todos, estoy tratando de reducir el siguiente código para adaptarlo dentro de otro script que tengo en funcionamiento. La idea es leer dos archivos de registro de extensión .fls creados durante la ejecución del script en el cual deseo adaptar el código.

Las líneas que me interesan siempre comienzan por OUTPUT, en estas están las rutas de algunos archivos que deseo mover (o eliminar). Aquí dejo dos ejemplos de los archivos de registro:
Otro

Con el siguiente script logro lo que busco, usando array, greep y algunas operaciones puedo añadir y quitar elementos para luego moverlos, lo he probado en Linux/Windows y funciona:
Mi consulta es la siguiente, ¿puedo hacer el código un poco más corto? o escribirlo de otra manera, no abusar de grep, como en las líneas:
Creo que tengo algunas líneas de sobra y de seguro se puede hacer más efectivo.

Agradecido de antemano.
Pablo.

Pues sí, se puede abreviar algo.

Pero no solo ahí, sino en otras partes del código. Por ejemplo, hay varios sitios donde tenemos "$variable" que realmente puede dejarse como $variable. O quitar paréntesis que no son necesarios. Todo eso hace aumentar el nivel de pelusa de un programa.

Los grep{}, por otra parte, los estás usando, no para filtrar elementos, que es su labor principal, sino para realizar una operación de limpieza sobre los textos leídos, y eso se puede hacer con un bucle for() y el operador de sustitución.

También... la subrutina uniq() se quita porque no se usa. Y la subrutina array_minus() se podría quitar si estamos seguros que ningún archivo de los que contiene @protected aparecerá dentro de los archivos fls, en las líneas OUTPUT.

Muchas gracias por la respuesta explorer, la verdad es que tengo el mal hábito de colocar comillas dobles a casi todo (bash ), con lo de los paréntesis sobrantes siempre me pierdo, en algunas ocasiones son necesarios y en otras no, muchas veces modifico código que es parte o adaptación de soluciones que están en este mismo foro o en la red y no tengo un ojo tan prolijo al minuto de escribir y tratar de "optimizar y depurar", como esa subrutina que no tenía nada que hacer ahí.

Lo de cambiar por greep por foreach era más menos lo que había procesado al ver el uso que le dan (en general), supuse que era como un F16 para matar una mosca . Con esas líneas que propones, modificaré varias partes del script principal en el cual trabajo.
Agradecido por todo.
Pablo

No pasa nada por dejar las comillas. Seguro que Perl lo optimizará al compilar el programa. Pero es más fácil de leerlo si quitamos caracteres superfluos.

En el tema de los paréntesis la regla es: se pueden quitar siempre y cuando no afecten a las operaciones que les rodean. Por eso, es mucho más fácil quitar los paréntesis del final de una sentencia. Ejemplo:

my $var = 10 + int rand 100;

En esa línea, tanto int como rand deberían llevar paréntesis, pero como la evaluación comienza en rand(100), y no hay nada más que le siga (la línea acaba en el punto y coma), pues quitamos los paréntesis. Y lo mismo podríamos decir de int(). Cosa muy distinta es si lo ponemos así:

my $var = 10 + int 100 * rand;

¿Estamos ejecutando rand() y luego lo multiplicamos por 100 y luego nos quedamos con el valor entero, o primera calcula el valor entero de 100 y luego lo multiplica por rand()? Solución: es el primera caso, pero no es obvio (habría que consultar la tabla de precedencias). En estos casos, ponemos paréntesis, y listo.

A nivel de operaciones, lo que tenías dentro del grep{} ocupa el mismo número que las que ejecuta el for(). La diferencia es que grep "deja pasar" los valores que son positivos, que es algo que no nos interesa ahora. Solo queremos filtrar contenidos, no escoger unos de otros. Por eso es más apropiado, para esos casos, usar map{}, o un for().