Архив на категорию ‘Программирование’

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

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

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

Проверка расширений файлов прикрепляемых через форму

Дата: Март 16, 2011 - 11:48 пп No Comments

Если нужно проверять расширение загружаемых через форму файлов, то поможет вот этот кусочек:

var re = new RegExp(“.*\.(sql|SQL|7zip|7ZIP)$”);

var m  = re.exec(form1.v_file_str.value);

if (m == null) {

form1.submit();

} else {

alert(“Нельзя прикреплять файлы с расширениями: sql,7zip”);

return false;

}

Где form1.v_file_str.value – это элемент типа file в форме form1

Данный кусок делает проверку на расширения sql и 7zip – если файл с этим расширением – выдает предупреждение.

Данный кусок вешается на кнопку, отвечающую за отправку данных на сервер.

Интересная библиотека для рисования на JS

Дата: Октябрь 13, 2010 - 2:55 дп No Comments

У нас на работе в режиме реального времени отображается состояние серверов (контроль осуществляется по нескольким параметрам) и реализовано отображение в виде SVG в браузере IE8. Проблема в том, что плагин, который позволяет отображать файлы svg в браузере, почему то несколько раз в сутки “крашет” IE, что не есть гуд. (далее…)

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

Дата: Июнь 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 символов. (далее…)

Perl и LWP

Дата: Ноябрь 4, 2009 - 11:37 пп No Comments

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

Попробовал тут на днях заходить на аккаунты шаринг-хостингов – легко. Теперь вообще отлично получается – берешь книжку, получаешь каким то образом ее описание, саму книжку заливаеш на шаринг-хостинги (по ФТП) и потом на автомате же получаеш их ссылку… замечательно.. :)

Подключаемся к MS SQL из Perl

Дата: Ноябрь 2, 2009 - 2:13 дп No Comments

Если у Вас появилась необходимость работать с базой MS SQL из Perl, то в данном посте я расскажу как это получилось делать у меня.

Для этого нам понадобятся: freetds, DBD::Sybase .

(далее…)