Сообщения

1

Perl / PHP под Perl

« : 25 Декабря 2007, 10:03:07 »

клёвенько)

2

Perl / PHP под Perl

« : 21 Декабря 2007, 21:51:47 »

о_О

3

Perl / Работа с Excel

« : 21 Декабря 2007, 19:33:22 »

Сделал проверку значения ячеек, выяснил что не все ячейки имеют значение и из-за этого появлялись такие сообщения. Вопрос отпал.

4

Perl / Работа с Excel

« : 19 Декабря 2007, 19:47:13 »

Доброго времени суток.
Проблема: Используя модуль Spreadsheet::Read, я считываю данные из ячейки файла Excel при условии, что ячейка содержит 20-ти значное число. Но при попытке просто вывести на экран данные из ячейки, на экране:

Use of uninitiliazed value in pattern (m//) at D:\\...\\conv.pl line 35.
Use of uninitiliazed value in pattern (m//) at D:\\...\\conv.pl line 35.
Use of uninitiliazed value in pattern (m//) at D:\\...\\conv.pl line 35.
Use of uninitiliazed value in pattern (m//) at D:\\...\\conv.pl line 35.
Use of uninitiliazed value in pattern (m//) at D:\\...\\conv.pl line 35.
...
Use of uninitiliazed value in pattern (m//) at D:\\...\\conv.pl line 35.
Use of uninitiliazed value in pattern (m//) at D:\\...\\conv.pl line 35.


скрипт:

#!Perl.exe -w
# ----------------------------------------
use strict;
use XBase;

     # dbf
use Spreadsheet::Read; # xls
# ------------------------------------------
my $count = 100;
my (@xls,@dbf) = ();
# - Считываем файлы  ----------------------
while (<*.xls>) { chomp $_; push @xls,$_; }
while (<*.dbf>) { chomp $_; push @dbf,$_; }
# ------------------------------------------

&processing_xls(@xls);

sub processing_xls
{

my @xls_files = @_;

my $flag = 0;

if (length(@xls_files) != 0)

{

foreach my $xls (@xls_files)

{

my $ref = ReadData($xls);

for my $i (1..$count)

{

for my $j (\'A\'..\'Z\')

{

print $ref->[1]{"$j$i"} if $ref->[1]{"$j$i"} =~ m/[0-9]{20}/; # <-------- 35-я строка

}

print "\\n";

}

}

}

return 0;
}

5

Perl / Ссылка на дескриптор объекта

« : 18 Декабря 2007, 13:38:28 »

Спасибо, наверно SQLayer.pm то что надо ) А то чуть не изобрел что-то страшное и без колес ))

6

Perl / Ссылка на дескриптор объекта

« : 17 Декабря 2007, 21:39:13 »

Доброго времени суток. Начну с того, что решил я написать "движок" сайта. Спроектировал все как надо. Функции работы с шаблонам засунул в отдельный модуль, общие функции в другой модуль. Начал писать функции работы с базой столкнулся с такой проблемой. приведу пример:


--- SQL.pm ---- (модуль работы с базой)

package SQL;

use strict;
use CommonFunc;
use DBI;

my $cf = new CommonFunc;
# -----------------------------------------------
sub new 
{

my $class = shift;

my $self = {};

return bless $self, $class;
}

# ------ Соединение с базой ---------------------
sub connector 
{

my $self = shift;

my $dsn = qq{DBI:mysql:$cf->Config(\'db_name\');$cf->Config(\'db_hostname\')};

my $dbh = DBI->connect($dsn, $cf->Config(\'db_username\'), $cf->Config(\'db_password\'));

return $dbh;
}

sub selector 
{
  ...
}
...

1;


Далее в основном скрипте, я вызываю SQL.pm, создаю объект, т.е. связываю модуль и методы хранящиеся в нем. При вызове метода connector(), произойдет соединение и метод возвратит ссылку на дескриптор объекта БД. Вопрос как мне дальше передавать данную ссылку на дескриптор объекта в метод selector() для выборки и в другие методы?

--- script.pl ---
#!Perl.exe -w

use strict;
use lib \'./libs\';
use CGI::Carp qw(fatalsToBrowser);
use SQL; <--------

print "Content-Type: text/html\\n\\n";

my $db = new SQL;
my $sql = qq{SELECT * FROM car_types};
$db->connector();
$db->selector($sql);


Я раньше не писал что-то серьозное и обходился простыми скриптами, а тут такое дело решил ООП использовать, так что возможно очень уродливо получилось, не судите строго  
Вообще хотелось бы узнать как это у других реализовано...