Opened by Gast at 2005-01-24 13:40
User since
2003-08-04
5871 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
5871 Artikel
ModeratorIn
kann ich nicht nachvollziehen:
Die Blanks in der DATA Zeile wegdenken, ist ein Forenbug.\n\n
<!--EDIT|Crian|1106568425-->
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
>perl
while (<DATA>) {
print "GEFUNDEN\n" if /send/i;
}
_ _DATA_ _
01/24 12:35:41 aa1 waiting for ``OK'' ** found **
01/24 12:35:41 aa1 waiting...
01/24 12:48:52 aa1 wfr: waiting for ``RING''
01/24 12:48:52 aa1 send: ATA[0d]
GEFUNDEN
Die Blanks in der DATA Zeile wegdenken, ist ein Forenbug.\n\n
<!--EDIT|Crian|1106568425-->
s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;
use strict; use warnings; Link zu meiner Perlseite
use strict; use warnings; Link zu meiner Perlseite