PageRenderTime 14ms CodeModel.GetById 6ms app.highlight 4ms RepoModel.GetById 1ms app.codeStats 0ms

/t_backcompat/64encode.pl

http://github.com/PerlGameDev/SDL
Perl | 9 lines | 5 code | 3 blank | 1 comment | 1 complexity | bb95750ef3beed04de4d976400dd29cc MD5 | raw file
1#!/usr/bin/perl
2
3use MIME::Base64 qw/ encode_base64 /;
4
5open FILE, "< $ARGV[0]" or die "$!\n";
6
7while ( read FILE, $buf, 60 * 57 ) {
8	print encode_base64($buf);
9}