Help for this page

Select Code to Download


  1. or download this
    $ cat a.pl
#!/usr/bin/perl
...

$ "$HOME/a.pl" foo
/home/ikegami/a.pl
  2. or download this
    use String::ShellQuote qw( shell_quote );
my $cmd = shell_quote($0, @ARGV);
  3. or download this
    use String::ShellQuote qw( shell_quote );
my $cmd = shell_quote($^X, "--", $0, @ARGV);