Conver Text เป็น Binary แล้วก็ Binary เป็น Text [ Perl ] ครับ

#!/usr/bin/perl -w
system("cls");

use strict;
print "\n\t\t\t Convert Text to Binary \n\n";
print "\n\t\t\t\tBY P1P3LA \n\n";

my @in;
my $file;

sub tobinary()
{
my @in;
my $out;
my $i;

@in = @_;
for ($i=0;$i<=$#in ;$i++) { $out .= unpack ("B*", $in[$i]); } print "Bianary : $out"; print "\n"; } sub totext() { my @in; my $out; my $i; @in = @_; for ($i=0;$i<=$#in ;$i++) { $out = pack ("B*", $in[$i]); print ("Text : ",$out); } print "\n"; } sub help() { print "\n Usage: $0 [-b | -t] [-f filename | \"Test to convert \"]\n\n"; print " -b : text to binary convert \n"; print " -t : binary to text convert \n"; print " filename : file to be convert ex. filename.pl -b -f filename \n"; print " message : text to be convert ex. filename.pl -t -f filename \n"; } if (@ARGV < 2) { &help(); exit(1); } if ($ARGV[0] eq '-b') { if ($ARGV[1] eq '-f') { $file = $::ARGV[2]; open (File, "<$file") || die " Error : Can't to open $file - $! \n"; @in = ;
close(File);
if (!@in)
{
print "Error : No data in $file ... \n";
exit(1);
}
}

else
{
@in = $::ARGV[1];
}

&tobinary(@in);
}

elsif (@ARGV[0] eq '-t')
{
if (@ARGV[1] eq '-f')
{
$file = $::ARGV[2];
open (File, "<$file") || die "Error : can't to open $file - $! \n"; @in = ;
close(File);
if (!@in)
{
print "Error : No data in $file ... \n";
exit(1);
}
}

else
{
@in = $::ARGV[1];
}

&totext(@in);
}

else
{
&help();
exit(1);
}