<p>Yea, that's what I get for trying to be creative when I try to simplify an example down for an email, currently using "..", not "\d\d"</p>
<p>I've run across qr// before, not quite sure exactly what use I might have for it, but I'll take a look...</p>
<p>@Matt, c modifyer looks like what I need.... I'm already using arrays and a loop, will check it out..</p>
<p>In other news, for a completely different problem in the script, I recently came across File::Slurp... I could probably make more use of it in this case. (It let me reduce some other code from 21 lines to 5, and I assume the overhead isn't bad, as I've read it's being included natively with Perl 6...) *shrug*</p>
<p>-John</p>
<div class="gmail_quote">On Feb 23, 2011 12:49 AM, "Mike South" <<a href="mailto:msouth@gmail.com">msouth@gmail.com</a>> wrote:<br type="attribution">> Also those \d's aren't going to match A-F are they?<br>
> <br>> Are you familiar with qr// to let you store a regex bit in a variable? That<br>> might make some of this more readable.<br>> <br>> mike<br>> <br>> On Tue, Feb 22, 2011 at 10:58 PM, Matt Nash <<a href="mailto:mattnashbrowns@gmail.com">mattnashbrowns@gmail.com</a>>wrote:<br>
> <br>>> Of course, you want actual spaces (not '\s') in the replace string, but you<br>>> knew that.<br>>><br>>><br>>> On Tue, Feb 22, 2011 at 9:56 PM, Matt Nash <<a href="mailto:mattnashbrowns@gmail.com">mattnashbrowns@gmail.com</a>>wrote:<br>
>><br>>>> Hi John,<br>>>><br>>>> You are reading the entire file into an array of lines, then processing<br>>>> that array using a C-style for loop and interpolating the index var into the<br>
>>> search string... and that is the LEAST crazy thing. :) It works, of course,<br>>>> because it turns out that there are infinitely many ways to do it.<br>>>><br>>>> For your immediate problem of the search-and-replace, I recommend reading<br>
>>> the whole file into a single string, newlines and all, then using the /gc<br>>>> modifiers in the regex. Maybe put your colorChange stuff into an array that<br>>>> you loop through, checking the regex for the nth match:<br>
>>><br>>>> @changes = ($change1, $change2, $change3);<br>>>><br>>>> foreach $change (@changes) {<br>>>> $wholefile =~<br>>>> s|08\s00\s00\s1C\s\d\d\s\d\d\s\d\d\s\d\d|08\s00\s00\s1C\s$change|gc;<br>
>>> }<br>>>><br>>>> see <a href="http://perldoc.perl.org/perlre.html">http://perldoc.perl.org/perlre.html</a> and<br>>>> <a href="http://perldoc.perl.org/perlretut.htm">http://perldoc.perl.org/perlretut.htm</a><<a href="http://perldoc.perl.org/perlretut.html#Using-regular-expressions-in-Perl">http://perldoc.perl.org/perlretut.html#Using-regular-expressions-in-Perl</a>> for<br>
>>> lots of details, but the upshot of the modifiers is: g makes it keep looking<br>>>> for matches; c tells it to remember where it last matched, and start from<br>>>> there on the next match. You don't have to care what n is, because you are<br>
>>> matching your search string exactly as many times as you have changes to<br>>>> make.<br>>>><br>>>> ...but this project sounds ripe for refactoring, if I may be so bold.<br>>>> Could it be that what you really need is a templating system?<br>
>>><br>>>> Thanks for bringing some much-needed questions to this list!<br>>>><br>>>> Matt<br>>>><br>>>> On Tue, Feb 22, 2011 at 8:31 PM, John Ricker <<a href="mailto:sephtin%2Bpm-talk@gmail.com">sephtin+pm-talk@gmail.com</a>>wrote:<br>
>>><br>>>>> Received so much help with the last question (which seems to be<br>>>>> functioning great, btw.. thanks all)... thought I'd try again. ;)<br>>>>><br>>>>> Have a script that was recently migrated to Perl from shell/bash, and am<br>
>>>> wondering if there's an easy way in Perl to do the following-<br>>>>><br>>>>> File(s) being modified are hex, and look something like:<br>>>>> ---x---<br>>>>> ...<br>
>>>> 08 00 00 00 FF FF FF FF FF FF FF FF 1B 00 00 00 02 01 10 00 28 01 00 00<br>>>>> 09 00 00 00 FF FF FF FF FF FF FF FF 1C 00 00 00 14 00 14 00 0D 00 00 00 00<br>>>>> 00 0D 00 18 00 00 00 11 00 00 00 FF FF FF FF 08 00 00 05 02 0E 00 00 18 00<br>
>>>> 00 00 0E 00 00 00 FF FF FF FF 08 00 00 1C 00 00 00 FF 18 00 00 00 09 00 00<br>>>>> 00 FF FF FF FF 08 00 00 11 10 00 00 00 18 00 00 00 0F 00 00 00 FF FF FF FF<br>>>>> 08 00 00 01 11 02 02 01 18 00 00 00 03 00 00 00 FF FF FF FF 08 00 00 01 05<br>
>>>> 00 08 01 18 00 00 00 10 00 00 00 FF FF FF FF 08 00 00 05 01 0F 00 00 18 00<br>>>>> 00 00 05 00 00 00 FF FF FF FF 08 00 00 05 01 0F 00 00 18 00 00<br>>>>> ...<br>>>>> ---x---<br>
>>>> File(s) contain several occurrences of "08 00 00 1c ## ## ## ##" or more<br>>>>> appropriately for this list: "08\s00\s00\s1C\s\d\d\s\d\d\s\d\d\s\d\d"<br>>>>><br>
>>>> Now on to the good stuff... I would like to replace the ## ## ## ##<br>>>>> with my chosen colors, that are being provided by vars... Example:<br>>>>> colorChange1="FF 00 00 FF"<br>
>>>> colorChange2="FF FF 00 FF"<br>>>>> colorChange3="FF 00 FF FF"<br>>>>> ...<br>>>>><br>>>>> I'm wondering how it might be possible, to replace the FIRST occurrence<br>
>>>> (in the file, NOT in a line) of "08 00 00 1C ## ## ## ##" with "08 00 00 1C<br>>>>> $colorChange1", the second with "08 00 00 1C $colorChange2", etc.<br>>>>><br>
>>>> More info:<br>>>>> --Script modifies files to theme them, in this case, I'm taking a BINARY<br>>>>> (compiled XML) file, converting it to HEX via xxd, and then changing the<br>
>>>> text color for a theme via substitution.<br>>>>> --I originally thought it could be done similar to what sed does... with<br>>>>> s|(08\s00\s00\s1C)\s\d\d\s\d\d\s\d\d\s\d\d|$1$colorChange1|1 (note last<br>
>>>> digit...), but testing has shown that this doesn't work as expected.<br>>>>> --Not really related, but in the binary, the colors are actually<br>>>>> backwards, so color - FF AB CD EF becomes binary - EF CD AB FF, but that's<br>
>>>> an easy change.<br>>>>> --CURRENTLY in my script, I'm doing this via a sub, passing an array of<br>>>>> the colors, the file, and the file location (directory), and pulling the<br>
>>>> file, making the changes, and saving it back out via loop... BUT, because I<br>>>>> couldn't figure out how to just do the multiple replaces... I cheated and<br>>>>> made template files that contain "08 00 00 1C 11 11 11 11" and "08 00 00 1C<br>
>>>> 22 22 22 22", so when I iterate through the loop, I just change like so:<br>>>>> for ( $i = 1 ; $i <= $COUNT ; $i++ ) {<br>>>>> ...<br>>>>> $line =~ s|08\s00\s00\s1c\s$i$i\s$i$i\s$i$i\s$i$i\s|08 00 00 1c<br>
>>>> $array_ref[$i]|;<br>>>>> ...<br>>>>> }<br>>>>><br>>>>> Code works, but I'd much rather be able to pull native files straight out<br>>>>> of the .zip, and change them that way... :P<br>
>>>><br>>>>> Anyway, again, if there are specifics I missed, happy to provide them.<br>>>>> I keep thinking there should be an easy way to do this... but my<br>>>>> google-fu is failing me..<br>
>>>><br>>>>> Thanks again for the help with the previous problem, and in advance for<br>>>>> any assistance on this one. :)<br>>>>> At the very least, I guess I can provide some chatter to the group.<br>
>>>><br>>>>> -John (sephtin @gmail)<br>>>>><br>>>>> _______________________________________________<br>>>>> Raleigh-talk mailing list<br>>>>> <a href="mailto:Raleigh-talk@pm.org">Raleigh-talk@pm.org</a><br>
>>>> <a href="http://mail.pm.org/mailman/listinfo/raleigh-talk">http://mail.pm.org/mailman/listinfo/raleigh-talk</a><br>>>>><br>>>>><br>>>><br>>><br>>> _______________________________________________<br>
>> Raleigh-talk mailing list<br>>> <a href="mailto:Raleigh-talk@pm.org">Raleigh-talk@pm.org</a><br>>> <a href="http://mail.pm.org/mailman/listinfo/raleigh-talk">http://mail.pm.org/mailman/listinfo/raleigh-talk</a><br>
>><br>>><br></div>