हैश पर्ल

Question

से एक CSV फ़ाइल को लिखें मेरे पास एक प्रोग्राम है जो फिलहाल FILE 1 से नीचे जैसा दिखता है और कुछ वर्णों से मेल खाता है। उदाहरण के लिए:

सब मैं एक 'प्रकार', 'फल', 'विवरण', 'मात्रा' के लिए हैश के हैश बना सकते हैं और संदर्भ हैश में विभिन्न मान संग्रहीत करना चाहता था की

Type, Fruit, Description, quantity 
tropical, banana, tasty and yummy, 5 
tropical, grapefruit, bitter and not yummy, 2 
... and so on 

पहले। यह नीचे दिए गए कोड के साथ ठीक काम करता है।

use strict; 
use warnings; 
use Data::Dumper; 
use Text::CSV; 

my %MacroA = ('Type' => {}, 'Fruit' => {}, 'Description' => {}, 'Quantity' => {});   

open (my $file, '<', 'FRUITIES.txt') or die $!;  

while (my $line = <$file>)                {           

if ($line =~ /\b(tropical)\b,/) {         
$MacroA{Type}->{$1}++; 
} 

if ($line =~ /,\b(banana|grapefruit)\b,/) {        
$MacroA{Fruit}->{$1}++; 
} 

if ($line =~ /,([\w\s]+?),/) {         
$MacroA{Description}->{$1}++; 
} 

if ($line =~ /,([\d]+?)/) {        
$MacroA{Quantity}->{$1}++; 
} 
     } 

close $file;      

तो मेरे सवाल का कैसे मैं इस डेटा (डेटा निश्चित नहीं है) एक csv फ़ाइल या संबंधित कुछ (शायद xls) में डाल सकते हैं, कि हैश के प्रत्येक हैश के लिए कॉलम युक्त तालिका होगा है (' टाइप करें ',' फल ',' विवरण ',' मात्रा ')।

Answer 1

मैं मानता हूँ कि हैश के हैश एक अच्छी बात है, लेकिन मैं आपको लगता है ' इसे इस तरह से संग्रहीत न करें जिससे आप इसे आसानी से पुनर्प्राप्त कर सकें।

एक तरीका यह है कि आप ऐसा कर सकते हैं।

{ id_1 => { 
      data_1 => "blah", 
      data_2 => "foo", 
      ... 
      }, 
    id_2 => { 
      ... 
      }, 
    ... 
} 

सबसे पहले, आपको यह चुनने की आवश्यकता है कि कौन सा कॉलम "आईडी" होगा। यह प्रत्येक पंक्ति की विशिष्टता निर्धारित करेगा। मान लीजिए कि आपके उदाहरण के लिए फल चुनें, क्योंकि हम मानते हैं कि एक ही फाइल में कोई दो फल नहीं होंगे। तो हमारे पास ऐसा कुछ होगा:

{ banana => { 
      type => "tropical", 
      description => "tasty and yummy", 
      ... 
      }, 
    grapefruit => { 
      ... 
      }, 
    ... 
} 

इसे वापस CSV में बदलने के लिए, हम हैंश के माध्यम से लूप करते हैं।

my %fruit_data; #let's assume that this already has the data in it 

foreach my $fruit (keys %fruit_data) { 

    #given the $fruit you can now access all the data you need 
    my $type = %fruit_data{$fruit}{'type'}; 
    my $desc = %fruit_data{$fruit}{'description'}; 
    # etc... 

    # then you may want to store them in a scalar in any order you want 
    my $row = "$field,$type,$desc etc.\n"; 

    # then work your way from there 

} 

Answer 2

एक्सेल फ़ाइलों को लिखने के लिए - आप Spreadsheet::WriteExcel का उपयोग कर सकते हैं।

सीएसवी फाइलों के बारे में - मूल रूप से आपके पास "," डिलीमीटर और "\ n" स्ट्रिंग delimiters के साथ सीएसवी फ़ाइल है। आप कुछ सीएसवी को hashrefs की सरणी लिखने के लिए चाहते हैं - अपने आप से सरल उप लिख बेहतर तरीका, इस तरह ख़ाली:

use strict; 
use warnings; 

sub write_csv { 

    my ($array_ref, $fh) = @_; 

    for my $row (@$array_ref) { 
    print $fh join(',', map { $_, $row->{$_} } sort keys %$row), "\n"; 
    } 
} 

my $test = [ 
    {a => 1, ab => 2, type => '234k', count => '123'}, 
    {a => 3, ab => 2, type => 'some_type', count => 34}, 
]; 

open my $fh, '>', 'test.csv' or die $!; 

write_csv($test, $fh);