In Schleife zurückspringen (Allgemeines zu Perl)

[thread]18964[/thread]

In Schleife zurückspringen

Tags: perl5 Similar Threads

Readers: 18

Articles: hide open all | hide show old branches

+6 replies
allenon

2014-03-14 10:38

User since
2014-03-14
2 articles
BenutzerIn

Hallo Leute,

ich sitze zur Zeit an einem recht simplen Problem. Ich bin allerdings nicht besonders fit in Perl und benötige eure Hilfe.
Zu meinem Problem:

Ich durchsuche eine Datei nach einer bestimmten Nummer. Sobald die Nummer gefunden ist in Zeile XY möchte ich diese Zeile ausgeben. Danach möchte wieder hoch springen in eine andere Zeile, in der eine andere Nummer steht und dort wieder die Zeile ausgeben, usw.

Zur Veranschaulichung:
Ich suche zuerst die Telefonnummer 030xx, dann die Telefonnummer 040xx und zuletzt die Telefonnummer 0202xx. Die Reihenfolge spielt hier leider ein wichtige Rolle.

Zeile1 040xx
Zeile2
Zeile3
Zeile4 0202xx
Zeile5
Zeile6 030xx

Dann sobald die letzte Telefonnummer gefunden und ausgegeben wurde, möchte ich automatisch aufhören.

Ich hoffe ihr habt mein Problem verstanden und könnt mir einigermaßen weiterhelfen. Ich wäre euch sehr dankbar.

Gruß
Last edited: 2014-03-14 11:00:03 +0100 (CET)
- Muffi
  
  2014-03-14 11:03
  User since
  2012-07-18
  1465 articles
  BenutzerIn
  Vielleicht die komplette Datei in ein Array einlesen.
  
  Code (perl): (dl )
  
  my @zeilen = <$filehandle>;
  
  Dann kannst du per Index drauf zugreifen.
  1 + 1 = 10
- +4 replies
- guest wer
  
  2014-03-14 11:58
  
  allgemein:
  
  lege zwei variablen an
  gehe die Datei zeilenweise durch
  wenn du auf eine 0202xx nummer stößt schreibe sie in variable1
  wenn du auf eine 040xx nummer stößt schreibe sie in variable2
  wenn du auf eine 030xx nummer stößt und sie passt gib sie aus und dann gib varaible2 und variable1 aus.
  da bis zum schluss noch eine passende nummer auftauchen kann musst du die gesamte datei durchlaufen.
  Last edited: 2014-03-14 12:18:37 +0100 (CET)
  - +3 replies
  - allenon
    
    2014-03-14 12:23
    
    User since
    2014-03-14
    2 articles
    BenutzerIn
    
    Leider funktioniert das nicht.
    Ich möchte nach der Nummer 0202xx(oder andere) die ganze Zeile wiedergeben. Da aber die Datei aus vielen Zeilen besteht und viele Nummern mit 202xx anfangen geht das nicht. (Entscheidend ist nur, was hinter der Nummer steht)
    - guest wer
      
      2014-03-14 12:35
      
      dann packe die ganzen zeilen in die variablen.
      Last edited: 2014-03-14 13:36:23 +0100 (CET)
    - betterworld
      
      2014-03-14 14:08
      
      User since
      2003-08-21
      2614 articles
      ModeratorIn
      
      Ich würde das so machen:
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8
      
      my @lines = <$fh>; chomp @lines; my ($found1) = grep /^0202xx /, @lines or die "0202xx nicht gefunden"; my ($found2) = grep /^040xx /, @lines or die "040xx nicht gefunden"; print "$found1\n$found2\n";
      
      Du hast ja nicht genau geschrieben, ob "xx" hier Platzhalter in Suchmustern sein sollen oder bestimmte Zahlen, die Du nur nicht veröffentlichen möchtest.. Aber macht ja nichts, Du kannst im obigen Beispiel die regulären Ausdrücke beliebig anpassen. In meinem Beispiel wird gesucht nach einer Zeile, die mit "0202xx" anfängt und dann ein Leerzeichen hat.
      
      Edit: Vielleicht habe ich Dein Problem mit der Reihenfolge auch nicht richtig verstanden. In dem Fall solltest Du mal ein Beispielinput posten, wo die Nummern auch mehrfach vorkommen und dann sagen, was jetzt in welcher Reihenfolge wie gesucht werden soll. Wenn es Dir wichtig ist, was bei mehreren gleichen/ähnlichen Nummern ausgegeben wird, dann ist es eher schlecht, ein Beispielinput anzugeben, wo die alle nur einmal vorkommen, und dann diese "xx" nicht mal richtig zu definieren. Ich nehme mal an, dass "xx" nicht wirklich Buchstaben in der Telefonnummer sind?
      Last edited: 2014-03-14 14:14:31 +0100 (CET)
      Lieblingsmodule: IPC::System::Simple, Path::Class

View all threads created 2014-03-14 10:38.