Aufgabe für die Funktionen pack / unpack gesucht - #128658 (Allgemeines zu Perl)

Gast Gast

2009-11-27 17:58

Ich weiß nicht, ob das so funktioniert:

Code (perl): (dl )

#!/usr/bin/perl
use warnings;
use strict;

my $file = '/foo/bar';

open my $fh, '<', $file or die $!;

local $/;

my $content = <$fh>;

close $fh or die $!

my $ascii = pack 'u', $content;