Variable in Arbeitsspeicher halten (gelöst) (Allgemeines zu Perl)

[thread]15200[/thread]

Variable in Arbeitsspeicher halten [gelöst]

Leser: 19

Articles: hide open all | hide show old branches

+8 replies
pktm

2010-06-26 15:38

User since
2003-08-07
2921 Artikel
BenutzerIn

Hallo!

Kann ich eine variable irgendwie komfortabel im Arbeitsspeicher halten?
Ich muss gleich 52.000 Datensätze in eine Datenbank schreiben, die alle einzeln an ein Perl-Skript übergeben werden. Die Datensätze sind gruppiert, es kommt immer erst eine Nummer, dann eine Reihe von Datensätzen. Allerdings immer nur eines pro Skriptaufruf.

Jetzt muss ich mir zwischen den Aufrufen merken, welche Nummer die letzte war, da die in der DB zu jedem Datensatz muss.

Meine Idee ist, eine Daten zu schreiben, die die Nummer enthält und die jedes Mal beim Programmstart kurz auszulesen. Ist ja nicht so der Akt.
Dennoch würde es mich interessieren, ob man da nicht irgendwie eine virtuelle Datei im Arbeitsspeicher einrichten kann, so dass ich nicht immer an die Datei muss. Oder eventuell eine Umgebungsvariable? Der Export läuft am Stück durch.

Hat jemand Ideen dazu? Ansätze? Sniplets? Würde mich interessieren.

Edit: kann man das Datenbankhandle auch irgendwie offen halten?

Grüße, pktm
Last edited: 2010-06-26 15:39:34 +0200 (CEST)
http://www.intergastro-service.de (mein erstes CMS :) )
- +3 replies
- Escape
  
  2010-06-26 15:42
  
  User since
  2008-07-24
  312 Artikel
  BenutzerIn
  
  $ENV{'My_Num'}
  sollte funktionieren.
  
  Oder eben die jeweils aktuelle Nummer an den Scriptaufruf hängen.
  Last edited: 2010-06-26 15:43:37 +0200 (CEST)
  Die Deutsche Rechtschreibung ist Freeware; Du darfst sie kostenlos nutzen – aber sie ist nicht Open Source, d.h. Du darfst sie nicht verändern und/oder in veränderter Form veröffentlichen.
  - +2 replies
  - pktm
    
    2010-06-26 16:04
    User since
    2003-08-07
    2921 Artikel
    BenutzerIn
    
    ja, das mit dem anhängen klappt nicht, weil ich auf die zum Zeitpunkt des Aufrufs mit einem Datensatz nicht zugreifen kann.
    
    Das mit $ENV scheint nicht zu klappen, hier mein Skript:
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
    
    #!/Perl/bin/perl use strict; use warnings; my $task = $ARGV[0]; my $input = $ARGV[1]; if( $task eq 'filename' ) { my ($oxartnum) = $input =~ m~.+\\([^\\]+).html~; $ENV{current_oxartnum} = $oxartnum; print "set oxartnum to $oxartnum\n"; }else{ my $oxartnum = $ENV{current_oxartnum}; print "new segment: <$oxartnum, $input>\n"; }
    
    Setzt man %ENV anders?
    
    Grüße, pktm
    
    //Modedit GwenDragon: Codetags repariert
    Last edited: 2010-06-26 16:34:56 +0200 (CEST)
    http://www.intergastro-service.de (mein erstes CMS :) )
    - gabimuc
      
      2010-06-26 16:45
      
      User since
      2010-06-21
      33 Artikel
      BenutzerIn
      
      wenn du ein programm laufen läßt, wird ein neuer prozess erzeugt. dieser erbt das environment von seinem parent process. der parent process bekommt aber nichts davon mir, was der child prozess tut. d.h., wenn das programm beendet ist, dann ist auch die env variable aus deinem proggy wieder weg.
      
      du könntest die Variable in die bashrc schreiben. aber dann greift's auch nur, wenn eine neue shell aufgemacht wird.
      
      soll etwas auch nach programm ende noch definiert sein, dann ist ENV der falsche weg.
      
      ich würd's in ne datei schreiben
      root is a state of mind - k0resh
- +4 replies
- GwenDragon
  
  2010-06-26 17:09
  
  User since
  2005-01-17
  14775 Artikel
  Admin1
  
  Schau mal bei CPAN unter IPC (aka InterProcessCommunication).
  Da gibt es so einiges, über das Prozesse Daten austauschen können.
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +3 replies
  - pktm
    
    2010-06-26 17:41
    User since
    2003-08-07
    2921 Artikel
    BenutzerIn
    
    Ah, schön. Bei IPC::SharedLite bin ich über Storable gestolpert, das neheme ich jetzt, weil es so schön einfach ist:
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30
    
    #!/Perl/bin/perl use strict; use warnings; use Storable qw(store retrieve); =comment Store a value: >perl ser.pl store stored_value set stored value to stored_value Retrieve stored value: >perl ser.pl other_task some_value other_task: <stored_value, some_value> =cut my $task = $ARGV[0]; my $input = $ARGV[1]; if( $task eq 'store' ) { store( {number => $input}, 'store.txt' ); print "set stored value to $input\n"; }else{ my $ref = retrieve('store.txt'); my $number = $ref->{number}; print "$task: <$number, $input>\n"; }
    
    http://www.intergastro-service.de (mein erstes CMS :) )
    - +2 replies
    - renee
      
      2010-06-26 18:47
      
      User since
      2003-08-04
      14371 Artikel
      ModeratorIn
      
      Wenn mehrere Prozesse lesend und schreibend drauf zugreifen können, würde ich aber lock_store und lock_retrieve nutzen.
      OTRS-Erweiterungen (http://feature-addons.de/)
      Frankfurt Perlmongers (http://frankfurt.pm/)
      --
      
      Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
      Perl-Entwicklung: http://perl-services.de/
      - pktm
        
        2010-06-26 21:21
        
        User since
        2003-08-07
        2921 Artikel
        BenutzerIn
        
        Es ist definitiv immern ur einer und der Export geschah sequentiell. Hat prima geklappt. Schlappe 3h später sind alle Daten in der DB :)
        http://www.intergastro-service.de (mein erstes CMS :) )

View all threads created 2010-06-26 15:38.