Я покажу как выполнять внешние программы из скрипта на perl 6.
Например вам нужно посмотреть список названий ваших баз данных mysql.
Вот код:
use v6;
# https://docs.perl6.org/language/ipc#The_Proc_object
my $p = run 'mysql', '-uroot', '-ppassword', :in, :out, :err;
$p.in.say('SHOW DATABASES;');
$p.in.close;
my $captured-error = $p.err.slurp: :close;
my $exit-code = $p.exitcode;
for $p.out.lines.kv -> $k, $v {
next if $k == 0; # Skip 'Database'
say $v;
}
$p.out.close;
say '';
say 'Error: ', $captured-error.trim-trailing;
say 'Exit Code: ', $exit-code;
Я думаю, что здесь не нужно объяснять, просто изучите внимательно код. Также сами поиграйтесь с функциями run, shell.
Тема: [Perl 6] How to run external programs? (Прочитано 1853 раз)
предыдущая тема - следующая тема
