תרמיל :: htmleasy. pod :: htmleasy perl מודול יכול ליצור HTML מותאם אישית של תרמילים.
הורד עכשיו

תרמיל :: htmleasy. דירוג וסיכום

תרמיל :: htmleasy. תגים

HTML. פרל מודול גֵנֵרָטוֹר להפיק נתונים HTML אישית HTML

תרמיל :: htmleasy. תיאור

Pod :: HtmlEasy Perl מודול יכול ליצור אישית HTML מן התרמילים. Pod :: HtmlEasy Perl מודול יכול ליצור אישית HTML מן התרמילים. כברירת מחדל ה- HTML שנוצר דומה לסגנון האתר CPAN לשימוש documentation.SYNOPSISSimple מודול: שלי $ podhtml = Pod :: HtmlEasy-> חדשות (); שלי $ html = $ podhtml-> pod2html ( 'test.pod'); להדפיס "$ htmln"; שימוש מלא: שימוש Pod :: HtmlEasy; צור אובייקט וצוללות אירועים מקומיים להגדיר: שים לב שאלו הן כל האירועים, וכן דוגמאות כיצד ליישם אותם. כול האירועים הללו, כמובן, כבר מיושמים, כך שאם הפעולות ספקו מספיקות, אין צוללות מקומיות נדרשות. יישום בפועל של on_head1 הוא קצת יותר מורכב, כדי לספק לצורך זיהוי של כותרת מודול ואת החדרת uparrow. שלי $ podhtml = Pod :: HtmlEasy-> חדשות (on_B => תת {שלי ($ זו, $ txt) = @_; בתמורה " $ txt ";}, on_C => תת {שלי ($ זו, $ txt) = @_; בתמורה " txt $ ";}, on_E => תת {שלי ($ זו, $ txt) = @_; $ txt = ~ s {^} {} SMX; $ txt = ~ s {; $} {} SMX; $ txt = QQ {# $ txt} אם $ txt = ~ / ^ ד + $ /; QQ החזרה {$ txt ;};}, on_F => תת {שלי ($, זה $ txt) = @_; בתמורה " txt $ ";}, on_I => תת {שלי ($ זו, $ txt) = @_; בתמורה " txt $ ";}, on_L => תת {(שלי זה $, $ L, $ text, $ דף, סעיף $, סוג $ =) @_; אם ($ סוג EQ 'תרמיל') {$ סעיף = מוגדר בסעיף $ "# סעיף $":? ''; הדף $ = '' אלא אם כן מוגדר $ דף; בתמורה " $ text ";} elsif ($ סוג EQ 'גבר') {return" $ text ";} elsif (סוג $ EQ 'url') {return " $ text ";}}, on_S => תת {שלי ( $, זה $ txt) = @_; $ txt = ~ s / n / / GS; בתמורה $ txt;}, על _X => תת {return ''; }, On_Z => תת {return ''; }, On_back => תת {שלי $ זה = משמרת; לחזור "

NL $"; }, On_begin => תת {$ שלי = זו המשמרת; שלי ($ txt, $ a_name) = @_; זה- $> {IN_BEGIN} = 1; לחזור ""; }, On_error => תת {שלי ($ זו, $ txt) = @_; QQ החזרה {<-pod_error:! txt $->}; }, On_end => תת {$ שלי = זו המשמרת; שלי ($ txt, $ a_name) = @_; למחוק את זה- $> {IN_BEGIN}; לחזור ""; }, On_for => תת {return '';}, on_head1 => תת {שלי ($, זה $ txt, $ a_name) = @_; QQ החזרה {

$ txt

$ NL $ NL}; }, On_head2 => תת {שלי ($ זו, $ txt, $ a_name) = @_; QQ החזרה {

$ txt

$ NL $ NL}; }, On_head3 => תת {שלי ($ זו, $ txt, $ a_name) = @_; QQ החזרה {

$ txt

$ NL $ NL}; }, On_head4 => תת {שלי ($ זו, $ txt, $ a_name) = @_; QQ החזרה {

$ txt

$ NL $ NL}; }, On_include => תת {שלי ($ זו, $ קובץ) = @_; QQ החזרה {./$ קובץ}; }, On_item => תת {שלי ($ זו, $ txt) = @_; QQ החזרה {

$ txt

NL $}; }, On_index_node_start => תת {שלי ($ זו, $ txt, $ a_name, $ has_children) = @_; שלי $ מיל = QQ {

$ txt $ NL}; מיל $ = q {$ NL

$ NL} אם $ has_children.; לחזור $ מיל; }, On_index_node_end => תת {$ שלי = זו המשמרת; שלי ($ txt, $ a_name, $ has_children) = @_; שלי $ מיל = $ has_children? q {
}: $ ריקים; לחזור $ מיל; }, On_over => תת {שלי ($ זו, $ רמה) = @_; QQ החזרה {
NL $? - }, On_textblock => תת {שלי ($ זו, $ txt) = @_; לחזור אם קיים זה- $> {IN_BEGIN}; QQ החזרה {

$ txt

$ NL}; }, On_uri => תת {שלי ($ זו, $ אורי) = @_; QQ החזרה { $ אורי {; }, On_verbatim => תת {שלי ($ זו, $ txt) = @_; txt $ = ~ s {(A $ NL) * (A $ NL) z} {} gsmx; לחזור "" אלא אם txt אורך $; QQ החזרה {

 $ txt 
 NL $}; },); ## המרת HTML: שלי $ html = $ podhtml-> pod2html ( 'test.pod', 'test.html', title => 'POD :: מבחן', הגוף => {bgcolor => '#CCCCCC'} , css => 'test.css',); דרישות: · דרישות Perl: · פרל 
 
 
 
 תרמיל :: htmleasy. תוכנה קשורה