use Perl

• hmmm (Score:2)

  by jhi (318)

  > Do NOT use it on large files when doing multiple replacements of file contents, do copying of content instead.
  
  Given Tie::File's original purpose I'd say that what you describe above sounds almost like a bug. I say 'almost' since you didn't really explain what was the problem...
  
  
  • Re:hmmm (Score:2)

    by jonasbn (1153)

    Ok, this is the script:

    #!/usr/bin/perl -w
     
    use strict;
    use Tie::File;
     
    my @array;
    tie @array, 'Tie::File', $ARGV[0] or die "Unable to tie file: $ARGV[0] - $!";
    foreach(@array) {
            print STDERR "Processing: $_\n";
            if (m/^<Seg L=/) {
                    s/"?,\s*$//;
                    s/>"/>/;
                    print STDERR "Processe
    • Re:hmmm (Score:2)

      by jhi (318)

      Firstly, you could redo this

             if (m/^<Seg L=/) {
                      s/"?,\s*$//;
                      s/>"/>/;
                      print STDERR "Processed: $_\n";
             }

      as

             s/^(<Seg L=.+>)"(.+)",\s*$/$1$2/ && print ...

      to replace one m and two s's with one s.

      Secondly, doing at least one STDERR print for eve
      • Re:hmmm (Score:2)

        by jonasbn (1153)

        Thanks for the advice,
        
        I think I will attemp to time the various versions.
        
        I will profile the script aswell,
        
        Again thanks :)