Выполнение Shell-сриптов в Perl

[skeletor]

Есть скрипт на perl. Где-то в средине скрипта нужно выполнить команду, точнее получить вывод от команды

Код: Выделить всё

ID=`echo "select * from TABLE where FIELD like '%$1%'" | mysql DB_NAME -uDB_USER -pUSER_PASS | grep -v id`

то есть, использовать результат переменной ID дальше в скрипте. Пробовал использовать system, но куда она возвращает результат?

[brandy]

Код: Выделить всё

use strict;
my $id=`echo \"select * from TABLE where FIELD like '%$1%'\" | mysql DB_NAME -uDB_USER -pUSER_PASS | grep -v id`;
print "result is: $id";

[allez]

Вы вполне можете использовать в перловом скрипте обратные кавычки или оператор qx().

[brandy]

И еще: $1 - с этим поэксперементируйте, и возможно еще что-то кроме символа " придется экранировать в виде \"

[Serik]

Для такой команды имхо лучше подключиться к БД и нормально выполнить все что нужно.

[skeletor]

brandy, allez не работают .

Serik Это всё хорошо, но мне нужно ещё и отфильтровать вывод запроса. Как мне это сделать? Как потом прикрутить контейнером grep?

[diesel]

а почему DBI не использовать??? perl'ом можно сделать все что умеет делать grep .....

[skeletor]

А не могли бы помочь написать скрипт?

[sarutobi]

skeletor
поясните пожалуйста что именно вы хотите сделать. Обычно работа с БД идет через API БД, предоставляемого языком (для PERL - DBI + DBD),

[skeletor]

Суть такова : скрипт меняет пароль юзера в БД. Сначало вычисляю ID юзера, затем по нужному ID меняем ему пароль в базе.

ПС. У меня не установлены perl-модуль DBI. Как его установить?

[sarutobi]

установить можно через менеджер пакетов - этот модуль присутсвует во всех дистрибутивах. Кроме него потребуется модуль DBD для соответсвующей базы (mysql в Вашем случае)
если логин уникальный (судя по приведенному запросу) то выполнение поставленной задачи сводится к запросу

Код: Выделить всё

update table set password='NEWPASS' where LOGIN='login'

Вы используете в запросе Like 'login' - это излишняя нагрузка на сервер и потенциальная дыра в безопасности (для конкретно этой задачи), используйте прямое сравнение.

[minoru-kun]

Код: Выделить всё

use DBI; #зависит от libdbi-perl
use DBD::mysql;

$dbh = DBI -> connect ("dbi:mysql:dbname[:host]", "$db_username", "$db_password); #начинаем SQL-транзакцию
<...>
$dbh -> do ("update table set password='$new_password' where LOGIN='$login'");
<...>
$dbh -> disconnect();

Только давай договоримся, что не будем создавать по транзакции на каждый запрос, хорошо?

[skeletor]

Разобрался! Всем спасибо.