Help for this page

Select Code to Download


  1. or download this
      DB<135> $str = "\tstart\tmiddle1\t\"quote1\tquote2\"\tmiddle2\tend\t
    +"; 
     => "\tstart\tmiddle1\t\"quote1\tquote2\"\tmiddle2\tend\t"
    ...
        start***middle1    "quote1***quote2"    middle2***end    
        start***middle1    "quote1***quote2"    middle2***end    
     => 1
    
  2. or download this
      DB<140> p $str =~ s/ (?<!"|^) \t (?!"|$) /***/gmxr
    Variable length lookbehind not implemented in regex m/ (?<!"|^) \t (?!
    +"|$) / at (eval 110)[multi_perl5db.pl:644] line 2.