지식은 하늘로 비상하는 날개와 같다

전체 |  리눅스 (139)   윈도우 (34)   해킹/보안 (81)   PHP (12)   PERL (82)   쉘 (24)   기 타 (28)   IT839 (14)   오라클 (8)   아파치 (49) 

 hakkoo ( 2004-06-15 15:40:17, Hit : 3360 ) 
 여러개의 배열이나 해쉬 반환하기(서브루틴)

서브루틴에서 여러개의 배열을 반환하면 모든 배열이 하나로 뭉뚱그려집니다. 그래서,
(@ltime, @gtime) = lgtime();
print "ltime : @ltimen";
print "gtime : @gtimen";

sub lgtime {
        my @lmt = localtime;
        my @gmt = gmtime;
        (@lmt,@gmt);
}

얼핏보면 제대로 될 것 같지만 실제로 출력되는 내용은
ltime : 7 14 11 7 4 102 2 126 0 7 14 20 7 4 102 2 126 0
gtime :

입니다.
결국 서브루틴 내부에서는 @lmt와 @gmt로 둘이였던 배열이 반환되면서 하나로 뭉쳐져 앞쪽의 배열에 모두 들어가게 된 것이지요.
이 것을 해결하려면 리퍼런스를 사용해야 합니다. (배열의 배열에 리퍼런스에 대한 내용이 나와 있습니다.)
http://hakkoo.net/zeroboard/zboard.php?id=study&page=1&sn1=&divpage=1&category=5&sn=off&ss=on&sc=on&keyword=배열의&select_arrange=headnum&desc=asc&no=137

($rltime, $rgtime) = lgtime();
print "ltime : @$rltimen"; # ltime : 7 19 11 7 4 102 2 126 0
print "gtime : @$rgtimen"; # gtime : 7 19 20 7 4 102 2 126 0

sub lgtime {
        my @lmt = localtime;
        my @gmt = gmtime;
        (@lmt,@gmt); # 리퍼런스의 목록을 반환
}

위와 같이 리퍼런스의 목록을 반환하고, 받는 쪽에서는 이 목록을 받아들인 후, 적절히(@$rltime처럼) 사용하는 것입니다.
해쉬의 경우도 마찬가지입니다.
($ra, $rb) = hashes();
# 어쩌고 저쩌고...

sub hashes {
        my %a = qw( a 1 b 2 c 3 );
        my %b = qw( A 1 B 2 C 3 );
        (%a, %b);
}

Kazeljtu (2008-06-01 16:02:19)
Hi webmaster!
Hiposaasa (2008-07-27 15:35:23)
OOO, Interesting story))
Kazelbhj (2008-12-30 05:02:29)
Hi webmaster! nub
Enahlenoir (2009-06-15 16:58:26)
MESSAGE
sakJickySic (2009-10-09 03:56:55)
Hi People
How are you doing?
Sheapeglulp (2009-12-17 11:47:32)
Oui c'est l'imaginaire ejaculation rapide: meix-lagor.com
Gundosujd (2009-12-28 21:13:35)
Aloha! bid
Gundoswkm (2009-12-28 21:54:05)
Aloha! klz
megan fox naked pics (2010-08-24 12:52:53)
<a href="http://meganfoxnaked.pbworks.com/ "> megan fox naked pictures </a> , <a href="http://paris-hilton-sex-tape.com "> paris hilton </a>
As part of her promotional duties for her upcoming film, Jennifer뭩 Body, in which she plays a hot, evil cheerleader who kills her male classmates, Megan Fox stars in this adorable PSA. I뭭e said it before and I뭠l say it again: I don뭪 like horror flicks, but I뭢 excited for this movie. It feels like it뭩 going to be just campy enough to be wonderful. megan fox naked video
<a href="http://plone.org/author/jblackjms "> megan fox naked pictures </a>
I was raised in the South, in Tennessee, so I뭢 going to go with comfort food, soul food. I would probably start with collard greens and candied baby carrots and then have some biscuits and white gravy뾞nd for dessert, probably blackberry cobbler. Having been in a relationship since I was 18, I뭢 very domestic, but I don뭪 enjoy cooking for myself megan fox naked photos
<a href="http://paris-hilton-sex-tape.com/2010/08/15/megan-fox-naked "> megan fox naked videos </a>
Click on the thumbs for the full picture and admire her heavenly behind in great detail. Visit meganfoxnaked.org and get swamped with tons of naked Megan Fox photos and videos. The site is a horndog뭩 Megan Fox fantasies come true. megan fox naked pics
Chance (2010-08-24 13:29:24)
it is all about keeping it real =]
Grinuifidlina (2010-08-26 15:18:51)
<a href="http://forum.ea.com/eaforum/posts/list/0/1899769.page#7542335">BUY KAMAGRA</a>
<a href="http://forum.ea.com/eaforum/posts/list/0/1899769.page#7542335">BUY KAMAGRA</a>

<a href="http://forum.ea.com/eaforum/posts/list/0/1899769.page#7542335">BUY KAMAGRA</a>

<a href="http://forum.ea.com/eaforum/posts/list/0/1899769.page#7542335">BUY KAMAGRA</a>

<a href="http://forum.ea.com/eaforum/posts/list/0/1899769.page#7542335">BUY KAMAGRA</a>

<a href="http://forum.ea.com/eaforum/posts/list/0/1899769.page#7542335">BUY KAMAGRA</a>

<a href="http://forum.ea.com/eaforum/posts/list/0/1899769.page#7542335">BUY KAMAGRA</a>

<a href="http://forum.ea.com/eaforum/posts/list/0/1899769.page#7542335">BUY KAMAGRA</a>

<a href="http://forum.ea.com/eaforum/posts/list/0/1899769.page#7542335">BUY KAMAGRA</a>

<a href="http://forum.ea.com/eaforum/posts/list/0/1899769.page#7542335">BUY KAMAGRA</a>

<a href="http://forum.ea.com/eaforum/posts/list/0/1899769.page#7542335">BUY KAMAGRA</a>
accinfend (2010-08-28 19:44:14)
<a href=http://thesecretstofarmville.com>Farmville Cheats</a>
Enlirldal (2010-08-31 21:46:41)
<a href="thesecretstofarmville.com">FARMVILLE CHEATS</a>
thychomoSoP (2010-09-01 11:03:42)
<a href=http://choicemeds.info>buy xenical</a>
cozyoxync (2010-09-01 15:31:07)
<a href=http://buythorazine.info>Buy Thorazine</a>
<a href=http://buyflexiril.info>Buy Flexiril</a>
<a href=http://buy-famvir.info>Buy Famvir</a>
<a href=http://buy-flomax.info>Buy Flomax</a>
<a href=http://buy-seroquel-1.info>Buy Seroquel</a>
<a href=http://buydexamethasone.info>Buy Dexamethasone</a>
<a href=http://choicemeds.info>Buy Xenical</a>
sonneandgone (2010-09-02 16:10:07)
Cool site I enjoyed reading your information

<a href=http://partyopedia.com>birthday party supplies</a>
Parfume (2010-09-03 19:54:27)
Just dropping a a hello message from lars parfume at <a href="http://www.billig-parfume.info">Parfume</a>
AlbertAL (2010-09-04 12:12:03)
Hello.
test
And Bye.

    








82   [PERL] Deprecated: Function eregi() is deprecated 에러 수정 스크립트  hakkoo 2010/08/04 290
81   [PERL] Perl script to monitor disk space and send an email [2]  hakkoo 2008/01/16 2232
80   [PERL] Perl DBI 모듈 예제 [1]  hakkoo 2006/03/15 3104
79   [PERL] qmail-remote 인터셉트 (발송로그 만들기)  hakkoo 2005/10/03 2882
78   [PERL] 원격 모니터링 [12]  hakkoo 2005/08/25 2998
77   [PERL] 메일 릴레이 점검  hakkoo 2005/08/04 2730
76   [PERL] Using Regular Expression  hakkoo 2005/02/05 2643
75  비밀글입니다 [PERL] B/D에 arp 패킷을 보내 mac 정보 갱신  hakkoo 2004/11/24 22
74   [PERL] SYN_Flooding 공격을 감지  hakkoo 2004/10/22 2649
73  비밀글입니다 [PERL] ip_alive.pl  hakkoo 2004/10/13 20
72  비밀글입니다 [PERL] technote_patch.pl  hakkoo 2004/10/09 18
71  비밀글입니다 [PERL] technote_id_search.pl  hakkoo 2004/10/07 8
70  비밀글입니다 [PERL] vuserinfo.pl  hakkoo 2004/08/24 24
69   [PERL] ☆ CPAN module로 인스톨 바로하기  hakkoo 2004/07/29 2654
68   [PERL] Net::Telnet 모듈  hakkoo 2004/07/09 2557
  [PERL] 여러개의 배열이나 해쉬 반환하기(서브루틴) [18]  hakkoo 2004/06/15 3360
66   [PERL] CGI 환경 변수  hakkoo 2004/06/15 2716
65   [PERL] 서브루틴 작성 및 호출법  hakkoo 2004/06/15 2513
64   [PERL] ★ 파일 입출력 및 관리  hakkoo 2004/06/15 2711
63   [PERL] HTML 문장 출력하기  hakkoo 2004/06/14 2458

1 [2][3][4][5]
 

Copyright 1999-2010 / skin by sattonari