当我将参数传递给这种方式时,shell_qoute
使用String::ShellQuote是否有意义system
?
#!/usr/bin/env perl
use warnings;
use 5.012;
use String::ShellQuote qw(shell_quote);
my $file = shift;
my $argument = shift;
$file = shell_quote $file;
$argument = shell_quote $argument;
system( 'some_command', '--verbose', '-o', $file, $argument );