Solved

explain code please

Posted on 2013-11-23
1
191 Views
Last Modified: 2013-11-26
Could someone explain step by step what this code does please ?

/^2,[^,]*,[^,]*,[^,]*,[^,]*,(\d+)/ &&  $c{$1}++ while <M>;
0
Comment
Question by:MichaelGlancy
1 Comment
 
LVL 48

Accepted Solution

by:
Tintin earned 500 total points
ID: 39672077
This is a shorthand way of writing

while (<M>) {
   if (/^2,[^,]*,[^,]*,[^,]*,[^,]*,(\d+)/) {
      $c{$1}++
   }
}

Open in new window


To break it down, the first bit is the regex

/^2,[^,]*,[^,]*,[^,]*,[^,]*,(\d+)/

This means any line (read from the file referenced by filehandle 'M') that

starts with 2  ^2
followed by zero or one character that isn't a comma  [^,]*
followed by a comma ,
...
the last part captures one or more digits (\d+)

This will match things like:

2,3,4,5,6,7
2,,,,,7
2,,4,5,6,7
etc

The last digit captured by the (\d+), which in the above examples is 7, is then used to increment the hash c, so effectively

$c{7}++

The hash is most likely used to count the total number of digits that are matched in the file.

The while <M> is simply a while loop using whatever filename is opened and assigned to the M filehandle.
0

Featured Post

Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
Perl strange behaviour 5 74
Which version of C should I use when Perl is too slow? 13 187
work on ods spreadsheet with perl in ubuntu 4 81
collecting information 2 203
I've just discovered very important differences between Windows an Unix formats in Perl,at least 5.xx.. MOST IMPORTANT: Use Unix file format while saving Your script. otherwise it will have ^M s or smth likely weird in the EOL, Then DO NOT use m…
Email validation in proper way is  very important validation required in any web pages. This code is self explainable except that Regular Expression which I used for pattern matching. I originally published as a thread on my website : http://www…
Explain concepts important to validation of email addresses with regular expressions. Applies to most languages/tools that uses regular expressions. Consider email address RFCs: Look at HTML5 form input element (with type=email) regex pattern: T…

740 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question