| MPE :: FILE. MPE :: FILEÀº MPE ÆÄÀÏ ³»Àå Ç׸ñ¿¡ ¾×¼¼½ºÇϱâÀ§ÇÑ PERL È®ÀåÀÚÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
MPE :: FILE. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~kahirsch/MPE-File-0.06/File.pm
MPE :: FILE. ű×
MPE :: FILE. ¼³¸í
MPE :: FILEÀº MPE ÆÄÀÏ ³»Àå Ç׸ñ¿¡ ¾×¼¼½ºÇϱâÀ§ÇÑ PERL È®ÀåÀÚÀÔ´Ï´Ù. MPE :: FILEÀº MPE ÆÄÀÏ¿¡ ¾×¼¼½ºÇϱâÀ§ÇÑ PERL È®ÀåÀÚÀÔ´Ï´Ù. INTRINSICS.SYNOPSIS MPE :: FILEÀ» »ç¿ëÇϽʽÿÀ. $ file = mpe :: file-> new ( "fred.pub, old; acc = in") ¶Ç´Â die "´Â fred.pub : $ mpe_errorn"À» ¿ ¼ö ¾ø½À´Ï´Ù. ¶Ç´Â $ file = mpe :: file-> hpfopen (2, "fred.pub", 3, 1, 11, 0) ¶Ç´Â Á×À» "fred.pub : $ mpe_errorn"À» ¿ ¼ö ¾ø½À´Ï´Ù. ¶Ç´Â $ file = mpe :: file-> fopen ( "fred.pub", 1, 0) ¶Ç´Â die "fred.pub : $ mpe_errorn"À» ¿ ¼ö ¾ø½À´Ï´Ù. $ rec = $ file-> readrec (); # fread $ rec = $ file-> freadbykey ($ Å°, $ keyloc) ´ë½Å ÀÌ°ÍÀ» »ç¿ëÇϽʽÿÀ. $ REC = $ FILE-> Freadlabel (); $ rec = $ file-> freaddir ($ lrecnum); $ rec = $ file-> freadc (); $ file-> fread ($ ¹öÆÛ, $ bufsize); $ FILE-> WRITEREC ($ ¹öÆÛ, ) # FWRITE # ´ë½Å ÀÌ°ÍÀ» »ç¿ëÇϽʽÿÀ (REC ³¡¿¡ 'n'À» Æ÷ÇÔÇÏÁö ¸¶½Ê½Ã¿À) $ FILE-> Àμâ ($ a, $ b, $ c); $ FILE-> PRINTF ($ FMT, $ a, $ b, $ c); # (recÀÇ ³¡¿¡ 'n'À» Æ÷ÇÔÇÏÁö ¸¶½Ê½Ã¿À) $ file-> fupdate ($ ¹öÆÛ); $ file-> fwritedir ($ ¹öÆÛ, $ lrecnum); $ FILE-> FWRITELABEL ($ ¹öÆÛ, ) $ FILE-> FWRITE ($ ¹öÆÛ, $ ±æÀÌ, $ CONTROLCODE) $ FILE-> FPOIT ($ LRECNUM); $ file-> fcontrol ($ itemnum, $ Ç׸ñ); $ FILE-> FDELETE (); $ file-> fsetmode ($ modeflags); $ file-> fremove (); $ FILE-> FGETKEYINFO ($ param, $ ÄÁÆ®·Ñ); $ file-> ffindbykey ($ value, $ location, $ lenge, $ relop); $ file-> printfileinfo (); $ rec = $ file-> iowait (); ¶Ç´Â $ rec = iowait (0); ±×·± ´ÙÀ½ LastWaitFileNum ()À» È£ÃâÇÏ¿© ÆÄÀÏ ¹øÈ£¸¦ ¾òÀ¸·Á¸é $ REC-> MPE_FILENO¸¦ »ç¿ëÇϸé LastWaitFilenum () MPEPrint ( "Rec")¿Í ºñ±³ÇؾßÇÕ´Ï´Ù. MPE Intrinsic Print ()¸¦ È£ÃâÇÕ´Ï´Ù (Perl Print´Â STDOUTÀÌ ¿øÇü ÆÄÀÏ, MSG ÆÄÀÏ, ...) PRINTOP ($ MSG)ÀÔ´Ï´Ù. $ rec = printopreply ($ msg); @info = $ file-> ffileinfo (1, 3, 7, 9); @info = flabelinfo ( "fred.pub", $ mode, 1, 3, 7, 9); ¿À·ù°¡ÀÖ´Â °æ¿ì ºó ¸ñ·ÏÀÌ ¹ÝȯµÇ°í $ mpe_error ¹× @mpe :: file :: itemError¸¦ È®ÀÎÇϽʽÿÀ $ errmsg = fermsg ($ fserrcode); hperrmsg ($ displaycode, ...) ¿ä±¸ »çÇ× : ¡¤ Perl.
MPE :: FILE. °ü·Ã ¼ÒÇÁÆ®¿þ¾î