|
Тема |
utochnenie [re: ton4] |
|
Автор | usb2 (Нерегистриран) | |
Публикувано | 21.05.08 17:05 |
|
|
Здравейте,
и аз наскоро срещнах подобен проблем, а именно как да върна 3 стойности
от подпрограма. Направих го така но според мен има по интелигентен начин?
#! /usr/bin/perl -w
use POSIX qw(strftime);
&sub_test;
print $back[0] . "\n";
print $back[1] . "\n";
print $back[2] . "\n";
exit(0);
sub sub_test
{
$clock_in = strftime "%H%M%S", localtime;
$back[0] = substr($clock_in, 0, 2); # current_hour
$back[1] = substr($clock_in, 2, 2); # $current_minute
$back[2] = substr($clock_in, 4, 2); # $current_second
}
т.е. искам да върна и 3-те променливи без условие в подпрограмата.
Лек ден!
|
| |
|
|
|