Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

Re: how to extract string by possible groupings?

by BillKSmith (Chaplain)
on Jun 03, 2014 at 04:35 UTC ( #1088335=note: print w/ replies, xml ) Need Help??


in reply to how to extract string by possible groupings?

I prefer to match each field separately.

#!perl use strict; use warnings; *FILE_EXPECTED_RESULT = *DATA; while (<FILE_EXPECTED_RESULT>) { next if /^\s*$/; chomp; print "\n", $_ , "\n"; my (@match) = / ( \w* \. (?: c|cpp|h ) ) # File Namew \s* ( None | \d{1,2}\.\d\d%\sof\s\d{1,3} ) # Percent 2 \s* ( None | \d{1,2}\.\d\d%\sof\s\d{1,3} ) # Percent 3 /xms; print "title : " . $match[0] . "\n"; print "percent2 : " . $match[1] . "\n"; print "percent3 : " . $match[2] . "\n"; } close(FILE_EXPECTED_RESULT); __DATA__ Title Percent2 Percent3 test1.cpp 0.00% of 21 0.00% of 16 test2.c None 16.53% of 484 test3.h 0.00% of 138 None
Bill


Comment on Re: how to extract string by possible groupings?
Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1088335]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (10)
As of 2014-12-26 12:02 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (171 votes), past polls