/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. 

  2. 

  3. use MIME::Base64 qw/ encode_base64 /;
    4. 

  4. 

  5. open FILE, "< $ARGV[0]" or die "$!\n";
    6. 

  6. 

  7. while ( read FILE, $buf, 60 * 57 ) {
    8. 

  8. 	print encode_base64($buf);
    9. 

  9. }
    10.