in reply to Execution KSH Script from Perl

When you invoke it on the command line, your shell strips off the quotes. The ksh script doesn't see the "s in the first "FAMP.001.DAT", but does see them the second one precisely because they are quoted. (The same goes to for the other arguments.)

So, in Perl, you don't need to do any special quoting since your invocation doesn't pass through an interactive shell. You don't need to do so much string interpolation inline, either; a clean way of adding the quotes is with a helper function. This should work: 

$return_val = system($grph_gen_multi_seq,
    $data_source_contents[2], myquote($data_source_contents[2]),
    $seq_num,                 myquote($seq_num),
    $data_source_contents[1]);

# ...

sub myquote {
    my($str) = @_;
    return "\"$str\"";
}

[download]

Replies are listed 'Best First'.
Re^2: Execution KSH Script from Perl
by johngg (Canon) on Jan 18, 2007 at 20:54 UTC
    Rather than writing a subroutine to do the job, you could use Perl's quoting constructs. They also avoid the need to escape the double quotes you are wrapping around the string.

    $ perl -le '
> $seq_num = 1234;
> $quoted_seq_num = qq{"$seq_num"};
> print qq{$seq_num - $quoted_seq_num};'
1234 - "1234"
$

    [download]

    The code would become

    $return_val = system($grph_gen_multi_seq,
    $data_source_contents[2],
    qq{"$data_source_contents[2]"},
    $seq_num,
    qq{"$seq_num"},
    $data_source_contents[1]);

    [download]

    Cheers,

    JohnGG

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom