Opened by misuzu at 2004-04-02 12:25
User since
2003-08-04
5873 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
5873 Artikel
ModeratorIn
[quote=jan,02.04.2004, 10:30]lies das ganze zeile für zeile ein ...
schau, ob substr($zeile, 0, 1) eq 'T'
wenn, dann splite substr($zeile, 2, -1) mit /,/ (also
)
der letzt wert steht dann jeweils in @zeilenteile[-1].[/quote]
Dann hast Du aber die Klammer mit drin denk ich mal. splitte lieber substr($zeile,2,-2).
schau, ob substr($zeile, 0, 1) eq 'T'
wenn, dann splite substr($zeile, 2, -1) mit /,/ (also
Code: (dl
)
my @zeilenteile = split(/,/, substr($zeile, 2, -1));
der letzt wert steht dann jeweils in @zeilenteile[-1].[/quote]
Dann hast Du aber die Klammer mit drin denk ich mal. splitte lieber substr($zeile,2,-2).
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