Предыстория.

У знакомого были изрядные тормоза при открытии Вордовых документов. Системщик сказал что это - следствие запомненного Нетваревым клиентом выведенного из дерева сервера, и дал скрипт, который обрабатывает документ и исправляет ситуацию. Скрипт действительно ситуацию исправляет, но при этом исходный и исправленный файлы не отличаются ни на байт...

Сам я в Перле полный ноль, и осваивать его мне не нужно. Однако очень хочется понять в чем все-таки проблема и как именно она вылечена. Кто сможет - объясните суть происходящего.

Вот код скрипта:

Код

@rem = '--*-Perl-*-- @echo off perl -x -S %0 %* goto endofperl @rem '; #! /usr/bin/perl -w undef $/; ($s="\\\\MARS\\") =~ s/(.)/\0$1/g; ($s1=$s) =~ s/./\0/g; $s="\Q$s\E"; for $fi (@ARGV) {  open F,"<$fi";  binmode F;  $a=<F>;  close F;  next unless( $a =~ /$s/ );  print "$fi\n";  ($fii=$fi) =~ s/\.doc$//i;  $fii="$fii.bak";  rename($fi,$fii) or die "$!";  open(F,">$fi") or die "$!";  binmode F;  $a=~s/$s/$s1/g;  print F $a;  close F; } __END__ :endofperl

Запускается с параметром - именем .DOC-файла в кавычках.

Заранее спасибо.

если коротко то вот что он делает

Код

$a=~s/$s/$s1/g;

те если я все правельно понял
1) открывает файл/файлы переданный в командной строке
2) ищет в нем

Код

$s="\Q$s\E";

где $s = \_\\\_\\\_M\_A\_R\_S\_\\ , где _ - 0 символ
если находит то делает бак, а файл переданный в коммандной строке перезаписывает, только перед этим каждый символ из строки
\_\\\_\\\_M\_A\_R\_S\_\\ (он ее нащел в файле) заменяет на \0 (нулевой)
вот вроде и все

скорее всего тк \\\\MARS\\ сетевой путь на который ворд лезит и поэтому что то происходит не ладное в момент этого лаза
Добавлено @ 10:26
короче если я правельно все понял то он просто стирает сетевой путь!

Это сообщение отредактировал(а) chaos - 2.9.2005, 11:14

Akina если открыть doc файл на чтение и вывести его содержимое, то выводится что-то, но явно не содержимое (можешь сам попробовать), вроде в кодировке koi, но при конвертации в win ничего хорошего не получается.

В общем, если в этом есть строка с МАРСом, то она заменяется на такую же только с со слешем и нулевым символом и файл переименовывается в *.bak, а если нет, то с файлом все окей!

Цитата(sharq @ 2.9.2005, 12:22)

В общем, если в этом есть строка с МАРСом, то она заменяется на такую же только с со слешем и нулевым символом

покажи мне пжалста где это делается
вот код

Код

($s="\\\\MARS\\") =~ s/(.)/\0$1/g; ($s1=$s) =~ s/./\0/g; $s="\Q$s\E"; .... $a=~s/$s/$s1/g; ....

Добавлено @ 12:33
ради эксперимента

Код

($s="\\\\MARS\\") =~ s/(.)/\0$1/g; print $s,"\n"; ($s1=$s) =~ s/./\0/g; print $s1,"\n"; $s="\Q$s\E"; print $s,"\n";

выведи это в файл и посмотри хекс

Это сообщение отредактировал(а) chaos - 2.9.2005, 12:30

chaos я это все делал как и ты

Я не стал расписовать про замену с путем к МАРСу, т.к. это ты сделал

А вот что выводит doc, когда пытаешься его вывести на экран я не знаю, но судя по коду, там может находиться и путь к МАРСу.


Добавлено @ 12:48

Цитата(chaos @ 2.9.2005, 11:25)

короче если я правельно все понял то он просто стирает сетевой путь!

С этим я согласен.