nav[aria-label="Primary Navigation"] { padding: 0; & ul { list-style: none; width: 100%; display: flex; flex-direction: row; justify-content: start; align-items: start; gap: 30px; padding: 0; & li { margin: 0; } & ul li { list-style: none; } } }

How to do global search and replace for many DCRs

Banko

How can I perform a global search and replace on certain values of all DCRs in a branch? I'm using something like the following expressing on the command line but the dcr files
gets overwritten (clobbered) and extended attributes are lost:

# iwperl -pi -e "s/old/new/g;" `find . -exec grep -l 'old' {} \;`

Does any one have other good suggestions for maintaining the extended attributes during such operation? Thanks!

global substitution
DCR substitution
DCR search and replace

Find more posts tagged with

Comments

laj1

here's my idea, in pseudocode

foreach oldfile (file) {
extattribs = getextattribs(oldfile);
perl -e s/whatever/'
setattribs(newfile, extattribs);
}

Len Jaffe
My Heart Is A Flower

Banko

Thanks for the tip, heres my script for anyone who want to use it. It seems to work okay and will save the extended attributes.

Syntax:
subscript.pl 'find string' 'replace string' 'file'

You can use in combination with multiple files such as the following example in ksh which will replace "old" with "new" in all datacontent records in all branches. It's not efficient, though as it traverses the entire iwmnt tree, and if you have many editions in your mount, it will crawl.
It's best to list your workareas and files directly rather than to rely on the find.

subscript.pl "old" "new" $(find $(find $(find /default -name 'WORKAREA' -type d) -name 'data' -type d) )

Just remember to test it out on a workarea you can spare to lose first as a precaution.

-Steve Banko

xmlout2.jpg

Adam Stoller

A few suggestions for improving your code ...

Where you have:

my($iwhome) = `iwgethome`; chomp $iwhome;

I suggest:

use TeamSite::Config;
my $iwhome = TeamSite::Config::iwgethome();

Where you have:

my($getAttrib) = $iwhome . "/bin/iwextattr";

I suggest:

my $getAttrib = "$iwhome/bin/iwextattr -l"

Where you have:

open READFILE, "<$filename";
my $reader = "";
while(){
  $reader .= $_
}
close READFILE;

I suggest:

my $reader = "";
open(READFILE, "<$filename") || die " '$filename' ($!)";
{
local $/ = undef;
$reader = ;
close(READFILE);
}

Also, places where you have code like:

print "$setAttrib \"$attrib\" \"$filename\"\n";

I'd suggest:

print qq($setAttrib "$attrib" "$filename"\n);

The missing '-l' is rather important, the alternate code for reading in the contents of the file is far more efficient, the rest is mostly stylistic.

--fish
(Interwoven Senior Technical Consultant)