Вот небольшой скриптик, который удаляет из всех файлов в директории двойные переводы строк:
#!/usr/bin/perl undef($/); foreach $f (<*.*>) { print “$f\n”; if ($f ne ‘ddps.pl’) { open(FH,$f); $l=<FH>; close(FH); $l=~ s/\r\n\s*\r\n/\n/smg; open(FH,”>$f.new”); print FH $l; close(FH); } }Доброе.
Просто так немного справочных данных приведу, так сказать на заметку:
для того чтобы получить только код возврата нужно запускать ; $exitcode=system(`КОМАНДА`);
для того чтобы получить вывод команды в переменную : $output=`КОМАНДА`;
Если вам к тому же нужно получить еще и код возврата - пожалуйста: $exitcode=`echo $?` (если это какое то приложение) и
$exitcode=$?>>8 если это скрипт.
Я сам тестировал запускал из скрипта скрипт перловый который возвращал разные коды ошибок - это код я получал через $exitcode=($?>>8), но при мне другой человек запускал бинарное приложение из скрипта и получал код ошибки через $resp=$?;
Появилась задачка - перенести таблицы из MS SQL в ORACLE с примерных сохранением типа столбцов.
Покопавшись в интернете и почитав что пишут люди - написал скрипт, который берет и создает инструкции для создания таблиц в Oracle.
Скипт приложен. Скрипт берет все таблицы указанного пользователия, проверяет каждое поле на тип и заменяет на соотвествующий из Oracle, именя таблиц тоже менюются, т.к. в Oracle имя таблицы не может быть более 30 символов. (далее…)
Все таки класная это шткука LWP, с помощью ее можно заходить почти на любые сайты, как будьто ты заходиш браузером… и парсить нужную тебе информацию.
Попробовал тут на днях заходить на аккаунты шаринг-хостингов - легко. Теперь вообще отлично получается - берешь книжку, получаешь каким то образом ее описание, саму книжку заливаеш на шаринг-хостинги (по ФТП) и потом на автомате же получаеш их ссылку… замечательно.. 
Если у Вас появилась необходимость работать с базой MS SQL из Perl, то в данном посте я расскажу как это получилось делать у меня.
Для этого нам понадобятся: freetds, DBD::Sybase .
