use Perl

• Feedback loop (Score:2)

  by rafael (2125) <{rgarciasuarez} {at} {gmail.com}> on 2003.11.21 6:54 (#25956) Homepage Journal

  As I see, MarkovBlogger reads its own entries. Bug or feature ?

  Reply to This

  • Re:Feedback loop (Score:1)

    by jjohn (22)

    It should not be reading its own entries. I do filter MB entries. However, if other blogs quote MB, there's little I can do about that. It is very, very difficult to debug a particular entry to see what when wrong. I will have a look.
    • The problem and solution (Score:1)

      by jjohn (22)

      I think this snake is indeed eating its own tail.

      To debug this, I first grepped through all of the source material, which is organized into a subdirectories and files.

      A typical source file looks like this:

      «subject: OSCON - /$3(.*)$/

      I write this on Saturday. My last entry was Wednesday. Thursday is a happy blur now. I know I went to some good talks, but I can't remember them now, even on pain of death. What I do have a clear recollection of is going to the Mummy Cafe with Quinn, Danny [oblomovka.com], David
      • A better (working) solution (Score:1)

        by jjohn (22)

        FILE:
        for my $file (@ARGV) {
        
          if (open my $in, $file) {
            while (<$in>) {
              if (/^subject:/) {
                s/^subject://;
        
                if (/^\s*\[MarkovBlogger\]/) {
                  close $in;
                  next FILE;
                }
        
                fill_table(table   => $subject,
                           state