Shell Programming and Scripting

Hai,

I have strings as follows.

0 INDEX MODE: ANALYZED (UNIQUE SCAN) OF 'SYS_C0030166' (INDEX (UNIQUE))


1 INDEX MODE: ANALYZED (UNIQUE SCAN) OF 'SYS_C0029845' (INDEX (UNIQUE)


9 INDEX MODE: ANALYZED (RANGE SCAN) OF 'BR_RELATED_PARTY_DETAILS_IDX1' (INDEX)


5 INDEX MODE: ANALYZED (RANGE SCAN) OF 'IM_ASSET_HOLDING_IDX2' (INDEX)


I have to extract what is present inside the single Quotes ie, i have to extract only 'SYS_C0030166', 'SYS_C0029845', 'BR_RELATED_PARTY_DETAILS_IDX1', 'IM_ASSET_HOLDING_IDX2' . I am new to perl. How do I do this in perl?
Thanks in Advance.

This is one of the ways:

Code:

if ($string =~ /'([^']*)'/) {
    print $1;
}

one way:

Code:

use strict;
use warnings;
my @data = ();
open (IN, 'path/to/file') or die "$!";
while(<IN>) {
   push @data,$1 if (/'([^']+)'/);
}
close IN;
print "$_\n" for @data;