/[webpac2]/trunk/lib/WebPAC/Input.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/WebPAC/Input.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 797 by dpavlin, Sun Feb 4 13:28:30 2007 UTC revision 799 by dpavlin, Sun Feb 4 15:09:01 2007 UTC
# Line 282  sub open { Line 282  sub open {
282                  $log->debug("position: $pos\n");                  $log->debug("position: $pos\n");
283    
284                  my $rec = $ll_db->fetch_rec($pos, sub {                  my $rec = $ll_db->fetch_rec($pos, sub {
285                                  my ($l,$f_nr) = @_;                                  my ($l,$f_nr,$debug) = @_;
286  #                               return unless defined($l);  #                               return unless defined($l);
287  #                               return $l unless ($rec_regex && $f_nr);  #                               return $l unless ($rec_regex && $f_nr);
288    
289                                    warn "-=> $f_nr ## $l\n" if ($debug);
290                                  $log->debug("-=> $f_nr ## $l");                                  $log->debug("-=> $f_nr ## $l");
291    
292                                  # codepage conversion and recode_regex                                  # codepage conversion and recode_regex
# Line 301  sub open { Line 302  sub open {
302                                                  eval '$l =~ ' . $r;                                                  eval '$l =~ ' . $r;
303                                                  if ($old_l ne $l) {                                                  if ($old_l ne $l) {
304                                                          $log->debug("REGEX on $f_nr eval \$l =~ $r\n## old l: [$old_l]\n## new l: [$l]");                                                          $log->debug("REGEX on $f_nr eval \$l =~ $r\n## old l: [$old_l]\n## new l: [$l]");
305                                                            warn "*** $r |$old_l| -> |$l|\n" if ($debug);
306                                                  }                                                  }
307                                                  $log->error("error applying regex: $r") if ($@);                                                  $log->error("error applying regex: $r") if ($@);
308                                          }                                          }
309                                  }                                  }
310    
311                                  $log->debug("<=- $f_nr ## $l");                                  $log->debug("<=- $f_nr ## $l");
312                                    warn "<=- $f_nr ## $l\n" if ($debug);
313                                  return $l;                                  return $l;
314                  });                  });
315    
# Line 557  sub dump_ascii { Line 560  sub dump_ascii {
560    
561  =head2 modify_record_regexps  =head2 modify_record_regexps
562    
563  Generate hash with regexpes to be applied using l<filter>.  Generate hash with regexpes to be applied using L<filter>.
564    
565    my $regexpes = $input->modify_record_regexps(    my $regexpes = $input->modify_record_regexps(
566                  900 => { '^a' => { ' : ' => '^b' } },                  900 => { '^a' => { ' : ' => '^b' } },
# Line 618  sub modify_record_regexps { Line 621  sub modify_record_regexps {
621    
622  =head2 modify_file_regexps  =head2 modify_file_regexps
623    
624  Generate hash with regexpes to be applied using l<filter> from  Generate hash with regexpes to be applied using L<filter> from
625  pseudo hash/yaml format for regex mappings.  pseudo hash/yaml format for regex mappings.
626    
627  It should be obvious:  It should be obvious:
Legend:
Removed from v.797  
changed lines
  Added in v.799
  ViewVC Help
Powered by ViewVC 1.1.26