Using perl’s `system`

by

Best practices: avoid the shell, use automatic error handling – IPC::System::Simple.

require IPC::System::Simple;
use autodie qw(:all);
system qw(command --arg1=arg1 --arg2=arg2 -arg3 -arg4);

use IPC::System::Simple qw(runx);
runx [0], qw(command --arg1=arg1 --arg2=arg2 -arg3 -arg4);
#     ↑ list of allowed EXIT_VALs, see documentation

Edit: a rant follows.

eugene y’s answer includes a link to the documentation to system. There we can see a homungous piece of code that needs to be included everytime to do system properly. eugene y’s answer shows but a part of it.

Whenever we are in such a situation, we bundle up the repeated code in a module. I draw parallels to proper no-frills exception handling with Try::Tiny, however IPC::System::Simple as system done right did not see this quick adoption from the community. It seems it needs to be repeated more often.

So, use autodie! Use IPC::System::Simple! Save yourself the tedium, be assured that you use tested code.

More Related Contents:

  1. How can I store the result of a system command in a Perl variable?
  2. How can I run Perl system commands in the background?
  3. What’s the differences between system and backticks and pipes in Perl?
  4. How can i do this in perl, shortcut truthtable [closed]
  5. How to retrieve the values of required keys in Perl [closed]
  6. Perl: Meaning of double squared brackets after a string?
  7. What does this HTML::Parser() code do in Perl? [closed]
  8. Why use strict and warnings?
  9. Why does modern Perl avoid UTF-8 by default?
  10. Why is three-argument open calls with autovivified filehandles a Perl best practice?
  11. What’s the difference between Perl’s backticks, system, and exec?
  12. How can I parse dates and convert time zones in Perl?
  13. Which one is good practice, a lexical filehandle or a typeglob?
  14. How do I tell if a variable has a numeric value in Perl?
  15. What’s the best way to open and read a file in Perl?
  16. How do I daemonize an arbitrary script in unix?
  17. How can I check if a file exists in Perl?
  18. Using Encode::encode with “utf8”
  19. How can I start an interactive console for Perl?
  20. What does =~ do in Perl? [closed]
  21. How to convert letters with accents, umlauts, etc to their ASCII counterparts in Perl?
  22. Do you use an exception class in your Perl programs? Why or why not?
  23. How do I break out of a loop in Perl?
  24. Hidden features of Perl?
  25. “inappropriate ioctl for device”
  26. In Perl, how can I check from which module a given function was imported?
  27. How can I verify that a value is present in an array (list) in Perl?
  28. Perl Subroutine Prototyping — The correct way to do it
  29. Why do hash keys have different order when printing?
  30. How can I manually interpolate string escapes in a Perl string?

Leave a Comment