µ¥ÀÌÅÍ :: ¹öŶ

Data :: BucketÀº Àε¦½Ì µÈ µ¥ÀÌÅÍ ÀúÀå¼Ò (¹öŶ ÇؽÌ)ÀÔ´Ï´Ù.
Áö±Ý ´Ù¿î·Îµå

µ¥ÀÌÅÍ :: ¹öŶ ¼øÀ§ ¹× ¿ä¾à

±¤°í

  • Rating:
  • ƯÇã:
  • Perl Artistic License
  • °¡°Ý:
  • FREE
  • °Ô½ÃÀÚ À̸§:
  • Terrence M. Brannon
  • °Ô½ÃÀÚ À¥»çÀÌÆ®:
  • http://search.cpan.org/~tbone/Data-Bucket-0.07/lib/Data/Bucket.pm

µ¥ÀÌÅÍ :: ¹öŶ ű×


µ¥ÀÌÅÍ :: ¹öŶ ¼³¸í

Data :: BucketÀº Àε¦½Ì µÈ µ¥ÀÌÅÍ ÀúÀå¼Ò (¹öŶ ÇؽÌ)ÀÔ´Ï´Ù. Data :: BucketÀº Àε¦½Ì µÈ µ¥ÀÌÅÍ ÀúÀå¼Ò (¹öŶ ÇؽÌ)ÀÔ´Ï´Ù. ½Äº°ÀÚ´Â ±âº» QW (Data :: Bucket)¸¦ »ç¿ëÇÕ´Ï´Ù. # µðÆúÆ® ½ºÅ丮Áö ±¸¼ºÇ¥´Â µ¥ÀÌÅÍÀÇ Ã¹ ¹ø° ¹®ÀÚ¸¦ ±â¹ÝÀ¸·ÎÇÏ´Â °ÍµéÀ» ÀúÀåÇÕ´Ï´Ù. ¿ì¸®´Â ÇÏÀ§ Ŭ·¡½º # µ¤¾î ¾¹´Ï´Ù. ¿ì¸®°¡ array-ref¸¦ ¹ÝȯÇϸé ÇϳªÀÇ # ¹öŶ¿¡ µ¥ÀÌÅÍ Ç׸ñÀÌ °¢ # ¹öŶ¿¡ ÀúÀåµË´Ï´Ù. SUB COMPURE_RECORD_INDEX {MY ($ self, $ data) = @_; substr (0, 2, $ µ¥ÀÌÅÍ); } S, $ FILE_TO_BE_Searched ¶Ç´Â Die $¸¦ ¿±´Ï ´Ù! ...¿¡ ³» $ bucket = __package __-> index (); i, $ file_with_queries ¶Ç´Â Die $¸¦ ¿±´Ï ´Ù! ...¿¡ $ LINE ()ÀÇ °æ¿ì () {my @search_candidates = $ BUCKET-> BACEW_ON ($ line); my @score = Á¤·Ä ¸Ê {fuzzy_match ($ line, $ _)} @search_candidates; } ´ÜÀÏ µ¥ÀÌÅÒÀÌ ¿©·¯ ¹öŶ¿¡ ´ýÇÁ µÈ ¿¹Á¦ SUB COMPUTE_RECORD_INDEX {MY ($ Self, $ µ¥ÀÌÅÍ) = @_; $ DATA¸¦ »ç¿ëÇÏÁö ¾Ê´Â ÇÑ Undef¸¦ ¹ÝȯÇÕ´Ï´Ù. "$ data"°æ°í; @Words = Split / S + /, $ µ¥ÀÌÅÍ; ³» $ min = min ($ # ´Ü¾î, 1); my @index = ¸Ê {substr ($ _, 0, 1)} @Words ; @À妽º; } My $ °Ë»ö (QW (QW (¿À ±×·¡Çà »ç°ú)) {my @b = $ BUCKET-> BACEW_ON ($ °Ë»ö); # @bucket ¹× $ searchÀÇ °¢ °ªÀ» ¼öÇàÇϽʽÿÀ. ±×·¯³ª ¼øÁøÇÑ ÀÌÇظ¦ À§Çؼ­´Â ¸®ÆÑÅ丵ÀÌ ³¡³ªÁö ¾Ê½À´Ï´Ù. # ¿ì¸®´Â # ÀÔ·Â Çؽà ÂüÁ¶ ¼­ºê Compute_record_Index¿¡¼­ Çʵ带 ÃßÃâÇÏ¿© ¹öŶÀ»À§ÇÑ ·¹ÄÚµå À妽º¸¦ °è»êÇÕ´Ï´Ù. {My ($ self, $ data) = @_; $ DATA¸¦ »ç¿ëÇÏÁö ¾Ê´Â ÇÑ Undef¸¦ ¹ÝȯÇÕ´Ï´Ù. "$ data"°æ°í; @Words = Split / S + /, $ data -> {clean_name}; ³» $ min = min ($ # ´Ü¾î, 2); my @index = ¸Ê {substr ($ _, 0, 1)} @Words ; @À妽º; } # ÀÏ¹Ý # ¹®ÀÚ¿­ Çʵ带 »ç¿ëÇÏ¿© ÀÔ·Â µ¥ÀÌÅÍÀÇ ÀûÀýÇÑ ¹öŶÀ» ã½À´Ï´Ù. Çʵå sub retrieve_record_index {my ($ self, $ data) = @_; $ DATA¸¦ »ç¿ëÇÏÁö ¾Ê´Â ÇÑ Undef¸¦ ¹ÝȯÇÕ´Ï´Ù. #warn "$ data"; @Words = Split / S + /, $ µ¥ÀÌÅÍ; ³» $ min = min ($ # ´Ü¾î, 2); my @index = ¸Ê {substr ($ _, 0, 1)} @Words ; if ($ data = ~ / 01la /) {WARN "´Ü¾î", ´ýÆÛ @WORDS; °æ°í "À妽º", ´ýÆÛ @Index; (@Index) {Bucket ($ _) ", ´ýÆÛ ($ self-> {bucket} {$ _}); } } @À妽º; } ¿ä±¸ »çÇ× : ¡¤ Perl ¿ä±¸ »çÇ× : ¡¤ Perl.


µ¥ÀÌÅÍ :: ¹öŶ °ü·Ã ¼ÒÇÁÆ®¿þ¾î

froofyjit.

FroofyJitÀº µ¿Àû ±âº» ÄÚµå »ý¼ºÀ»À§ÇÑ Paolo BonziniÀÇ GNU Ligram LibraryÀÇ C ++ 'Syntactic Sugar'ÇÁ·±Æ® ¿£µåÀÔ´Ï´Ù. ...

122

´Ù¿î·Îµå