Datei randomly blockweise splitten (gelöst) (Allgemeines zu Perl)

[thread]15076[/thread]

Datei randomly blockweise splitten [gelöst]

Leser: 19

Articles: hide open all | hide show old branches

+11 replies
alla

2010-05-31 17:07

User since
2009-10-19
21 Artikel
BenutzerIn

Hallo zusammen,

ich habe eine Datei, die Textblöcke im folgenden Format enthält:

Seite:
Zeile
Token1:
Token2:
Text1
Text2
__

Nun muss ich die Datei randomly splitten. Dabei möchte ich 50% der Blöcke in die Datei 1 schreiben und die anderen 50% in die Datei 2. Die Funktion rand soll also hilfreich sein?
- +10 replies
- moritz
  
  2010-05-31 17:10
  
  User since
  2007-05-11
  923 Artikel
  HausmeisterIn
  
  Ja, koennte sie sein. Oder List::Util::shuffle.
  Perl 6 - Perls Zukunft
  - +9 replies
  - alla
    
    2010-05-31 23:02
    User since
    2009-10-19
    21 Artikel
    BenutzerIn
    
    Code: (dl )
    
    1 2 3 4 5
    
    my @blocks = do { local $/ = "Seite:"; <TXT> }; @shuffled = shuffle(@blocks); foreach (@shuffled) { print TXT1 $_; }
    
    gibt aus dieselben Blocks in selber Reihenfolge wie vorher...
    - alla
      
      2010-05-31 23:13
      
      User since
      2009-10-19
      21 Artikel
      BenutzerIn
      
      ich glaube, shuffle ist nicht dafür geeignet, Arrays blockweise zu reordnen. Ein Test auf der Zeilenebene misch die gesamten Zeilen auf, aber blockweise tut's nicht.
    - +7 replies
    - Taulmarill
      
      2010-05-31 23:14
      
      User since
      2004-02-19
      1750 Artikel
      BenutzerIn
      
      Bei mir funktioniert das. Lass @shuffled oder @blocks doch mal mit Data::Dumper ausgeben. Evtl. wird die Datei nicht so eingelesen wie du denkst.
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
      
      use strict; use warnings; use v5.10; use List::Util qw(shuffle); my @blocks = do { local $/ = "Seite:\n"; map {chomp;$_} <DATA> }; my @shuffled = shuffle(@blocks); foreach (@shuffled) { print $_; } __DATA__ Seite: Zeile Seite: Token1: Seite: Token2: Seite: Text1 Seite: Text2
      
      $_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B
      - +6 replies
      - alla
        
        2010-05-31 23:23
        
        User since
        2009-10-19
        21 Artikel
        BenutzerIn
        
        wenn meine DATA so aussieht:
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10 11
        
        __DATA__ Seite1: Zeile Seite2: Token1: Seite3: Token2: Seite4: Text1 Seite5: Text2
        
        will ich folgende Ausgabe:
        Seite1
        Zeile
        
        Seite3
        Token2
        
        Seite4
        Text1
        
        so dass Seite[\d] eine Art Block bildet, welcher dann geshuffled wird...
        
        +5 replies
        
        Gast wer
        
        2010-05-31 23:31
        
        Du braucht immer einen eindeutigen Teil. bei dir ist es wie es scheint:
        
        Code (perl): (dl )
        
        $/ = 'Seite';
        
        Last edited: 2010-06-01 00:37:50 +0200 (CEST)
        
        +4 replies
        
        alla
        
        2010-06-01 09:14
        
        User since
        2009-10-19
        21 Artikel
        BenutzerIn
        
        Ja, genau.
        
        +3 replies
        
        alla
        
        2010-06-01 13:42
        
        User since
        2009-10-19
        21 Artikel
        BenutzerIn
        
        Ok, hat geklappt :) Danke an alle!
        
        +2 replies
        
        pq
        
        2010-06-01 13:48
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        ich zitiere mich mal, aus msg #137640:
        
        Quote
        die ursprüngliche frage scheint ja dann gelöst zu sein, oder?
        dann mach ich mal ein häkchen an den thread. kannst du in zukunft auch selber machen "Thread als gelöst markieren" direkt unter dem thread-titel.
        
        ich weiss nicht, ob du threads überhaupt noch liest, wenn du die lösung hast? wenn du das häkchen aus irgendeinem grund nicht machen willst, kannst du den grund natürlich gerne verraten.
        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
        
        alla
        
        2010-06-01 14:15
        
        User since
        2009-10-19
        21 Artikel
        BenutzerIn
        
        Ok, danke für den Tipp. Ich hab's als gelöst markiert!

View all threads created 2010-05-31 17:07.