Perl的哈希+文件+雖然

Question

好，這個想法是刪除文件的方向與他們的描述，並將其存儲在一個散

這是文件內容的/ home/opmeitle /文件-PL/bookmarks2

}, { 
     "date_added": "12989744094664781", 
     "id": "1721", 
     "name": "Perl DBI - dbi.perl.org", 
     "type": "url", 
     "url": "http://dbi.perl.org/" 
    }, { 
     "date_added": "12989744373130384", 
     "id": "1722", 
     "name": "DBD::mysql - MySQL driver for the Perl5 Database Interface (DBI) - metacpan.org", 
     "type": "url", 
     "url": "https://metacpan.org/module/DBD::mysql" 
    }, { 

現在，代碼在Perl中。

use strict; 

open(FILE, '/home/opmeitle/files-pl/bookmarks2'); 
my @lines = <FILE>; 
my @list55; 
my $count = 1; 
my $n = 0; 
my %hash=(); #$hash{$lines[$n]}=$lines[$n]; 
    while ($lines[$n]) { 
     if ($lines[$n] =~ /(http:|https:|name)/) { 
      if ($lines[$n] =~ s/("|: |,|id|url|name|\n)//g) { 
       if ($lines[$n] =~ s/^\s+//){ 
        if ($lines[$n] =~ /http:|https/){ 
         $hash{$lines[$n]} = ''; 
        } 
        else { 
         $hash{$n} = $lines[$n]; 
        } 
       } 
      } 
     } 
    $n++; 
    $count++; 
    } 
close(FILE); 
# print hash 
my $key; 
my $value; 
while(($key,$value) = each %hash){ 
    print "$key = $value\n"; 
} 

執行腳本後的結果。

http://dbi.perl.org/ = 
https://metacpan.org/module/DBD::mysql = 
3 = Perl DBI - dbi.perl.org 
9 = DBD::mysql - MySQL driver for the Perl5 Database Interface (DBI) - metacpan.org 

，但我需要的東西，這

http://dbi.perl.org/ = Perl DBI - dbi.perl.org 
Perl DBI - dbi.perl.org = DBD::mysql - MySQL driver for the Perl5 Database Interface (DBI) - metacpan.org 

感謝你的答案等。

Answer 1

正如@amon暗示的，Chrome書籤是JSON格式，在CPAN上有幾個好的模塊。

use strict; 
use warnings; 
use JSON; 

my $file = '/home/opmeitle/files-pl/bookmarks2'; 
open my $fh, '<', $file or die "$file: $!\n"; 
my $inhash = decode_json(join '', <$fh>); 
close $fh; 

my %outhash = map traverse($_), values %{ $inhash->{roots} }; 
sub traverse 
{ 
    my $hashref = shift; 

    if (exists $hashref->{children}) { 
    return map traverse($_), @{ $hashref->{children} }; 
    } else { 
    return $hashref->{url} => $hashref->{name}; 
    } 
} 

現在%outhash有你想要的數據。

編輯：幫助瞭解是怎麼回事：

use Data::Dumper; 
print Dumper($inhash); # pretty-print the structure returned by decode_json 

Answer 2

正如其他人所說，做的最好的事情是把JSON數據加載到Perl數據結構。這很容易使用JSON模塊完成。在我們做到這一點之前，我們需要閱讀文件。有兩種方法可以做到這一點。非CPAN方式：

# always ... 
use strict; 
use warnings; 

my $file = '/home/opmeitle/files-pl/bookmarks2'; 

my $text = do { 
    open my $fh, '<', $file or die "Cannot open $file: $!\n"; 
    local $/; #enable slurp 
    <$fh>; 
}; 

或CPAN方式

# always ... 
use strict; 
use warnings; 

use File::Slurp; 
my $text = read_file $file; 

一旦你讀文件，然後解碼

use JSON; 

my $data = decode_json $text; 

請上傳整個文件和一個更好的描述你想要什麼，我會很樂意評論一個更正式的遍歷數據結構的方式。