请教一个关于捕获输出的问题？？？？？

c1l2d3

例如程序a.pl内容如下：

  sub abc{
                 print "\033[10;10H Please input: ";
                 $var=<STDIN>;
                 chomp($var);
                 return($var);
  }

  sub ddd{
                 print "\033[12;10H Please input: ";
                 $input=<STDIN>;
                 chomp($input);
                 return($input);
  }

  ($para)=@ARGV;
  abc if($para eq "-K");
  ddd if($para eq "-D");
---------------------------------------------------------------------------------------------
然后我用另外一个程序b.pl中调用a.pl中的函数:
怎么才能获取$var 或 $input 的值呢？？？

system("a.pl -K");  根本不行.
使用$out=`a.pl -K`; 它并不是先在屏幕指定位置显示Please input: 而且$out什么也没有。

不知我说没说明白:oops:
总之就是用一个程序来调用另外一个程序中的函数，如何取得函数值的问题，使用引用么，我不懂。
请大家帮忙，谢谢

[ 本帖最后由 兰花仙子 于 2005-12-9 17:50 编辑 ]

兰花仙子

把a.pl里的return $input改成print $input，然后b.pl里这样调用：

1. 
   
2. open PIPE,"-|" or exec "perl a.pl -K";
   
3. 
   
4. print while(<PIPE>);

复制代码

<PIPE>里就是a.pl传过来的值。

c1l2d3

谢谢仙子

不行啊！仙子。
<PIPE>里只有一个1

b.pl调用a.pl中的函数取得值后要做其它事情。


我现在只有把a.pl的函数值保存在临时文件中，b.pl调用时打开临时文件取值，不好啊!!!

[ 本帖最后由 c1l2d3 于 2005-12-12 09:19 编辑 ]

apile

1. 
   
2. a.pl
   
3. #!/usr/bin/perl
   
4. print "aabc\n";
   

复制代码

1. 
   
2. b.pl
   
3. #!/usr/bin/perl
   
4. open(FF,"./a.pl|");
   
5. while(<FF>){
   
6. print $_;
   
7. }
   

复制代码

也可以考慮啦....把abc與ddd抽出來...然後把a.pl與b.pl放在一起.....就不會有這個問題..

c1l2d3

原帖由 apile 于 2005-12-12 10:50 发表

1. 
   
2. a.pl
   
3. #!/usr/bin/perl
   
4. print "aabc\n";
   

复制代码

1. 
   
2. b.pl
   
3. #!/usr/bin/perl
   
4. open(FF,"./a.pl|");
   
5. while(<FF>){
   
6. print $_;
   
7. }
   

复制代码

也可以考慮啦....把abc與 ...

为什么$_还是1呢？？？

是这样，我写了几个函数，这几个函数需要在很多程序中运行，我不想每个程序中都写一遍这些函数，
所想用这个办法，只打印信息的还好，需要取值的就不行了。

还有什么好办法吗？？望不吝赐教，谢谢了.

apile

1. 
   
2. while(<FF>){
   
3. 改成
   
4. while(my $data = <FF>){
   
5. print "$data\n";
   

复制代码

另外如果您是windows平台..不清楚为什麽..
我在AIX、Linux下没问题....
perl 5.8.0...

c1l2d3

原帖由 apile 于 2005-12-12 13:56 发表

1. 
   
2. while(<FF>){
   
3. 改成
   
4. while(my $data = <FF>){
   
5. print "$data\n";
   

复制代码

另外如果您是windows平台..不清楚为什麽..
我在AIX、Linux下没问题....
perl 5.8.0...

我是unix平台，perl 5.6.1
输出仍然是一个"1",
也许是版本的问题，
非常感谢!

HonestQiao

1. # TCP端口取得
   
2. sub getTCPPort{
   
3.         my %_CONFIG_PORT;
   
4.         open(DOS, "netstat -Na |");
   
5.         while($_=<DOS>)
   
6.         {
   
7.                 if ($_ =~ m/\s+?TCP\s+?([a-z0-9.]+?):([a-z0-9]+?)\s+?/i)
   
8.                 {
   
9.                         my $key = trim($2);
   
10.                         my $value= trim($1);
    
11.                         $_CONFIG_PORT{$key} = $value;
    
12.                 }
    
13.         }
    
14.         close(DOS);
    
15.         return %_CONFIG_PORT;
    
16. }
    

复制代码

windows下面的演示，其他的系统应该也可以演示的