Просмотр сообщений

В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.


Сообщения - DartSidius

Страницы: 1 [2] 3 4 ... 21
16
JavaScript & JScript / Window document
« : 12 Мая 2010, 15:41:14 »
На странице есть iframe. Внутрь него выгружается текст и ссылка. ЗАчем нужно на основной старнице поменять значение поля из этого iframe...В эксплорере работает так: top.document.getElementById(frame + \'_jload\').value = result;

в мозиллах и всех остальных браузерах не хочет работать...есть решение проблемы(?

17
Perl / Подсчет строк и слов...
« : 27 Марта 2010, 04:37:42 »
Попалось тестовое задание...на этот вопрос не могу дать ответ...

Что неправильно в программе, подсчитывающей число строк и слов в файле? (аналог стандартной программы wc, словами считаем последовательности непробельных символов, т.е. \\S) Что можно улучшить?

open F, $ARGV[0] || die $!;
my @lines = ;
my @words = map {split /\\s/} @lines;
printf "%8d %8d\\n", scalar(@lines), scalar(@words); close(F);

Может есть у кого предположения?

18
Perl / Права на запись...
« : 06 Декабря 2009, 12:58:06 »
Нужно, чтобы из каталога CGI-BIN Нормально открывались картинки jpeg,gif. Насколько я понимаю апач их пытается запустить как CGI Скрипты.

19
Perl / Права на запись...
« : 06 Декабря 2009, 03:46:22 »
Т.е. выхода нет?

20
Perl / Права на запись...
« : 05 Декабря 2009, 04:34:22 »
Как оказалось, из cgi-bin Всё запускается отлично...Вопрос...можно ли с помощью .htaccess дать скриптам права запускаться с корневой директории так же как из cgi-bin?

21
Perl / Права на запись...
« : 03 Декабря 2009, 01:58:06 »
Вот что сказал пров:

We reviewed your service request which indicates you were trying to set 777 permissions
_
The world-write bit is disabled on our hosting platform, so you can only set permissions of 775._ PHP uses the group bit, so as long as the second

22
Perl / Права на запись...
« : 02 Декабря 2009, 04:40:28 »
Столкнулся с такой проблемой...Хостинг от netsol.com не дает права на директорию и файлы 777 ставить. Максимум 775. Perl поэтому не может записывать файлы в директории и перезаписывать. Сапорт ответил, что на ПХП 775 всё работает. Вопрос, можно в перле как-нибудь обойти это?

23
Ну Вы бы сами попробовали с g . . . удаляет всю строку, а не слово

24
$str =~ s/\\b\\S*(\\S)\\S*\\1\\S*\\b//s;

только первое слово с повторяющимися символами удаляет . .

25
Подскажите как сделать, чтобы при разборе строки удалить свола, в которых повторяются символы . . . Нужно с помощью регулярки . .

26
Perl / Объекты . . .
« : 23 Июня 2009, 13:22:11 »
Спасибо :-)

27
Perl / Объекты . . .
« : 23 Июня 2009, 12:59:44 »
При вызове двух различных функций переписывается знаечение переменной, причем если поменять в теле функции $ret на разные, то не переписывается . . . в чем может быть проблема?

28
Perl / Объекты . . .
« : 23 Июня 2009, 11:57:04 »
Уже разобрался ...

Вот ещё такой вопрос . . .

В пакете есть пара функций

формата
sub func1 {
my $selft = shift
my $ret = "";

далее например:
$ret->{1} = 123;
$ret->{2} = 333;
return $ret;
}

sub func2 {
my $selft = shift
my $ret = "";

далее например:
$ret->{1} = 555;
$ret->{2} = 777;
return $ret;
}

# функций несоклько и заполняют данные по разному

если вызвать их
$a1 = Main->func1();
$a2 = Main->func2();

то в $a1 будет $a2 . . . а если помеять $ret на индивидуальный в каждой функции, то не переписывается ...

29
Perl / Объекты . . .
« : 21 Июня 2009, 08:13:59 »
В общем что-то не получается заюзать как следует ООП

Есть такая задача . . . работа с БД . . .

Основной скрипт:

#!/usr/bin/perl

use lib "./pm";

use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);
use DBI;
use Mysql;

print CGI::header;

my $connect = Mysql->new();
my $db_h = $connect->connect();

$connect->execute_query("DROP TABLE aaa");

----------------- Mysql.pm

package Mysql;

sub new {
   my $check = shift;
   my $class = ref( $check ) || $check;
   my $self = {};
   bless($self, $class);
   return $self;
}

sub connect {
   my $self = shift;
   my $query_setcharset = shift;

   my $SQL_DATABASE = "wiw_test";
   my $SQL_HOSTNAME = "localhost";
   my $SQL_PORT = "3306";
   my $SQL_USER = "wiw_test";
   my $SQL_PASSWORD = "123";

   $self->{dbh} = DBI->connect("DBI:mysql:database=$SQL_DATABASE;host=$SQL_HOSTNAME;port=$SQL_PORT", $SQL_USER, $SQL_PASSWORD) || die ($DBI::errstr);

   $query_setcharset = $self->{dbh}->prepare("SET NAMES cp1251");
   $query_setcharset->execute();
   $query_setcharset->finish();
}
sub disconnect {
   my $self = shift;
   $self->disconnect() || die $DBI::errstr;
}

sub execute_query {
   my $self = shift;
   my $query = shift;

   print "$self , $query";
   
   my $query = $self->prepare($query);
   $query->execute();
}

1;

Коннект проходит нормально, объект создается.
При попытке сделать запрос - выдает ошибку, что метод prepare не найден

при попытке сделать дисконнет - перл вообще вываливается . . .

30
Perl / Регулярки
« : 01 Июня 2009, 12:47:51 »
Есть переменная  . . . в ней данные примерно такой структуры:

[START]
dwa
daw
dwad
wa
[END]
[START]
TEXTTEXT
[END]

Нужно вытащит всё, что между [START] & [END] по блокам

делаю так $ou=~/\\[START\\](.*)\\[END\\]?/is

вытаскивает полностью dwa
daw
dwad
wa
[END]
[START]
TEXTTEXT

Страницы: 1 [2] 3 4 ... 21