Subversion Repositories workwithfiles

#!/bin/perl
 
 
$file=@ARGV[0];
$len=@ARGV[1];
 
if ((length($file)==0) || (length($len)==0))
  { 
   printf "\nInput parameters:\n from_bin2text.pl <binary_file_name> <number_of_bytes_in_outfile>\n";
   printf "Example: from_bin2text.pl bytesdata.bin 5000 >stimulus.txt\n\n";
   exit(0); 
  }
 
open(F,"$file");
binmode F;
@lines=<F>;
close(F);
 
 
$txt='';
$bytenum=1;
foreach(@lines) 
{ 
  $txt=$_; 
  for ($z=0;$z<length($txt);$z++)
  {
   $a=ord(substr($txt,$z,1));
   printf "$a\n";
   $bytenum++;
   if ($bytenum>$len) {exit(0);}
  }
}
 
 
 
sub hex2dec
{
 return sprintf("%d",hex($_[0]))."";
}
 
sub hex2bin
{
 return sprintf("%.4b",hex($_[0]))."";
}
sub dec2hex
{
 return sprintf("%.2x",$_[0])."";
}