1 2 3 4 5
my @grafikoptionen = ($varoptionen[0], $varoptionen[1], $fixd, $varoptionen[2], $varoptionen[3], $fixm, $fixs); print "Grafikoptionen: @grafikoptionen\n\n" if $debug; my @sys_cmd = ("./graphic", "@grafikoptionen", "$refeingaben->{id}", ">$bild.png"); print STDERR "\n@sys_cmd\nwird gestartet\n" if $debug; system( "@sys_cmd" ) == 0 or die "$prog_name: Fehler: system( \"@sys_cmd\" ) gescheitert mit Rückgabewert $?\n";
Quotesh: 1: Syntax error: "(" unexpected
system("/bin/sh", "-c", q("$@" > datei), "--", @sys_cmd)
Quote./graphic @grafikoptionen....
2014-02-26T20:39:23 Raubtier- keine Anführungszeichen um die @sys_cmd
2014-02-28T08:18:22 qwe123qwe2014-02-26T20:39:23 Raubtier- keine Anführungszeichen um die @sys_cmd
und das geht eben nicht, da ich ja das Perl-Sonderzeichen @ als Liste interpretieren muß, die Elemente der Liste aber für die Bash escapen müßte.
system("/bin/sh", "-c", q("$@" > datei.png), "--", @sys_cmd)