"... i have to designate the numeric values as reported value and reference range so how should i insert that into a database ..."
Other than suggesting 'start_range' and 'end_range' columns, I don't see what the problem is here. Perhaps you could expand on what you're actually having difficulty with.
"... and is the whole script correct ..."
Firstly, Perl will provide much information if you ask it to. Add use strict; and use warnings; to the top of your code. Also add use diagnostics; if you need more verbose output. Running perl -c script_name from the commandline will test the syntax of your code without actually running it.
Here's a few pointers on what you have presented:
-
/Equine Profile Plus\s*#(.*?) .*?(Sample.*?)##/: Unless I physically count them, I've no idea how many spaces you're matching here. For readability and maintainability, use Quantifiers as explained in perlre.
-
open (OUT,">>$filename.csv"): I'd suggest opening the file once before you start the while loop.
-
Your multiple "if (match) {do substitution}" lines should probably be: $line =~ s/match/do substitution/ (the perlre link above and perlop have details).
-
Your multilple instances of $para =~ s/\s\s/ /g; probably only need to be a single instance; also take a look at tr/// in the perlop link above.
-
Don't add an ampersand to the front of &loaddata('$filename.csv'); - see perlsub for details.
-
Aligning your code will help readability. perlstyle will give you some pointers on this.
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: |
| & | | & |
| < | | < |
| > | | > |
| [ | | [ |
| ] | | ] |
Link using PerlMonks shortcuts! What shortcuts can I use for linking?
See Writeup Formatting Tips and other pages linked from there for more info.