Fileserver Problem - #109209 (Netzwerkprogrammierung und Netzwerke mit Perl)

renee

2008-05-05 17:18

User since
2003-08-04
14371 Artikel
ModeratorIn

chomp entfernt das was in $/ steht. Du hast da das Nullbyte drin gespeichert, aber das ist nicht das Zeilenendenzeichen.

Du vergleichst als if ( "<policy-file-request/>\n" eq '<policy-file-request/>' ) und das ist immer false!

Du solltest die Zeilen 37-40 in einen Block packen, also

Code (perl): (dl )

{
    local $/ = undef;
    open POLICYFILE, "<$filePath" or die "Can't open '$filePath': $!\n";
    $content = <POLICYFILE>;
    close POLICYFILE;
}

Damit gilt die locale Änderung von $/ nur in diesem Block und danach ist da wieder der ursprüngliche Wert drin gespeichert. Und die Zeile 46 solltest Du komplett rausnehmen!

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/