Просмотр кода страницы Основы макроязыка EASI (PCI Geomatica) Часть 4. Примеры автоматизации процессов

{{Статья|Опубликована|easi4}}
{{Аннотация|Четвертая часть серии статей о языке EASI, несколько примеров автоматизации работы с данными.}}

=== Общие подходы к автоматизации процессов в EASI ===

В большинстве случаев автоматизация требуется для выполнения однотипных операций над растровыми данными. В одних случаях это могут быть однотипные растровые данные, которые необходимо одновоременно обработать. В других случаях необходимо создать скрипт для запуска набора операций над файлом по коменде пользователя. Автоматизация потоков операций над растровыми данными с помощью языка EASI может быть выполнена двумя путями:

# С помощью функций самого языка EASI
# С помощью специальных программ, позволяющих генерировать скрипты на языке EASI и запускать их. В частности, такие программы могут быть легко написаны на языке PERL

В этой статье мы рассмотрим простейшие примеры автоматизации данных с помощью EASI и PERL.

=== Выполнение операций над набором файлов – скрипт EASI ===

Пример простого скрипта для выполнения заданных однотипных операций над всеми файлами <tt>.pix</tt> в рабочей директории:

<pre>
sys "dir *.pix /b > dirlist.txt              (создаем список фалов)

local int tfid                               (задаем набор переменных)
local string ReadLine

tfid = TEXTOpen("dirlist.txt", "r")          (открываем список файлов)
ReadLine = TEXTRead(tfid)                    (читаем первую строку файла)

While ReadLine <> "<EOF>"                    (начало цикла «до конца файла»)

fili=ReadLine                                (задаем прочитанную строку как параметр команды EASI – имя входного файла)

filo=ReadLine+”_out”                         (создаем имя выходного файла с суффиксом)
(Здесь помещаем список команд)

ReadLine = TEXTRead(tfid)                    (читаем новую строку файла)
EndWhile                                     (конец цикла)

Call TEXTClose(tfid)                         (закрываем список файлов...)
sys "del dirlist.txt                         (...и удаляем его)
</pre>

=== Выполнение операций над набором файлов – запуск скрипта EASI из PERL ===

Для облегчения автоматизации обработки большого набора файлов их удобно хранить в разных директориях. Наример, все файлы называются однотипно (<tt>data.pix</tt>) но хранятся в разных директориях (<tt>s1</tt>, <tt>s2</tt>, <tt>s3</tt> и т.д.). В таком случае для обработки каждого файла вы сможете использрвать один срипт EASI, который должен быть скопирован и запущен в каждой из директорий. Для этого мы используем простой скрипт на PERL.

<syntaxhighlight lang="perl">
#!/usr/local/bin/perl                                     # начало скрипта

system("dir s* /A:D /O:N /B >dirlist.txt");               # создаем список директорий
open (DAT, "dirlist.txt");                                # открываем список директорий

while (<DAT>)                                             # начало цикла «до конца файла»
{
$line = $_;                                               # читаем строку файла
$line =~ s/\n//;                                          # удаляем символ конца строки

chdir "$line";                                            # переходим в заданную директорию
system("copy D:\\xscripts\\myscript.eas script.eas /y");  # копируем скрипт EASI в директорию

system("easi r script");                                  # выполняем скрипт EASI
system("del script.eas");                                 # удаляем скрипт
chdir "..";                                               # возврящяемся в корневую директорию
}

close (DAT);                                              # закрываем и удаляем список директорий
system("del dirlist.txt"); 
</syntaxhighlight>

=== Создание и запуск скрипта EASI из PERL ===

В ряде случаев бывает удобно созадать скрипт EASI из готовых команд с помощью программы на PERL. Приведем пример для импорта набора файлов в формате *.img с записью выходных файлов PCIDSK в разные директории:

<syntaxhighlight lang="perl">
#!/usr/local/bin/perl                       # начало скрипта

system("dir *.img /B >dirlist.txt");        # создаем список файлов
open (DAT, "dirlist.txt");                  # открываем список файлов
open (OUT, ">script.eas");                  # создаем скрипт EASI

while (<DAT>)                               # начало цикла «до конца файла»
{
$line = $_;                                 # читаем строку файла
$line =~ s/\n//;                            # удаляем символ конца строки
$line1 =~ s/.img//;                         # удаляем расширение

print OUT"                                  # запись команд в скрипт EASI
sys “mkdir $line1”                          # создание директории
fili=\"$line                                # импорт файла
filo=\"$line1\\img.pix
r fimport
";
}
close (OUT);

system(“easi r script”);                    # выполняем скрипт EASI...
system("del script1.eas");                  # ...и удаляем его
</syntaxhighlight>

=== Ссылки по теме ===

* [http://gis-lab.info/qa/easi1.html Основы макроязыка EASI (PCI Geomatica). Часть 1. Управление данными]
* [http://gis-lab.info/qa/easi2.html Основы макроязыка EASI (PCI Geomatica). Часть 2. Анализ данных]
* [http://gis-lab.info/qa/easi3.html Основы макроязыка EASI (PCI Geomatica). Часть 3. Географическая привязка и проекции]