Infomeldung bei Aufruf des Skripts über die Konsole (Allgemeines zu Perl)

[thread]18373[/thread]

Infomeldung bei Aufruf des Skripts über die Konsole

Tags: perl5 Ähnliche Threads

Leser: 19

Articles: hide open all | hide show old branches

+6 replies

Neyt

2013-06-12 07:53

User since
2013-03-14
13 Artikel
BenutzerIn
[default_avatar]

Guten Morgen Leuts,

wenn ich mein Perlskript über die Konsole aufrufe bekomme ich eine Fehlermeldung die wie folgt aussieht:

"INFO: Because of some problems with reading the xml file, a hashdump is also performed Name of the dumped hash is: 'dmp'

WARNING: Could not Open **"

Weiss jemand die Lösung zu dieser Infomeldung?

mfg

+5 replies

bianca

2013-06-12 08:46

User since
2009-09-13
6977 Artikel
BenutzerIn

user image

Gib mal ein bisschen Background (OS, Perlversion, Terminalprogramm usw.) und zeig uns das Script oder den betreffenden Ausschnitt davon.
Ich tippe mal blind auf etwas was mit Data::Dumper zusammenhängt?
Last edited: 2013-06-12 08:47:07 +0200 (CEST)

10 print "Hallo"
20 goto 10

+4 replies

Neyt

2013-06-12 10:36

User since
2013-03-14
13 Artikel
BenutzerIn
[default_avatar]

(Windows xp, perl 5.10.1, cmd)

Code: (dl )

if( defined glob($options{output}) )
    {

        
        $xmlFile = glob($options{output}); 

        $dumperFile = "$xmlFile.dmp";
        print "\nINFO: Because of some problems with reading the xml file, a hashdump is also performed\n";
        print "      Name of the dumped hash is: '$dumperFile'\n";

	    my $xml = $xs->XMLout($rhDiffResult, KeepRoot=>1, NoAttr=>1, AttrIndent => 1 , KeyAttr=>[]);

        open( my $fh_out, '>', $xmlFile ) or warn "WARNING: Could not Open *$xmlFile*\n";
        open( my $fh_out_dmp, '>', $dumperFile ) or warn "WARNING: Could not Open *$dumperFile*\n";

	print $fh_out $xml;
        print $fh_out_dmp Dumper $rhDiffResult;

        close $fh_out;
        close $fh_out_dmp;
    }
    else
    {
        my $xml = $xs->XMLout($rhDiffResult, KeepRoot=>1, NoAttr=>1, AttrIndent => 1, KeyAttr => [] );
	  #$xs->XMLin( $xmlFile, KeepRoot => 1, NormaliseSpace => 1, ForceContent => 1, ForceArray => 1, KeyAttr => [] );
	    print $xml;
    }

bianca

2013-06-12 10:45

User since
2009-09-13
6977 Artikel
BenutzerIn

Ja, die Fehlermeldung steht in einem einfachen print welches aufgerufen wird, weil die Bedingung defined glob($options{output}) zutrifft.
Wenn du wissen willst, warum, musst du höher im Script suchen, warum diese Bedingung zutrifft.
Oder was genau ist deine Frage?
10 print "Hallo"
20 goto 10

topeg

2013-06-12 11:34

User since
2006-07-10
2611 Artikel
BenutzerIn

user image

Der Code Ausschnitt hat ein paar Probleme.

Als Erstes: if( defined glob($options{output}). Das ist immer wahr. Da 0 und "" keine vernünftigen Namen für XML-Dateien sind , sollte man schreiben:
if( glob($options{output} ) Damit wäre dein Hauptproblem gelöst, da undef 0 und "" ausgeschlossen werden.

Als Zweites:

Code (perl): (dl )

1
2
3

        $xmlFile = glob($options{output}); 

        $dumperFile = "$xmlFile.dmp";

Das deutet darauf hin das kein use strict; verwendet wird. So definiert sind die Variablen global. Das bedeutet eventuell vorhandene werte in diesen variablen werden hier überschrieben. das kann zu seltsamen Verhaltensweisen des Scripts führen. Sofern das keine Absicht ist (und es sieht mir nicht danach aus) sollten diese Variablen lokal defineirt werden:

Code (perl): (dl )

1
2
3

        my $xmlFile = glob($options{output}); 

        my $dumperFile = "$xmlFile.dmp";

Und als Drittes:

Code (perl): (dl )

        open( my $fh_out, '>', $xmlFile ) or warn "WARNING: Could not Open *$xmlFile*\n";
        open( my $fh_out_dmp, '>', $dumperFile ) or warn "WARNING: Could not Open *$dumperFile*\n";

        print $fh_out $xml;
        print $fh_out_dmp Dumper $rhDiffResult;

        close $fh_out;
        close $fh_out_dmp;

Hier wird auch wenn das öffnen der Datei fehlschlägt versucht den Datei Inhalt zu schreiben. Da es darüber keine Fehlermeldung gibt weist darauf hin, dass kein use warnings; im Script benutzt wird. Das ist bei größeren Scripten aber definitiv von Vorteil. Da damit viel leichter Fehler gefunden werden können. Besser man schreibt die Stelle so:

Code (perl): (dl )

        if(open my $fh, '>', $xmlFile )
        { print $fh $xml; }
        else 
        { warn "WARNING: Could not Open *$xmlFile* ($!)\n"; }

        if(open my $fh, '>', $dumperFile )
        { print $fh Dumper $rhDiffResult; }
        else
        { warn "WARNING: Could not Open *$dumperFile* ($!)\n"; }

Außerdem sollte man auch Ausgeben warum das öffnen nicht funktioniert hat. Das macht das $! in der Warnung.

Der vollständig Code sollte besser so sein:

Code (perl): (dl )

    if( glob($options{output}) )
    {
        my $xmlFile = glob($options{output}); 
        my $dumperFile = "$xmlFile.dmp";

        print "\nINFO: Because of some problems with reading the xml file, a hashdump is also performed\n";
        print "      Name of the dumped hash is: '$dumperFile'\n";

        my $xml = $xs->XMLout($rhDiffResult, KeepRoot=>1, NoAttr=>1, AttrIndent => 1 , KeyAttr=>[]);

        if(open my $fh, '>', $xmlFile )
        { print $fh $xml; }
        else
        { warn "WARNING: Could not Open *$xmlFile* ($!)\n"; }

        if(open my $fh, '>', $dumperFile )
        { print $fh Dumper $rhDiffResult; }
        else
        { warn "WARNING: Could not Open *$dumperFile* ($!)\n"; }
    }
    else
    {
        my $xml = $xs->XMLout($rhDiffResult, KeepRoot=>1, NoAttr=>1, AttrIndent => 1, KeyAttr => [] );
        #$xs->XMLin( $xmlFile, KeepRoot => 1, NormaliseSpace => 1, ForceContent => 1, ForceArray => 1, KeyAttr => [] );
        print $xml;
    }

Last edited: 2013-06-12 11:35:35 +0200 (CEST)

clms

2013-06-12 11:58
User since
2010-08-29
373 Artikel
BenutzerIn
Hast Du use strict; use warnings; gesetzt?
Ich vermute nicht.

Hast Du Dir mal "perldoc -f glob" durchgelesen.
Meine Erfahrung mit glob() beschränkt sich auf den List-Kontext.
Im Scalar-Kontext, wie bei Dir, liefert jeder Aufruf offenbar einen neuen Wert und bei $xmlFile = glob($options{output}); ist der Wert wohl nicht mehr definiert. Entsprechend schlägt das open auf einen leeren Filename fehl.

Ich würde das open so schreiben:
Code (perl): (dl )

open( my $fh_out, '>', $xmlFile ) or die "Could not Open XML-File '$xmlFile': $!";
- mit die() statt warn(), denn wenn das Open fehlschlägt, läuft Dein Script ohnehin nicht mehr sinnvoll weiter.

Nur warum $dumperFile in der INFO-Message "dmp" und nicht ".dmp" ist, verstehe ich nicht.

View all threads created 2013-06-12 07:53.