Opened by Rambo at 2009-08-18 15:33
User since
2003-08-14
803 Artikel
BenutzerIn
2003-08-14
803 Artikel
BenutzerIn
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.
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