delete FF's from a file

james28909 has asked for the wisdom of the Perl Monks concerning the following question:

i have this file in binmode (its hex bin) and its only 190 or so kb,
the file size varies but that really doesnt matter.
what i am trying to do is open the file in read mode, then find all instances
of FF*16 or (FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF) and delete it,
but only FF*16 because there are other instances of just FF or FF FF and i would like to leave those instances and just delete FF*16. here is the code i have so far:

open($infile, '<', './file') or die "cannot open file: $!";
binmode $infile;
open($outfile, '>', './modifiedfile') or die "cannot open modifiedfile
+: $!";
binmode $outfile;

local $/; $file = <$infile>;
$file =~ tr/\FF*{16}//d;   
print $outfile $file;


close ($infile);
close ($outfile);
[download]

i had some help and figured out that $file =~ s/\0{16}//g; works great for 00's, but it doesnt work for FF's -.-

i hope you understand what i am treing to do, and thank you for any help i recieve :)
EDIT: $file =~ s{\xFF{16}}{}g; worked great.

Comment on delete FF's from a file Download Code

Replies are listed 'Best First'.
Re: delete FF's from a file by Corion (Patriarch) on Feb 11, 2013 at 09:18 UTC
tr doesn't take a regular expression. Most likely you will want to use `s///` instead.	[reply] [d/l]
Re^2: delete FF's from a file by james28909 (Deacon) on Feb 11, 2013 at 09:26 UTC
i did try $file =~ s/\F{16}//d as well as $file =~ s/\0{16}//g and it still did not work	[reply]
Re^2: delete FF's from a file by james28909 (Deacon) on Feb 11, 2013 at 09:27 UTC
i did try $file =~ s/\F{16}//d as well as $file =~ s/\F{16}//g and it still did not work	[reply]
Re^3: delete FF's from a file by Corion (Patriarch) on Feb 11, 2013 at 09:30 UTC
Neither `\F` nor `\FF` are how you represent an "FF character" in a string. Most likely you want `\x{FF}`, but you will find more information in the documentation as linked by Anonmyous Monk here already.	[reply] [d/l] [select]
Re^3: delete FF's from a file by Anonymous Monk on Feb 11, 2013 at 09:30 UTC
`$ perl -we " s/\F{16}//g " Unrecognized escape \F{ passed through in regex; marked by <-- HERE in + m/\F{ <-- HERE 16}/ at -e line 1. Use of uninitialized value $_ in substitution (s///) at -e line 1.` [download] Quote and Quote like Operators, perlrequick, strictures, Read this if you want to cut your development time in half!	[reply] [d/l]
Re: delete FF's from a file (perlquote) by Anonymous Monk on Feb 11, 2013 at 09:28 UTC
s{\xFF{16}}{}g Quote and Quote like Operators	[reply]
Re^2: delete FF's from a file (perlquote) by james28909 (Deacon) on Feb 11, 2013 at 09:30 UTC
:D that worked ^__^ you guys are awesome. i would never have figured that out. thank you so much for your help ;)	[reply]
Re: delete FF's from a file by Lotus1 (Vicar) on Feb 11, 2013 at 15:25 UTC
i have this file in binmode (its hex bin)... This is a common source of confusion that people think processors use hexidecimal internally. The processor uses binary and the file is in binary. Hexidecimal is a representation shown on the screen or in a string, etc. that is easier for humans to use than binary. Searching for 'FF's in a binary file is not what you want. You want the binary value represented by the hex number 'FF'.	[reply]
Re: delete FF's from a file by igelkott (Priest) on Feb 11, 2013 at 09:32 UTC
Several issues with this. Here are a few hints: The first arg (file handle) for for open is usually bare (no $) Your search is made for a plain text file, not binary data. Your regular expression is way off (no offence): "\F", "F" and the 16 counts of strings of any length 16 FF's would be `'FF' x 16` ... if you were going for a text string rather than binary data You should review common "regular expressions" and then searching binary data in particular.	[reply] [d/l]
Re^2: delete FF's from a file by james28909 (Deacon) on Feb 11, 2013 at 09:41 UTC
so i can open with filehandle "infile" without "$"? yes, it is a dump from hardware, but i guess you could call it plain text as it can be opened in notepad but has wild characters. i tried many different variations of $file =~ and nothing would work out. i am fixing to read up on the link that was posted earlier. thanks for all the help	[reply]
Re^3: delete FF's from a file by tmharish (Friar) on Feb 11, 2013 at 10:14 UTC
so i can open with filehandle "infile" without "$"? You CAN but there are good some very good reasons not to. You will notice from the last link above the "Modern Perl", Recommended by Anonymous Monk below, does not use it. At the end of the day its a choice that you make but I disagree with igelkott on this. To differentiate you could always call it `$input_file_handle` or similar.	[reply] [d/l]
Re^4: delete FF's from a file by igelkott (Priest) on Feb 11, 2013 at 15:09 UTC
Re^5: delete FF's from a file by tmharish (Friar) on Feb 12, 2013 at 13:59 UTC
Re^3: delete FF's from a file by Anonymous Monk on Feb 11, 2013 at 09:47 UTC
FWIW, you should binmode if you want to treat your binary files as binary ( no newline translation ) with open it would be `open my($infile), '<:raw', ... or die ...` While you're in a learning mood, get a free copy of Modern Perl book, a loose description of how experienced and effective Perl 5 programmers work....You can learn this too.</b.	[reply] [d/l]
Re^4: delete FF's from a file by james28909 (Deacon) on Feb 11, 2013 at 09:56 UTC
Re^3: delete FF's from a file by james28909 (Deacon) on Feb 11, 2013 at 09:46 UTC
i have def bookmarked this site this seems to be the place i can learn alot from i will make me a spot in the corner you wont even know im here ;D	[reply]
Re^2: delete FF's from a file by Anonymous Monk on Feb 11, 2013 at 09:38 UTC
The first arg (file handle) for for open is usually bare (no $) It usually isn't, as barewords are global symbols, and lexicals are preferable in almost every situation You could make an argument about style (different things should look different), but you did not	[reply]

Back to Seekers of Perl Wisdom