>I;m trying to parse one text file and insert it into database . >Here is the example of Data >CONTACT : Chemico Ltd. >MANAGER : Michael Kor >STATE: Blagoevgrad >CODE : 4005 >City: Blagoevgrad >Address : Neupaoer Str. 1 >Phone : 073/880755 >Name : Valeri lItov lItov - Cadr >Name : Nikoilai Michev Michev >Name : Silvia Mold > >I will have mysql databse with fields like >CONTACT , MANAGER, STATE , CODE, City, Adress , Name >I will split data on : and insert it into database but i can't find a >way how to combine this duplicate Filed Name >like NAME : Valeri lItov lItov - Cadr, Nikoilai Michev Michev,Silvia Mold >Can anybody give mo some idea how to combine these duplicating name >records into one record. >
Hello, How about using this data stru to store the date fields? %hash = ( 'CODE' => [ '4005' ], 'Name' => [ 'Valeri lItov lItov - Cadr', 'Nikoilai Michev Michev', 'Silvia Mold' ] ... ); This is the code piece I wrote,it can work. use strict; use warnings; my %hash; open FILE,"data.txt" or die $!; while(<FILE>) { next if /^$/; chomp; my ($fname,$fvalue) = split/:/; $fname =~ s/^\s+|\s+$//g; $fvalue =~ s/^\s+|\s+$//g; push @{$hash{$fname}},$fvalue; } close FILE; for (keys %hash) { print $_ , "-->", join ', ',@{$hash{$_}}; print "\n"; } -- mailto: [EMAIL PROTECTED] http://home.arcor.de/jeffpang/ -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/