Beefy Boxes and Bandwidth Generously Provided by pair Networks
more useful options
 
PerlMonks  

Re^4: System command using array and pipe

by ikegami (Pope)
on Jun 06, 2011 at 18:17 UTC ( #908340=note: print w/ replies, xml ) Need Help??


in reply to Re^3: System command using array and pipe
in thread System command using array and pipe

I'm not sure what you mean. I can guess you'd mean one of these.

  • Store the shell literal in the config.

    my $password = '...'; # Not the password, but a shell literal of the +password. system( ... "-p$password" ... );
  • Pretend the config is a shell literal.

    my $password = '...'; system( ... "-p$password" ... ); # Pretend $password is a shell liter +al.
  • Embed the config data in the command

    system( ... "-p..." ... );

Every one of these are very unappealing to me.


Comment on Re^4: System command using array and pipe
Select or Download Code
Re^5: System command using array and pipe
by philipbailey (Chaplain) on Jun 06, 2011 at 20:08 UTC

    The only issue that cannot be resolved by single quoting relevant parts of the command line is of escaping single quotes. Either do this manually, or do something simple like this:

    s#'#'\\''#g for ($password, $path); system("mysqldump --add-drop-table -uroot -p'$password' mydatabase | g +zip -9c > '$path'");

    Update: s/// command corrected as per ikegami.

      I prefer
      my ($passwd_lit, $path_lit) = map text_to_shell_lit, $passwd, $path; system("mysqldump --add-drop-table -uroot -p$passwd_lit mydatabase | g +zip -9c > $path_lit");
      to
      my $passwd_lit = $passwd; my $path_lit = $path; s#'#'\\''#g for $passwd_lit, $path_lit; system("mysqldump --add-drop-table -uroot -p'$passwd_lit' mydatabase | + gzip -9c > '$path_lit'");

      but to each his own.

      By the way, your quoting was buggy. "\" is not special in sh single-quoted literals.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://908340]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (7)
As of 2014-11-22 10:39 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My preferred Perl binaries come from:














    Results (121 votes), past polls