Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much
 
PerlMonks  

Re: reading file

by bart (Canon)
on Nov 29, 2012 at 12:31 UTC ( #1006241=note: print w/ replies, xml ) Need Help??


in reply to reading file

I don't see why you need a regular expression for this. Unless your problem is more complex than what you described here... Here is basically what I'd do:

my %row; while(<>) { chomp; my($key, $value) = split ' ', $_, 2 or next; $row{$key} = $value; }
To test, store your data in a text file and use the file name as the argument for the test script.

Now all data are in a hash. You can see what's in there:

use Data::Dumper; print Dumper \%row;
To put it in an SQL database, I prefer to use DBIx::Simple with support of SQL::Abstract, for which the code could simply be:
# $db is the DBIx::Simple database connection handle object $db->insert($table, \%row);

p.s. The article that got me on my way in regular expressions, is Tom Christiansen's newsgroup post "Irregular Expressions" which has been republished on the net and even on CPAN under the name "FMTEYEWTK (= Far More Than Everything You Ever Wanted To Know) about regexes". You can find a copy here.

It's ancient (duh) and contains some obsolete remarks, but it's still excellent.


Comment on Re: reading file
Select or Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others romping around the Monastery: (6)
As of 2014-08-30 03:42 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (291 votes), past polls