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

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

filo=ReadLine+”_out”
(Здесь помещаем список команд)

ReadLine = TEXTRead(tfid)
EndWhile

Call TEXTClose(tfid)
sys "del dirlist.txt

(создаем список фалов)

(задаем набор переменных)

(открываем список файлов)
(читаем первую строку файла)

(начало цикла «до конца файла»)

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

создаем имя выходного файла с суффиксом)

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

(закрываем список файлов...)
(...и удаляем его)

(начало скрипта)

(создаем список директорий)
(открываем список директорий)

(начало цикла «до конца файла»)
(читаем строку файла)
(удаляем символ конца строки)

(переходим в заданную директорию)
(копируем скрипт EASI в директорию)

(выполняем скрипт EASI)
(удаляем скрипт)
возврящяемся в корневую директорию)

закрываем и удаляем список директорий)

#!/usr/local/bin/perl

system("dir *.img /B >dirlist.txt");
open (DAT, "dirlist.txt");
open (OUT, ">script.eas");

while (<DAT>)
{
$line = $_;
$line =~ s/\n//;
$line1 =~ s/.img//;

print OUT"
sys “mkdir $line1”
fili=\"$line
filo=\"$line1\\img.pix
r fimport
";
}
close (OUT);

system(“easi r script”);
system("del script1.eas");

(начало скрипта)

(создаем список файлов)
(открываем список файлов)
(создаем скрипт EASI)

(начало цикла «до конца файла»)
(читаем строку файла)
(удаляем символ конца строки)
(удаляем расширение)

(запись команд скрипт EASI)
(создание директории)

(импорт файла)

(выполняем скрипт EASI...)
(...и удаляем его)