Сообщения

1

Perl / Установка DBD:Sybase

« : 28 Октября 2008, 15:06:25 »

RE: freetds



попробовал заново пересобрать модуль, в итоге добился его установки,
но всеже нормально работать он отказывается:

perl: symbol lookup error: /usr/lib/perl5/site_perl/5.10.0/i386-linux-thread-multi/auto/DBD/Sybase/Sybase.so: undefined symbol: Perl_Tstack_sp_ptr

2

Perl / Установка DBD:Sybase

« : 28 Октября 2008, 14:12:02 »

начинает собиратся нормально а потом:

dbdimp.c: В функции \'syb_init\':
dbdimp.c:800: ошибка: \'BLK_VERSION_150\' не описан (первое использование в этой функции)
dbdimp.c:800: ошибка: (Сообщение о неописанном идентификаторе выдается один раз
dbdimp.c:800: ошибка: для каждой функции, в которой он используется.)
dbdimp.c:804: ошибка: \'BLK_VERSION_125\' не описан (первое использование в этой функции)
dbdimp.c:808: ошибка: \'BLK_VERSION_120\' не описан (первое использование в этой функции)
dbdimp.c:746: предупреждение: неиспользуемая переменная \'set\'
dbdimp.c:744: предупреждение: неиспользуемая переменная \'boolean\'
dbdimp.c: В функции \'get_server_version\':
dbdimp.c:1625: предупреждение: неиспользуемая переменная \'db\'

3

Perl / Установка DBD:Sybase

« : 28 Октября 2008, 12:05:00 »

Всем доброго времени суток!
Мучаюсь уже второй день с установкой модуля DBD:Sybase

ОС Fedora Core 9
This is perl, v5.10.0 built for i386-linux-thread-multi

через yum поставились почти все нужные модули, кроме данного.

при попытке ставить через cpan выдает ошибку с поиском библиотек, так же ее выдает при установке из исходника

Please set SYBASE in CONFIG, or set the $SYBASE environment variable at Makefile.PL line 103, line 44.

Мои попытки: ставил freetds пакетом, потом с исходников.
Установил пакет sybase-ase и sybase-common, пытался указывать разные дириктори с либами типа
export SYBASE=/opt/sybase-11.9.2/lib/
так же матерится что нет там ничего.


наконец нашел пакеты perl-DBD-Sybase для RedHat 9, поставил, но перл так и невидит модуля Sybase

install_driver(Sybase) failed: Can\'t locate DBD/Sybase.pm in @INC (@INC contains: /usr/lib/perl5/5.10.0/i386-linux-thread-multi /usr/lib/perl5/5.10.0 /usr/lib/perl5/site_perl/5.10.0/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.10.0 /usr/lib/perl5/site_perl/5.8.8 /usr/lib/perl5/site_perl/5.8.7 /usr/lib/perl5/site_perl/5.8.6 /usr/lib/perl5/site_perl/5.8.5 /usr/lib/perl5/site_perl /usr/lib/perl5/vendor_perl/5.10.0/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.10.0 /usr/lib/perl5/vendor_perl/5.8.8 /usr/lib/perl5/vendor_perl/5.8.7 /usr/lib/perl5/vendor_perl/5.8.6 /usr/lib/perl5/vendor_perl/5.8.5 /usr/lib/perl5/vendor_perl .) at (eval line 3.


ВЫручайте кто сможет! уже сил ет с ним боротся

4

PHP / Notice: Undefined index: enter in /var/www/xxx/login.php on l

« : 10 Октября 2008, 12:38:19 »

if (!empty($_POST[\'enter\']))

спасибо!

5

PHP / Notice: Undefined index: enter in /var/www/xxx/login.php on l

« : 10 Октября 2008, 10:49:09 »

PHP 5.2.5
при включеном display_errors в php.ini
наблюдаю следующию ошибку:
Notice: Undefined index: enter in /var/www/vhost/xxx/login.php on line 24

пытался гуглить в инете но безрезультатно!
вот кусок кода:


print "<input type=submit name=\'enter\' value=\'enter\'>";
if ($_POST[\'enter\']) {
print "blablabla"; }



все о работает но бесит что матерится на ошибку)

6

PHP / Помогите разобраться с формой!

« : 11 Сентября 2008, 11:50:33 »

если я вас правильно понял


$host = "localhost";
$user_db = "root";
$pass_db = "123";
$dbase = "device";
$dtable = "id";
mysql_connect ($host, $user_db, $pass_db);
mysql_select_db($dbase);
$sql = "SELECT * from device";

$res = mysql_query($sql) or die ("ppc");

print "

";
while(list($1,$2)=mysql_fetch_array($res)) {
print "$2
"; }
print "

";

и вместо radio думаю лучше использовать select

7

Perl / Про кодировку

« : 04 Сентября 2008, 11:50:19 »

в скрипте после #!/usr/bin/perl и подключаемых модулей можна

8

Perl / Каталог продукции

« : 04 Сентября 2008, 11:34:40 »

Сомневаюсь, что вы найдете такую реализацию на перл! на пхп еще возможно! думаю прийдется писать ручками)

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

9

Perl / парсинг в перл

« : 03 Сентября 2008, 10:00:27 »

наконецто домучал!
$a = $data->{\'request-auth\'};
$login = $a->{\'login\'};

забыл о подуровнях ))

10

Perl / парсинг в перл

« : 02 Сентября 2008, 12:14:22 »

разобрался как всеже достать переменные но опять же проблема с тегом протокола!

без него все в идеале достаю через $data->{teg}
с ним - ничего

11

Perl / парсинг в перл

« : 02 Сентября 2008, 11:10:51 »

столкнулся в проблемой парсинга на перл!
вообще я программист пхп но заставили писать скрипт именно на перле))

прилепил модуль XML::DOM и с помощью его отлично распарсил тестовую xml-ку
А вот когда заслали нужный xml с тэгом - модуль парсить его отказался!

Попробовал поюзать модули XML:parser и XML::Simple но не разберусь толком как с помощью них получить нужный массив или переменные с xml-ки

через дампер к примеру:
use XML::Simple;
use Data::Dumper;
$xml = new XML::Simple;
$data = $xml->XMLin("test3.xml");
print Dumper($data);

выводит мне
$VAR1 = {
          \'version\' => \'1.02\',
          \'request-auth\' => {
                              \'password\' => \'some password\',
                              \'account-number\' => \'12345678910\',
                              \'session-id\' => \'3424234234\',
                              \'payment-id\' => \'123243\',
                              \'login\' => \'some login\'
                            }
        };
но как выловить эти переменные хоть убейте непойму

12

PHP / php скрипта с броузера

« : 10 Октября 2007, 12:27:46 »

Ситуация следующая -
Пытаюсь в скрипт следующую функцию
$comnd = "/usr/bin/perl /usr/local/traffic/gensecrets.pl >> /etc/ppp/chap-secrets";
$a = system($comnd, $a);
system($comnd, $a);
#echo $comnd;
echo $a;
?>

на /etc/ppp/chap-secrets дал права apache
даже на худой конец экспериментировал с sudoers но не помогло!

если выполняю через sudo -u apache php test.php все гуд