Reg Ex with quotes

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

I have a .txt file that needs to parse out everything within quotation including underscore. I know this is an easy task but Im a Perl noobie... Below is what the file looks like:

rmdir: directory "SAS_util0001000021A9_sasux101": Directory 
 rmdir: directory "SAS_util000100002E19_sasux101": Directory 
 rmdir: directory "SAS_util000100005891_sasux101": Directory 

Heres the code I used but its wrong, I need to extract everything with
+in the quotes into a variable or an array.

while ($line = <CANT2>) {
        if ($line =~ /[\"\w+\_w+\_w+\"]/) {
            $keep = $1;    
            push(@test,$keep);
        }
}
[download]

I couldnt use substring because some lines are not aligned with most of the lines. Thanks in advance... Joe

Comment on Reg Ex with quotes Download Code

Replies are listed 'Best First'.
Re: Reg Ex with quotes by GrandFather (Saint) on Jan 30, 2006 at 23:52 UTC
Your problem is that you have used a char set where you intended a capture. The fixed (and simplified) regex looks like `/("[^"]*")/`. Read more... Complete sample (1009 Bytes) DWIM is Perl's answer to Gödel	[reply] [d/l] [select]
Re^2: Reg Ex with quotes by duckyd (Hermit) on Jan 30, 2006 at 23:56 UTC
`/"([^"]*)"/` [download] is probably even better, unless you really do want the quotes captured too. The value of the capture will be available in $1.	[reply] [d/l]
Re^3: Reg Ex with quotes by GrandFather (Saint) on Jan 31, 2006 at 00:43 UTC
That is what I would do, but doesn't match the inferred intent of OP's code. (Mind you, my version doesn't do the checking that the original code did either. :) ) DWIM is Perl's answer to Gödel	[reply]
Re^2: Reg Ex with quotes by Anonymous Monk on Jan 30, 2006 at 23:59 UTC
Looks great but I get a compilation error with the reg ex.. Thanks Joe..	[reply]
Re: Reg Ex with quotes by Fletch (Bishop) on Jan 30, 2006 at 23:52 UTC
`/directory "(.*?)": Directory/` perlre and look for non-greedy quantifiers.	[reply] [d/l]
Re^2: Reg Ex with quotes by Anonymous Monk on Jan 30, 2006 at 23:56 UTC
I only need the information inside the quotes. I dont need anything else outside the code.. Thanks again Joe...	[reply]
Re^3: Reg Ex with quotes by Fletch (Bishop) on Jan 30, 2006 at 23:58 UTC
Then you obviously still need to read perlre because that only captures the part in quotes.	[reply]
Re^4: Reg Ex with quotes by Anonymous Monk on Jan 31, 2006 at 00:14 UTC
Re: Reg Ex with quotes by smokemachine (Hermit) on Jan 31, 2006 at 02:41 UTC
`perl -ne 'push(@array,$1) if /"(.*?)"/' data_file` [download]	[reply] [d/l]