Re: extracting data from file

Hi shivu126,
Perl hash to the rescue, something like this:

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
[download]

UPDATE:
You may want know more about Hash in Perl, split, perldsc

If you tell me, I'll forget.
If you show me, I'll remember.
if you involve me, I'll understand.
--- Author unknown to me

Comment on Re: extracting data from file Download Code

In Section Seekers of Perl Wisdom