#!/usr/bin/perl -w #use CGI::Carp qw(fatalsToBrowser); print "Content-type: text/html\n\n"; $data_file="me.raw"; open(DAT, $data_file) || die("Could not open file!"); binmode(DAT); @raw_data=; close(DAT); #print "Content-type: text/html\n\n"; #print ""; #open MYFILE, ">newicon.raw"; #binmode(MYFILE); #select MYFILE; #use bytes; #print length $raw_data[0]; #print "anything!!!!"; #@packed = unpack 'H' , @raw_data; #print @packed; use Math::Complex; $bigString = join("",@raw_data); $rowCount = sqrt(length $bigString); $myLength = length $bigString; print "$rowCount
"; for($count = 0; $count < length $bigString;$count++){ if(($count) % $rowCount ==0 && $count!=(length $bigString)-1){ print ""; } #@packed = unpack('h',$raw_data); #print(unpack('h',$raw_data[$count])); $grab = substr( $bigString, $count, 1); #print $count.": ".$grab."\n"; # almost working $grayvalue = ord(unpack('a', $grab)); print ""; # shot in the dark #print unpack("N", pack("B32", substr($grab x 32 . shift, -32)))."\n"; #@decimal = ord(unpack('B8', $raw_data[$count])); #select; #print(@decimal); #} #print "hello world"; #foreach $wrestler (@raw_data) #{ # chop($wrestler); # ($w_name,$crowd_re,$fav_move)=split(/\|/,$wrestler); # print "When $w_name is in the ring, the crowd might $crowd_re when the $fav_move is used."; # print "
\n"; } print "
\n"; ; #print (($count) % $rowCount); print "
"; #print ""; #close(MYFILE);