修復散列中的散列位置

Question

我有以下代碼將數據傳遞給csv，但CSV中的列順序看起來是隨機的（我將散列傳遞給CSV）。我很難定義列的順序。

有沒有一種方法可以修復哈希在我的％output_var哈希中的位置，這樣我就可以在CSV中有效地定義列順序了？

$common->print_header('text/csv','export_order_products.csv'); 
print common::to_csv(sort values %output_var)."\r\n"; 
my $cart_id; 
foreach my $order (@data_to_export) { 
    $order->{'order-id'} =~ s/\.cgi//; 
    $order->{'order-item-id'} =~ s/\.cgi//; 
    $order->{'purchase-date'} =~ s/\.cgi//; 
    my @line; 
    for (sort {$output_var{$a} cmp $output_var{$b}; } keys %output_var) { 
    push @line, $order->{$_}; 
    } 
    print common::to_csv(@line)."\r\n"; 
       } 

CSV子：

sub to_csv { 
    my ($csv_line); 
    my (@fields) = @_; 
    my $i; 
    for ($i=0; $i<scalar(@fields); $i++) { 
     $fields[$i] =~ s/\r/\\r/gis; 
     $fields[$i] =~ s/\n/\\n/gis; 
     $fields[$i] =~ s/"/""/gis; # -- " 
     $fields[$i] =~ s/(.*,.*)/"$1"/gis; 
     $fields[$i] = '' if ($fields[$i] eq '0'); 
    } 
    $csv_line = join ',', @fields; 
    return $csv_line; 
} 

Answer 1

如果你正在使用文字:: CSV或文本:: CSV_XS，

# Outside the loop 
$csv->column_names([qw(...)]); 

# Inside the loop 
$csv->print_hr($fh, $order); 

但你似乎沒有使用任何這些模塊（？！？！），所以

# Outside the loop 
my @headers = qw(...); 

# Inside the loop 
print($fh to_csv(@$order{@headers}), "\r\n");