Thread Probleme bei Schleifen (19 answers)
Opened by laplace at 2011-10-09 21:22

laplace
 2011-10-09 21:22
#152973 #152973
User since
2011-10-09
21 Artikel
BenutzerIn
[default_avatar]
Hallo!
Ich beschäftige mich erst seit kurzem mit Perl, da ich in der Arbeit da etwas basteln möchte, doch leider bin ich nun auf ein Problem gestoßen, das ich partout nicht lösen kann; deshalb bitte um Tipps!

ich habe ein text file das so ausschauen könnte
Code: (dl )
1
2
3
4
5
6
7
1
2
3
abcd
4
5
EndOfFile;


ich möchte nun aus diesem Textfile die Daten zeilenweise auslesen und dann mit diesen etwas anstellen: jenachdem, ob es eine zahl oder ein string ist.

#+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12

our $A = open(EINS,"test.txt"); 
our @array= <EINS>;  
our $index=0;
while (defined(@array[$index])){
if (@array[$index] eq "abcd"){
print "es wurde ein STring gefunden\n";
$index=$index+1;}

else{
print "in der Zeile steht eine Zahl\n";
$index=$index+1;
}}

#+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Warum funktioniert das so nicht?
Irgendwo happert es damit, dass das Argument nicht zwischen numerisch und String unterscheiden kann?!
Die While schleife bricht auch nach 4 Durchläufen ab, da "abcd" nicht definiert zu sein scheint?!?! gibts hier eine einfache Lösung?

Danke im vorraus für die Antworten

modedit Editiert von pq: code-tags hinzugefügt
Last edited: 2011-10-10 00:29:30 +0200 (CEST)

View full thread Probleme bei Schleifen