Tie::File CR und LF (Allgemeines zu Perl)

[thread]19693[/thread]

Tie::File CR und LF

Tags: perl5 Tie::File Ähnliche Threads

Leser: 14

Articles: hide open all | hide show old branches

+8 replies
Gast Jürgen

2015-06-19 17:19
Hallo zusammen,

ich brauch mal eure Hilfe, weil ich alleine nicht mehr weiterkomme.
Folgendes Problem:
Ich öffne eine Datei mit Tie::File, um darin zu schreiben:
Code (perl): (dl )

tie my @A_cur_file_data, 'Tie::File', $cur_entrykey_path, recsep => "\r\n", discipline => ':encoding(UTF-8)' or die $!;
Die Datei ist mit utf-8 Kodierung gespeichert und die Zeilen enden sind CRLF (das zeigt mir der Editor auch an)
Wenn ich nun mittels
Code (perl): (dl )

1 2 3

$A_cur_file_data[12] = "Juhu"; $A_cur_file_data[13] = "Hallo"; $A_cur_file_data[14] = "Welt!";
drei Zeilen "einfüge", so schreibt mir Tie::File folgendes in die Datei:
Juhu{CR}
Hallo{CR}
Welt1{CR}{LF}
Wieso schreibt Tie::File nicht an jedes Zeilenende ein {CR}{LF}?
Was mache ich falsch?

Bin für jeden Tip dankbar!

Grüße
Jürgen
Last edited: 2015-06-19 17:46:15 +0200 (CEST)
- GwenDragon
  
  2015-06-19 19:01
  
  User since
  2005-01-17
  14533 Artikel
  Admin1
  
  Funktioniert bei mir wunderbar auf Strawberry Perl 5.14.4 32bit Win7x64.
  Immer CRLF als Datenzeilenende.
  Last edited: 2015-06-19 19:04:36 +0200 (CEST)
  die Drachin, Gwendolyn
  
  Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
- Raubtier
  
  2015-06-19 21:14
  User since
  2012-05-04
  1054 Artikel
  BenutzerIn
  Als jemand, der noch nie Tie::File benutzt hat, frage ich mich gerade, ob man nicht statt recsep => "\r\n", discipline => ':encoding(UTF-8)' auch schreiben könnte: discipline => ':encoding(UTF-8):crlf'
  
  Gerade mal ausprobiert, folgendes kommt raus (funktioniert nur halb):
  
  Code: (dl )
  
  1 2 3 4
  
  % perl -wE'use Tie::File;tie my @A, "Tie::File", "blah.txt", discipline => ":encoding(UTF-8):crlf" or die $!; $A[2] = "Hallo";$A[4] = "Welt";' % od -A n -c blah.txt \r \n \r \n H a l l o \r \r \n W e l t \r \n \r \n
  
  Wenn ich es aber wie von Jürgen beschrieben mache, ist alles wie erwartet:
  
  Code: (dl )
  
  1 2 3 4 5
  
  % rm blah.txt % perl -wE'use Tie::File;tie my @A, "Tie::File", "blah.txt", discipline => ":encoding(UTF-8)", recsep => "\r\n" or die $!; $A[2] = "Hallo";$A[4] = "Welt";' % od -A n -c blah.txt \r \n \r \n H a l l o \r \n \r \n W e l t \r \n
- +5 replies
- Gast Jürgen
  
  2015-06-20 19:00
  Hallo ihr beiden,
  
  danke für eure Rückmeldung!
  Auch wenn ich durch eure Rückmeldung langsam aber sicher begann an mir zu zweifeln...
  
  Aber:
  Ich habe, um so wenig code wie möglich zu posten, natürlich hier und da etwas weggelassen...
  Das problem tritt nämlich genau dann auf, wenn mein Perl-Scruipt selbst mit "utf8" geschrieben wird und ich mit Tie::File einen Umlaut schreiben möchte.
  
  Hier nun der komplette Code:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11
  
  #!/usr/bin/perl use Tie::File; use utf8; tie my @A, 'Tie::File', "blah.txt", recsep => "\r\n", discipline => ':encoding(UTF-8)' or die $!; $A[3] = 'Hallo'; $A[4] = 'welt'; $A[12] = 'Sehr gut Jürgen'; $A[13] = 'äüöß'; $A[14] = 'Was mache ich falsch?';
  
  Was mache kich falsch?
  Woran liegt es?
  Wenn ich Tie::File nicht benutzen kann, gibt es ein ähnliches Modul oder ein "BestPractise"?
  Ich lade Teile einer UTF8-kodierten Textdatei in mein Programm.
  Die Teile die ich ändere, wegnehme oder hinzufügen sollen in die bestehende Textdatei wieder eingefügt werden.
  Heisst:
  wenn ich nur die Zeilen ändere => Änderung übernehmen an genau der Stelle in der Textdatei wo es war
  wenn ich Text ändere und Zeilen lösche => Änderungen übernehmen und die gelöschten Zeilen auch in der Datei löschen
  wenn ich Text ändere und neue Zeilen hinzufüge => Änderungen übernehmen und die neuen Zeilen in die Textdatei einfügen. Alle nachfolgenden Zeilen rutschen damit um die Anzahl der neuen Zeilen nach "hinten"
  Wie könnte ich das umsetzen ausser mit Tie::File?
  
  Wisst ihr die Tie::File Lösung oder eine andere Lösung?
  
  Danke und schönen Samstag Abend
  Grüße
  Jürgen
  Last edited: 2015-06-20 19:02:07 +0200 (CEST)
  - +4 replies
  - GwenDragon
    
    2015-06-20 19:08
    
    User since
    2005-01-17
    14533 Artikel
    Admin1
    
    Ich denke, das ist ein alter Bug aus 0.98 :(
    Siehe https://rt.cpan.org/Public/Bug/Display.html?id=960...
    die Drachin, Gwendolyn
    
    Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
    - +3 replies
    - Gast Jürgen
      
      2015-06-21 11:44
      
      ah - ok, verstehe.
      Ich lerne: Tie::File ist für meinen speziellen Fall nicht zu gebrauchen.
      
      Eine Frage noch an die Experten bitte:
      Was ist mit dem Konstrukt:
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9
      
      open(FH,"blah.txt") || die $!; @A = <FH>; close(FH); # mach Sachen mit Array... open(FH,">blah.txt") || die $!; print FH @A; close(FH)
      
      Hiermit könnte ich doch arbeiten, oder!?
      Bis zu welcher "Zeilenanzahl" kann ich den Konstrukt sinnvoll verwenden?
      ich rechne mit einer maximalen Zeilenzahl von ca. 500 Zeilen
      
      Oder ist das einfach nur "bäh" was ich da dann machen würde?
      Wenn ja - wie geht es besser/schöner/ RICHTIGER?
      
      Danke und Gruß
      Jürgen
      Last edited: 2015-06-21 12:35:38 +0200 (CEST)
      - hlubenow
        
        2015-06-21 16:47
        
        User since
        2009-02-22
        875 Artikel
        BenutzerIn
        
        Bei 500 Zeilen ist das überhaupt kein Problem.
        
        Jürgen
        Bis zu welcher "Zeilenanzahl" kann ich den Konstrukt sinnvoll verwenden?
        
        Ich würde sagen, wenn Du 1 GB freien RAM-Speicher hast, und eine Zeile 1.000 Zeichen hat, dann kannst Du das bis ca. 1 Mio. Zeilen machen.
        Wenn eine Zeile nur 100 Zeichen hat, bis ca. 10 Mio. Zeilen, usw..
        Dazu kommt, daß das Betriebssystem über Swap möglicherweise noch mehr verarbeiten könnte.
        
        Alternativ kannst Du immer nur eine Zeile zur Zeit einlesen:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14
        
        #!/usr/bin/perl use warnings; use strict; my $filename = "myfile"; open(my $fh, "<", $filename); my $nr = 0; while (my $l = <$fh>) { $nr++; chomp($l); print "$nr.\t$l\n"; } close($fh);
        
        Dann hast Du kein Problem mit dem Speicher.
        Ich persönlich finde es aber meist bequemer, alles in ein Array zu lesen. Ist mir egal, was andere dazu sagen (ausgenommen Forenfreunde ;) ).
        Last edited: 2015-06-21 17:00:03 +0200 (CEST)
      - charly54
        
        2015-06-21 17:16
        
        User since
        2015-04-24
        10 Artikel
        BenutzerIn
        
        Hallo Jürgen,
        ich würde das heute etwa so machen:
        
        Code (perl): (dl )
        
        1 2 3 4 5
        
        open( my $fhi, '<', $datei ) or die "Fehler bei open: $!"; # lesend öffnen while(<$fhi>) { # mach was mit $_ } close $fhi;
        
        Die Begründung findest Du u.a. hier: http://reneeb-perlblog.blogspot.de/2009/09/verschiedenes-zu-open.html
        Zum Thema findest Du neben vielen anderen Infos auch hier was: http://perltraining.com.au/tips/2011-01-26.html
        Zusätzlich könnte auch noch die Lektüre von http://perl-tutorial.org/ und dort vielleicht "Modern Perl" helfen.
        Viel Spaß und Erfolg damit!
        Gruß,
        charly54.
        das ist wohl eine typische Überscheidung mit hlubenow. Nächstes Mal prüfe ich vor dem Posten.
        Last edited: 2015-06-21 17:24:40 +0200 (CEST)

View all threads created 2015-06-19 17:19.