
velixer
New User
Dec 15, 2012, 4:07 AM
Post #5 of 5
(2700 views)
|
Re: [Laurent_R] output csv data to table?
[In reply to]
|
Can't Post
|
|
fandabidastic mate! cheers again for the help here is the code I ended up using
print ("starting program","\n"); print ("\n"); open INPUT_FILE, "<", "inputplu.csv" or die $!; open OUT_FILE, ">", "hucr.txt" or die $!; while (my $line = <INPUT_FILE>) { chomp $line; if ($line =~ /PLUTemp/ ) { my @codes = split /,/, $line; } else { my @numbers = split /,/, $line; open OUT_FILE, ">>", "hucr.txt" or die $!; my $main_code = shift @numbers; print OUT_FILE ($main_code, "\n"); my $main_code = shift @numbers; print OUT_FILE ("PLUTemp.plu_code[7][2]=", $main_code, "\n"); my $main_code = shift @numbers; print OUT_FILE ("PLUTemp.plu_caption[2]=", $main_code, "\n"); my $main_code = shift @numbers; print OUT_FILE ("PLUTemp.plu_price[4][2]=", $main_code, "\n"); my $main_code = shift @numbers; print OUT_FILE ("PPLUTemp.plu_name[20][2] =", $main_code, "\n"); my $main_code = shift @numbers; print OUT_FILE ("PLUTemp.plu_inprice[4][2] =", $main_code, "\n"); my $main_code = shift @numbers; print OUT_FILE ("PLUTemp.plu_store[5][2]=", $main_code, "\n"); my $main_code = shift @numbers; print OUT_FILE ("PLUTemp.plu_sale[5][2]=", $main_code, "\n"); my $main_code = shift @numbers; print OUT_FILE ("PLUTemp.plu_money[5][2]=", $main_code, "\n"); close OUT_FILE; while (my $code = shift @codes) { my $number = shift @numbers; print $code, $number, "\n"; } } }
|