Perl 펄] BASE64 인코더/디코더; 파일을 base64로 인코딩 디코딩하기; File Encode, Decode

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

use MIME::Base64 qw( encode_base64 decode_base64 );


  &help if $#ARGV < 1; # 옵션이 없거나 부족하면 도움말 출력

  if    ($ARGV[0] eq "-e") { encodeFile(@ARGV); } # 인코딩
  elsif ($ARGV[0] eq "-d") { decodeFile(@ARGV); } # 디코딩
  else                     { &help; }             # 도움말




sub encodeFile {
  open IN, "<", $_[1] or die "$!: '$ARGV[1]'\n"; binmode(IN);

  my $buf;

  while (read(IN, $buf, 60 * 57)) {
    print encode_base64($buf);
  }
  close(IN);
}


sub decodeFile {
  my $output_filename = "out.bin";            # 출력 파일 기본값
  $output_filename = $_[2] if defined $_[2];  # 출력 파일을 지정했다면, 그 이름을 사용

  open IN, "<", $_[1] or die "$!: '$_[1]'\n";
  open OUT, ">", $output_filename or die "$!: '$output_filename'\n"; binmode(OUT);

  while (<IN>) {
    print OUT decode_base64($_);
  }
  close(IN); close(OUT);
}


sub help {
  die <<TEXT;

 BASE64 Encoder/Decoder v1.0 (2006)
        https://mwultong.blogspot.com/


   [ Usage ]

        Encode   : base64.pl -e <input filename>

        Decode   : base64.pl -d <input filename> [output filename]
                   * Default Output File : out.bin

   [ Examples ]

        Encode   : base64.pl -e test.jpg > base64.txt

        Decode   : base64.pl -d base64.txt test.jpg
TEXT
}