| Perf :: Arm. PERF :: ARMÀº ARM 2.0 ±¸ÇöÀ»À§ÇÑ PERL È®Àå ·¡ÆÛÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
Perf :: Arm. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Bryan Backer
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~bbacker/Perf-ARM-0.04/ARM.pm
Perf :: Arm. ű×
Perf :: Arm. ¼³¸í
PERF :: ARMÀº ARM 2.0 ±¸ÇöÀ»À§ÇÑ Perl È®Àå ·¡ÆÛÀÔ´Ï´Ù. Perf :: ArmÀº ARM 2.0 ±¸ÇöÀ»À§ÇÑ Perl È®Àå ·¡ÆÛÀÔ´Ï´Ù .Synopsis´Â Perf :: ARMÀ» »ç¿ëÇÕ´Ï´Ù. My ($ appl_id, $ tran_handle, $ tran_id, $ rc); ($ appl_id = perf :: ARM :: arm_init ( "$ 0", "*", 0,0,0)) || "arm_init () ½ÇÆÐ"; $ tran_id = perf :: ARM :: arm_getid ($ appl_id, "simple_tran", "detail _ $$", 0,0,0); $ tran_handle = perf :: ARM :: ARM_START ($ tran_id, 0,0, 0); # do_my_work (@my_args) $ rc = perf :: ARM :: arm_stop ($ tran_handle, 0, 0,0,0); $ rc = perf :: ARM :: ARM_END ($ APPL_ID, 0,0,0); ÀÌ°ÍÀº ARM C ·çƾ ÁÖÀ§ÀÇ °£´ÜÇÑ ·¡ÆÛ ¿ªÇÒÀ»ÇÕ´Ï´Ù : ARM_INIT (char *, char *, long, char *, long); arm_getid (Long, Char *, Char *, Long, Char *, Long); ARM_START (LONG, LONG, CHAR *, LONG); arm_update (long, long, char *, long); arm_stop (±æ°í ±ä, char *, long); ARM_END (LONG, LONG, CHAR *, LONG); ³» º¸³½ ±â´É, ARMÀÌ extern arm_int32_t arm_init (char * appl_name, char * appl_user_id, arm_int32_t Ç÷¡±×, char * µ¥ÀÌÅÍ, arm_int32_t data_size); extern arm_int32_t arm_getid (arm_int32_t appl_id, char * tran_name, char * tran_detail, arm_int32_t Ç÷¡±×, char * µ¥ÀÌÅÍ, arm_int32_t data_size); extern arm_int32_t arm_start (arm_int32_t tran_id, arm_int32_t Ç÷¡±×, char * µ¥ÀÌÅÍ, arm_int32_t data_size); extern arm_int32_t arm_update (arm_int32_t start_handle, arm_int32_t Ç÷¡±×, char * µ¥ÀÌÅÍ, arm_int32_t data_size); extern arm_int32_t arm_stop (arm_int32_t start_handle, arm_int32_t tran_status, arm_int32_t Ç÷¡±×, char * µ¥ÀÌÅÍ, arm_int32_t data_size); extern arm_int32_t arm_end (arm_int32_t appl_id, arm_int32_t Ç÷¡±×, char * µ¥ÀÌÅÍ, arm_int32_t data_size); ¿ä±¸ »çÇ× : ¡¤ Perl.
Perf :: Arm. °ü·Ã ¼ÒÇÁÆ®¿þ¾î