Просмотр сообщений
1
Perl / Не могу получить uid владельца каталога с пом. ф-ии File::stat
« : 12 Ноября 2004, 18:30:29 »
NeoNox
да - с таким регекспом работает
пасибо большое
да - с таким регекспом работает
пасибо большое
Новости:
Форум работает только в режиме чтения!
Регистрация новых пользователей закрыта.
Просмотр сообщений
В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.
2
Perl / Не могу получить uid владельца каталога с пом. ф-ии File::stat
« : 12 Ноября 2004, 17:48:28 »
NeoNox
добавил в свой код эту строку.
#!/usr/bin/perl -wT
use strict;
use File::stat;
my $dir = "/usr/home/";
opendir(HOME, $dir);
while(my $catalog = readdir HOME)
{
next if ($catalog =! /^\\.+$/);
my $sb = stat($catalog);
printf "File is %s, uid %d\\n", $catalog, $sb->uid;
}
closedir(HOME);
exit;
выдал следующие ошибки
Use of uninitialized value in pattern match (m//) at ./fstat.pl line 10.
Use of uninitialized value in pattern match (m//) at ./fstat.pl line 10.
Use of uninitialized value in pattern match (m//) at ./fstat.pl line 10.
Use of uninitialized value in pattern match (m//) at ./fstat.pl line 10.
Use of uninitialized value in pattern match (m//) at ./fstat.pl line 10.
Use of uninitialized value in pattern match (m//) at ./fstat.pl line 10.
Use of uninitialized value in pattern match (m//) at ./fstat.pl line 10.
Use of uninitialized value in pattern match (m//) at ./fstat.pl line 10.
не могу понять, что ему не нравится..
добавил в свой код эту строку.
#!/usr/bin/perl -wT
use strict;
use File::stat;
my $dir = "/usr/home/";
opendir(HOME, $dir);
while(my $catalog = readdir HOME)
{
next if ($catalog =! /^\\.+$/);
my $sb = stat($catalog);
printf "File is %s, uid %d\\n", $catalog, $sb->uid;
}
closedir(HOME);
exit;
выдал следующие ошибки
Use of uninitialized value in pattern match (m//) at ./fstat.pl line 10.
Use of uninitialized value in pattern match (m//) at ./fstat.pl line 10.
Use of uninitialized value in pattern match (m//) at ./fstat.pl line 10.
Use of uninitialized value in pattern match (m//) at ./fstat.pl line 10.
Use of uninitialized value in pattern match (m//) at ./fstat.pl line 10.
Use of uninitialized value in pattern match (m//) at ./fstat.pl line 10.
Use of uninitialized value in pattern match (m//) at ./fstat.pl line 10.
Use of uninitialized value in pattern match (m//) at ./fstat.pl line 10.
не могу понять, что ему не нравится..
3
Perl / Не могу получить uid владельца каталога с пом. ф-ии File::stat
« : 12 Ноября 2004, 17:17:47 »
ДОброго дня всем.
Задача такая - надо получить uid владельца каталогов, которые в свою очередь лежат в определенном каталоге.
Вот мой код
#!/usr/bin/perl -wT
use strict;
use File::stat;
my $dir = "/usr/home/";
opendir(HOME, $dir);
while(my $catalog = readdir HOME)
{
my $sb = stat($catalog);
printf "File is %s, uid %d\\n", $catalog, $sb->uid;
}
closedir(HOME);
exit;
вот что мне на этот код выдает система
File is ., uid 0
File is .., uid 0
stat() on unopened filehandle File::stat::nik at /usr/local/lib/perl5/5.6.1/File/stat.pm line 49.
Can\'t call method "uid" on an undefined value at ./fstat.pl line 12.
Подскажите плиз, в чем проблема?
Задача такая - надо получить uid владельца каталогов, которые в свою очередь лежат в определенном каталоге.
Вот мой код
#!/usr/bin/perl -wT
use strict;
use File::stat;
my $dir = "/usr/home/";
opendir(HOME, $dir);
while(my $catalog = readdir HOME)
{
my $sb = stat($catalog);
printf "File is %s, uid %d\\n", $catalog, $sb->uid;
}
closedir(HOME);
exit;
вот что мне на этот код выдает система
File is ., uid 0
File is .., uid 0
stat() on unopened filehandle File::stat::nik at /usr/local/lib/perl5/5.6.1/File/stat.pm line 49.
Can\'t call method "uid" on an undefined value at ./fstat.pl line 12.
Подскажите плиз, в чем проблема?
4
Perl / Подскажите как сохранить html страницу формируемую с пом. CGI.pm на диск?
« : 28 Августа 2004, 16:03:33 »
vladsu
Ты в асе появляешься?
Ты в асе появляешься?
5
Perl / Подскажите как сохранить html страницу формируемую с пом. CGI.pm на диск?
« : 28 Августа 2004, 15:24:58 »
Я хочу из скрипта передать почтовое сообщение постфиксу для отправки..
Что то вроде этого
sub send_mail
{
delete @ENV{qw(IFS CDPATH ENV BASH_ENV)};
my $path = $ENV{\'PATH\'} = \'/usr/local/sbin\'
my($to, $from, $subject, @body) = @_;
my $postfix = "/usr/local/sbin/postfix"
open(MAIL, "|$postfix") || die "Error! Coud\'t open postfix";
print MAIL<
To: $to
Subject: $subject
END_HEADER
foreach (@body)
{
print MAIL "$_\\n";
}
close(MAIL);
}
Так получиться?
Что то вроде этого
sub send_mail
{
delete @ENV{qw(IFS CDPATH ENV BASH_ENV)};
my $path = $ENV{\'PATH\'} = \'/usr/local/sbin\'
my($to, $from, $subject, @body) = @_;
my $postfix = "/usr/local/sbin/postfix"
open(MAIL, "|$postfix") || die "Error! Coud\'t open postfix";
print MAIL<
To: $to
Subject: $subject
END_HEADER
foreach (@body)
{
print MAIL "$_\\n";
}
close(MAIL);
}
Так получиться?
6
Perl / Подскажите как сохранить html страницу формируемую с пом. CGI.pm на диск?
« : 28 Августа 2004, 14:47:12 »
Влад, еще вопрос по ходу возник... могу я вывод этой процедуры
print_html приаттачить в тело почтового сообщения напрямую, а не файлом, который я сохраняю?
print_html приаттачить в тело почтового сообщения напрямую, а не файлом, который я сохраняю?
7
Perl / Подскажите как сохранить html страницу формируемую с пом. CGI.pm на диск?
« : 28 Августа 2004, 14:38:29 »
действительно глупый
8
Perl / Подскажите как сохранить html страницу формируемую с пом. CGI.pm на диск?
« : 28 Августа 2004, 14:15:16 »
День добрый Влад. Ты как всегда выручаешь
А что означает select? (наверно глупый вопрос)
А что означает select? (наверно глупый вопрос)
9
Perl / Подскажите как сохранить html страницу формируемую с пом. CGI.pm на диск?
« : 28 Августа 2004, 13:09:16 »
гм.. может я непонятно выразился. Требуется сохранить эту страницу на диске в html формате с помощью скрипта (т. е. в этом же скрипте вставить кусок кода, который бы выполнял данную операцию). так понятнее?
10
Perl / Подскажите как сохранить html страницу формируемую с пом. CGI.pm на диск?
« : 27 Августа 2004, 18:25:15 »
уважаемый neonox - а можно поподробнее.. мне непонятен именно сам механизм - по идее ведь эта страница хранится в памяти? или я ошибаюсь...?
вообщем мне ваш ответ непонятен
вообщем мне ваш ответ непонятен
11
Perl / Подскажите как сохранить html страницу формируемую с пом. CGI.pm на диск?
« : 27 Августа 2004, 17:57:58 »
Система freebsd, модуль cgi.pm - через него формируется страница, которая выводит результаты sql запроса в броузере... потребовалось сохранить эту страницу на диске. Подскажите как это можно сделать...?
12
Веб Сервера / Проблема с подключением mod_ssl к апачу с помощью apxs
« : 23 Июня 2004, 11:22:07 »
Доброго дня.
Есть FreeBSD 5.1 собран апач 2.0.48 с mod_so - опция enable-so
Пытаюсь прикрутить к нему поддержку ssl без перекомпилирования.
Делаю следующее
nik# /usr/local/apache2/bin/apxs -c -i -a mod_ssl.c
/usr/local/apache2/build/libtool --silent --mode=compile gcc -prefer-pic -DAP_HAVE_DESIGNATED_INITIALIZER -D_REENTRANT -D_THREAD_SAFE -g -O2 -I/usr/local/apache2/include -I/usr/local/apache2/include -I/usr/local/apache2/include -I/usr/local/include -c -o mod_ssl.lo mod_ssl.c && touch mod_ssl.slo
In file included from mod_ssl.c:60:
mod_ssl.h:125:17: ssl.h: No such file or directory
mod_ssl.h:127:18: x509.h: No such file or directory
mod_ssl.h:128:17: pem.h: No such file or directory
mod_ssl.h:129:20: crypto.h: No such file or directory
mod_ssl.h:130:17: evp.h: No such file or directory
mod_ssl.h:131:18: rand.h: No such file or directory
In file included from mod_ssl.h:143,
from mod_ssl.c:60:
ssl_toolkit_compat.h:230:2: #error "Unrecognized SSL Toolkit!"
In file included from mod_ssl.h:145,
from mod_ssl.c:60:
ssl_util_ssl.h:91: syntax error before \'*\' token
ssl_util_ssl.h:92: syntax error before \'*\' token
ssl_util_ssl.h:93: syntax error before \'*\' token
ssl_util_ssl.h:93: syntax error before "X509"
ssl_util_ssl.h:93: warning: data definition has no type or storage class
ssl_util_ssl.h:94: syntax error before \'*\' token
ssl_util_ssl.h:94: syntax error before "EVP_PKEY"
ssl_util_ssl.h:94: warning: data definition has no type or storage class
ssl_util_ssl.h:95: syntax error before \'*\' token
ssl_util_ssl.h:96: syntax error before \'*\' token
ssl_util_ssl.h:96: warning: data definition has no type or storage class
ssl_util_ssl.h:97: syntax error before \'*\' token
ssl_util_ssl.h:98: syntax error before "SSL"
ssl_util_ssl.h:99: syntax error before \'*\' token
ssl_util_ssl.h:100: syntax error before \'*\' token
ssl_util_ssl.h:101: syntax error before "X509"
ssl_util_ssl.h:102: syntax error before "STACK_OF"
ssl_util_ssl.h:103: syntax error before "STACK_OF"
ssl_util_ssl.h:104: syntax error before \'*\' token
ssl_util_ssl.h:108: syntax error before \'*\' token
ssl_util_ssl.h:110: syntax error before \'*\' token
ssl_util_ssl.h:111: warning: data definition has no type or storage class
In file included from mod_ssl.c:60:
mod_ssl.h:415: syntax error before "SSL"
mod_ssl.h:417: syntax error before "X509"
mod_ssl.h:462: syntax error before "X509"
mod_ssl.h:470: syntax error before "STACK_OF"
mod_ssl.h:490: syntax error before "SSL_CTX"
mod_ssl.h:507: syntax error before "X509_STORE"
mod_ssl.h:599: syntax error before \'*\' token
mod_ssl.h:599: warning: data definition has no type or storage class
mod_ssl.h:612: syntax error before \'*\' token
mod_ssl.h:612: syntax error before \'*\' token
mod_ssl.h:612: warning: data definition has no type or storage class
mod_ssl.h:613: syntax error before \'*\' token
mod_ssl.h:613: syntax error before \'*\' token
mod_ssl.h:613: warning: data definition has no type or storage class
mod_ssl.h:614: syntax error before "X509_STORE_CTX"
mod_ssl.h:615: syntax error before "X509_STORE_CTX"
mod_ssl.h:616: syntax error before \'*\' token
mod_ssl.h:617: syntax error before \'*\' token
mod_ssl.h:618: syntax error before \'*\' token
mod_ssl.h:618: syntax error before \'*\' token
mod_ssl.h:618: warning: data definition has no type or storage class
mod_ssl.h:619: syntax error before \'*\' token
mod_ssl.h:620: syntax error before "int"
mod_ssl.h:628: syntax error before "SSL_SESSION"
mod_ssl.h:629: syntax error before \'*\' token
mod_ssl.h:629: warning: data definition has no type or storage class
mod_ssl.h:636: syntax error before "SSL_SESSION"
mod_ssl.h:637: syntax error before \'*\' token
mod_ssl.h:637: warning: data definition has no type or storage class
mod_ssl.h:644: syntax error before "SSL_SESSION"
mod_ssl.h:645: syntax error before \'*\' token
mod_ssl.h:645: warning: data definition has no type or storage class
mod_ssl.h:652: syntax error before "SSL_SESSION"
mod_ssl.h:653: syntax error before \'*\' token
mod_ssl.h:653: warning: data definition has no type or storage class
mod_ssl.h:662: syntax error before \'*\' token
mod_ssl.h:662: warning: data definition has no type or storage class
mod_ssl.h:663: syntax error before \'*\' token
mod_ssl.h:663: warning: data definition has no type or storage class
mod_ssl.h:709: syntax error before "SSL"
mod_ssl.h:711: syntax error before \'*\' token
mod_ssl.h:727: syntax error before \'*\' token
mod_ssl.c: In function `ssl_hook_pre_connection\':
mod_ssl.c:306: `SSL\' undeclared (first use in this function)
mod_ssl.c:306: (Each undeclared identifier is reported only once
mod_ssl.c:306: for each function it appears in.)
mod_ssl.c:306: `ssl\' undeclared (first use in this function)
mod_ssl.c:353: structure has no member named `ssl_ctx\'
mod_ssl.c:382: structure has no member named `ssl\'
mod_ssl.c:390: `X509_V_OK\' undeclared (first use in this function)
apxs:Error: Command failed with rc=65536
Есть у кого мысли по этому поводу?
Есть FreeBSD 5.1 собран апач 2.0.48 с mod_so - опция enable-so
Пытаюсь прикрутить к нему поддержку ssl без перекомпилирования.
Делаю следующее
nik# /usr/local/apache2/bin/apxs -c -i -a mod_ssl.c
/usr/local/apache2/build/libtool --silent --mode=compile gcc -prefer-pic -DAP_HAVE_DESIGNATED_INITIALIZER -D_REENTRANT -D_THREAD_SAFE -g -O2 -I/usr/local/apache2/include -I/usr/local/apache2/include -I/usr/local/apache2/include -I/usr/local/include -c -o mod_ssl.lo mod_ssl.c && touch mod_ssl.slo
In file included from mod_ssl.c:60:
mod_ssl.h:125:17: ssl.h: No such file or directory
mod_ssl.h:127:18: x509.h: No such file or directory
mod_ssl.h:128:17: pem.h: No such file or directory
mod_ssl.h:129:20: crypto.h: No such file or directory
mod_ssl.h:130:17: evp.h: No such file or directory
mod_ssl.h:131:18: rand.h: No such file or directory
In file included from mod_ssl.h:143,
from mod_ssl.c:60:
ssl_toolkit_compat.h:230:2: #error "Unrecognized SSL Toolkit!"
In file included from mod_ssl.h:145,
from mod_ssl.c:60:
ssl_util_ssl.h:91: syntax error before \'*\' token
ssl_util_ssl.h:92: syntax error before \'*\' token
ssl_util_ssl.h:93: syntax error before \'*\' token
ssl_util_ssl.h:93: syntax error before "X509"
ssl_util_ssl.h:93: warning: data definition has no type or storage class
ssl_util_ssl.h:94: syntax error before \'*\' token
ssl_util_ssl.h:94: syntax error before "EVP_PKEY"
ssl_util_ssl.h:94: warning: data definition has no type or storage class
ssl_util_ssl.h:95: syntax error before \'*\' token
ssl_util_ssl.h:96: syntax error before \'*\' token
ssl_util_ssl.h:96: warning: data definition has no type or storage class
ssl_util_ssl.h:97: syntax error before \'*\' token
ssl_util_ssl.h:98: syntax error before "SSL"
ssl_util_ssl.h:99: syntax error before \'*\' token
ssl_util_ssl.h:100: syntax error before \'*\' token
ssl_util_ssl.h:101: syntax error before "X509"
ssl_util_ssl.h:102: syntax error before "STACK_OF"
ssl_util_ssl.h:103: syntax error before "STACK_OF"
ssl_util_ssl.h:104: syntax error before \'*\' token
ssl_util_ssl.h:108: syntax error before \'*\' token
ssl_util_ssl.h:110: syntax error before \'*\' token
ssl_util_ssl.h:111: warning: data definition has no type or storage class
In file included from mod_ssl.c:60:
mod_ssl.h:415: syntax error before "SSL"
mod_ssl.h:417: syntax error before "X509"
mod_ssl.h:462: syntax error before "X509"
mod_ssl.h:470: syntax error before "STACK_OF"
mod_ssl.h:490: syntax error before "SSL_CTX"
mod_ssl.h:507: syntax error before "X509_STORE"
mod_ssl.h:599: syntax error before \'*\' token
mod_ssl.h:599: warning: data definition has no type or storage class
mod_ssl.h:612: syntax error before \'*\' token
mod_ssl.h:612: syntax error before \'*\' token
mod_ssl.h:612: warning: data definition has no type or storage class
mod_ssl.h:613: syntax error before \'*\' token
mod_ssl.h:613: syntax error before \'*\' token
mod_ssl.h:613: warning: data definition has no type or storage class
mod_ssl.h:614: syntax error before "X509_STORE_CTX"
mod_ssl.h:615: syntax error before "X509_STORE_CTX"
mod_ssl.h:616: syntax error before \'*\' token
mod_ssl.h:617: syntax error before \'*\' token
mod_ssl.h:618: syntax error before \'*\' token
mod_ssl.h:618: syntax error before \'*\' token
mod_ssl.h:618: warning: data definition has no type or storage class
mod_ssl.h:619: syntax error before \'*\' token
mod_ssl.h:620: syntax error before "int"
mod_ssl.h:628: syntax error before "SSL_SESSION"
mod_ssl.h:629: syntax error before \'*\' token
mod_ssl.h:629: warning: data definition has no type or storage class
mod_ssl.h:636: syntax error before "SSL_SESSION"
mod_ssl.h:637: syntax error before \'*\' token
mod_ssl.h:637: warning: data definition has no type or storage class
mod_ssl.h:644: syntax error before "SSL_SESSION"
mod_ssl.h:645: syntax error before \'*\' token
mod_ssl.h:645: warning: data definition has no type or storage class
mod_ssl.h:652: syntax error before "SSL_SESSION"
mod_ssl.h:653: syntax error before \'*\' token
mod_ssl.h:653: warning: data definition has no type or storage class
mod_ssl.h:662: syntax error before \'*\' token
mod_ssl.h:662: warning: data definition has no type or storage class
mod_ssl.h:663: syntax error before \'*\' token
mod_ssl.h:663: warning: data definition has no type or storage class
mod_ssl.h:709: syntax error before "SSL"
mod_ssl.h:711: syntax error before \'*\' token
mod_ssl.h:727: syntax error before \'*\' token
mod_ssl.c: In function `ssl_hook_pre_connection\':
mod_ssl.c:306: `SSL\' undeclared (first use in this function)
mod_ssl.c:306: (Each undeclared identifier is reported only once
mod_ssl.c:306: for each function it appears in.)
mod_ssl.c:306: `ssl\' undeclared (first use in this function)
mod_ssl.c:353: structure has no member named `ssl_ctx\'
mod_ssl.c:382: structure has no member named `ssl\'
mod_ssl.c:390: `X509_V_OK\' undeclared (first use in this function)
apxs:Error: Command failed with rc=65536
Есть у кого мысли по этому поводу?
13
Perl / КАк правильно вызвать внешнюю программу, не нарушая безопасности скрипта?
« : 15 Июня 2004, 12:21:33 »
NeoNox
C картинками, по ним и делал, как видишь
ThE0ReTiC
способов всегда несколько. мне понравился этот
[OFF]
C картинками, по ним и делал, как видишь
ThE0ReTiC
способов всегда несколько. мне понравился этот
[OFF]
14
Perl / КАк правильно вызвать внешнюю программу, не нарушая безопасности скрипта?
« : 15 Июня 2004, 12:06:08 »
NeoNox
Переводчик перевел выражение taint mode - как запятнаный режим - что очень помогло в понимании этого термина
Теперь по делу. Написал такую конструкцию
delete @ENV{qw(IFS CDPATH ENV BASH_ENV)};
my $path = $ENV{\'PATH\'} = \'/usr/local/bin\';
my $file = new IO::File "/usr/local/bin/traflog -n -i lnc0 -a -o nik |" or die "Not run program traflog: $!\\n";
с ней работает без ругани на -Т. Но не уверен правильно ли так..
Переводчик перевел выражение taint mode - как запятнаный режим - что очень помогло в понимании этого термина
Теперь по делу. Написал такую конструкцию
delete @ENV{qw(IFS CDPATH ENV BASH_ENV)};
my $path = $ENV{\'PATH\'} = \'/usr/local/bin\';
my $file = new IO::File "/usr/local/bin/traflog -n -i lnc0 -a -o nik |" or die "Not run program traflog: $!\\n";
с ней работает без ругани на -Т. Но не уверен правильно ли так..
15
Perl / КАк правильно вызвать внешнюю программу, не нарушая безопасности скрипта?
« : 11 Июня 2004, 18:30:52 »
если я правильно понимаю, то надо в скрипте указать $ENV{PATH} - системные пути (каталоги) в которых разрешен запуск программ?