Datei splitten in mehrere Dateien (Allgemeines zu Perl)

[thread]16926[/thread]

Datei splitten in mehrere Dateien

Tags: perl5 Ähnliche Threads

Leser: 24

Articles: hide open all | hide show old branches

+12 replies
Gast dave

2011-11-18 14:11
Hallo ich habe folgendes Problem

ich habe eine Datei, die ich nach Länderkennzeichen splitten muss in einzelne Dateien. Die Sätze kommen durcheinander. Ich dachte mir, dass ich iemmer bei einem neuen Land eine zusätzliche Datei öffne, mir diese in einem hash merke, und den print in die entsprechende Datei mache.
Der open und das Schreiben des aktuellen Satzes funktioniert auch, aber die Variable $out ist nach dem Öffnen nicht mehr das Känderkennzeichen sondern "GLOB(0x592ce6c)"

kann mir jemand helfen?
Code (perl): (dl )

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

if (exists $lkzs{CountryCode}){ $out = $lkzs{CountryCode}; print $out $satz; } else { $land = CountryCode; $datei = $verzeichnis.$land.".txt"; $out = CountryCode; open (our $out,">:raw:utf8",$datei); $lkzs{CountryCode} = $out; print $out $header; print $out $satz; }
modedit Editiert von GwenDragon: Bitte Code in CODE oder PERL-Tags stellen siehe Formatierungshilfe!
Last edited: 2011-11-18 14:19:29 +0100 (CET)
- +3 replies
- bianca
  
  2011-11-18 16:41
  
  User since
  2009-09-13
  7016 Artikel
  BenutzerIn
  
  Überprüf das mal mit dem CountryCode.
  Das verwendest du einmal als Konstante für einen Hashkey und einmal als Bareword. Das kann so irgendwie nicht richtig sein.
  10 print "Hallo"
  20 goto 10
  - +2 replies
  - Gast dave
    
    2011-11-18 17:02
    
    ah, sorry, das ist missverständlich. Es handelt sich um eine Perl-Anwendung aus einer anderen software, da kann man variablen von außen mitgeben. In dem Fall CountryCode, denk Dir einfach ein $ davor.
    
    Last edited: 2011-11-18 17:07:58 +0100 (CET)
    - GUIfreund
      
      2011-11-18 17:32
      
      User since
      2011-08-08
      559 Artikel
      BenutzerIn
      
      Guest dave
      ah, sorry, das ist missverständlich. Es handelt sich um eine Perl-Anwendung aus einer anderen software, da kann man variablen von außen mitgeben. In dem Fall CountryCode, denk Dir einfach ein $ davor.
      
      Was heißt hier "denk dir"? Der Perl-Interpreter kann nicht denken. Das $ musst du schon selbst setzen. Der Perl-Interpreter kann dich aber auf Fehler hinweisen. Deshalb
      
      Code (perl): (dl )
      
      1 2
      
      use strict; use warnings;
      
      am Anfang jedes Perl-Skripts!
      Gruß
      GUIfreund
- +4 replies
- GwenDragon
  
  2011-11-18 17:11
  User since
  2005-01-17
  14748 Artikel
  Admin1
  Probiere doch mal
  
  Code (perl): (dl )
  
  1 2
  
  use strict; use warnings;
  
  zu verwenden.
  
  Ich nehme an, in $out soll ein Dateihandle drin stehen.
  Wieso füllst du dann $out in Zeile 7 und lässt es in Zeile 8 wieder druch das Dateihandle überschreiben?
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +2 replies
  - Gast dave
    
    2011-11-18 17:13
    
    wie mache ich den open anders?
    Last edited: 2011-11-18 17:16:32 +0100 (CET)
    - rosti
      
      2011-11-18 19:41
      
      User since
      2011-03-19
      3472 Artikel
      BenutzerIn
      
      Quote
      wie mache ich den open anders?
      
      Anders && besser && schöner ;)
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9
      
      use strict; use warnings; use IO::File; my $fh = IO::File->new; $fh->open($file, O_RDWR) or die $!; $fh->print... $fh->seek... $fh->truncate... $fh->close;
      
      Es gibt gute Gründe, das Handle von IO:::File machen zu lassen. Zu Deinem Problem: Abstrahiere die Aufgabenstellung "Datei splitten" mal in die Aufgabenstellung "Datenstruktur verarbeiten".
      
      D.h., überlege Dir, wie Du den Inhalt der Datei auf eine Datenstruktur, sprich Array, Hash, Hash-Referenzen o.ä. bekommst. Das Zurückschreiben in die Datei ist dann die Umkehrung des Algorithmus.
      
      Zeig mal die Datei, evntl. fällt mir was ein ;)
  - GwenDragon
    
    2011-11-18 17:18
    User since
    2005-01-17
    14748 Artikel
    Admin1
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12
    
    if (exists $lkzs{CountryCode}){ $out = $lkzs{CountryCode}; print $out $satz; } else { $land = CountryCode; $datei = $verzeichnis.$land.".txt"; $out = CountryCode; open (my $fh,">:raw:utf8",$datei); $lkzs{CountryCode} = $fh; print $fh $header; print $fh $satz; }
    
    Ich weiß nicht, was du in Zeile 7 mit $out einlesen willst. Das kannst nur du wissen.
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +3 replies
- GUIfreund
  
  2011-11-18 17:23
  User since
  2011-08-08
  559 Artikel
  BenutzerIn
  Guest dave
  Der open und das Schreiben des aktuellen Satzes funktioniert auch, aber die Variable $out ist nach dem Öffnen nicht mehr das Känderkennzeichen sondern "GLOB(0x592ce6c)"
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12
  
  if (exists $lkzs{CountryCode}){ $out = $lkzs{CountryCode}; print $out $satz; } else { $land = CountryCode; $datei = $verzeichnis.$land.".txt"; $out = CountryCode; open (our $out,">:raw:utf8",$datei); $lkzs{CountryCode} = $out; print $out $header; print $out $satz; }
  
  Das ist völlig normal. In Zeile 7 setzt du $out auf CountryCode, in Zeile 8 benutzt du es als Dateihandle. Das Dateihandle wird dann in Zeile 9 im Hash gespeichert. Hast du irgendwelche Probleme?
  
  Übrigens: verwendest du
  
  Code (perl): (dl )
  
  1 2
  
  use strict; use warnings;
  
  am Anfang deines Skripts?
  Gruß
  GUIfreund
  - +2 replies
  - Gast dave
    
    2011-11-18 17:32
    
    da ich ja fuer jedes Land eine Datei öffne (gleichzeitig), muss ich mir irgendwie merken, wohin ich den print mache, das wollte ich eigentlich mit dem hash.
    Last edited: 2011-11-18 17:37:45 +0100 (CET)
    - GUIfreund
      
      2011-11-19 17:41
      
      User since
      2011-08-08
      559 Artikel
      BenutzerIn
      
      Guest dave
      da ich ja fuer jedes Land eine Datei öffne (gleichzeitig), muss ich mir irgendwie merken, wohin ich den print mache, das wollte ich eigentlich mit dem hash.
      Und genau das macht dein Kode. Funktioniert etwas bei dir nicht? Bei mir ist alles ok.
      
      Allerdings weißt du sowieso, dass $lkzs{$CountryCode} jeweils den Wert $CountryCode hat. Du musst ihn also nicht im Hash speichern, kannst einfach schreiben
      
      Code (perl): (dl )
      
      $lkzs{$CountryCode} = 1;
      
      Den Hash brauchst du nur noch, um festzustellen, ob die Datei für $CountryCode schon geöffnet ist. Ansonsten kannst du überall $out durch $CountryCode ersetzen. Und wenn du den Test
      
      Code (perl): (dl )
      
      if (exists $lkzs{$CountryCode}){
      
      durch
      
      Code (perl): (dl )
      
      if (fileno $CountryCode){
      
      ersetzt, brauchst du den Hash gar nicht mehr. Damit landest du bei
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9
      
      if (fileno $CountryCode){ print $CountryCode $satz; } else { $land = $CountryCode; $datei = "$verzeichnis.$land.txt"; open ($CountryCode,">:raw:utf8",$datei); print $CountryCode $header; print $CountryCode $satz; }
      
      Weitere Vereinfachungen überlasse ich dir zur Übung. Tipp: verschiebe
      
      Code (perl): (dl )
      
      print $CountryCode $satz;
      
      hinter das Ende der if-Konstruktion.
      
      Gruß
      GUIfreund
- esskar
  
  2011-11-18 17:26
  User since
  2003-08-04
  7321 Artikel
  ModeratorIn
  warum du beim open noch mal (our $out) sagst, ist mir nicht ganz klar.
  den Hash %lkzs würde ich in %lkz_filesumtaufen und statt dann schau dir mal IO::File an. Außerdem sollte man sich abgewöhnen, keine englisch-fremden Bezeichner zu benutzen. (also besser auch %registration_number_files)
  
  hier mal, wie ich es schreiben würde
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
  
  use IO::File; my %Registration_Number_Files; my $Registration_Number_Path = '/path/to/registration_numbers'; # ... sub write_record { my ($country_code, $header, $record) = @_ my $file_handle = $Registration_Number_Files{$country_code}; unless($file_handle) { my $file_name = "$Registration_Number_Path/$country_code.txt"; $file_handle = IO::File->new(">:raw:utf8", $file_name) or die "Failed to create '$file_name'"; print $file_handle $header; $Registration_Number_Files{$country_code} = $file_handle; } print $file_handle $record; }
  
  später dann noch dran denken, alle filehandles auch nochmal zu schließen.

View all threads created 2011-11-18 14:11.