Re: [PerlChina] 子例程问题，请教

做法有很多种，比如：

sub output{
my $host_name = 12345;
my $kernel = "2.6.35";
my $version = "Redhat enterprise linux";
#print "$host_name\n $kernel\n $version\n";
return ($host_name, $kernel, $version);
}

my @result = output();
print $result[1];

2011/6/30 woosley. xu. <redicaps@gmail.com>:
> return $kernel
>
> 在 2011年6月30日 下午4:27，Gary.jsz <gary.jsz@gmail.com>写道：
>>
>> 刚才竟然用了perl01的标题就直接发出来了，鄙视一下自己，粗心大意。
>>
>>
>>
>>
>> ======= 2011-06-30 16:22 gary.jsz@gmail.com 您在来信中写到:答复: [PerlChina] 问一道题目
>> =======
>>
>> 大家好！
>>
>> 子例程可以通过&subname来访问并返回值，但是，如果此子例程里面有N个变量，我如何才能得到子例程里面的变量值？ 举个小例子，比如：
>>
>> #!/usr/bin/perl -w
>>
>> sub output{
>> my $host_name = 12345;
>> my $kernel = "2.6.35";
>> my $version = "Redhat enterprise linux";
>> print "$host_name\n $kernel\n $version\n";
>> }
>>
>>
>> 使用 &output输出，把左右的都打印出来了，如果我output子例程的print语句不用，那么，我如何得到output的$kernel输出？
>>
>>
>> 谢谢！
>>
>>
>>
>> －－－－
>> Gary.jsz
>>
>>
>> = = = = = = = = = = = = = = = = = = = =
>>
>> －－－－
>> Gary.jsz
>>
>> --
>> 您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
>> 要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
>> 要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
>> 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
>
>
>
> --
> woosley.xu. http://twitter.com/redicaps
>
>
>
> --
> 您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
> 要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
> 要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
> 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
>

--
如果觉得无聊，您不妨访问Google Reader消遣 https://www.google.com/reader/view
要尝试黑版本Google，请访问 http://tinyurl.com/yk3yp7j

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。