| Plotcalendar :: Meann. PLOTCALENDAR :: MENTH´Â ASCII ¶Ç´Â HTML ´Þ·ÂÀ» Ç÷ÔÇÕ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
Plotcalendar :: Meann. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Alan Jackson
Plotcalendar :: Meann. ű×
Plotcalendar :: Meann. ¼³¸í
PlotCalendar :: MeannÀº ASCII ¶Ç´Â HTML Ķ¸°´õ¸¦ Ç÷ÔÇÕ´Ï´Ù. PlotCalendar :: MeannÀº ASCII ¶Ç´Â HTML Calendar¸¦ Ç÷ÔÇÕ´Ï´Ù. ASCII, HTML ¶Ç´Â PERL / TK ĵ¹ö½º·Î Ç÷ÎÆÃÇϱâÀ§ÇÑ ¿ù ¿ÀºêÁ§Æ®°¡ ÀÖ½À´Ï´Ù. Calendar.MeasuresmentsÀÇ °³º° ³¯Â¥ÀÇ °æ¿ì Day.pmÀ» Çȼ¿ ´ÜÀ§·Î È£ÃâÇÕ´Ï´Ù. ¿Ö³ÄÇϸé. °áÁ¤À» ³»¸± ¶§ ´õ °£´Ü ÇØ º¸¿´½À´Ï´Ù. ±×¸®°í ±×°ÍÀº TK¿Í HTML ¸ðµÎ¿¡¼ ÀÛµ¿ÇÕ´Ï´Ù. ¿ùÀº ´ÙÀ½°ú °°ÀÌ Çس³´Ï´Ù : month_name ³â ------------------------------------------------- -------------------------------- | žç | ¸ó½ºÅÍ | È¿äÀÏ | ¼ö¿äÀÏ | Thu | ±Ý | Åä | ---------------------------------------------------------------------------------) ------------- | | | | | | | | | ÀÏ | ÀÏ | | | | | | | | | | | | | | | -------- | -------- | -------- | ------- | -------- | ------ ---- | --------- | | | | | | | | | | ÀÏ | ÀÏ | | | | | | | | | | | | | | | -------- | -------- | -------- | ------- | -------- | ------ ---- | --------- | | | | | | | | | | ÀÏ | ÀÏ | | | | | | | | | | | | | | | -------- | -------- | -------- | ------- | -------- | ------ ---- | --------- | | | | | | | | | | ÀÏ | ÀÏ | | | | | | | | | | | | | | | -------- | -------- | -------- | ------- | -------- | ------ ---- | --------- | | | | | | | | | | ÀÏ | ÀÏ | | | | | | | | | | | | | | | -------- | -------- | -------- | ------- | -------- | ------ ---- | --------- | | | | | | | | | | ÀÏ | ÀÏ | | | | | | ¼±Åà »çÇ× | | | | | | | | Çà | -------- | -------- | -------- | ------- | -------- | ---- ----- | -------- | | Àü¿ª : ³ôÀÌ, ³Êºñ, fgcol, bgcolmain, Àüü ÀÏÀÌ ¶Ç´Â the ¼ÒÇÁÆ®¿þ¾î´Â ¿Ã¹Ù¸¥ Spot.Example¿¡¼ ·Î Á¾·áµË´Ï´Ù. PlotCalendar :: MeannÀÌ ÇÊ¿äÇÕ´Ï´Ù. My $ ¿ù = PlotCalendar :: Month-> New (01,1999); # 1 ¿ù 1999 ³â # ±Û·Î¹ú °¡Ä¡, ¸ðµç ¼¿¿¡ Àû¿ë ------------------------ Àüü ´Þ·ÂÀÇ Å©±â $ ¿ù -> Å©±â (700,700) ...¿¡ # ³Êºñ, ³ôÀÌ Çȼ¿ -------------------------- ¼ýÀÚÀÇ ¼ýÀÚ, ÇÏ·çÀÇ À̸§, ÅؽºÆ® $ ¿ù -> ±Û²Ã ('14 ', '10', '8'); -------------------------- Ŭ¸³ ÅؽºÆ® ·¦À» ¿øÇÑ´Ù¸é? $ ¿ù -> ClipText ( '¿¹'); -------------------------- ÀÌ°ÍÀº ´ç½ÅÀÌ ¿øÇÏ´Â ³¯Â¥ -> ù³¯ ( 'sun'); # ù ¹ø° ¿Àº ÀÏ¿äÀÏ ----------------------- ÀÌ°ÍÀÌ ¼³Á¤µÇÁö ¾ÊÀº °æ¿ì ÀÏ¹Ý ÅؽºÆ®°¡ »ç¿ëµË´Ï´Ù. ------------------------- ¼³Á¤Çϸé ÇØ´ç µð·ºÅ丮°¡ ÀÖ¾î¾ßÇÕ´Ï´Ù ------------- ----------- GIF ÆÄÀÏ 0.GIF, 1.GIF ... $ ¿ù -> ¾ÆÆ®¿÷ ( '/ home / ajackson / public_html / cgi-bin / Ķ¸°´õ) / calendar_art3 / '); # ¹è¿ÀÇ ¹è¿Àº ¸ðµç ¼¿¿¡ Àû¿ëµË´Ï´Ù. ¸ðµç ¼¿¿¡ Array #ÀÌ ¸ÅÀÏ Àε¦½Ì µÈ »ö»óÀº HTML TextStyle ÀÎÄÚµù¿¡¼ »ç¿ëµÇ´Â Ç¥ÁØ °ªÀÌ B = ±½°Ô Ç¥½ÃµË´Ï´Ù. i = italic , u = underline, n = normal fontsize = 6-14, ´ë·« Á¡ÀÌ ³» @text; ³» @daynames; ³» @nameref; ³» @bgcolor; my @colors = ( 'Èò»ö', '# 33cc00', '# ff99ff', '# ff7070', '# ffb0b0',); my (@ textcol, @ textsize, @ textstyle, @ textref); my @style = ( 'i', 'u', 'b',); ³» @url; ----------- ¾î¶² ÀÓÀÇÀÇ »ö»ó°ú ÅؽºÆ® Çʵ带 µ¥¸ð·Î ºôµåÇÕ´Ï´Ù (³ªÀÇ $ i = 1, $ i fgcolor ( 'black',) # ±Û·Î¹ú Àü°æ»ö »ö $ month -> bgcolor (@ BGColor); ÀÏ 1 ÀÏ´ç # ¹è°æ»ö -> ½ºÅ¸ÀÏ ( 'B', 'BI', 'UI', '±Û·Î¹ú ÅؽºÆ® ½ºÅ¸ÀÏ # ´ñ±Û my @prefs = ('ÀÌÀü ','ÈÄ '' ); My @Comments = (, , ); My @comcol = QW (BGB); My @comstyle = QW ( nb bi); My @comsize = qw (81014); ------------------------- ´ñ±Û ´Þ±â´Â ºó ¼¿ $ ¿ù¿¡ ºÙ¾î ÀÖ½À´Ï´Ù. -> ´ñ±Û (@ pref, @ comments, @ comcol, @ comstyle, @ comcol, @ comsize); ------------------------ ÇÖ ¸µÅ©¸¦ Æ÷ÀåÇϽʽÿÀ ÇÏ·ç Á¾ÀÏ ¸ÅÀÏ $ ¿ù -> htmlref (@URL); ------------------------- ¸ÅÀÏ ¸ÅÀÏÀÇ À̸§À» ¼³Á¤ÇϽʽÿÀ - > dayname (@daynames); ------------------------ ÇÖ¶óÀÎ ¸µÅ© $ ¿ù -> NAMEREF (@NAMEREF); -------------------------------------------------------- $ ¿ù -> ÅؽºÆ® (@ ÅؽºÆ®) ¸ÅÀÏ ÅؽºÆ®¿Í ±×°ÍÀÇ ¼Ó¼ºÀ» ¼³Á¤ÇϽʽÿÀ. $ ¿ù -> textcolor (@TextCol ); $ ¿ù -> textsize (@TextSiz. ÀÌÀÚÇü); $ ¿ù -> textstyle (@TextStyle); $ ¿ù -> textref (@textref); # ±Û·Î¹ú HTML Àü¿ë ¿É¼Ç ----------------- ÅؽºÆ®¸¦ ¼öÁ÷À¸·Î È®Àå ÇÒ ¼öÀÖ´Â ÅؽºÆ® $ ¿ù -> htmlexpand ( '¿¹'); # ASCII Ķ¸°´õ¸¦ Àâ°í ³» $ text = $ month -> getascii; $ ÅؽºÆ®¸¦ ÀμâÇϽʽÿÀ; ------------------- HTML Ķ¸°´õ ³» $ html = $ month -> getHTML; Àμâ "
n"; $ htmlÀ» ÀμâÇϽʽÿÀ; ¿ä±¸ »çÇ× : ¡¤ perl ¿ä±¸ »çÇ× : ¡¤ Perl.
Plotcalendar :: Meann. °ü·Ã ¼ÒÇÁÆ®¿þ¾î