Perl API
Perl API
NeTAMS представляет собой достаточно гибкий инструмент учета трафика и установки некоторых ограничений на работу пользователей. Круг задач, которые можно решить с использованием данной программы, чрезвычайно широк, и у каждого администратора есть свои пожелания по организации работы программы и тому, как она взаимодействует с пользователями. Для облегчения задачи настройки и использования NeTAMS под ваши конкретные задачи был создан интерфейс в виде ряда функций, который позволяет управлять программой и получать от нее данные из ваших написанных самостоятельно Perl–скриптов и CGI–программ.
Для применения интерфейса вы должны включить в начало вашей программы строку:
require «netams_api.pl»
Вот список функций, которые определены в этом интерфейсе:
• $result=netams_login($hostname, $port, $username, $password); — осуществляет соединение с программой, используя указанные параметры. Если $result начинается со слов «Welcome», то соединение прошло успешно
• netams_send($command); — отправляет команду $command на исполнение
• $result=netams_read(); — считывает в переменную $result результат выполнения команды
• $result=netams_readline(); — то же самое, но программа ожидает вывода признака конца строки (перевод строки, " »). использовать не рекомендуется
• netams_logout(); — осуществляет разрыв соединения.
Вот список идущих с программой скриптов, которые можно применять на практике или рассматривать как примеры программирования общения с NeTAMS:
• netams_example.cgi — выводит результат выполнения команды show version в виде cgi–программы. после небольшой модификации превращается в утилиту командной строки.
• login.cgi — интерфейс к сервису login.
• netams_graph.cgi — программа, динамически создающая картинки в формате PNG с графическим отображением статистики для заданного юнита и всех его политик учета, за последние неделю или месяц. параметры вызова (метод GET):
• unit=UNIT_NAME — обязательный параметр, определяет имя юнита, для которого будет рисоваться картинка
• policy=POLICY_NAME — имя политики, которая будет отображаться. при отсутствии параметра policy будут отрисованы все активные политики.
• prefix=PREFIX — буква, определяющая временной период графика, W (неделя) или M (месяц) соответственно, по умолчанию =W
• nolegend=FLAG — при любом установленном значении запрещает отрисовку легенды с отображением цвета, которым будет отрисовываться данные о политике.
• Данный скрипт использует модули GD.pm и библиотеку libgd. Для FreeBSD вам надо выполнить что–то вроде cd /usr/ports/graphics/p5–GD ; make install. В текущем каталоге необходимо иметь файл lucon.ttf, это TrueType–шрифт Lucida Console из дистрибутива Windows XP.
Более 800 000 книг и аудиокниг! 📚
Получи 2 месяца Литрес Подписки в подарок и наслаждайся неограниченным чтением
ПОЛУЧИТЬ ПОДАРОКЧитайте также
Perl API
Perl API NeTAMS представляет собой достаточно гибкий инструмент учета трафика и установки некоторых ограничений на работу пользователей. Круг задач, которые можно решить с использованием данной программы, чрезвычайно широк, и у каждого администратора есть свои пожелания по
Установка Perl-5.8.0
Установка Perl-5.8.0 Приблизительное время компиляции: 3.81 SBU Необходимое дисковое пространство: 52 MBИнсталляция PerlДля инсталляции Perl выполните:./configure.gnu –prefix=/usr && make && make installЕсли вы хотите контролировать настройку perl, можете выполнить интерактивный скрипт Configure, для
Perl
Perl Официальная ссылкаPerl (5.8.0): http://www.perl.com/Содержимое PerlПоследняя проверка: версия 5.6.1.Программыa2p, c2ph, dprofpp, find2perl, h2ph, h2xs, perl, perl5.6.1, perlbug, perlcc, perldoc, pl2pm, pod2html, pod2latex, pod2man, pod2text, pod2usage, podchecker, podselect, pstruct, s2p и splainОписанияa2pa2p – траслятор с awk на perl.c2phc2ph выводит структуры C как
Perl
Perl http://www.perl.com/Perl Home – официальный Web-сайт Perl.http://reference.perl.com/Perl Reference – гигантская коллекция Perl-программ, рассортированная по разделам (например, работа с базами данных).http://www.activestate.com/ActiveState Tool Corp. – Professional tools for Perl developers – фирма, производящая разнообразные программы для
14.4.4. Perl
14.4.4. Perl Perl — shell на стероидах. Данный язык был специально предназначен для замены awk(l) и расширен, чтобы заменить shell в качестве уровня, связывающего сценарии, написанные на нескольких языках. Первая версия Perl вышла в 1987 году.Самым сильным качеством Perl являются его
14.4.4.1. Небольшой учебный пример по Perl: blq
14.4.4.1. Небольшой учебный пример по Perl: blq blq-сценарий представляет собой средство для опроса блок-списков (списки Internet-узлов, которые идентифицируются как постоянные источники нежелательных почтовых сообщений, известных также как спам). Текущую версию исходного кода
14.4.4.2. Большой учебный пример по Perl: keeper
14.4.4.2. Большой учебный пример по Perl: keeper Программа keeper — инструмент для создания картотеки поступающих пакетов и поддержки FTP- и index-файлов WWW для крупных архивов программного обеспечения Linux на сайте проекта ibiblio. Исходный код и документацию можно найти в подкаталоге
17.5.1.4. Переносимость Perl
17.5.1.4. Переносимость Perl Perl отличается хорошей переносимостью. В стандартном варианте языка даже предоставляется переносимый набор привязок к Tk-инструментарию, который поддерживает переносимые GUI-интерфейсы в Unix, MacOS и Windows. Однако этому мешает одна проблема. Рег1-сценарии
14.4.4.1. Небольшой учебный пример по Perl: blq
14.4.4.1. Небольшой учебный пример по Perl: blq blq-сценарий представляет собой средство для опроса блок-списков (списки Internet-узлов, которые идентифицируются как постоянные источники нежелательных почтовых сообщений, известных также как спам). Текущую версию исходного кода можно
14.4.4.2. Большой учебный пример по Perl: keeper
14.4.4.2. Большой учебный пример по Perl: keeper Программа keeper — инструмент для создания картотеки поступающих пакетов и поддержки FTP- и index-файлов WWW для крупных архивов программного обеспечения Linux на сайте проекта ibiblio. Исходный код и документацию можно найти в подкаталоге
17.5.1.4. Переносимость Perl
17.5.1.4. Переносимость Perl Perl отличается хорошей переносимостью. В стандартном варианте языка даже предоставляется переносимый набор привязок к Tk-инструментарию, который поддерживает переносимые GUI-интерфейсы в Unix, MacOS и Windows. Однако этому мешает одна проблема. Perl-сценарии
4.2. Интерфейс с Perl
4.2. Интерфейс с Perl В этом разделе мы рассмотрим процесс создания веб-приложения на языке Perl, выполняющего получение информации из базы данных и запись ее в базу.Выбор платформы для развертывания Perl-приложения аналогичен выбору платформы для PHP-приложения: вы можете
Perl
Perl DBI - это модуль интерфейса с базой данных для Perl. Он определяет набор методов, переменных и соглашений, которые предоставляют согласованный интерфейс с базой данных, зависящий от фактически используемой базы данных.DBD::InterBase являются открытыми кодами драйвера DBD для
Пример 33-5. Комбинирование сценария Bash и Perl в одном файле
Пример 33-5. Комбинирование сценария Bash и Perl в одном файле #!/bin/bash# bashandperl.shecho "Вас приветствует часть сценария, написанная на Bash."# Далее могут следовать другие команды Bash.exit 0# Конец сценария на Bash.# =======================================================#!/usr/bin/perl# Эта часть сценария должна вызываться с