Metin :: Makrolar

Nesneye Yönelik Metin Makro Motoru
Şimdi İndirin

Metin :: Makrolar Sıralama ve Özet

Reklamcılık

  • Rating:
  • 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