Scraper :: USPS :: ZIPLOKUP

ABD Posta adreslerini standartlaştırın
Şimdi İndirin

Scraper :: USPS :: ZIPLOKUP Sıralama ve Özet

Reklamcılık

  • Rating:
  • Lisans:
  • Perl Artistic License
  • Fiyat:
  • FREE
  • Yayıncı adı:
  • Gregor N. Purdy
  • yayıncı web sitesi:
  • http://search.cpan.org/~gregor/

Scraper :: USPS :: ZIPLOKUP Etiketler


Scraper :: USPS :: ZIPLOKUP Açıklama

Amerika Birleşik Devletleri Posta Servisi (USPS), bir adresini standartlaştırmak için http://www.usps.com/zip4/ adresinde bir HTML formunda bir HTML formunda bulunur. Bir firma, kentleşme, sokak adresi, şehir, eyalet ve zip göz önüne alındığında, adresi standart forma koyacaktır (adresin veritabanlarında bulunması şartıyla) ve ortaya çıkan adres ile bir sayfa görüntüleyecektir. Bu hizmete programatik bir arayüz sağlayan bir Perl modülü, böylece tüm kişisel adres defterinizi el ile formun içine el ile yazmak zorunda kalmadan işlemek için bir program yazabilirsiniz. USPS, bu işlevi herhangi bir zamanda değiştirebilir veya kaldırabilir, Bu kodun çalışamayacağı olasılığı için hazırlıklı olun. Aslında, bu sürümden itibaren, yerinde bir hata kontrolü yoktur, bu yüzden bir şeyleri değiştirirse, bu kod büyük olasılıkla gürültülü bir şekilde başarısız olur. Hizmetin değiştiğini keşfederseniz, lütfen yazarlara bulgularınıza e-posta ile gönderin. Adresi standartlaştırmaya çalışırken bir hata oluşur, daha sonra hiçbir dizi iade edilecektir. Aksi takdirde, dört elemanlı bir dizi iade edilecektir. Hata ayıklama çıktısını görmek için, $ Zlu-> Verbose (1) .Synopsis #! / USR / Bin / Perl Kullanım Scrape :: USPS :: Ziplookup :: Adres; Scrape :: USPS :: ziplookup kullanın; $ addr = scrape :: USPS :: Ziplookup :: Adres-> Yeni ('Focus Araştırma, Inc.', # Firma '', # Kentselleştirme '8080 Beckett Center Drive Süit 203', # Teslimat Adresi 'West Chester', # Şehir 'Oh', # state '45069-5001' # posta kodu); $ ZLU = Scrape :: USPS :: Ziplookup-> Yeni (); @matches = $ zlu-> std_addr ($ addr); if (@matches) {printf "\ n% d maçlar: \ n", SCALAR (@matches); Foreach $ maçım (@matches) {baskı "-" x 39, "\ n"; $ Match-> to_string; "\ n" yazdırın; } baskı "-" x 39, "\ n"; } else {"Maç yok! \ n"; } 0 çıkış; ürünün ana sayfası


Scraper :: USPS :: ZIPLOKUP İlgili Yazılım