Re: Data Mungling - Address Book;

John W. Krahn Tue, 10 Apr 2007 14:27:26 -0700

Stanislav Nedelchev wrote:
> Hi to all

Hello,


> Here is my problem . I'm trying to export this data to SQL database .
> Here is example data.Don't pay attention on encoding. Every new record
> is starting --=NewRecord=--
> delimiter between fields and data is = .
> Contact=Ð�Ð“ÐŸÐŸÐœÐŸ-Ð¡ÐªÐ�Ð˜ÐœÐ•Ð”-ÐžÐžÐ”
> Manager=
> Region=Ð Ð—ÐžÐš Ð‘ÑƒÑ€Ð³Ð°Ñ�
> Municipality= Ð�Ð•Ð¡Ð•Ð‘ÐªÐ 
> Settlement=Ð“Ð .Ð�Ð•Ð¡Ð•Ð‘ÐªÐ 
> Address=ÑƒÐ».Ð Ð¸Ð±Ð°Ñ€Ñ�ÐºÐ° 11 ÐºÐ°Ð±.1-2
> Phone=43058
> Name=Ð›ÑŽÐ´Ð¼Ð¸Ð» Ð�Ð¸ÐºÐ¾Ð»Ð¾Ð² Ð¡Ñ‚Ð°Ð¼ÐµÐ½Ð¾Ð² - 
> ÐžÐ±Ñ‰Ð¾Ð¿Ñ€Ð°ÐºÑ‚Ð¸ÐºÑƒÐ²Ð°Ñ‰ Ð»ÐµÐºÐ°Ñ€
> --=NewRecord=--
> Contact=Ð�Ð˜ÐŸÐŸÐœÐŸ Ð´-Ñ€ Ð .Ð”Ð¸Ð¼Ð¸Ñ‚Ñ€Ð¾Ð²Ð•ÐžÐžÐ”
> Manager=
> Region=Ð Ð—ÐžÐš Ð‘ÑƒÑ€Ð³Ð°Ñ�
> Municipality= Ð‘Ð£Ð Ð“Ð�Ð¡
> Settlement=Ð“Ð .Ð‘Ð£Ð Ð“Ð�Ð¡
> Address=ÑƒÐ».Ð¥Ð°Ð½ ÐšÑ€ÑƒÐ¼ â„–28 ÐµÑ‚.2 Ñ�Ñ‚.209
> Phone=
> Name=Ð ÑƒÐ¼ÐµÐ½ Ð�Ð¸ÐºÐ¾Ð»Ð°ÐµÐ² Ð”Ð¸Ð¼Ð¸Ñ‚Ñ€Ð¾Ð² - 
> ÐžÐ±Ñ‰Ð¾Ð¿Ñ€Ð°ÐºÑ‚Ð¸ÐºÑƒÐ²Ð°Ñ‰ Ð»ÐµÐºÐ°Ñ€
> 
> 
> 
> I was try to adapt some code that i see here and some people are helped
> me with other things.
> 
> Here is my code . It's seems that %hashrecord is not after firs asaing
> to array is not changing anymore .
> If i try to iniatilze the hash it's seem that i initialize the reference
> and everything becomes empty.
> Can anybody give advice how to fill this array of hashes and generate SQL.
> 
> use strict;
> use warnings;
> open FILE,"<TOTAL.txt" or die $!;
> open OUT,">insert.sql" or die $!;
> my @data;
> my $sql;
> my %hashrecord;
> my %columns;
> while(<FILE>){
> 
> if(! /--=NewRecord=--/){
> my ($fname,$fvalue) = split/=/;
> $hashrecord{$fname} = $fvalue;
> 
> }
> if (/--=NewRecord=--/){push @data, \%hashrecord};
> }

Your problem is that %hashrecord is declared outside the while loop so the
reference always points to the same hash every time.  And you can't declare
the hash inside the while loop because that would just create a new hash for
every line in the file so you couldn't accumulate the records.  You need to do
something like this (UNTESTED):

while ( <FILE> ) {
    if ( /--=NewRecord=--/ ) {
        push @data, {};
        }
    else {
        chomp;
        my ( $fname, $fvalue ) = split /=/, $_, 2;
        $data[ -1 ]{ $fname } = $fvalue;
        }
    }



John
-- 
Perl isn't a toolbox, but a small machine shop where you can special-order
certain sorts of tools at low cost and in short order.       -- Larry Wall

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/

Re: Data Mungling - Address Book;

Reply via email to