Re: accessing/printing specific rows in a flat file DB


There's more than one way to do things
	PerlMonks

Re: accessing/printing specific rows in a flat file DB

by Cine (Friar)

on Aug 01, 2003 at 16:15 UTC ( [id://280029]=note: print w/replies, xml )

Need Help??

in reply to accessing/printing specific rows in a flat file DB

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]