Re: Win32 gawk vs. Unix awk

[ikegami]

Windows command lines cannot have newlines in them.

Better approach, especially for unix:

my @cmd = (
    gawk => (
        -f => 'D:\\tools\\scan_tdf.awk',
        'corrtype=ada',
        'FileSuffix=_pkg',
        'TDFname=sys_mma_pfd_gmeter.tdf',
        'PrefixFile=d:\\tools\\PrefixFile',
        'BusNamesFile=d:\\data\\ssi_BusNames ',
        'VAXPATH=NONE',
        'DIRPATH=def',
    )
);

$sts = system { $cmd[0] } @cmd;

[gibsonca]

On the DOS side, things are still not working like UNIX. gawk (GNU Awk 3.1.6) is calling the scan_tdf.awk file, but none of the values like corrtype are being passed over. The files are the same between UNIX and DOS.

$cmd = "gawk -f D:\\tools\\scan_tdf.awk 'corrtype=ada', 'FileSuffix=_p
+kg', 'TDFname=sys_mma_pfd_gmeter.tdf', 'PrefixFile=d:\\tools\\PrefixF
+ile', 'BusNamesFile=d:\\data\\ssi_BusNames', 'VAXPATH=NONE', 'DIRPATH
+=NONE'";

  print "cmd1 is $cmd \n\n";
  $sts = system($cmd);
  print "sts1 from gawk is $sts \n";
exit(0);

Still looking for help!

I have tried modifying the calling parameters in many ways...

[gibsonca]

So I solved this little DOS GNU gawk problem by using the "-v" argument. Everything now works like UNIX. Back to converting this to perl. ;-)