请教不同语言间的程序调用

不死草

本来我想直接使用batch调用带参数的Visual Foxpro 7.0程序，但是发现只能调用只带一个参数的程序，那么多参数怎么办呢？
百度了很久都找不到。。。
下面附带一个使用batch调用带一个参数的Visual Foxpro 7.0程序的Code：

1. 
   
2. START /W "VFP7.exe" "C:\Program Files\Visual Foxpro 7.0\vfp7.exe" **.PRG  %1
   

复制代码

我现在想通过Perl来调用，不知道各位大虾是否试过怎么调用带多参数的Visual Foxpro 7.0程序。
当然，如果能用batch调用带多参数的Visual Foxpro 7.0程序，偶也给分，因为大不了再多一层逻辑，使用perl调用batch.

[ 本帖最后由 不死草 于 2009-6-10 15:59 编辑 ]

xti9er

原帖由 不死草 于 2009-6-11 13:47 发表
好吧，我现在有一段VF代码

Do 123.prg with a,b,c

我想把这个代码用Perl或者Batch来调用，结果发现只能调用带一个参数的VF语句：

START /W "VFP7.exe" "C:\Program Files\Visual Foxpro 7.0\vfp7.exe" ...

希望我这次是看懂了，依然有N种方式

第一种：

use Win32::Process;     use Win32;     sub ErrorReport{         print Win32::FormatMessage( Win32::GetLastError() );     }     Win32::Process::Create($ProcessObj,                                 "C:\Program Files\Visual Foxpro 7.0\vfp7.exe",                                 "VFP7.exe $ARGV[0] $ARGV[1]",                                 0,                                 NORMAL_PRIORITY_CLASS,                                 ".")|| die ErrorReport();     $ProcessObj->Suspend();     $ProcessObj->Resume();     $ProcessObj->Wait(INFINITE);

   第二种：

use Win32; Win32::Spawn("c:/windows/notepad.exe","notepad d:/programme/perl/sp.txt",$pid);

第三种 :

  

system("c:/windows/notepad.exe d:/programme/perl/sp.txt");

.......

     还可以继续写下去,比如一句话的,其他函数方式的.写多了恐怕被人怀疑是孔乙己在教人写茴字的八 种 写法 .再 就是又 怕理解错了

[ 本帖最后由 xti9er 于 2009-6-12 00:56 编辑 ]

ziggler

封装成WEB SERVICE调用？

不死草

谢谢你的建议，但是貌似太复杂，我现在只是想在Server上执行自动化，如果再封装成WEB SERVICE，那我的boss是不会同意的，改动太大。

xti9er

原帖由 不死草 于 2009-6-5 10:56 发表
本来我想直接使用batch调用带参数的Visual Foxpro 7.0程序，但是发现只能调用只带一个参数的程序，那么多参数怎么办呢？
百度了很久都找不到。。。
下面附带一个使用batch调用带一个参数的Visual Foxpro 7.0程 ...

当然能带多个参数了

1. 
   
2. D:\programme\Perl>t.bat a b
   
3. 您的第一个参数 a
   
4. 您的第二个参数 b
   
5. 
   
6. D:\programme\Perl>type t.bat
   
7. @echo 您的第一个参数 %1
   
8. @echo 您的第二个参数 %2
   
9. 
   
10. D:\programme\Perl>t.pl a b
    
11. 您的第一个参数a
    
12. 您的第二个参数b
    
13. 
    
14. D:\programme\Perl>type t.pl
    
15. 
    
16. print "您的第一个参数$ARGV[0]\n";
    
17. 
    
18. print "您的第二个参数$ARGV[1]\n";
    
19. 
    

复制代码

xti9er

事办完了LZ就消失了....

怎么跟 one night stand 一样  ......

Perl_Er

不死草

不好意思，呵呵，谢谢大家的回帖，这两天工作有点忙，就没过来看。

不死草

谢谢你的回复，但是你可能没明白我的意思，因为这里的问题的关键是在于VF ，而不是Batch或者Perl的问题，所以你的回复只能解决带多参数的Batch或者Perl。

xti9er

确实看不懂你啥意思，只有最后一句我比较懂，呵呵。