note
2teez
<p>
Hi [shivu126],<br>
Perl hash to the rescue, something like this:
<c>
use warnings;
use strict;
my %data_arrang;
while (<DATA>) {
my @data = split /, / => $_, 2;
push @{ $data_arrang{ shift(@data) } }, @data;
}
print "Enter your date: ";
chomp( my $date = <STDIN> );
if ( exists $data_arrang{$date} ) {
print "goods,quality : ", @{ $data_arrang{$date} };
}
else { print "Date entered didn't exist\n" }
__DATA__
12-11-2006, books, 100
10-11-2006, bag, 10
10-12-2006, pen, 15
</c>
</p>
<b>UPDATE:</b><br>
You may want know more about Hash in Perl, [doc://split], [doc://perldsc]
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-918402">
If you tell me, I'll forget.<br>
If you show me, I'll remember.<br>
if you involve me, I'll understand.<br>
--- Author [unknown to me]
</div></div>
1003998
1003998