Теги записей ‘perl’

Установка DBD-Oracle-1.24 под Solaris

Дата: Февраль 19, 2013 - 11:21 пп No Comments

Записка на памятку:

У меня не ставилось обычным путем DBD-Oracle-1.24 под Solaris – не находил *.mk-файлы в директории оракла. На просторах интернета нагуглил что надо запускать так:

perl Makefile.PL -l

где флаг -l говорит ставить напрямую, без этих файлов.

Кроме этого пришлось поставить клиента оракла для 32х-битной системы (solaris.sparc64_11gR2_client32.zip), выставить переменные правильно на home инстанса и после этого все собралось и поставилось.

Интересная головоломка.

Дата: Январь 31, 2013 - 10:28 пп 2 Comments

Хм, попалась мне головоломка из практики… промучался с ней, к своему стыду, где то минут 40.

Задача, в perl-скрипте одной строчкой получить загрузку системы по ЦПУ.

Вот что первое приходит в голову:

if (`top -n 1 | grep Cpu`=~ /(\S+)\%id/) {print $1;}

Но, вроде на первый взгляд все правильно… а не работает. Вот почему не работает я и потратил около 40 минут, отя проблема то пустяшная. :)
Решение далее (далее…)

Отправка писем с приложенными файлами из perl скриптов

Дата: Февраль 9, 2012 - 9:43 пп No Comments

Мне по работе понадобилось написать скрипт который бы отравлял письма с приложенными файлами. Скрипт, конечно, я писал на perl, а в нем для этих целей есть замечательный модуль MIME:Lite. Ниже приведены исходные данные и быстро-заметка как я это делал. (далее…)

Установка модулей в Perl

Дата: Февраль 9, 2011 - 5:32 дп No Comments
cpan

cpan

Есть очень удобная консоль для установки модулей perl-а с CPAN-а – сам вытянет на ходу нужные зависимости и разрешит их. Супер-удобство.

perl -MCPAN -e shell

Выдираем кадры из avi-ки

Дата: Ноябрь 4, 2010 - 11:10 дп No Comments

Для одного из своих сайтов мне понадобилось выдирать кадры из avi-файл, чтобы использовать при описании файлов.

Будем это делать в Linux и конечно все должно быть бесплатно.

(далее…)

Удаление двойных переводов строк

Дата: Июнь 29, 2010 - 9:55 пп No Comments

Вот небольшой скриптик, который удаляет из всех файлов в директории двойные переводы строк:

 perl |  copy code |? 
01
#!/usr/bin/perl
02
undef($/);
03
foreach $f (<*.*>) {
04
print "$f\n";
05
if ($f ne 'ddps.pl') {
06
open(FH,$f);
07
$l=;
08
close(FH);
09
$l=~ s/\r\n\s*\r\n/\n/smg;
10
open(FH,">$f.new");
11
print FH $l;
12
close(FH);
13
}
14
}

Результаты выполения команд в Perl

Дата: Ноябрь 26, 2009 - 1:35 дп No Comments

Доброе.

Просто так немного справочных данных приведу, так сказать на заметку:

для того чтобы получить только код возврата  нужно запускать ; $exitcode=system(`КОМАНДА`);

для того чтобы получить вывод команды в переменную : $output=`КОМАНДА`;

Если вам к тому же нужно получить еще и код возврата – пожалуйста: $exitcode=`echo $?` (если это какое то приложение) и

$exitcode=$?>>8 если это скрипт.

Я сам тестировал запускал из скрипта скрипт перловый который возвращал разные коды ошибок – это код я получал через $exitcode=($?>>8),  но при мне другой человек запускал бинарное приложение из скрипта и получал код ошибки через $resp=$?;

Переносим таблицы из MS SQL в Oracle

Дата: Ноябрь 5, 2009 - 6:47 дп No Comments

Появилась задачка – перенести таблицы из MS SQL в ORACLE с примерных сохранением типа столбцов.

Покопавшись в интернете и почитав что пишут люди – написал скрипт, который берет и создает инструкции для создания таблиц в Oracle.

Скипт приложен. Скрипт берет все таблицы указанного пользователия, проверяет каждое поле на тип и заменяет на соотвествующий из Oracle, именя таблиц тоже менюются, т.к. в Oracle  имя таблицы не может быть более 30 символов. (далее…)