[Athlon 4000+]
price=300 euro
produce=AMD
description=Fast
[Celeron 3000]
price=200 euro
produce=Intel
description=Slower
####
%hash(
"item"=>"Athlon 4000+",
"price"=>"300 euro"
"produce"="AMD"
"description="Fast");
etc...
##
##
#!/usr/bin/perl
use warnings;
use strict;
my $file = "articles.txt";
open( FILE, "< $file" );
my @all = ;
close FILE;
my $temp;
my ( @art, @produce, @prices, @descriptions );
foreach $temp (@all) {
if ( $temp =~ m/\[(.*)\]/ ) {
push @art, $1;
}
}
foreach $temp (@all) {
if ( $temp =~ m/produce=(.*)/ ) {
push @produce, $1;
}
}
foreach $temp (@all) {
if ( $temp =~ m/price=(.*)/ ) {
push @prices, $1;
}
}
foreach $temp (@all) {
if ( $temp =~ m/descriptions=(.*)/ ) {
push @descriptions, $1;
}
}
##
##
my %hash = (
"art" => ( shift @art ),
"produce" => ( shift @produce ),
"price" => ( shift @prices ),
"descriptions" => ( shift @descriptions)
);