Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: Общие вопросы > Расскажите что делает этот скрипт

Автор: Akina 2.9.2005, 09:55

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

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

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

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

Код


@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-файла в кавычках.

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

Автор: chaos 2.9.2005, 10:25

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

Код


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

те если я все правельно понял smile

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

Код


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

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

скорее всего тк \\\\MARS\\ сетевой путь на который ворд лезит и поэтому что то происходит не ладное в момент этого лаза smile

Добавлено @ 10:26
короче если я правельно все понял то он просто стирает сетевой путь!

Автор: sharq 2.9.2005, 12:22

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

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

Автор: chaos 2.9.2005, 12:29

Цитата(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";

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

Автор: sharq 2.9.2005, 12:46

chaos я это все делал smile

как и ты

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

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

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

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

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

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