Ausgabe einer Zeile in Perl (Allgemeines zu Perl)

[thread]17260[/thread]

Ausgabe einer Zeile in Perl

Tags: perl5 Ähnliche Threads

Leser: 26

Articles: hide open all | hide show old branches

+19 replies
Gast Catherina

2012-03-23 09:21

Hallo Ihr Lieben,
also ich habe das Problem, dass ich bei der Arbeit die Aufgabe bekommen habe, ein Skript zu erstellen, dass genau eine Zeile einer Datei ausgibt. Das Problem dabei ist: Jede Zeile beginnt gleich und eine Zeile geht über mehrere Zeilen in der Datei, da die Zeilenbreite nicht ausreichend ist.

Zu den Hintergrundinformationen:
Ich schreibe das Skript im Notepad++ und mit der Programmiersprache Perl
Die Ausgabe folgt dann auf einem Server, der mit Linux betrieben wird

Ich freue mich über jede Antwort, die mir weiterhelfen könnte.

Liebe Grüße
Catherina
Last edited: 2012-03-23 09:45:59 +0100 (CET)
- GwenDragon
  
  2012-03-23 09:48
  
  User since
  2005-01-17
  14532 Artikel
  Admin1
  
  1. Wie sehen denn die Zeilen aus in der Datei?
  2. Insbesondere wie sehen die zu langen Zeilen aus?
  3. Nach was musst du suchen?
  
  Gib uns doch mal ein Beispiel.
  die Drachin, Gwendolyn
  
  Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
- Gast wer
  
  2012-03-23 10:07
  Zum einstellen von Notepad++:
  
  Setze den Zeilenumbruch auf "UNIX".
  Schalte das automatische Umbrechen zu langer Zeilen ab.
  Schalte die Zeilennummerierung an.
  
  Schaue dir nun die Datei in Notepad++ an. Mache einen repräsentativen Auszug und poste ihn hier.
  Last edited: 2012-03-23 10:21:18 +0100 (CET)
- Relais
  
  2012-03-23 11:20
  
  User since
  2003-08-06
  2244 Artikel
  ModeratorIn
  
  Genau welche Zeile denn?
  Erst denken, dann posten --
  26. Deutscher Perl- u. Raku -Workshop 15. bis 17.04.2024 in Frankfurt/M.
  
  Winter is Coming
- +7 replies
- pq
  
  2012-03-23 11:32
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  wenn eine "zeile" über mehrere zeilen geht, wärs vielleicht sinnvoller, von datensätzen zu reden, um sie nicht mit echten zeilen zu verwechseln.
  
  woher kommt die aufgabe, wie weit bist du in perl, welche bücher und tutorials hast du schon gelesen?
  
  hast du schon ein bisschen code zum zeigen?
  
  wie sieht die datei aus? (beispieldaten)
  
  ohne ein bisschen information ist es auch deswegen schwer zu helfen, weil keiner weiss, auf welchem niveau man dir begegnen sollte.
  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
  - +6 replies
  - Catherina
    
    2012-03-26 08:07
    User since
    2012-03-23
    12 Artikel
    BenutzerIn
    
    Also die Aufgabe kommt von der Arbeit, gelesen hab ich "Programmieren mit Perl", "Perl - Grundlagen, fortgeschrittene Techniken und Übungen: Operatoren, Funktionen, reguläre Ausdrücke, Hashes, Referenzen (mitp Professional) ", "Einführung in Perl", allerdings haben mir diese Bücher alle nicht so ganz geholfen
    
    Bisher hab ich nur den Code für das Auslesen der Ganzen Datei, da sich der Rest quer stellt
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8
    
    #!/usr/bin/perl -w open (IN, "<h.txt") || die "Die Datei wurde nicht gefunden\n"; while (<IN>) { print $_; } close (IN);
    
    Die Datei sieht folgendermaßen aus (das sind 3 Datensätze, beginnend mit "====>" das ziel ist erstmal nur einen Datensatz auszugeben:
    
    ====> 5bcca470-0cab-71e1-1f9b-c219f3a30000 116717dc-f3d2-71df-1281-0acece0a0000 1 -654307237 24 fw-h-tas.nmip.t-ipnet.de 1 -1038486621 20 r2d2.nmip.t-ipnet.de 0 0 16 0 0 0 1321046591 1321047316 0 32 12 0 0 0 0 0 12 0 0 0 0 0 1321047316 3 OpC 30 trap_templ_fortinet_12356(1.0) 8 Fortinet 8 trap_msg 11 TAS-FW1-HNO 0 0 0 55 fgTrapVpnTunDown TAS-FW1-HNO 217.0.16.88 194.25.243.124 318 Generic: 6; Specific: 302; Enterprise: .1.3.6.1.4.1.12356.101.2;
    Variables:
    [1] .1.3.6.1.4.1.12356.100.1.1.1.0 (OctetString): FG300B3910600711 [2] .1.3.6.1.2.1.1.5.0 (OctetString): TAS-FW1-HNO [3] .1.3.6.1.4.1.12356.101.12.3.2.0 (IpAddress): 217.0.16.88 [4] .1.3.6.1.4.1.12356.101.12.3.3.0 (IpAddress): 194.25.243.124 1 0 0 0 0 0 0 0 0 0 1 0 5bcca470-0cab-71e1-1f9b-c219f3a30000 -3600 36 11672cae-f3d2-71df-1281-0acece0a0000 0 14 Fortinet Traps 93 217.0.16.91:trap_templ_fortinet_12356:fgTrapVpnTunDown:TAS-FW1-HNO:217.0.16.88:194.25.243.124 0 1321047316 1 CMA 14 condition_name 30 fgTrapVpnTunDown / Message Key ANNO 1321047316 1 3 OpC 265 Acknowledged by Message Correlation;
    Message Key Relation : 217.0.16.91:trap_templ_fortinet_12356:fgTrapVpnTunDown:TAS-FW1-HNO:217.0.16.88:194.25.243.124
    ackn.ed by message 5bd0e184-0cab-71e1-1f9b-c219f3a30000 with condition id 5fa5bc1a-f3d1-71df-1281-0acece0a0000.
    ====> 0cc10e50-0cad-71e1-1d93-0acece150000 e49ac474-098f-71da-0bcb-0acece140000 1 -1038486904 18 scholl.btx.dtag.de 1 -1038486904 18 scholl.btx.dtag.de 1 0 4 0 0 0 1321047318 1321047318 0 2 12 0 0 0 0 0 12 0 0 0 0 0 1321047318 3 OpC 24 Logins (10.x/11.x HP-UX) 23 /usr/bin/login(1) Login 8 Security 6 wolpit 0 0 0 76 Succeeded login of wolpit on pts/37 from 153.17.111.222 at 22:35:13 11/11/11 52 LOGIN wolpit pts/37 153.17.111.222 11/11/11 22:35:13 0 0 0 0 0 0 0 0 0 0 0 0 0cc10e50-0cad-71e1-1d93-0acece150000 -3600 0 0 0 48 AUTOKEY:76846a8d850e11cd8d2f6184f8f8b0f70a076892 0 1321047318 1 CMA 14 condition_name 23 Successful remote login
    ====> 6113c17a-0cab-71e1-1f9b-c219f3a30000 5fa5bc1a-f3d1-71df-1281-0acece0a0000 1 -654307045 24 fw-s-tas.nmip.t-ipnet.de 1 -1038486621 20 r2d2.nmip.t-ipnet.de 1 0 16 0 0 0 1321046600 1321047325 0 2 12 0 0 0 0 0 12 0 0 0 0 0 1321047325 3 OpC 30 trap_templ_fortinet_12356(1.0) 8 Fortinet 8 trap_msg 11 TAS-FW2-STG 0 0 0 53 fgTrapVpnTunUp TAS-FW2-STG 217.0.17.24 194.25.243.118 323 Generic: 6; Specific: 301; Enterprise: .1.3.6.1.4.1.12356.101.1.3002;
    Variables:
    [1] .1.3.6.1.4.1.12356.100.1.1.1.0 (OctetString): FG300B3910603229 [2] .1.3.6.1.2.1.1.5.0 (OctetString): TAS-FW2-STG [3] .1.3.6.1.4.1.12356.101.12.3.2.0 (IpAddress): 217.0.17.24 [4] .1.3.6.1.4.1.12356.101.12.3.3.0 (IpAddress): 194.25.243.118 1 0 0 0 0 0 0 0 0 0 1 0 6113c17a-0cab-71e1-1f9b-c219f3a30000 -3600 36 5fa5d0c4-f3d1-71df-1281-0acece0a0000 0 14 Fortinet Traps 91 217.0.17.27:trap_templ_fortinet_12356:fgTrapVpnTunUp:TAS-FW2-STG:217.0.17.24:194.25.243.118 0 1321047325 1 CMA 14 condition_name 28 fgTrapVpnTunUp / Message Key ANNO 1321047325 1 3 OpC 250 Performed Message Correlation
    
    Message Key Relation : 217.0.17.27:trap_templ_fortinet_12356:fgTrapVpnTunDown:TAS-FW2-STG:217.0.17.24:194.25.243.118
    This message automatically acknowledged the following message:
    610733a6-0cab-71e1-1f9b-c219f3a30000
    Last edited: 2012-03-26 08:29:05 +0200 (CEST)
    - topeg
      
      2012-03-26 09:00
      
      User since
      2006-07-10
      2611 Artikel
      BenutzerIn
      
      Ich habe das Gefühl, dass das was du als mehrere Zeilen siehst tatsächlich eine Zeile ist. Bedenke, Bei der Ausgabe wird am Ende des Fensters umgebrochen, und auch Editoren machen einen Umbruch, wenn der Text länger als das Fenster ist. (Sofern man es nicht abschaltet)
      
      Die Ausgabe sieht mir nach einem Logfile aus. Diese sind normalerweise so gestaltet, dass alle wichtigen Informationen in einer Zeile Auftauchen.
      
      mach mal:
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12
      
      #!/usr/bin/perl -w use strict; my $file="h.txt"; open (my $fh, '<', $file) || die qq[Kann Datei "$file" nicht öffnen ($!)\n]; while (my $line=<$fh>) { chomp($line); print "====> $line <====\n"; } close ($fh);
      
      So wird besser ersichtlich was eine Zeile ist.
      Die Ausgabe kannst du in einen [code]...[/code] Block setzen, dann verändert der Browser die Ausgabe nicht.
    - +4 replies
    - pq
      
      2012-03-26 11:01
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      also der erste ansatz wäre ja recht einfach:
      ein datensatz beginnt bei dir mit einer zeile mit "====> " am anfang, und der datensatz kann unterschiedlich viel zeilen haben und geht bis zum nächsten "====> ".
      in jeder programmiersprache würde das also folgendermassen gehn, über ein flag:
      
      lies zeile für zeile ein (hast du ja schon)
      wenn das flag auf true gesetzt ist, lies die zeile in ein erray ein if ($flag) { push @wanted, $_ }
      wenn eine zeile mit "====> " anfängt und flag auf false ist, dann setze das auf true. $flag = 1 if m/^====> /
      wenn eine zeile mit "====> " anfängt und flag auf true ist, dann verlasse die schleife.last if (m/^====> / and $flag)
      
      es kommt natürlich darauf an, welchen datensatz du eigentlich willst, du hast nur mehrmals gesagt, du willst genau einen datensatz, aber nicht welchen.
      
      in perl gibt es für solche probleme aber noch eine einfachere lösung, die payx gezeigt hat (mit dem input record seperator $/)
      
      zum schluss noch:
      dein code-beispiel sieht sehr veraltet aus.
      use strict fehlt, use warnings fehlt statt -w, keine lexikalische filehandles, in der fehlermeldung bei open fehlt die eigentliche fehlermeldung.
      lies doch mal bitte z.b. Modern Perl oder ein anderes tutorial aus dieser liste: http://perl-tutorial.org/
      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
      - +3 replies
      - Catherina
        
        2012-03-26 11:50
        
        User since
        2012-03-23
        12 Artikel
        BenutzerIn
        
        Also ich suche nach einem Datensatz in dem ein Bestimmtes, zuvor eingegebenes Datum mit Uhrzeit enthalten ist. Das Datum ist nach belieben einzugeben mit <STDIN>.
        Das habe ich aber auch eben erst herausgefunden.
        
        Liebe Grüße
        Catherina
        
        +2 replies
        
        payx
        
        2012-03-26 12:10
        
        User since
        2006-05-04
        564 Artikel
        BenutzerIn
        
        Hallo Catherina,
        
        oha, das gut zu lösen wird nicht ganz einfach. In den Beispieldatensätzen, die Du gepostet hast, sind nicht in jedem Datensatz Datumswerte enthalten. Möglicherweise werden Datumswerte in unterschiedlichen Formaten vorkommen. In was für einem Format muss der Benutzer den Datumswert eingeben?
        
        Hier eine Minimallösung für den einfachst denkbaren Fall:
        
        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
        
        #!/usr/bin/perl use strict; use warnings; print "Bitte Datum eingeben: "; my $datum = <>; chomp $datum; # Ergänze hier: Prüfung, ob das Datum das richtige Format hat, ggf. Abbruch mit Fehlermeldung my $inFile = "h.txt"; open (my $inFH, "<", $inFile) || die "Die Datei wurde nicht gefunden: $!\n"; { local $/ = "====> "; while (<$inFH>) { next unless /$datum/; chomp; print $_; last; } } close ($inFH);
        
        Wenn der Benutzer 11/11/11 eingibt, wird der zweite Datensatz gefunden.
        
        HTH
        Grüße
        payx
        Last edited: 2012-03-26 12:11:57 +0200 (CEST)
        
        Catherina
        
        2012-03-26 12:33
        
        User since
        2012-03-23
        12 Artikel
        BenutzerIn
        
        Okay danke erstmal dafür :)
        Liebe Grüße
        Catherina
- hlubenow
  
  2012-03-23 22:41
  
  User since
  2009-02-22
  875 Artikel
  BenutzerIn
  
  Das Modul "Tie::File" ist für sowas recht praktisch.
- +7 replies
- payx
  
  2012-03-26 09:16
  User since
  2006-05-04
  564 Artikel
  BenutzerIn
  Hallo Catherina,
  
  angenommen, die Zeilen seien tatsächlich so umbrochen, wie Du sie gepostet hast, dann könntest Du beim Einlesen vorübergehend den Datensatztrenner (Standard = Zeilenumbruch) umstellen. Das geht z.B. so in einem Block mit local:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11
  
  #!/usr/bin/perl -w my $inFile = "h.txt"; open (my $inFH, "<", $inFile) || die "Die Datei wurde nicht gefunden\n"; { local $/ = "====> "; while (<$inFH>) { chomp; print $_ . "-- 8><----\n"; } } close ($inFH);
  
  HTH
  Grüße
  payx
  
  PS: Nebenbei den Gebrauch von open verbessert.
  - +6 replies
  - Catherina
    
    2012-03-26 09:50
    
    User since
    2012-03-23
    12 Artikel
    BenutzerIn
    
    Also, ich weiß nicht, ob ihr mich richtig verstanden habt. Ich muss eine Zeile ausgeben, d.h. der Rest soll nicht ausgegeben werden.
    - +5 replies
    - payx
      
      2012-03-26 10:28
      
      User since
      2006-05-04
      564 Artikel
      BenutzerIn
      
      Hallo Catherina,
      
      wie pq schon sagte, sollten wir "Zeile" nur gebrauchen, wenn wir wirklich genau eine Zeichenkette mit Zeilenumbruch – \n o.ä. (oder End-Of-File) – meinen. Anderenfalls sagen wir besser "Datensatz". Ich nehme also mal an, Du meinst, Du willst genau einen Datensatz ausgeben. Welchen? Den ersten?
      
      Um bei meinem Ansatz zu bleiben: Du könntest beispielsweise in der while-Schleife eine Prüfung einbauen, die den Datensatz nur dann zurückgibt, wenn er der soundsovielte ist.
      
      Zeile 8 in meinem Beispiel hieße dann z.B.
      
      Code (perl): (dl )
      
      print $_ if $. == 2;
      
      Zur Erläuterung: $. ist der Datensatzzähler beim Dateieinlesen. Durch die von mir gebrauchte Vorgehensweise mit "====> " als Datensatztrenner (also als Zeichenkette, die das Ende eines Datensatzes markiert) ist der erste Datensatz leer, denn der Trenner taucht ja erstmals gleich am Anfang auf. mit $. == 2 bekommst Du also den ersten gefüllten Datensatz.
      
      NB: Optimaler Code ist das natürlich nicht, es geht nur darum, einen möglichen Ansatz (von mehreren) zu zeigen.
      
      Und nochmals: Dieser Ansatz ist jedenfalls nur dann möglicherweise sinnvoll, wenn die Datensätze wirklich Zeilenumbrüche enthalten, was ja vielleicht gar nicht der Fall ist(?). Außerdem müssten dann wirklich alle Datensätze genau durch "====> " getrennt sein, klar.
      
      HTH
      Grüße
      payx
      
      Editiert von payx: stilistische Korrektur
      
      Editiert von payx: Catherina mit e, nicht mit a, pardon.
      Last edited: 2012-03-26 12:12:27 +0200 (CEST)
      - +4 replies
      - Catherina
        
        2012-03-26 10:51
        
        User since
        2012-03-23
        12 Artikel
        BenutzerIn
        
        Hallo,
        ja genau das ist es, was ich gesucht habe :) danke, payx :)
        
        danke, danke, danke :)
        
        Liebe Grüße
        Catherina
        
        pq
        
        2012-03-26 11:04
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        dann kann der thread ja auf status gelöst gesetzt werden?
        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
        
        payx
        
        2012-03-26 11:55
        
        User since
        2006-05-04
        564 Artikel
        BenutzerIn
        
        Hallo Catherina,
        
        use strict; und use warnings; solltest Du wirklich unbedingt verwenden (s. obiges Posting von pq).
        
        Grüße
        payx
        Last edited: 2012-03-26 12:12:51 +0200 (CEST)
        
        Catherina
        
        2012-03-26 12:00
        
        User since
        2012-03-23
        12 Artikel
        BenutzerIn
        
        Danke, hab ich hinzugefügt.
        LG
        Catherina

View all threads created 2012-03-23 09:21.