Thread Nach Muster suchen (11 answers)
Opened by Rambo at 2009-08-18 15:33

Rambo
 2009-08-18 16:25
#124352 #124352
User since
2003-08-14
803 Artikel
BenutzerIn

user image
Vielen Dank :-)
so was soll man wissen wenn man gelegentlich mal Programmiert :-)

Leider geht dieser Suchstring auch nicht, er bringt zwar keine Fehlermeldung mehr, aber auch kein Ergebnis.

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
use strict;
use warnings;

while (defined(my $line = <DATA>)) {
chomp($line);
#
if ($line =~/S\/R Sending command\r?\n-+\r?\nNRT CC\/(\d+)/) {
print "$1\n$line\n";
} # if
} # while


__DATA__
S/R Sending command
---------------------------------------------------------------------------
NRT CC/1234567890

View full thread Nach Muster suchen