Variable/Array speichern und wieder einlesen (Allgemeines zu Perl)

[thread]18123[/thread]

Variable/Array speichern und wieder einlesen

Tags: perl5 Ähnliche Threads

Leser: 22

Articles: hide open all | hide show old branches

+11 replies
comp2000

2013-02-07 20:49
User since
2013-01-20
15 Artikel
BenutzerIn
Guten Abend
Ich habe ein Script auf meiner Fritzbox was mit Variablen arbeitet und das alle 5min. Eine Variable in einer Datei zu speichern und wieder einzulesen war kein Problem. Nun dachte ich ich kann die 4 Variablen in ein Array speichern und dann wieder einlesen aber das habe ich nicht hin bekommen weil das Array ja in einer Zeile gespeichert wird. Ich habe jetzt was gebastelt und wollte mal fragen ob es nicht einfacher geht.
Code: (dl )

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

#!/usr/local/bin/perl -w open (DATEI, "<array.log") or die $!; @vector = <DATEI>; close (DATEI); chomp(@vector); #<--Zeilenumbruchzeichen enfernen für das ganze Array $b1=$vector[0]; #<--Array in einzelne Variable umwandeln $b2=$vector[1]; $b3=$vector[2]; $b4=$vector[3]; ## Script arbeitet mit den Variablen open (DATEI, ">array.log") or die $!; print DATEI "$a1\n","$a2\n","$a3\n","$a4\n"; #<-- Variablen Zeilenweise speichern close (DATEI);
geht es nicht einfacher? Aber nicht mit Modulen da auf der Fritzbox nur normales Perl läuft.
Danke Henry
- pq
  
  2013-02-07 20:59
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  was hat das problem mit netzwerkprogrammierung zu tun? (nur weil es auf einer fritzbox läuft, ist das eigentliche problem ja keines, was mit netzwerk zu tun hat)
  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
- betterworld
  
  2013-02-07 21:06
  User since
  2003-08-21
  2614 Artikel
  ModeratorIn
  Wo ist der Unterschied zwischen den Variablen $a1 und $b1?
  Wenn Du durchnummerierte Variablen benutzt, ist die Frage, ob es nicht einfacher ist, einfach das Array weiterzubenutzen. In dem Fall kannst Du am Ende mit einer Schleife die Daten rausschreiben:
  
  Code: (dl )
  
  1 2 3
  
  for my $var (@vector) { print "$var\n"; }
  
  Aber auch das Übertragen des Arrays in 4 Variablen kann man vereinfachen:
  
  Code: (dl )
  
  my ($b1, $b2, $b3, $b4) = @vector;
  
  Am besten noch eine Warnung ausspucken, wenn weniger (oder mehr) als 4 Variablen in dem Array drin sind.
  
  Was möchtest du noch vereinfachen?
  Lieblingsmodule: IPC::System::Simple, Path::Class
  - comp2000
    
    2013-02-07 21:16
    
    User since
    2013-01-20
    15 Artikel
    BenutzerIn
    
    Sorry bitte für das falsche Unterforum
    @betterworld
    Danke so etwas hatte gesucht.
    
    Quote
    Wo ist der Unterschied zwischen den Variablen $a1 und $b1?
    
    habe die zur zum testen durch nummeriert, die 4 Werte sind 0/1,IP,Temperatur und on/off.Die Daten werden gelesen, verglichen und bei Veränderung gesendet. Möchte das Script so einfach/kurz wie möglich halten.
    
    Danke nochmal Henry
- +3 replies
- pq
  
  2013-02-07 21:37
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  Verschoben von Netzwerkprogrammierung und Netzwerke mit Perl nach Allgemeines zu Perl
  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
  - comp2000
    
    2013-02-07 21:44
    
    User since
    2013-01-20
    15 Artikel
    BenutzerIn
    
    Danke für das verschieben.
    Ok ich bin Anfänger und erst in der Mitte vom Perlbuch mein Denkfehler war das ich dachte ich kann die Variablen in einem Arrays gruppieren und das Arrays in einer Datei speichern und wieder einlesen aber das geht ja so nicht.
    @ betterworld
    Ich könnte mit den Variablen auch im Arrays arbeiten aber da ich ja noch nicht raus gefunden habe wie man ein Arrays zeilenweise speichern kann muss ich die Variablen ja zum abspeichern eh aus packen.
    Also ist mein Ansatz richtig die Variablen einzeln durch "," getrennt und mit "\n" in die Datei zu speichern und beim einlesen das "\n" zu entfernen.
    Last edited: 2013-02-07 21:57:01 +0100 (CET)
    - betterworld
      
      2013-02-07 22:43
      
      User since
      2003-08-21
      2614 Artikel
      ModeratorIn
      
      2013-02-07T20:44:39 comp2000
      @ betterworld
      Ich könnte mit den Variablen auch im Arrays arbeiten aber da ich ja noch nicht raus gefunden habe wie man ein Arrays zeilenweise speichern kann [...]
      
      Den Code dafür habe ich ja oben geschrieben...
      Lieblingsmodule: IPC::System::Simple, Path::Class
- Britzel
  
  2013-02-07 22:16
  
  User since
  2012-10-02
  20 Artikel
  BenutzerIn
  
  2013-02-07T19:49:57 comp2000
  geht es nicht einfacher? Aber nicht mit Modulen da auf der Fritzbox nur normales Perl läuft.
  Danke Henry
  
  Aber Core-Module kannst Du sicher schon verwenden, oder?
  
  Dann nimm 'Storable', das erlaubt Dir sehr einfaches Speichern und Wiedereinlesen von Datenstrukturen wie hashes, arrays usw.
  
  Gruß,
  Britzel
- +3 replies
- kristian
  
  2013-02-08 16:39
  
  User since
  2005-04-14
  684 Artikel
  BenutzerIn
  
  Hallo
  
  Quote
  geht es nicht einfacher? Aber nicht mit Modulen da auf der Fritzbox nur normales Perl läuft.
  
  Ähmmm,echt?
  Du hast Perl auf der Fritzbox?
  Kein Joke?
  Gib bitte mal nen Link für den Einstieg.
  - GwenDragon
    
    2013-02-08 17:27
    
    User since
    2005-01-17
    14761 Artikel
    Admin1
    
    Ich nehme an
    http://www.wehavemorefun.de/fritzbox/FHEM_installi...
    http://www.wehavemorefun.de/fritzbox/Perl
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - comp2000
    
    2013-02-09 22:50
    
    User since
    2013-01-20
    15 Artikel
    BenutzerIn
    
    2013-02-08T15:39:54 kristian
    Hallo
    
    Ähmmm,echt?
    Du hast Perl auf der Fritzbox?
    Kein Joke?
    Gib bitte mal nen Link für den Einstieg.
    
    Ja habe Perl auf meiner FB7270 zwar wegen Fhem aber nur Perl und nicht Fhem das läuft auf einen anderen Server.Das Perl wird neben Dropbaer und Buysbox nach geladen und funktioniert. Im mom lasse ich ein Perlscript jede Sunde von crond in der FB7270 aufrufen was 59 mal die Stunde durchläuft und nur Veränderungen an den Server mit Fhem schickt.

View all threads created 2013-02-07 20:49.