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; } } }

catching a array map

nipper

I have a script to remove carriage returns on a Unix server, but since some of the code is in TS, I do not want to write to the file if there was not a change.

for a variable I would use:

if ($text=s|\r\n|\n|g) { write and close file....}

But I cannot get it to work with this:

open(IN, "<$fname") || die " '$fname' ($!)";
my @text = map {s/\r\n/\n/; $_; }
<IN>;
close(IN);
print "Processed $fname\n";

I know I can process it in a for loop, but I was hoping there would be a much better way.

Andy

Find more posts tagged with

Comments

nipper

ignore, I got it:

my @text = map {$happened={s/\r\n/\n/; $_; }

pflory

if you're on unix, how about the dos2unix command? that one's fun

Paul Flory

Migrateduser

Notes of caution:

1. Be careful not to mess up binary files. You may want to limit these substitutions to files with particular extensions or locations. On Unix you could check the file type.

2. Do an in-place edit. If a file has been moved or renamed since the last submit and you write out a new file to the new path, you may lose the file's revision history.

3. Consider the maximum size of the files that you may need to modify.

Brinko Kobrin
Interwoven Staff Engineer

nipper

From Paul:
>if you're on unix, how about the dos2unix command? that one's fun

dos2unix always updates the file, whether it changed or not,
so I do not want to use it. Also, if I were to do something like:

find . -type f -exec dos2unix {} {} \;

it would hit any file (binary or not) , this I can control.

from Brinko:

>. Be careful not to mess up binary files.
No question there is:

if (-B $fname).... before the change

> 2. Do an in-place edit.
That was what I was attempting, but from your comment I am assuming I am not succeding.

Thanks

Andy

Migrateduser

>> Brinko wrote
>> 2. Do an in-place edit.

> Andy wrote:
> That was what I was attempting, but from your comment I am assuming I am not succeding

I do not know if you are succeeding or not. I have not seen the code that you use to update the file. I was simply giving a caution

Brinko Kobrin
Interwoven Staff Engineer

nipper

here:

#!/u03/iw-home/iw-perl/bin/iwperl
my $changed = 0;
my $fname = shift;
if (-B $fname)
{ print "$fname is binary - not changing\n";
exit(0);
}
open(IN, "<$fname") || die " '$fname' ($!)";
my @text = map {$changed += s/\r\n/\n/; $_; }
<IN>;
close(IN);
if ($changed) {
print "Processed $fname\n";
open(OUT, ">$fname") || die " '$fname' ($!)";
print OUT @text;
close(OUT);
} else {
print "Did not change $fname\n";
}

I will have to test this out to see if I lose move/rename history.

Thanks

Andy

Migrateduser

I don't think this will do an in-place edit. When you do

open(OUT, ">sample.txt")

I believe that Perl creates a file named "sample.txt" for output, simply replacing the old file with the same name if there was one. So the file history may be lost if the file was renamed. (TeamSite doesn't know that the file has been replaced. It is only told the that a file is deleted, and -- in a separate system call -- that a file is created.

To do an in-place I think you will need to open the file, read its contents, rewind, write the new contents, and then close it.

Brinko Kobrin
Interwoven Staff Engineer