| ÆÄÀÏ :: VMSVMS.s. ¹öÀü °ü¸®¿Í °°Àº VMÀÌÀÖ´Â µð·ºÅ丮¿¡¼ ÆÄÀÏ ¿±â¸¦À§ÇÑ Perl È®ÀåÀÚ |
Áö±Ý ´Ù¿î·Îµå |
ÆÄÀÏ :: VMSVMS.s. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Thomas Kratz
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~tomk/
ÆÄÀÏ :: VMSVMS.s. ű×
ÆÄÀÏ :: VMSVMS.s. ¼³¸í
¹öÀü °ü¸®¿Í °°Àº VMÀÌÀÖ´Â µð·ºÅ丮¿¡¼ ÆÄÀÏ ¿±â¸¦À§ÇÑ Perl È®Àå ÆÄÀÏ :: VMSVMSions´Â µð·ºÅ丮¿¡ÀÖ´Â ÆÄÀÏÀÇ ÀÚµ¿ ¹öÀü °ü¸®¸¦ À¯ÁöÇϱâ À§ÇØ °³¹ß µÈ Perl ¸ðµâÀÔ´Ï´Ù. ÆÄÀÏÀ» ¿ ¼öÀÖ´Â ¸ðµâÀÇ ·çƾÀ» »ç¿ëÇÏ´Â °æ¿ì ±¸¼º °¡´ÉÇÑ ¾çÀÇ ÀÌÀü ¹öÀüÀ» À¯ÁöÇÕ´Ï´Ù. ÀÌ ¹öÀüÀº ¼¼¹ÌÄÝ·Ð (i. e. 'myFile.dat; 7') ÈÄ¿¡ ÆÄÀÏ À̸§ÀÇ ³¡¿¡ Ãß°¡µÇ´Â ¼ýÀÚ·Î ½Äº°µË´Ï´Ù. µð·ºÅ丮¿¡ ´ëÇÑ ±¸¼ºµÈ ¿É¼ÇÀº '.vcntl'ÆÄÀÏ¿¡ ÀúÀåµË´Ï´Ù. ¿É¼Ç¿¡ µû¶ó »õ »ý¼ºÀÚ ¶Ç´Â Config ¸Þ¼µå°¡ È£Ãâ µÉ ¶§ ¿¸° ¸Þ¼Òµå°¡ È£ÃâµÇ°í ±â·Ï µÉ ¶§¸¶´Ù ÀнÀ´Ï´Ù. VCNTL 'Àº ÇÑ°è¿Í ¸ðµå°¡'# '·Î ±¸ºÐ µÈ ¸ðµå·Î ±¸¼ºµË´Ï´Ù. ¿¹ : 20 # ÀÏ 10 # ¹öÀüÀº '.vcntl'¼öÁ¤À» ÆíÁýÇÏ´Â °ÍÀÌ ÁÁ½À´Ï´Ù. ÆÄÀÏ :: VMSVERSINS; MY $ VDIR = FILE :: VMSVERSIONS-> NEW (-NAME => "./MYDIR", -MODE => ¹öÀü ', -LIMIT => 3); ³» $ i (1..6) {my ($ fh, $ fn) = $ Vdir-> ¿±â ( 'bla.dat', '>'); $ fnÀÌ ¾Æ´Ï¶ó¸é $ fnÀ» Á×½À´Ï´Ù. $ FH "ÆÄÀÏ ¹øÈ£ $ i \ n"À» ÀμâÇϽʽÿÀ; Àμâ "»ý¼º µÈ $ fn \ n"; $ fh-> ´Ý±â; } ÀÌÁ¦´Â ./mydir : ./mydir : .vcntl bla.dat; lck bla.dat; 4 bla.dat; 5 bla.dat; 6 ¿ä±¸ »çÇ× : ¡¤ Perl.
ÆÄÀÏ :: VMSVMS.s. °ü·Ã ¼ÒÇÁÆ®¿þ¾î