in reply to matching quotes

see matching comments, It has detailed code to do exactly this. Just replace the comments flags $start and $end with '"' for both of them.

This (slightly modified from merlyn's answer here) will work and is really fast:
open(FILE, "test.txt") || die;
{
    local $/ = undef;    #set to 'slurp' mode
    $file = <FILE>;      #read entire file into $file
}
close FILE;

$start = '"';
$end   = '"';

my $inside = 0;
my $oldpos = 0;

while ($file =~ /(?<!\\)(\Q$start\E|\Q$end\E)/g) {
    if ($inside == 0) {
       $oldpos = pos($file) - length($start);
       $inside++;
    } else {
       print substr($file, $oldpos, pos($file)-$oldpos);
       $inside--;
    }
}

[download]

Replies are listed 'Best First'.
RE: Re: matching quotes
by Anonymous Monk on May 24, 2000 at 00:19 UTC
    I was thinking if there is a single regex solution?
[reply]
      #!/usr/bin/perl -wl
use strict;

my $string = 'foo "A small \"dog\" eats pie." bar "foobar"';

print $1 while $string =~ /(?<!\\)"(.*?)(?<!\\)"/gs;

      [download]

      Addendum:

      Hmm. It didn't take me fifteen minutes to write this post. perlmonkey must be typing at relativistic speeds. btw--double quotes are not special in a regex; you don't need to backslash them.

[reply]
[d/l]
      Here is a single regex inside the while loop, but it is slower:
      while ( $file =~ /((?<!\\)\".*?(?<!\\)\")/sg) {
   print $1;
}

      [download]
      Update: takshaka is correct of course. I flaked out and did not need to backslach the ", fortunatley it works just fine either way, just more clutter.

      I dont know about my relativistic typing. I guess I am just that good :) Acutally I once took a typing test and got around a -400 wpm (note the negative!) ... apparently I got docked for extensively using the backspace key. (Either that or I typed so damn fast that I overflowed the signed int ... yah, thats it, I really typed 65136 wpm, man I'm good!)
[reply]
[d/l]

In Section Seekers of Perl Wisdom