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

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


Сообщения - Phoinix

Страницы: [1] 2 3 ... 79
1
Perl / Загрузка файла
« : 15 Января 2009, 12:07:30 »
APL

...
use CGI qw/param/;
...
my $file = param(\'file\');
...

Если не знаешь что содержится в $file, то читаем доки: CGI

Error202

Вообще , проверь $CGI::POST_MAX
А так, нужно смотреть конкретные случаи ошибок, как минимум лог.

3
Perl / Помогите разобрать код...
« : 26 Декабря 2007, 16:01:45 »
Gekt0r

Интересно, а где ты этот фреймворк взял?

А вообще, этот код добавляет в объекты секций массивы объектов дочерних секций по параметру show_in_map()...

Причем довольно криво...

4
Perl / вопросик про while
« : 03 Июля 2007, 14:45:43 »
DamonLSD

while (my @array = $sth2->fetchrow_array()) {bla bla bla}

А лучше использовать:
fetchrow_hashref()

И получать ссылку на хеш

5
DartSidius

http://search.cpan.org/~jmcnamara/Spreadsheet-WriteExcel-2.18/lib/Spreadsheet/WriteExcel.pm

Цитировать
...
The width corresponds to the column width value that is specified in Excel. It is approximately equal to the length of a string in the default font of Arial 10. Unfortunately, there is no way to specify "AutoFit" for a column in the Excel file format. This feature is only available at runtime from within Excel.
...

6
Altaxar
И зачем LEFT JOIN спрашивается?
Что бы было чем заняться WHERE и записей побольше обработать?

SELECT client.name, count(uslug.id) AS usl
FROM client INNER JOIN uslug ON uslug.client_id=client.id AND uslug.status = 2
GROUP BY uslug.id
ORDER BY usl

7
Perl / ref()
« : 20 Июня 2007, 12:43:25 »
ctax

Вариант 1:

my $obj = new Some::Module;
my $module_name = ref $obj;
my $sub_name = $module_name.\'::fun\';
my $sub_module = \\&$sub_name;

Вариант 2:

my $obj = new Some::Module;
my $sub_module = $obj->can(\'fun\');


P.S. Естественно не забыть сделать проверку на существование метода в объекте, тем же can:

if ($obj->can(\'fun\')) {
...

8
Perl / регулярные выражения
« : 20 Июня 2007, 12:30:08 »
Yaroslav

Я не проверил код, только рег, а ты даже и не пытался разобраться...
Копипаст - рулит...

foreach my $text (@text) {
    my ($pod, $kol) = $text =~m /^(?:\\D+\\[(\\d*)\\]\\D+|[^\\[\\]]+?)(\\d+)\\D+$/;
    print $pod, $kol;
}

Можешь смело копировать и вставлять в свой код...
Пояснять не буду, раз тебе не нужно...
А вот использовать кириллицу в регулярных выражениях - рискованное занятие...

9
Perl / регулярные выражения
« : 18 Июня 2007, 19:22:20 »
Yaroslav
Если именно такие варианты как ты написал, то:

$text[1]="подарок, есть 10 штук";
$text[2]="подарок[15], есть 7 штук";
foreach my $text (@text) {
  ($pod=1, $kol=$1) = $text = /^(?:\\D+\\[(\\d*)\\]\\D+|[^\\[]+()[^\\]]+)(\\d*)\\D+$/;
}

10
vladsu
Цитировать
Здесь спрашивают о решениях, а не о Ваших предпочтениях...

Оригинально...
Да, можно вообще *nix поставить, тогда и прописывать ничего не надо будет.
Только решения этого никакого не даст...

Объясните уважаемый, как мне поможет Ваше
Цитировать
Взять и прописать, что поумолчанию для файлов с расширением пл запускается перл

В проблеме:
Цитировать
... запустить этот скрипт 20 раз параралельно (то есть одновремено) но с разными парметрами...


Давайте уже говорить по существу?

[OFF]Один чувак пришел, насрал комментарий практически не в тему, и началось её обсуждение...[/OFF]

P.S. Вы батенька про шелловские скрипты не слышали ниразу?

11
vladsu

Спрашивается, почему у меня по умолчанию для файлов с расширением .pl запускается редактор?
Наверно так удобней...

12
sd1074
Без .bat файла - никуда, задание почитайте...

perl novice
perldoc -f fork

13
Perl / вывод ссылок заполненых дат sql
« : 09 Июня 2007, 13:49:46 »
Yaroslav

Дату LIKE фильтровать?

SELECT data FROM baza WHERE data BETWEEN \'2007\' AND \'2008\' GROUP BY data

А вопрос то в чем?

14
arto
[OFF]И Вы еще спрашиваете, а при чем тут опыт???

Снова, что-то Вы снова между строк читаете и пишите...

Как тогда понимать слово "неопытность"?
О которой, кстати, не Вам судить...[/OFF]

15
arto
[OFF]
Завираетесь батенька,
Я ничего не признавал...
[/OFF]

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