Regex Problem - #152470 (Allgemeines zu Perl)

crojay

2011-09-15 17:57

User since
2011-03-08
81 Artikel
BenutzerIn
[default_avatar]

Hi,

vielen Dank.

Mit dem Module File::Slurp funktioniert das auch bei mir, meine eigene Methode zum einlesen der Datei hat wohl hier bei ein Problem mit dem Encoding. Da bleibe ich letzte Zeit immer wieder dran hängen am encoding.

Damit habe ich meine Datei eingelesen bei meinem Code

Code (perl): (dl )

sub getFileContent{
        my ($input,$enc) = @_;
        my $defaultEncoding = "utf8";   
        my $encoding = ($enc) ? "encoding($enc)" : "encoding($defaultEncoding)"; 
        
        
        my @content;
        open(DAT, $input) || die("Could not open file $input $!");      
        binmode(DAT, "$encoding");
        @content=<DAT>;
        close(DAT);
        return @content;
}