Daten mit JSON permant speichern (gelöst) (Allgemeines zu Perl)

[thread]17371[/thread]

Daten mit JSON permant speichern [gelöst]

Tags: perl5 JSON Ähnliche Threads

Leser: 16

Articles: hide open all | hide show old branches

+6 replies
Kuerbis

2012-04-29 09:58
User since
2011-03-20
947 Artikel
BenutzerIn
Hallo,

wenn ich mit JSON solche Werte
Code: (dl )

key_1 => [ 2, 5, 6, 8, 11 ]
speichern möchte, würde man das üblicherweise so machen:
zuerst alles einlesen (eine Zeile), die neuen Werte hinzufügen und dann wieder in die Datei zurückschreiben (in eine Zeile)?
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

#!/usr/bin/env perl use warnings; use strict; use JSON; my $history = 'history.json'; open my $fh, '<', $history or die $!; my $utf8_encoded_json_text = readline $fh; my $hashref = decode_json $utf8_encoded_json_text; close $fh; $hashref->{key_1} = [ 2, 3, 6, 11 ]; open $fh, '>', $history or die $!; $utf8_encoded_json_text = encode_json $hashref; print $fh $utf8_encoded_json_text; close $fh;
- +2 replies
- rosti
  
  2012-04-29 10:53
  
  User since
  2011-03-19
  3470 Artikel
  BenutzerIn
  
  Mein Tipp: Storable.pm, freeze als Serializer, thaw als Deserializer.
  
  Guck mal: http://rolfrost.de/map/cms/objstore
  
  Diese Klasse ist speziell zum Speichern von Hash-of-Hashes. Storable::freeze kann jedoch auch mit beliebigen Datenstrukturen umgehen, also Arrays, Scalare und alles zusammen auf einer einzigen Referenz. Entdecke Storable ;)
  
  --Rosti
  - Kuerbis
    
    2012-04-29 19:00
    
    User since
    2011-03-20
    947 Artikel
    BenutzerIn
    
    Storable habe ich neben Data::Dumper auch noch in Betracht gezogen. Ich habe mich für JSON entschieden, weil dort die Dateien "lesbar" sind und weil es auf mich am einfachsten wirkt. Und beim Data::Dumper habe ich mir noch nie die Mühe gemacht, zu schauen wie das mit dem Schreiben und Lesen von Dateien funktioniert.
- +3 replies
- pq
  
  2012-04-29 11:41
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  kann json nicht auch über mehrere zeilen verteilt sein? ich würde der einfachheit halber die ganze datei einlesen.
  
  je nachdem, was du da für ein skript hast, musst du die datei ggfs. locken (und nicht zwischendurch schliessen, sondern zum lesen und schreiben öffnen.)
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
  - +2 replies
  - Kuerbis
    
    2012-04-29 18:54
    
    User since
    2011-03-20
    947 Artikel
    BenutzerIn
    
    Dann liege ich mit meinem Beispiel nicht ganz daneben.
    
    An das Datei locken habe ich nicht gedacht - das würde es wieder ein bisschen komplizierter machen.
    - rosti
      
      2012-04-29 19:16
      
      User since
      2011-03-19
      3470 Artikel
      BenutzerIn
      
      2012-04-29T16:54:57 Kuerbis
      Dann liege ich mit meinem Beispiel nicht ganz daneben.
      
      An das Datei locken habe ich nicht gedacht - das würde es wieder ein bisschen komplizierter machen.
      
      flock() ist keine Hexerei. Wenn Du darauf verzichten möchtest, flock() in bisherige Scripts einzubauen, Idee:
      
      Code (perl): (dl )
      
      use Lock;
      
      Das Modul sieht so aus:
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
      
      # Ermöglicht ein globales Lock auf Perl-Prozesse package Lock; use strict; use warnings; use Fcntl qw(:flock); use IO::File; my $self = { file => '/home/lockfile', FH => undef, }; sub import{ my $class = shift; $self->{FH} = IO::File->new or die "Can't get a FileHandle"; $self->{FH}->open($self->{file}, O_CREAT|O_RDWR) or die "IO-Error: $!"; flock($self->{FH}, LOCK_EX) or warn 'Your system does not support flock()'; } 1; ########################################################################
      
      Und selbstverständlich kann das Lockfile auch (namentlich) importiert werden. Ich nutze das kleine Modul so wie es oben steht, jedes Script, was das Modul einbindet, wird somit atomar, selbst wenn darin mehrere Dateien beschrieben werden oder in eine DB geschrieben werden soll.

View all threads created 2012-04-29 09:58.