code einbinden (Allgemeines zu Perl)

[thread]19767[/thread]

code einbinden

Tags: perl5 Ähnliche Threads

Leser: 12

Articles: hide open all | hide show old branches

+10 replies

Gast Henri

2015-08-22 22:33

Hallo leute ich werde euch um Hilfe bitten,

ich habe 4 (A,B,C,D) perl-skript die ich gern einbinden möchte leider klappt es nicht un hier gibt kluger Menschen die mir vielleicht helfen können.
Am anfang dachte ich es wäre ein einfache Aufgabe, leider ist es aber nicht.
ich muss A+B einbinden und C+D einbinden.

Hier habe ich mit A+B begonnen so sieht es aus

Code (perl): (dl )

 #!/usr/bin/perl
    use strict;
    use warnings;
    use autodie;
    use List::Util 'any';
    use Text::CSV;
     
    my $input_file = 'DATA.csv';
    my (@headers, %docs);
        my $n = 0;
        my @docs;
        
    open my $fh, '>',"fh.html";
        
    open(my $Fhresult, '<', $input_file);
    while (<$Fhresult> ) {      
     last if (/^\d+\s+\d{2}:\d{2}:\d{2}\s*$/); 
    }
    while (<$Fhresult> ) { 
     if ($. == 2) {          
       chomp;  
       s/^default,\s*//;   
       @headers = split ( /[ ,. ;:\(\)\/\*\"]+/ );  
       next; 
     }
     next unless /\S/;
     chomp;
         
    my ($file, @fields) = split /\s*,\s*|\s+/;  
    push @docs, {'file'=>$file, 'fields'=>\@fields} if any { $_ eq 'fault' } @fields;
}

close($Fhresult);


foreach my $doc (@docs) {        
open($fh, '>', "$doc->{'file'}.html" );
    print $fh  "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01//EN\" \"http://www.w3.org/TR/html4/strict.dtd\">
<html>
 <head>
   <title>SYSTEM</title>
   <meta charset=\"UTF-8\"/>
   <link href=\"syst.css\" type=\"text/css\" rel=\"stylesheet\"/>
 </head>
 <body>\n<div id=\"c1\">\n<table>\n<tr>\n<th>";
    print $fh $doc->{'file'} , ":</th>\n</tr>\n";
    foreach (0..$#headers) {     
        print $fh ("<tr><td>$headers[$_]</td>\n<td>$doc->{'fields'}[$_]</td></tr>");
                
                 ++$n;
    }
        print $fh "</tr>\n</table>\n";
        
}


my $csv = Text::CSV->new;
open my $csv_file, "<", "DATA2.csv" or die "Can't open CSV file: $!\n";
while (my $row = $csv->getline($csv_file)) {

    
    my($significator_and_file) = clean($row->[0]);
    my ($significator, $file) = split /\s+/, $significator_and_file;
    next unless $significator and $significator eq 'false';

    open (my $per_line_fh, ">>", "$file.html") or die "Can't open per-line file $file: $!\n";

    
    shift @$row;
        
        print $per_line_fh "<table>\n<tr><th>$file:</th></tr>\n";
        
        for my $i(map {clean($_)} @$row) {
          #chomp $i;       
        my $d = "<tr><td>$i</td></tr>\n";
        chomp $i;
    print $per_line_fh $d if ($i); 
        }
    print $per_line_fh "</table>\n</body>\n</html>";
    close $per_line_fh;
}

sub clean {    
    my $string = shift;
    $string =~ /\s*,\s*/;
    $string =~ /\s*,\s*/;
    return $string;
}

die beide code auseinender laufen perfekt, leider wenn ich die einbindne gibt es ein problem.
ich erkläre
Code A geht bis zu Zeile 54 und code B von 54 bis 80
jede von diesem Code wenn ich die entsprechende Data laufen lasse, geben mir mehrere Dateien zurück, jede Datei hat eine Name ich diese datei werden informationen geschrieben.
wenn ich A lauft lässen bekomme ich die Dateien danach werde die durch append geöffnen und geschrieben.
Da die infomationen aus der DATA2.csv wiederholen sich mehrere mal(das ist ganz normal) mein code schreibt leider diese Info leider auch mehrere mal auf meinem in den ausgabe File, gibt es eine möchglichkeit zu machen dass meine Code nur jedes mal die Informationen in den entsprechende Datei nur einmal schreibt und geht auf dem nächste und so weiter.
Last edited: 2015-08-22 22:50:17 +0200 (CEST)

Gast Henri

2015-08-23 09:21

kein, kann mir hier helfen ? bitte
Last edited: 2015-08-23 10:23:47 +0200 (CEST)
+3 replies
bianca

2015-08-23 17:18

User since
2009-09-13
7016 Artikel
BenutzerIn

Leider verstehe ich weder dein Deutsch noch die Frage.
Vermutlich geht es anderen auch so.
10 print "Hallo"
20 goto 10
- Gast Henri
  
  2015-08-23 18:22
  
  es kann sein, dass keine mich gut vestehen deutsche sprache ist leider nicht meine Muttersprache aber es geht darum möchte ich die Ausgabe auf dem gleich File haben.
  dh sei 2 Code A und B
  
  A schreibt seine Ausgabe in file und gibt es an B weiter
  dann B öffnet file schreibt auch seine ausgabe in file und gibt diese zurück.
  Last edited: 2015-08-23 18:27:32 +0200 (CEST)
- Gast janus
  
  2015-08-23 19:48
  
  2015-08-23T15:18:31 bianca
  Leider verstehe ich weder dein Deutsch noch die Frage.
  Vermutlich geht es anderen auch so.
  
  Ja
  Last edited: 2015-08-23 20:17:51 +0200 (CEST)
+5 replies
Raubtier

2015-08-23 22:48
User since
2012-05-04
1076 Artikel
BenutzerIn
Guest Henri

Code (perl): (dl )

1 2 3 4 5 6

sub clean { my $string = shift; $string =~ /\s*,\s*/; $string =~ /\s*,\s*/; return $string; }
Interessante Schreibweise für die Identität ;-) *

Ansonsten sind mir deine Problem auch unklar. Solange der Quelltext nicht ordentlich eingerückt ist und das Problem nicht auf ein Minimum reduziert ist, habe ich auch keine Lust, vom Code her dein Problem zu erraten.

* Falls nicht klar: diese Funktion tut nicht das, was sie vermutlich tun soll!
- gelöscht 2015-08-23 23:31
- gelöscht 2015-08-23 23:33
- +2 replies
- Gast Henri
  
  2015-08-23 23:58
  Hallo Raubtier,
  hast du eine besere schreibweise dann wäre auch nett es zu veröffentlichen.
  ja hatte ich es nicht korrigiert
  
  Code (perl): (dl )
  
  1 2 3 4 5 6
  
  sub clean { my $string = shift; $string =~ s/\s*,\s*//g; $string =~ s/\s*,\s*//g; return $string; }
  
  ok, ganz kurz ich möchte einfach die beide code einbinden.
  die ausgabe sollte auf den selben ouput file geschrieben werden.
  Last edited: 2015-08-24 01:44:36 +0200 (CEST)
  - Gast Henri
    
    2015-08-24 12:37
    Guest Henri
    Hallo Raubtier,
    hast du eine besere schreibweise dann wäre auch nett es zu veröffentlichen.
    ja hatte ich es nicht korrigiert
    
    Code (perl): (dl )
    
    1 2 3 4 5 6
    
    sub clean { my $string = shift; $string =~ s/\s*,\s*//g; $string =~ s/\s*,\s*//g; return $string; }
    
    sorry es ist so
    
    Code (perl): (dl )
    
    1 2 3 4 5 6
    
    sub clean { my $string = shift; $string =~ s/^\s+//; $string =~ s/\s+$//; return $string; }
    
    ok, ganz kurz ich möchte einfach die beide code einbinden.
    die ausgabe sollte auf den selben ouput file geschrieben werden.
    
    Last edited: 2015-08-24 12:49:47 +0200 (CEST)

View all threads created 2015-08-22 22:33.