Как мне захватить выходные данные Perl-программы, чтобы я мог отправить их по почте?

Question

Я хочу отправить вывод файла Perl в теле письма. Может кто-нибудь дать мне знать, как я могу получить выходные данные Perl, который печатает что-то на cmd в переменную?

Я запускаю сценарий Perl из командной строки и получаю вывод в самой командной строке. Я хочу напечатать вывод из командной строки в тело письма. У меня есть функция, которая может отправлять электронную почту, но я не знаю, как захватить этот вывод. Надеюсь, теперь все ясно.

Answer 1

Если вы отправляете электронное письмо из сценария perl и хотите включить тело другого сценария perl, выполните:

use IPC::System::Simple 'capturex';
my $body = capturex( 'perl', '/path/to/your/script' );

Answer 2

Что-то вроде:

my_variable=$(perl myperl.pl)

Пример:

$ cat myperl.pl
#!/usr/bin/perl

use strict;
print "stackoverflow\n";
$ my_variable=$(perl myperl.pl)
$ echo $my_variable
stackoverflow
$