|
Revision 6931, 0.6 kB
(checked in by bergie, 6 years ago)
|
Perl rename() doesn't work across filesystems
|
- Property svn:eol-style set to
native
- Property svn:executable set to
*
- Property svn:keywords set to
Author Date Id Revision
|
| Line | |
|---|
| 1 |
|
|---|
| 2 |
|
|---|
| 3 |
open FILE, "< $ARGV[0]"; |
|---|
| 4 |
open FILE2, "> /tmp/clean_user_references.$$"; |
|---|
| 5 |
|
|---|
| 6 |
$admin_user_guid = "f6b665f1984503790ed91f39b11b5392"; |
|---|
| 7 |
|
|---|
| 8 |
@person_refs = ("revisor","author","creator","approver","locker","uid"); |
|---|
| 9 |
|
|---|
| 10 |
while (<FILE>) { |
|---|
| 11 |
|
|---|
| 12 |
|
|---|
| 13 |
foreach $person_reference (@person_refs) { |
|---|
| 14 |
s/<$person_reference>[^<]*<\/$person_reference>/<$person_reference>$admin_user_guid<\/$person_reference>/; |
|---|
| 15 |
} |
|---|
| 16 |
print FILE2; |
|---|
| 17 |
} |
|---|
| 18 |
|
|---|
| 19 |
close FILE; |
|---|
| 20 |
close FILE2; |
|---|
| 21 |
|
|---|
| 22 |
system("mv","/tmp/clean_user_references.$$", $ARGV[0]); |
|---|
| 23 |
unlink("/tmp/clean_user_references.$$"); |
|---|
