Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling
 
PerlMonks  

Robust parameter quoting for *nixoid shells

by Aristotle (Chancellor)
on Apr 26, 2003 at 00:53 UTC ( #253295=snippet: print w/replies, xml ) Need Help??
Description:

Eventually, everyone working in a *nix environment will have to pass things to the shell, but as everyone should be aware of by now, most homegrown quoting solutions are inadequate and breakable. I spent some effort researching semantics to write one that isn’t. The only situation this snippet can’t cope with is null bytes, because the shell eats those without providing any way to preserve them.

It’s likely to be less efficient than substitution based approaches, but I also find it a lot clearer and cleaner. Regex-based solutions feel to me like careful fiddling. This one is easy to grok, and any edge cases would be easily apparent (there aren’t any); when it comes to a job as critical as this one I’ll take the obviously deficiency-free approach over the fast one any day.

sub shell_quote {
    return join ' ', map {
        ( defined && length )
            ? join q[\\'], map { (length) ? qq['$_'] : q[] } split /'/
+, $_, -1
            : q[''];
    } @_;
}
Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: snippet [id://253295]
help
Chatterbox?
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (5)
As of 2017-08-20 14:18 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Who is your favorite scientist and why?



























    Results (316 votes). Check out past polls.

    Notices?