| ³ØŸÀÌ :: ÆÄÀÏ TIE :: FILEÀº PERL ¹è¿À» ÅëÇØ µð½ºÅ© ÆÄÀÏÀÇ Çà¿¡ ¾×¼¼½º ÇÒ ¼ö ÀÖ½À´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
³ØŸÀÌ :: ÆÄÀÏ ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Mark Jason Dominus
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~mjd/
³ØŸÀÌ :: ÆÄÀÏ Å±×
³ØŸÀÌ :: ÆÄÀÏ ¼³¸í
³ØŸÀÌ :: ÆÄÀÏÀº Perl ¹è¿À» ÅëÇØ µð½ºÅ© ÆÄÀÏÀÇ Çà¿¡ ¾×¼¼½º ÇÒ ¼ö ÀÖ½À´Ï´Ù. TIE :: FILEÀº PERL ARARY.SNOPSIS #ÀÌ ÆÄÀÏ ¹®¼ TIE :: FILE ¹öÀü 0.96 TIE :: FILE; @ array, 'tie :: file', filename ¶Ç´Â die ... $ ARRAY = 'BLAH'; # LINE 13 ÆÄÀÏÀÇ 'BLAH'Àμâ $ ¾îAR ; # $ n_recs = @ArrayÀÇ ÆÄÀÏ 42 Ç¥½Ã; # ÆÄÀÏ¿¡ ¸î °³ÀÇ ·¹Äڵ尡 ÀÖ½À´Ï±î? $ # ¹è¿ - = 2; # (@ARRAY) {S / PERL / PERL / g¿¡ ´ëÇÑ µÎ °³ÀÇ ·¹Äڵ带 ÀÚ¸¨´Ï´Ù. # ÆÄÀÏÀÇ ¸ðµç °÷¿¡¼ Perl·Î PerlÀ» ¹Ù²ß´Ï´Ù. # ÀÌ°ÍÀº Á¤±âÀû ÀΠǪ½Ã, ÆË, unshift, shift ¹× splice #¿Í °°½À´Ï´Ù. @ array, »õ·Î¿î Recs ...; ³» $ r1 = @ array; unshift @ array, »õ·Î¿î recs ...; MY $ R2 = SHIFT @ARRAY; @old_recs = SPLICE @array, 3, 7, »õ·Î¿î Recs ...; @ array; # all finishedtie :: fileÀº ÀÏ¹Ý ÅؽºÆ® ÆÄÀÏÀ» Perl ¹è¿·Î ³ªÅ¸³À´Ï´Ù. ¹è¿ÀÇ °¢ ¿ä¼Ò´Â ÆÄÀÏÀÇ ·¹Äڵ忡 ÇØ´çÇÕ´Ï´Ù. ÆÄÀÏÀÇ Ã¹ ¹ø° ÁÙÀº ¾î·¹ÀÌÀÇ ¿ä¼Ò 0ÀÔ´Ï´Ù. µÎ ¹ø° ÁÙÀº ¿ä¼Ò 1ÀÌ°í, ÀÌ´Â ÆÄÀÏÀÌ ¸Þ¸ð¸®¿¡·ÎµåµÇÁö ¾ÊÀ¸¹Ç·Î °Å´ëÇÑ ÆÄÀÏ¿¡µµ ÀÛµ¿ÇÕ´Ï´Ù. ¹è¿ÀÇ º¯°æ »çÇ×Àº Áï½Ã ÆÄÀÏ¿¡ ¹Ý¿µµË´Ï´Ù. °ÔÀ¸¸¥ »ç¶÷°ú Ãʺ¸ÀÚ°¡ ÀÌÁ¦ ¸Å´º¾óÀ» ÀÐÁö ¸øÇÒ ¼ö ÀÖ½À´Ï´Ù. ¿ä±¸ »çÇ× : ¡¤ Perl.
³ØŸÀÌ :: ÆÄÀÏ °ü·Ã ¼ÒÇÁÆ®¿þ¾î