Опубликовано

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

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

Опубликовано

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

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

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

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

Опубликовано

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

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

 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

Доброе.

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

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

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

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

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

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

Опубликовано

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

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

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

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

Опубликовано

Perl и LWP

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

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

Опубликовано

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

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

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

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