请高手帮忙看一下这个代码

nancyperl

UID: 2335
帖子: 126
积分: 289
在线时间: 22 小时

1^# nancyperl 发表于 2008-11-05 14:35

请高手帮忙看一下这个代码

sub GetLastRunData
{
      my $process = shift or die "No process name supplied to GetLastRunData...\n";
my $site = shift || undef;
      my ($runtime, %resultset);
      my ($server, $type) = GetServerName();
my $dbproc = TppDB::connect(qw/DssProcessing end_user/, $site, $trapInfo);
my $resultset = {};
my $rows = TppDB::getSqlResultSet($dbproc, "exec sel_process_last_run '$process', '$ynxlat{$type}'", 1, 1);
$resultset = $rows->[0] if ref ($rows->[0]) =~ /hash/i;
      unless (keys  %$resultset)
      {
            $runtime = EpochToSybase();
            return 'curr_datetime', $runtime, 'last_run_datetime', $runtime, 'last_server_name', $server,
                     'production_flag', $ynxlat{$type};
      }
      foreach(keys %$resultset) { $resultset->{$_} =~ s/\s+$//; }
      return %$resultset, 'production_flag', $ynxlat{$type};

}

nancyperl

UID: 2335
帖子: 126
积分: 289
在线时间: 22 小时

2^# nancyperl 发表于 2008-11-05 14:39

没有人理吗
可能是我没有表示清楚哈

hzl1984

UID: 24322
帖子: 177
积分: 407
在线时间: 1 天 18 小时

3^# hzl1984 发表于 2008-11-05 14:44

你想要做什么啊？

ly5066113

UID: 41125
帖子: 34
积分: 78
在线时间: 1 小时

4^# ly5066113 发表于 2008-11-05 15:08

QUOTE:

原帖由 nancyperl 于 2008-11-5 14:39 发表
没有人理吗
可能是我没有表示清楚哈

我帮你看过了，可惜没看懂。

nancyperl

UID: 2335
帖子: 126
积分: 289
在线时间: 22 小时

5^# nancyperl 发表于 2008-11-05 15:18

我想知道返回的是什么东西

odacharlee

UID: 7090
帖子: 37
积分: 85
在线时间: 2 小时

6^# odacharlee 发表于 2008-11-05 15:24

http://bbs.chinaunix.net/thread-139976-1-1.html

cobrawgl

UID: 21059
帖子: 1
积分: 2
在线时间: 10 分钟

7^# cobrawgl 发表于 2008-11-05 22:21

返回的是个列表

machine

UID: 43012
帖子: 185
积分: 425
在线时间: 1 天 22 小时

8^# machine 发表于 2008-11-05 22:31

返回一个列表，前面的元素是结果集的名值对，后跟'production_flag', $ynxlat{$type}这两个元素

MMMIX

UID: 31964
帖子: 137
积分: 315
在线时间: 1 天 1 小时

9^# MMMIX 发表于 2008-11-06 12:09

QUOTE:

原帖由 nancyperl 于 2008-11-5 15:18 发表
我想知道返回的是什么东西

见 perldata 中的 List value constructors