accessing/printing specific rows in a flat file DB

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

I have a flat-file DB and I want the script to just access the rows starting with the prefix
“B00” so that when I print the data in a HTML file it DOES'NT print ALL the records.

The code I am using is

open(INF,"products") or dienice("Can't open productsDB: $!"); 
@data = <INF>; 
close(INF); 


foreach $i (@data) { chomp($i); ($productId,$nmPrice,$mPrice,$itemName
+,$shortdesc,$image,$address) = split(/\|/,$i);
[download]

Comment on accessing/printing specific rows in a flat file DB Select or Download Code

Replies are listed 'Best First'.
Re: accessing/printing specific rows in a flat file DB by projekt21 (Friar) on Aug 01, 2003 at 16:11 UTC
Try: `print qq~ $itemName, $nmPrice ~ if $productId =~ /^B00/;` [download] alex pleiner <alex@zeitform.de> zeitform Internet Dienste	[reply] [d/l]
Re: accessing/printing specific rows in a flat file DB by Cine (Friar) on Aug 01, 2003 at 16:15 UTC
Just filter when you are reading in your data. `open(INF,"products") \|\| dienice("Can't open productsDB: $!"); while(<>) { chomp; my ($productId,$nmPrice,$mPrice,$itemName,$shortdesc,$image,$address) + = split/\\|+/; print qq~ $itemName, $nmPrice ~; if $productId =~ /^B00/; } close INF;` [download] T I M T O W T D I	[reply] [d/l]
Re: accessing/printing specific rows in a flat file DB by yosefm (Friar) on Aug 01, 2003 at 16:12 UTC
`print qq~ $itemName, $nmPrice ~ if $productId =~ "^B00";` Also, `perldoc perlre` for using regular expressions.	[reply] [d/l] [select]
Re: Re: accessing/printing specific rows in a flat file DB by Limbic~Region (Chancellor) on Aug 01, 2003 at 16:25 UTC
yosefm, One minor nit: `print qq~ $itemName, $nmPrice ~ if $productId =~ m"^B00";` [download] You have to make the m explicit if you are going to change the default delimiters in a match. Cheers - L~R Update: Apparently I am wrong and my apologies. It seems that the only time you have to make the m explicit if you are also dropping the binding operator by working on the default $_ as in if /^foo/ can't be done as if \|^foo\| it needs to be done as if m\|^foo\|	[reply] [d/l]
Re: Re: Re: accessing/printing specific rows in a flat file DB by projekt21 (Friar) on Aug 01, 2003 at 16:32 UTC
That was what I thought when reading, too, but it seems to work.: `> perl -e '$a="abcd"; print "yes\n" if $a =~ "^abc";' yes > perl -e '$a="abcd"; print "yes\n" if $a =~ "^yyy";' >` [download] Strange, anyone knows more about this? alex pleiner <alex@zeitform.de> zeitform Internet Dienste	[reply] [d/l]


P is for Practical
	PerlMonks