Opened by Gast at 2005-09-07 12:51
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
print "Viewer\n\n";
print "Bitte Pfad zur Datei eingeben: ";
$eingabe =<STDIN>;
chomp($eingabe);
if($eingabe eq ""){
$eingabe="/home/gerhard/xml.ome";
}
my ($a,$reihe)=0,"";
#Öffnen der Datei
open(Datei,$eingabe) or die "Datei konnte nicht gefunden werden nicht gefunden Default wird verwendet";
while($zeile=<Datei> && $a==0){
if($zeile=~/</g || $zeile=~/<\//g){
$zeile =~ s/</\n</g;
$zeile =~ s/<\//\n\n<\//g;
}
$reihe = $reihe.$zeile;
}
print "$reihe\n\n\n";
Hallo zusammen,
habe folgendes Problem bei diesem Programm. Und zwar in der While Schleife while($zeile=<Datei> && $a==0). $a wird vorher der Wert null zugewiesen. Entfernen ich $a aus der while läuft das Programm. Mit $a eben nicht. Eigentlich hat $a momentan keine Funktion in dem Programm.
Edit @Relais: Code-Tags spendiert\n\n
<!--EDIT|Relais|1126086134-->