µ¥ÀÌÅÍ :: ResultShelper.°á°ú ¼¼Æ®¸¦ Á¤·Ä, ÆäÀÌÁö °áÇÕ ¹× Ç¥½ÃÇÏ´Â µ¥ µµ¿òÀ̵Ǵ Perl ¸ðµâ | |
Áö±Ý ´Ù¿î·Îµå |
µ¥ÀÌÅÍ :: ResultShelper. ¼øÀ§ ¹× ¿ä¾à
±¤°í
- ƯÇã:
- Perl Artistic License
- °¡°Ý:
- FREE
- °Ô½ÃÀÚ À̸§:
- Earl Cahill
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~earl/
µ¥ÀÌÅÍ :: ResultShelper. ű×
µ¥ÀÌÅÍ :: ResultShelper. ¼³¸í
°á°ú ¼¼Æ®¸¦ Á¤·Ä, ÆäÀÌÁö °áÇÕ ¹× Ç¥½ÃÇÏ´Â µ¥ µµ¿òÀ̵Ǵ Perl ¸ðµâ Data :: ResultShelper´Â ArrayÀÇ ¹è¿·Î »ý°¢ÇÒ ¼öÀÖ´Â °á°ú¸¦ Ç¥½ÃÇÏ´Â µ¥ µµ¿òÀ̵Ǵ Perl ¸ðµâÀÔ´Ï´Ù. Ãß°¡ °³¹ßÀÚ Commentsi ±¸Á¶ °á°ú¸¦ È£ÃâÇϽʽÿÀ. ¿¹Á¦°¡ ¸¹°í ´õ ¸¹Àº ÀÏÀ»ÇÒ¼ö·Ï ¿¹¸¦ º¸´Â °ÍÀÔ´Ï´Ù. °Ë»ö °á°ú, ÁÖ½Ä Æ¼Ä¿ °ßÀû, À̸ÞÀÏ ¸Þ½ÃÁö ¿ä¾à, µð·ºÅ丮 ¸ñ·Ï, SQL Äõ¸® °á°ú,ÀÌ°Ô ´õ ÈξÀ ´õ! µ¥ÀÌÅÍ :: ResultShelper´Â °á°ú¸¦ °¡Á® ¿Í¼ ¸ÚÁö°Ô Á¶Á÷ µÈ Çؽà Ref¸¦ º¯°æÇÏ¿© ÅÛÇø´ :: ÅøŶ ¶Ç´Â Like.ExampleÀ» »ç¿ëÇÏ¿© Ãâ·Â µÉ ¼ö ÀÖ½À´Ï´Ù. ¾Æ·¡ ¿¹Á¦¿¡¼´Â data :: ResultShelper :: HTML. Data :: ResultShelper´Â ÀϹÝÀûÀ¸·Î °á°ú¸¦ ¾òÀ» ¼öÀÖ´Â ÀϹÝÀûÀÔ´Ï´Ù. CSV ÆÄÀÏ, XML µî¿¡´Â µ¥ÀÌÅÍ :: ResultShelper :: HTML Perldoc¿¡ ´ëÇÑ ÀÚ¼¼ÇÑ ³»¿ëÀ» ÂüÁ¶ÇϽʽÿÀ. ³ª´Â ´Ü¼øÈ÷ $ self-> {°á°ú}¸¦ ¼³Á¤ÇÏ´Â generate_results ¸Þ¼Òµå¸¦ ÀÛ¼ºÇϱ⠸¸ÇϸéµË´Ï´Ù. $ self-> {set_cookie}°¡ trueÀÌ¸é °á°ú ÁýÇÕÀ» ij½ÃÇÏ·Á°í ½ÃµµÇÕ´Ï´Ù. ÀÌ °æ¿ì generate_results´Â ½Å¼±ÇÑ °á°ú¸¦ »ý¼ºÇϱâ À§Çؼ¸¸ È£ÃâµË´Ï´Ù. #! / usr / bin / perl -w´Â ¾ö°ÝÇÏ°Ô »ç¿ëÇÕ´Ï´Ù. {MY $ self = helper-> new ({result_dir => / tmp / stuff ',}); Àμâ "Content-Type : Text / HTML \ N \ N"; $ self-> results2html Àμâ; } ÆÐÅ°Áö µµ¿ì¹Ì; ¾ö°ÝÇÑ »ç¿ë; µ¥ÀÌÅÍ :: ResultShelper :: HTML; ±âº» QW (data :: ResultShelper :: HTML)¸¦ »ç¿ëÇϽʽÿÀ. Sub Generate_Results {My $ self = shift; ³» $ dir = shift || $ self -> {Results_dir}; MY $ °á°ú = ,]; ÆÄÀÏ :: ã±â Çʼö; file :: find :: find (sub {my $ fullPath = $ file :: find :: name = $ file :: find :: name; my $ dir = $ file :: find :: dir; my @stat = sat) $ fullpath; ($ fullpath = ~ /^ \.\.?$/)À» ¹ÝȯÇÕ´Ï´Ù. (-D _); @ {$ °á°ú}, , $ stat ];}, $ dir); $ self -> {°á°ú} = $ °á°ú; } ¿ä±¸ »çÇ× : ¡¤ Perl.
µ¥ÀÌÅÍ :: ResultShelper. °ü·Ã ¼ÒÇÁÆ®¿þ¾î