uksza has asked for the wisdom of the Perl Monks concerning the following question:
Hello!
I'm newbi and sill I've got some troubles with simple things. I know that practice is a way to perfection, so I'm training all exercises I can find.
And I've found something like this:
In articles.txt files is:
Any compassionate monk can whisper me any hint?
Thanks a lot
Uksza
I'm newbi and sill I've got some troubles with simple things. I know that practice is a way to perfection, so I'm training all exercises I can find.
And I've found something like this:
In articles.txt files is:
How to parse this into:[Athlon 4000+] price=300 euro produce=AMD description=Fast [Celeron 3000] price=200 euro produce=Intel description=Slower
I've made some terrible stupid code:%hash( "item"=>"Athlon 4000+", "price"=>"300 euro" "produce"="AMD" "description="Fast"); etc...
and try to do with it something like this:#!/usr/bin/perl use warnings; use strict; my $file = "articles.txt"; open( FILE, "< $file" ); my @all = <FILE>; 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; } }
I know it is totaly stupid - this is the worse code i ever wrote, but I have no idea how to do things like that.my %hash = ( "art" => ( shift @art ), "produce" => ( shift @produce ), "price" => ( shift @prices ), "descriptions" => ( shift @descriptions) );
Any compassionate monk can whisper me any hint?
Thanks a lot
Uksza
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Troubles with simple parsing
by ikegami (Patriarch) on Dec 19, 2004 at 02:34 UTC | |
by uksza (Canon) on Dec 19, 2004 at 02:47 UTC | |
by ikegami (Patriarch) on Dec 19, 2004 at 03:05 UTC | |
by qq (Hermit) on Dec 19, 2004 at 22:53 UTC | |
Re: Troubles with simple parsing
by bgreenlee (Friar) on Dec 19, 2004 at 03:12 UTC | |
Re: Troubles with simple parsing
by graff (Chancellor) on Dec 19, 2004 at 03:34 UTC | |
Re: Troubles with simple parsing
by dws (Chancellor) on Dec 19, 2004 at 05:56 UTC | |
Re: Troubles with simple parsing
by Anonymous Monk on Dec 19, 2004 at 04:34 UTC | |
Re: Troubles with simple parsing
by CountZero (Bishop) on Dec 19, 2004 at 11:37 UTC | |
Re: Troubles with simple parsing
by uksza (Canon) on Dec 19, 2004 at 15:42 UTC |
Back to
Seekers of Perl Wisdom