为什么无法打印出类似2009-05-13 14:19:50这样的时间

nfwolf

1. 
   
2. our  $Moditime;
   
3. sub Testcase1
   
4. {
   
5.     &ActionTool(1, undef, 1);
   
6. print "time is $Moditime\n";###这里打印时间打印不出来！没为啥}
   
7. }
   
8. ####这里开始可以打印的方法
   
9. &ActionTool(1, undef, 1);
   
10. print "time is $Moditime\n";###这么用又是可以打印出时间的，郁闷
    
11. ######结束
    
12. 
    
13. sub  ActionTool
    
14. {
    
15.     my ($type, $time, $count) = @_;
    
16.     my $response;
    
17.     my $browser = LWP::UserAgent->new;
    
18.         my $url = jimi?type='.$type;
    
19.        
    
20.     $browser->default_header( 'Client-Agent' => 'jimi');
    
21.     $browser->default_header( 'x-up-calling-line-id' =>'jimi');
    
22.     $browser->default_header( 'APIVersion' => 'jimi');
    
23.     $browser->default_header( 'Action' => 'getHandsetProperties');
    
24.         if (defined($time)){
    
25.                 $browser->default_header( 'If-Modified-Since' => $time);
    
26.         }
    
27.        
    
28.         $browser->timeout(30);
    
29. 
    
30.     $response = $browser->get($url);
    
31.     if ($response->is_error) {
    
32.             die "发生网络错误\n";
    
33.     }
    
34. 
    
35.     $GetCode = $response->header( 'result-code' );
    
36.         $startus = $response->code();
    
37.         $Moditime = $response->header('Last-Modified');
    
38. print "time is $Moditime\n";###这里打印时间没有问题
    
39.     if (!defined($GetCode)) {die "没有返回result-code值\n";}#
    
40. 
    
41.     if ($GetCode != 0) {
    
42.         print "发生错误，错误值为$GetCode\n;";
    
43.     }
    
44.        
    
45.         my $outfile = 'getHandsetProperties'.$count.'.html';
    
46. 
    
47.     my $getxml = $response->content;
    
48.                
    
49.     open(FH, ">$outfile") || die "新建文件失败\n";
    
50.     print FH $getxml;
    
51.     close(FH);       
    
52.        
    
53.     return;
    
54. }

复制代码

兰花仙子

回复 1# nfwolf


    变量作用域问题。
请加上use strict再看，谢谢。

actan

这是你全部的源代码吗？ 可以直接run吗？？

你定义了两个函数，没有调用任何一个啊？

这代码会跑吗？？

nfwolf

warn和strict都早就加上了

兰花仙子

warn和strict都早就加上了
nfwolf 发表于 2010-02-05 17:13

    那就把my $Moditime;这个my改成our.

nfwolf

姐姐和我想到一块儿了，可惜不行，如果在sub Testcase1函数外用是可以的，事先申明，我在Testcase1中没有做任何事情，就光打印了时间了

兰花仙子

姐姐和我想到一块儿了，可惜不行，如果在sub Testcase1函数外用是可以的，事先申明，我在Testcase1中没有做 ...
nfwolf 发表于 2010-02-05 17:28

    因为你Testcase1函数没有执行呀，程序没走到那里，怎么会打印呢？

nfwolf

while($ARGV[0]) {
  SWITCH: {
    &Testcase1, last ENDTEST, if ($ARGV[0] =~ /1/i);
    &Testcase2, last ENDTEST, if ($ARGV[0] =~ /2/i);
    &test3, last ENDTEST, if ($ARGV[0] =~ /3/i);
    &test4, last ENDTEST, if ($ARGV[0] =~ /4/i);
        &test5, last ENDTEST, if ($ARGV[0] =~ /5/i);
    &test6, last ENDTEST, if ($ARGV[0] =~ /6/i);
    &test7, last ENDTEST, if ($ARGV[0] =~ /7/i);
    &test8, last ENDTEST, if ($ARGV[0] =~ /8/i);
        &test9, last ENDTEST, if ($ARGV[0] =~ /9/i);
  }
}

=pod
REAL
//测试简述: type=1
//测试类型: 功能测试
//输入文件:
//输出文件: getHandsetProperties1.out
//预期结果: OK
//结果检查: Dailybuild
//运行方式: perl getHandsetProperties.pl 1
//补充说明:
//测试路径: Elastos/FunctionTests/Mobile/Libraries/BambooApi/contentsync/getHandsetProperties.pl
END
=cut

运行方式 perl getHandsetProperties.pl 1，咋会没执行呢，我加打印代码，确实执行了的

兰花仙子

不太清楚你的其他代码。。
我照着你的模式写了一个，是可以打印的~~

use strict;
use POSIX 'strftime';
our  $Moditime;

Testcase1();
sleep 1;
&ActionTool(1, undef, 1);
print "time is $Moditime\n";

sub Testcase1 {
     &ActionTool(1, undef, 1);
     print "time is $Moditime\n";
}

sub ActionTool {
    $Moditime = strftime "%D %T",localtime;
}

cobrawgl

{:3_198:}