|
Тема |
subroutine help |
|
Автор | ton4 (Нерегистриран) | |
Публикувано | 02.06.07 23:44 |
|
|
Здравейте
Въпроса ми ще ви се стори елементарен, но сега започвам с Пърл и ми е малко трудно. Опитвам се да разбера как да извадя различни стойности от една и съща подпрограма:
sub TIME
{
@months = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);
@weekDays = qw(Sun Mon Tue Wed Thu Fri Sat Sun);
($second, $minute, $hour, $dayOfMonth, $month, $yearOffset, $dayOfWeek, $dayOfYear, $daylightSavings) = localtime();
$year = 1900 + $yearOffset;
$theTime = "$hour:$minute:$second, $weekDays[$dayOfWeek] $months[$month] $dayOfMonth, $year";
print $hour;
print $second;
print $minute;
}
Искам да изкарам вън $hour, $second и $minute
понеже нямам много време и реших да го направя като направя 3 еквивалентни подпрограми за времето, но всяка от тях да връща по отделно
$hour $second $minute ; като естествено ги кръстих различно и после ги извикавах поотделно в основната програма (знам че е малко хамалско). Всичко си беше добре докато не се опитах да вкарам във print върнатата от подпрограмата стойност :
$minutte= minute ();
print FH1 $minutte ; #otpe4atva go vyv failow manipolator
та значи това върви ОБАЧЕ после като отворя фаила след стойността за минутата, която е взета от съответната подпрограма, се появява една мистериозна 1-ца ?!
Ако някой ми каже как да го направя по-интелигентно ще съм много благодарен :)
х10
|
| |
|
|
|