in reply to Re: backticks execution "inside" variable (string)
in thread backticks execution "inside" variable (string)

Thank you, Bliako, for inspirative command-safeness checking example!

Although I am afraind, it won't be useful in my case, because in general, there could be anything between backticks, and nevertheless, there is some human-checking in our use case.

Therefore I am curious, if exists something like this (or I would need to implement it into my codebase myself):

my $backticketed_string = 'static text `execute this` static text `exe
+cute this` ... `execute this` static text';
my $interpolated_string = interpolate_all_backtick_pairs($backticketed
+_string);

[download]

It is possible, that there is no such thing in Perl modules or built-ins, and this is not meant to abuse you guys, to do this work instead of me, as said also here.

Greetings to Island of Saints!

Replies are listed 'Best First'.
Re^3: backticks execution "inside" variable (string)
by bliako (Abbot) on Dec 20, 2019 at 17:45 UTC

    then try this (with all the bells and whistles for shelling out user input):

    use IPC::Cmd;
sub _userinput2filename {
  my $cmd = $_[0];
  print "executing >>unchecked<< user-input : '$cmd'\n";
  # see https://perldoc.perl.org/IPC/Cmd.html for more details:
  my( $success, $error_message, $full_buf, $stdout_buf, $stderr_buf ) 
+= 
     IPC::Cmd::run(    
        command => $cmd,
        verbose => 1,
     );
   die "failed : $error_message (@$stderr_buf)" unless $success;
   # this is the stdout of the command
   return $stdout_buf
}

    [download]

    userinput2filename($string) will run each `command` block in $string and substitute it with the result of command's execution (stdout with all newlines in there) unless there is a failure whereas it dies. Regards to over the hills and far away...

    Edit: it needs the sub (userinput2filename) and main from my previous post.

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom