Perl - Vorlage toolkit utf8 encoding OS Option

Question

Ich stoße auf ein seltsames Problem mit Template Toolkit für Perl. Ich habe es verwendet, um einige Readme-Dateien mit Vorlagen zu generieren, die in utf8 codiert ist, früher in diesem Jahr, die Readme-Datei, die erstellt wurde, war in Ordnung und war in Dos \ Windows Stil der utf8 Codierung mit CR \ LF als Zeilenenden. Irgendwie wurde in meinem Code etwas geändert, das jetzt Readme-Dateien im Macintosh-Stil von utf8 erzeugt, mit CR \ CR \ LF als Zeilenenden, was wiederum viel unnötigen Abstand in meinen generierten Readme-Dateien verursachte.

Der Kodex ist unter:

my $readme_tmpl = "README_tmpl.tt"; 
    if($os_type eq "LINUX") { 
     $readme_tmpl = "README_tmpl_linux.tt"; 
    } 
    my $data_dir = File::Spec->catdir($self->data_dir(), 'BuildSomething'); 
    $data_dir =~ s/\\/\//g; 
    my $template = Template->new(INCLUDE_PATH => $data_dir); 

    my %readme_params; 

    $readme_params{build_app_name} = $pub_env->{BUILD_APP_NAME}; 
    $readme_params{project_name} = $self->project(); 

    $template->process($readme_tmpl, \%readme_params, $readme_file); 

Wo $ readme_file der Pfad, in dem die neue Datei sein wird.

Ich bin auf der Suche nach Möglichkeiten, um es zurück in die Dos/Windows-Stil der utf8-Codierung zu ändern, irgendwelche Ideen, wie man das macht?

Answer 1

Problem gelöst, dieser Beitrag beantwortet meine Frage I get extra CR using TT (perl template toolkit)

Ich habe dann binmode => 1 auf dem Prozessverfahren und es funktionierte.