Re^2: regular expression ?!

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

use Getopt::Long;
use sql_engine;
my $string = "XXX2EX_";
#my (@grepnam, @names);
while(<>) {
 chomp;
 if ($_ =~/SNP*/i) {
  
  #print $_, "\n";
  if ($_ =~s/BM*/$string/) {
  
   print $_, "\n";
   
  }
   
} 
  
}
[download]

Comment on Re^2: regular expression ?! Download Code

Replies are listed 'Best First'.
Re^3: regular expression ?! by Anonymous Monk on May 05, 2009 at 12:51 UTC
Sorry its me again. In may actual code it works as `if ($_ =~s/BM*/XXXEX_BM/)`	[reply] [d/l]
Re^4: regular expression ?! by moritz (Cardinal) on May 05, 2009 at 12:52 UTC
If you add a `g` modifier to the end of the substitution, it will substitute all occurrences. See perlretut for details. And beware, the regular expression doesn't do what you think it does - read the documentation to learn what the `*` does.	[reply] [d/l] [select]