Suchen im Array!? (Allgemeines zu Perl)

[thread]13358[/thread]

Suchen im Array!?

Leser: 21

Articles: hide open all | hide show old branches

+6 replies
Gast GAST

2009-04-08 14:09
Hallo,
ich habe folgendes Problemchen, ich habe ein große Datei, in dieser stehen Infos, dich ich gerne aufteilen will!
Als 1. schreibe ich diese Datei in ein Array, weil ich diese hier schon aufteile, bis dahin noch in Ordnung, aber nun jetzt, wenn ich in diesem Array aber z.B. folgende stehen habe:
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13

Dut No asdf asdf asdf Dut No yxcv yxcv yxcv yxcv Dut No fhgj fhgj fhgj
Und ich will genau alles zwischen jedem "Dut No" incl. alles was bis zum nächsten "Dut No" steht in jedem Schritt (in einer Schleife) ausgegeben haben, d.h. ich würde als erstes in meiner Ausgabe haben:
Code: (dl )

1 2 3 4

Dut No asdf asdf asdf
Da mein Code bisschen zu lang ist, will ich euch damit nicht weiter beschäftigen, das Problem ist, das mein Suchstring nur jeden 2. Dut No ausgibt, d.h. dieser überschreibt bei jedem Finden das Dut No!
Wie kann ich das verhindern?

So sieht meine Suche aus:
Code: (dl )

1 2

(my @array) = $_ =~ /(Dut No.*?)Dut No/gsm; print @array;
Ich hoffe ihr könnt mir weiterhelfen?

Gruß
GAST
- +2 replies
- #Kein Kommentar
  
  2009-04-08 14:40
  User since
  2007-06-09
  575 Artikel
  HausmeisterIn
  meinst du sowas?
  
  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
  
  #!/usr/bin/perl use strict; use warnings; my @array = ( 'Dut No', 'asdf', 'asdf', 'asdf', 'Dut No', 'yxcv', 'yxcv', 'yxcv', 'yxcv', 'Dut No', 'fhgj', 'fhgj', 'fhgj'); my $count = 0; my $in_dut_no = undef; foreach my $item (@array){ if ($item eq "Dut No"){ $in_dut_no = 1; $count++; print "\nDut No ($count)\n"; } elsif ($in_dut_no){ print "$item\n"; } }
  
  Gerade weil wir alle in einem Boot sitzen, sollten wir froh sein, dass nicht alle auf unserer Seite sind
  - Gast GAST
    
    2009-04-08 14:49
    Nein leider nicht ganz, die "Dut No" und alle anderen Infos sind im @array als sozusagen ein Zeichen gespeichert!
    
    D.h. ich müsste dort mit einer Schleife, wie du schon sagtest suchen!
    
    Code: (dl )
    
    1 2 3 4 5
    
    foreach(@array) { (my @test) = $_ =~ /(Dut No.*?)Dut No/gsm; print @test; }
- murphy
  
  2009-04-08 14:49
  User since
  2004-07-19
  1776 Artikel
  HausmeisterIn
  Guest GAST
  [...] ich habe ein große Datei, in dieser stehen Infos, dich ich gerne aufteilen will!
  Als 1. schreibe ich diese Datei in ein Array, weil ich diese hier schon aufteile, [...]
  
  Warum erst alles einlesen? Man kann doch auch on-the-fly aufteilen...
  
  Quote
  [...] Und ich will genau alles zwischen jedem "Dut No" incl. alles was bis zum nächsten "Dut No" steht in jedem Schritt (in einer Schleife) ausgegeben haben, [...]
  
  Hier mal ein Beispiel, wie man direkt beim Einlesen jeden mit Dut No beginnenden Block in ein Arrayelement packen kann:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
  
  use strict; use warnings; use Data::Dumper; my ($i, @d) = (-1); while (<>) { if (/^Dut No/) { $d[++$i] = ''; } else { $d[$i] .= $_; } } print Dumper \@d;
  
  Wenn man zum Erkennen der Blockstarts keinen regulären Ausdruck benötigt geht es sogar noch einfacher unter Verwendung des Eingabedatensatztrennzeichens:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14
  
  use strict; use warnings; use Data::Dumper; my @d = do { local $/ = "Dut No$/"; my @d = <>; chomp @d; @d[1..$#d]; }; print Dumper \@d;
  
  When C++ is your hammer, every problem looks like your thumb.
- RPerl
  
  2009-04-08 16:58
  
  User since
  2006-11-26
  384 Artikel
  BenutzerIn
  
  Du koenntest auch einfach den kompletten Inhalt des arrays in einen string packen und dann mit einem regex alles hinter "Dut No" (inkl oder exkl.) matchen und speichern.
  Sofern das auch schon ausreicht und deine Anforderung erfuellt...
- murphy
  
  2009-04-08 17:31
  User since
  2004-07-19
  1776 Artikel
  HausmeisterIn
  Guest GAST
  [...] das Problem ist, das mein Suchstring nur jeden 2. Dut No ausgibt, d.h. dieser überschreibt bei jedem Finden das Dut No!
  Wie kann ich das verhindern?
  
  So sieht meine Suche aus:
  
  Code: (dl )
  
  1 2
  
  (my @array) = $_ =~ /(Dut No.*?)Dut No/gsm; print @array;
  
  Übrigens ist hier natürlich einfach das Problem, dass Du das zweite Dut No jeweils noch mit matchst und die Regexengine natürlich erst hinter dem letzten Treffer nach dem nächsten sucht. Du kannst das umgehen indem Du einen zero-width positive lookahead verwendest, also zum Beispiel m/(Dut No.*?)(?=Dut No)/gsm schreibst.
  
  Trotzdem bezweifle ich, dass es eine intelligente Idee ist, die Daten zuerst komplett einzulesen, bevor man sie derart zerlegt.
  When C++ is your hammer, every problem looks like your thumb.

View all threads created 2009-04-08 14:09.