Zahlenfolge aus Datei extrahieren (Allgemeines zu Perl)

[thread]20245[/thread]

Zahlenfolge aus Datei extrahieren

Tags: IO Ähnliche Threads

Leser: 10

Articles: hide open all | hide show old branches

+3 replies
Hosen_Horst

2017-02-25 12:57
User since
2017-02-25
1 Artikel
BenutzerIn
Hallo,

ich möchte eine Datei überprüfen ob ein String vorhanden ist und wenn ja diesen dann Zerlegen und eine Zahl aus diesem Stingt abspeicher. Der Sting kann aber auch mehrmals vorkommen, dann soll es auch diesen auslesen und das selbe mit ihm tun.

Ich mache es im Moment wie folgt batch Datei + Perl Script

So liest er mit ja nur die erste Zeile der TestDatei2 ein wie kann ich es anstellen, dass er mir alle Zeilen bearbeitet?

Und das ich die Batchdatei vielleicht gar nicht mehr braucht sondern das direkt per Perl mache.

Batch Datei
Code: (dl )

findstr "test" TestDatei > TestDatei2
Code: (dl )

1 2 3 4 5 6 7 8 9

open (in,"Testdatei2"); @datei=<in>; close in; my $a = "$datei[0]"; my $substring = $a =~ /Zahlenfolgeanfang="(.+?)"Zahlenfolgeende/; open (out,">Ergebnis"); print out "$1"; close out; exit;
Last edited: 2017-02-25 13:04:17 +0100 (CET)
- lichtkind
  
  2017-02-25 13:02
  
  User since
  2004-03-22
  5730 Artikel
  ModeratorIn + EditorIn
  
  Moved from Raku / Perl 6 to Allgemeines zu Perl
  
  Da ist kein Perl 6
  Last edited: 2017-02-25 13:03:42 +0100 (CET)
  mein zeug:, Leute
  
  Es beginnt immer mit einer Entscheidung.
- murphy
  
  2017-02-25 15:08
  User since
  2004-07-19
  1776 Artikel
  HausmeisterIn
  Etwas in der Art könnte funktionieren:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
  
  use 5.012; use warnings; my $needle = 'test'; open my $haystack, '<', 'TestDatei' or die "Failed to open input file: $!"; while (my $line = <$haystack>) { chomp $line; next unless (index($line, $needle) >= 0); next unless ($line =~ m/Zahlenfolgeanfang="(.+?)"Zahlenfolgeende/); my $zahlenfolge = $1; say $zahlenfolge; }
  
  When C++ is your hammer, every problem looks like your thumb.

View all threads created 2017-02-25 12:57.