This shows you the differences between two versions of the page.
Both sides previous revision Previous revision Next revision | Previous revision | ||
язык_программирования_perl [2020/12/28 12:19] val [Пример 5] |
язык_программирования_perl [2024/11/03 09:50] (current) val [Пример 3] |
||
---|---|---|---|
Line 125: | Line 125: | ||
$sth = $dbh->prepare(qq{insert into table1 (b) values ($b)}); | $sth = $dbh->prepare(qq{insert into table1 (b) values ($b)}); | ||
+ | #print $sth->{Statement}; | ||
$sth->execute() or next MAINLOOP; | $sth->execute() or next MAINLOOP; | ||
Line 214: | Line 215: | ||
* [[http://www.communigate.ru/CGPerl/|CommuniGate Pro Perl Interface]] | * [[http://www.communigate.ru/CGPerl/|CommuniGate Pro Perl Interface]] | ||
+ | * [[https://www.communigate.ru/main/purchase/scriptrepository.html|Библиотека скриптов для CommuniGate Pro (бесплатно)]] | ||
<code> | <code> | ||
- | # wget http://www.communigate.ru/CGPerl/CLI.pm | + | # wget https://www.communigate.ru/CGPerl/CLI.pm |
# mv CLI.pm /etc/perl/ | # mv CLI.pm /etc/perl/ | ||
Line 249: | Line 251: | ||
exit; | exit; | ||
</code><code> | </code><code> | ||
- | mail# ./addcgpuser.pl user3 'Сидор Сидорович Сидоров' cpassword3 | + | mail# ./addcgpuser.pl user3 'Сидор Сидорович Сидоров' password3 |
</code> | </code> | ||