Opened by bianca at 2011-12-10 13:48
User since
2009-03-26
56 Artikel
BenutzerIn
![[Homepage]](/battie/theme/default/homepage.gif)
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2009-03-26
56 Artikel
BenutzerIn
Laut 
Module::CoreListist MIME::Base64 schon seit langen in Perl core. Es besteht also kein Installationsaufwand.
Für überschaubar große Dateien kann man die Dateien auch komplett transformieren.
Module::CoreListist MIME::Base64 schon seit langen in Perl core. Es besteht also kein Installationsaufwand.Für überschaubar große Dateien kann man die Dateien auch komplett transformieren.
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
use strict;
use File::Slurp qw(write_file read_file);
use MIME::Base64;
use Data::Dumper;
write_file( 'base64_test.txt', <<'END_TEXT' );
Beispielstext für Base64
aaaaaaaaaaaa
bbbbbbbbbbbb
cccccccccccc
END_TEXT
my $encoded = encode_base64( read_file('base64_test.txt') );
print Data::Dumper->Dump( [ $encoded, decode_base64($encoded) ], [ qw/encoded decoded/ ] );