my $cmd = qq(c:/iw-home/bin/iwpublish -g $branch STAGING 'PublishingEdition'); my $result = `$cmd 2>&1`; if (open(DBG, ">>c:/temp/dbg.txt")){ print DBG "\n[", scalar(localtime()), "]\n"; print DBG "CMD: '$cmd'\nRESULT: '$result'\n"; close(DBG); }
iwsubmit .... 'a comment'
iwsumbit ... "a comment"
my $cmd = qq(this is a string "with quotes inside");