1 file in mehreren kleine file spliten (Allgemeines zu Perl)

[thread]19723[/thread]

1 file in mehreren kleine file spliten

Tags: perl5 Ähnliche Threads

Leser: 16

Articles: hide open all | hide show old branches

+6 replies
Gast Henri

2015-07-11 20:37
Hallo Leute ich möchte die File result_3.csv in mehrere file.csv leider schafe ich es nicht, das ist was ich schon gemacht habe. Danke für ihre Hilfe.
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 24 25

use strict; use warnings FATAL => 'all'; use autodie; open(INPUT, '<', 'result_3.csv'); my $nombre=0; my @fichiers; while((my $ligne=<INPUT> )) { next if($ligne=~/^\d+\s+\d{2}:\d{2}:\d{2}\s*$/); next if($ligne=~/^\s+$/); next if($ligne=~/^default/); if($ligne=~/,fault,/) { $nombre++; push @fichiers, (split(/,/, $ligne))[0]; } } close(INPUT); open(OUTPUT, '>', 'resultat.txt'); print OUTPUT join("\n", @fichiers); close(OUTPUT);
_____________________DATA_________________________
20150627 19:08:00
default, prim, second, copy_direct, forced_copy, always_allow, type_of_dump, full_memory,

d100spupt, /dev/lg_du, /dev/sysdu, /var/adm, 1, 1, fault, disallow,
doc10, 5, fault, 7, ad8, 9, wu, disallow,
doc11, 5, fault, 5g7, 8, te, 10, disallow,
doc12, 5, fault, 7, ca, 9hg, 10, disallow,
doc13, 5, fault, 7, 8, 35hg, 10, disallow,

____________________OUTPUT______________________________
Output: file1

prim:
d100spupt : /dev/lg_du
doc10 : 5
doc11 : 5
doc12 : 5
doc 13 : 5

Output: file2

second:
d100spupt : /dev/sysdu
doc10 : fault
doc11 : fault
doc12 : fault
doc 13 : fault

Output: file3

copy_direct:
d100spupt : /var/adm
doc10 : 7
doc11 : 5g7
doc12 : 7
doc 13 :7
...
...
...
Output: file7

full_memory:
d100spupt : disallow
doc10 : disallow
doc11 : disallow
doc12 : disallow
doc 13 :disallow
Last edited: 2015-07-11 22:22:22 +0200 (CEST)
- +5 replies
- hlubenow
  
  2015-07-12 00:54
  
  User since
  2009-02-22
  875 Artikel
  BenutzerIn
  
  Guest Henri
  ich möchte die File result_3.csv in mehrere file.csv
  
  Aber nach welchen Kriterien soll die Ausgangsdatei in mehrere andere Dateien aufgeteilt werden?
  - +4 replies
  - Gast Henri
    
    2015-07-12 12:01
    
    Hi Hlubenow,
    habe ich doch ein beispiel gegeben, wenn du die DATA anschauen und wie die Ausgabe aussehen, ich glaube ist noch besser als mit Wörter zu erklären.
    dh. erste zeile mit Datum und Uhrzeit ignorieren.
    default ignorieren
    dann geht los, wählt den Paramter prim und gibt uns
    
    Output: file1
    
    prim:
    d100spupt : /dev/lg_du
    doc10 : 5
    doc11 : 5
    doc12 : 5
    doc 13 : 5
    
    wählt den Parameter second und gibt uns
    
    Output: file2
    
    second:
    d100spupt : /dev/sysdu
    doc10 : fault
    doc11 : fault
    doc12 : fault
    doc 13 : fault
    
    usw
    dh bei der Ausgabe den Parametername dann
    alle Dokumentename und die entsprechende value.
    Sonst wenn noch etwas unklar ist bitte fragen.
    Danke.
    
    _____________________DATA_________________________
    20150627 19:08:00
    default, prim, second, copy_direct, forced_copy, always_allow, type_of_dump, full_memory,
    d100spupt, /dev/lg_du, /dev/sysdu, /var/adm, 1, 1, fault, disallow,
    doc10, 5, fault, 7, ad8, 9, wu, disallow,
    doc11, 5, fault, 5g7, 8, te, 10, disallow,
    doc12, 5, fault, 7, ca, 9hg, 10, disallow,
    doc13, 5, fault, 7, 8, 35hg, 10, disallow,
    Last edited: 2015-07-12 13:16:45 +0200 (CEST)
    - +3 replies
    - Raubtier
      
      2015-07-12 13:43
      
      User since
      2012-05-04
      1075 Artikel
      BenutzerIn
      
      Dann ist aber dein gesamter Code merkwürdig. Was machen die regulären Ausdrücke bei dir, warum suchst du nach ",fail," usw.
      
      Wenn du nur aufteilen willst, dann z.B. so:
      
      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 24 25 26 27 28 29 30 31 32
      
      use strict; use feature qw(say); use autodie qw(:all); scalar <DATA>; my @header = split /\s*,\s*/, <DATA>; chomp $header[-1]; my @outputFHs; for (1..@header-1) { open $outputFHs[$_], ">", "file$_"; say {$outputFHs[$_]} "$header[$_]:"; } while (<DATA>) { chomp; next unless length; my @cols = split /\s*,\s*/; for my $colNo (1..@header-1) { say {$outputFHs[$colNo]} "$cols[0] : $cols[$colNo]"; } } __DATA__ 20150627 19:08:00 default, prim, second, copy_direct, forced_copy, always_allow, type_of_dump, full_memory, d100spupt, /dev/lg_du, /dev/sysdu, /var/adm, 1, 1, fault, disallow, doc10, 5, fault, 7, ad8, 9, wu, disallow, doc11, 5, fault, 5g7, 8, te, 10, disallow, doc12, 5, fault, 7, ca, 9hg, 10, disallow, doc13, 5, fault, 7, 8, 35hg, 10, disallow,
      
      Bei deinem nächsten Problem werde ich aber nur noch antworten, wenn die Fragestellung sinnvoll und verständlich ist. Vor allem wäre es gut, wenn du beschreiben würdest, womit genau du ein Problem hast und nicht nur ein Script zu liefern, das scheinbar nichts mit der Fragestellung zu tun hat.
      - gelöscht 2015-07-12 14:02
      - Gast Henri
        
        2015-07-12 14:10
        
        Mein Code liefert mir nur die die Doc-Name
        Vielen Dank für deinen Vorschlag
        Last edited: 2015-07-12 15:31:42 +0200 (CEST)

View all threads created 2015-07-11 20:37.