| Metin :: Makrolar Nesneye Yönelik Metin Makro Motoru |
Şimdi İndirin |
Metin :: Makrolar Sıralama ve Özet
- Lisans:
- Perl Artistic License
- Yayıncı adı:
- John Douglas Porter
- yayıncı web sitesi:
- http://search.cpan.org/~jdporter/
Metin :: Makrolar Etiketler
Metin :: Makrolar Açıklama
Nesneye yönelik bir metin makro motoru Metin :: macros.pm bir perl nesne yönelimli metin makro motorudur. Tipik kullanım şebeke gibi görünebilir: benim $ şablon = $ hesap_num); # Bir makro genişletici olun: $ MACRO_EXPANDER = Metin :: Makrolar-> Yeni ("\ q ]"); # Şablondaki makroları genişletin: $ e-posta_text = $ macro_expander-> expand_macros ($ Data_Object, $ Şablon); Bunu desteklemek için, makro olarak kullanılacak yöntemleri tanımlaması gereken bir "veri nesnesi" var olması gerekir. isimler, örneğin Böyle: Paket RecordObject; Alt RecipienMail {$ _ -> {'RecipienMail'}} alt senderemail {$ _ -> {'SendereMail'}} alt hesapNum {$ _ -> {'Accountnum'}} alt alıcı adı {$ _ -> {'REFIENTIENTNAME'}} SUB ÖDEMELERİ {$ _ -> {'ÖdemeArtAount'}} alt dayspastDue {$ _ -> {'dayspastDue'}} Alternatif olarak, veriler Nesne sınıfı, örneğin şöyle: Paket kayıtObject; alt autoload {$ benlik = vardiya; $ isim = $ autoload; $ İsim = ~ s /.* :: //; $ öz -> {$ name}} Bu durumda, makro genişletici, aramalar tarafından işlenebilse de, aramalar için başarısız olabileceklerinden, çünkü makro ocakları, makro isimlerinin nesne için geçerli olduğunu iddia etmemelidir. Otomatik yükleme. Bunu yapmak için, yapıcıya üçüncü değer için gerçek bir değer geçirin: $ MACRO_EXPANDER = Metin :: Makros-> Yeni ("\ q ]", 1); Makrolar argüman alabilir. Makro metninden sonra makro metnin içinde meydana gelen herhangi bir dizgiyi makro yöntem çağrısına argüman olarak iletilecektir. Varsayılan olarak, makro adı ve herhangi bir argüman yeni hatlar ile ayrılmıştır. Bu davranışı geçersiz kılar; Aşağıdaki Parse_Args'in belgelendirilmesine bakın. # şiirsel: $ MACRO_EXPANDER = yeni metin :: makrolar qw ({{}}); $ Text = expand_macros $ MACRO_EXPANDER $ DATA_OBJECT, $ METİN; # gürültülü: $ MACRO_EXPANDER = Metin :: Makrolar-> Yeni ("\ \ q ]", 1); Yazdır $ MACRO_EXPANDER-> EXPAND_MACROS ($ DATA_OBJECT, $ metin); Gereksinimler: · Perl
Metin :: Makrolar İlgili Yazılım