Font
Start · Board · Anwendungen/Programme/Skripte in Perl · Allgemeines zu Perl
[thread]6250[/thread]

NUtzereingabe auf Konsole? (page 2)



<< |< 1 2 >| >> 12 entries, 2 pages
Crian
 2004-05-12 18:18
#82284 #82284
User since
2003-08-04
5875 articles
ModeratorIn
[Homepage]
user image
Tja, wenn Du eine leere Zeile angibst, ist das letzte Element des Arrays undefiniert. Das musst Du abfangen.
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
format_c
 2004-05-12 19:01
#82285 #82285
User since
2003-08-04
1706 articles
HausmeisterIn
[Homepage] [default_avatar]
Mein Beispiel funktioniert.
hab noch die Prüfung auf leere eingabe hinzugefügt

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
while (chomp(my $in = <DATA>)) {
  next if $in =~ /^\s*$/;
  last if $in eq '0';
  print "Ausgabe:\t$in\n";
}
_ _DATA_ _
test
trassd
1

sdfsdf
0
das darf nicht mehr komen
_ _END_ _
Ausgabe:	test
Ausgabe:	trassd
Ausgabe:	1
Ausgabe:	sdfsdf


Gruß Alex
Effizente Linuxshell
<< |< 1 2 >| >> 12 entries, 2 pages



View all threads created 2004-05-12 13:27.