utilizando comandos de bash en Perl

Question

que tengo código de fiesta corto

cat example.txt | grep mail | awk -F, '{print $1}' | awk -F= '{print $2}' 

quiero usar de él en escritura del Perl, y poner su salida a una línea de una matriz mediante una línea. He intentado esto, pero no funcionó

@array = system('cat /path/example.txt | grep mail | awk -F, {print $1} | awk -F= {print $2}'); 

Gracias por ayudar ...

Answer 1

Probar:

@array = `cat /path/example.txt | grep mail | awk -F, {print \$1} | awk -F= {print \$2}')`; 

Observando que acentos abiertos se utilizan y que los signos de dólar necesitan ser escapado como el operador qx se interpolar por defecto (es decir, que se piensa que $ 1 son variables de Perl en lugar de argumentos a awk)

Answer 2

El valor de retorno de system() es el estado de retorno del comando que ejecutó. Si desea que la salida, utilice acentos abiertos:

@array = `cat /path/example.txt | grep mail | awk -F, {print \$1} | awk -F= {print \$2}`; 

Cuando evaluada en el contexto de lista (por ejemplo, cuando se asigna el valor de retorno a una matriz), obtendrá las líneas de salida (o una lista vacía si no hay salida).

Answer 3

No pude evitar hacer una versión de Perl puro ... debería funcionar igual, si mal no recuerdo mi torpeza.

use strict; 
use warnings; 

open A, '<', '/path/example.txt' or die $!; 
my @array = map { (split(/=/,(split(/,/,$_))[0]))[1] . "\n" } (grep /mail/, <A>);