Zweistufiges script (gelöst) - #140083 (Allgemeines zu Perl)

Gast wer

2010-07-27 14:04

Code (perl): (dl )

if (open FILE, '<'.$file) {
                                
                                        if (/Everything is Ok/) {
                                                push @errors, "Export von sid $sid OK.\n";
                                        }
                                        else
                                        {
                                                push @errors, "beim Export von sid $sid traten fehler auf.\n";
                                        }
                                }

Diese stelle sieht seltsam aus. Was willst du da machen?
Wenn du die erste Zeile aus der Datei lesen und schauen willst ob "Everything is Ok" drin steht, musst du die Zeile auch lesen. etwa so:

Code (perl): (dl )

if(<FILE>=~/Everything is Ok/)

oder

Code (perl): (dl )

1
2

<FILE>;
if(/Everything is Ok/)

und wie schon bemerkt Zeile 45ff ist nicht OK, da ist eine Klammer zu viel und das "close" muss vor die Klammer
Last edited: 2010-07-27 14:10:11 +0200 (CEST)