in reply to Re^2: Count similar characters in a row - only once
in thread Count similar characters in a row - only once

Hi Anonymous Monk, I have had quite a thought about it and I think the thing I would most likely do is to first reduce complexity by removing all duplicated lines with the same integer infront of them. Is this right.

Based on your descriptions it sounds right.

I tried running the script below and then ran the script above -jgg.pl. But the result are not good.

What is wrong with the results?

Any ideas or suggestions how I could marry the two in a sensible fashion

First get your code to do what you want, then think about marriage

  • Comment on Re^3: Count similar characters in a row - only once

Replies are listed 'Best First'.
Re^4: Count similar characters in a row - only once
by $new_guy (Acolyte) on Jun 29, 2011 at 10:47 UTC

    I have edited the script above as follows (below): it writes out a temporary file that I will use while running my second script. The second script will now take the temporary file which I will delete afterwards. Please critisize as it must be 100% accurate. 

    #!/usr/bin/perl
use strict;
use warnings;

my $file = 'my_data_file.txt';

my %seen = ();

{
      local @ARGV = ($file);

#remove all previous re-organized files
my $remove = "my.txt.tmp";
    if (unlink($remove) == 1) {
                        print "Existing \"$remove\" file was removed\n
+";
                              }
  
      while(<>){
            
  #now make a file for the ouput
       my $outputfile = "my.txt.tmp";
           if (! open(POS, ">>$outputfile") ) {
            print "Cannot open file \"$outputfile\" to write to!!\n\n"
+;
                exit;
        }
   
      $seen{$_}++;
      
  if($seen{$_} !~/-/g){
      
      next if $seen{$_} > 1;

      print POS;
      }
    }
  }
  
  print "\n\nfinished processing file.\n";

    [download]

[reply]
[d/l]

      Please critisize as it must be 100% accurate.

      Does it perform the transformation you wanted correctly?

      If so, here is my criticism

      Read more... (76 kB)
[reply]
[d/l]

In Section Seekers of Perl Wisdom