Hi Monks,

I'm reading a file (each line has many fields enclosed by
double quotes). I want to count the number of double quotes
in each line. The fields are separated by commas(,) but I
cannot use this as separator as field also may have the
comma as part of its string. So to cross check the number
of fields in a record (line) I am counting the number of
double quotes. So far good. I have the following code,
which is hanging. Syntax seem to be ok, but still this is
a problem. Any suggestions ?
open(FILENAME,"c:\\abc.txt") || die "Cannot Open the file.\n" ;
my $quote_count = 0 ;
my $pos = 0 ;
my $record = "" ;
while(<FILENAME>) {
    $record = $_ ;
    chomp $record ;
    while ($pos = index($record, '"', $pos) != -1) {
        $quote_count++;
        $pos++;
    }
}
print "Number of double quotes are $quote_count\n";
close FILENAME ;

[download]
The file abc.txt has following data (just 2 lines) 
"11111","xxxx","yyyy","222, world drive"
"22222","abc","jkl","my road, my world"
What is causing the hanging of the process ? pls let me know.

Thanks in advance,

Raj.

In reply to Counting number of double quotes in a string by arajani

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.