open(OPTIONS,"options.txt"); @options=; close(OPTIONS); $gamma=1; foreach $line (@options) { chomp $line; $flag=""; @array=split(/\t/,$line); $code=$array[0]; $sku=$array[1]; $o_group=$array[2]; $o_sort=$array[3]; $o_default=$array[4]; $o_label=$array[5]; $o_value=$array[6]; $o_widget=$array[7]; $o_height=$array[8]; $o_width=$array[9]; $description=$array[10]; $price=$array[11]; $wholesale=$array[12]; $display_type=$array[13]; $weight=$array[14]; $codes=$array[15]; #print "$weight\n"; @des=split(/,/,$o_value); @co=split(/,/,$codes); @ar= split(/,/,$weight); @pr= split(/,/,$price); $O_value=~s/^,//; $Price=~s/^,//; $Weight=~s/^,//; print "$code $sku $o_group $o_sort $o_default $o_label $O_value $o_widget $o_height $o_width $description $Price $wholesale $display_type $Weight $codes\n"; $O_value=""; $Price=""; $Weight=""; }