używając polecenia bash w Perlu

Question

mam krótki kod Bash

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

Chcę używać go w Perl skrypt, i umieścić swoje wyjście do linii tablicy po linii. próbowałem tego, ale nie działa

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

Dzięki za pomoc ...

Answer 1

Spróbuj:

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

Stwierdzając, że backticks są wykorzystywane i że znaki dolara trzeba uciekł jako operator QX będzie interpolować domyślnie (czyli będzie myśleć, że $ 1 są zmienne Perl zamiast argumentów awk).

Answer 2

Wartość zwracana system() jest zwracany z was wykonywanego polecenia. Jeśli chcesz wyjście, użyj odwrócone, pojedyncze apostrofy:

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

Kiedy oceniana w kontekście listy (np gdy wartość zwracana jest przypisany do tablicy), dostaniesz linie wyjściowe (lub pustą listę, jeśli nie ma wydajność).

Answer 3

Nie można pomóc w tworzeniu czystej wersji perla ... powinien działać tak samo, jeśli dobrze pamiętam mój bardzo mały awk.

use strict; 
use warnings; 

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