Thanks, that works perfectly. Now I just have to figure out how to turn it back into a valid file. I tried using "pack 'b*'" but I had no luck. Any suggestions?
Joel ----- Original Message ----- From: "John W. Krahn" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Wednesday, March 03, 2004 5:31 PM Subject: Re: perl hex editor > Joel wrote: > > > > I'm trying to write a program in perl that will take a binary file, convert > > it to hex, then save it to a text file. So far I'm not having any luck. The > > best I've been able to do is copy the file and open it in a text editor. > > Here is my code: > > > > #!/usr/bin/perl > > > > use warnings; > > use strict; > > > > print "Enter path:\n"; > > my $filename = <>; > > chomp $filename; > > print "Save as what?\n"; > > my $savefile=<>; > > chomp $savefile; > > open (BINARY, "$filename") || die "Couldn't open file: $!"; > > binmode BINARY; > > my $x=BINARY; > > open (SAVE,">$savefile") || die "Unable to save: $!"; > > print SAVE 0b"$x"; > > close BINARY; > > close SAVE; > > > > Any ideas? > > Perhaps this is what you want: > > #!/usr/bin/perl > use warnings; > use strict; > > print 'Enter path: '; > chomp( my $filename = <STDIN> ); > > print 'Save as what? '; > chomp( my $savefile = <STDIN> ); > > open BINARY, '<', $filename or die "Couldn't open file: $!"; > binmode BINARY; > open SAVE, '>', $savefile or die "Unable to save: $!"; > > while ( <BINARY> ) { > print SAVE unpack( 'H*', $_ ), "\n"; > } > > close BINARY; > close SAVE; > > __END__ > > > > John > -- > use Perl; > program > fulfillment > > -- > To unsubscribe, e-mail: [EMAIL PROTECTED] > For additional commands, e-mail: [EMAIL PROTECTED] > <http://learn.perl.org/> <http://learn.perl.org/first-response> > > > -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>