Сообщения

1

Perl / printf

« : 24 Августа 2007, 14:00:30 »

$ perl -e \'printf("%07d",267.84*100)\'
0026783

Здравствуйте.
куда делась единичка???

2

Perl / Странная строка

« : 06 Августа 2007, 08:56:48 »

Я имею в виду конструкцию
eval \'что угодно\' if 0;
зачем эта строка в скрипте
насколько я понимаю это
не имеет практического смысла

3

Perl / Странная строка

« : 03 Августа 2007, 16:19:57 »

Здравствуйте все.
Копался в linux coreutils и нашел там скрипт "wheel-gen.pl",
который начинается так:
eval \'exec /usr/bin/perl -S $0 ${1+"$@"}\'
  if 0;

Интересен смысл употребления этой конструкции.
Может кто подскажет. Заренее гран мерси.

4

Perl / Параллельные процессы

« : 27 Июня 2007, 09:18:13 »

>Можно ли в перле запустить несколько процессов выборки сразу?
В Греции все есть:) perldoc -f fork
>то головной скрипт будет ждать ответа...?
Да

PS если запросы однотипные можно иметь промежуточную таблицу в которой все заранее посчитано и работать с ней.

5

Perl / Спецсимволы

« : 25 Июня 2007, 09:35:32 »

HTML::Entities

6

Perl / ref()

« : 20 Июня 2007, 17:15:55 »

Спасибо большое

7

Perl / ref()

« : 19 Июня 2007, 16:53:59 »

Так конечно да, но в случае, когда имя класса не известно, например в  функции, которая должна возвратить CODE - ссылку на функцию begin()  любого модуля.

sub get_code_ref
{
my $blessed_ref = shift;
return \\$blessed_ref->begin(); # все так же возвращает SCALAR...
}

Надеюсь не запутал.

И еще мысль по-ходу, мне кажется можно сделать так
my $code_ref = sub{$ref->begin()}; # работает
но мне кажется это извращение
что думаете?

8

Perl / ref()

« : 19 Июня 2007, 14:20:34 »

Здравствуйте господа.
У меня есть маленький вопрос:
есть функция вида $ref->fun(),
как мне получить ссылку на нее и
тип ссылки должен быть CODE.

В таком виде получаю SCALAR ((
#!/usr/bin/perl
use strict;
my $ref=[];
bless $ref,\'TEST\';

print ref(\\$ref->fun());

package TEST;

sub fun
    {
        return 1;
    }

Заранее большое мерси!

9

Perl / Одинарные кавычки и обратный слэш

« : 28 Апреля 2007, 10:55:44 »

Дело в том, что здесь предусмотрена возможность в строку заключенную в одинарные кавычки
 вставлять одинарные кавычки, для экранирования используется обр. слэш и следовательно это print \'\\\';#error не обратный слеш, а (кавычка - экранированная кавычка);

10

Perl / Отслеживании позиции в файле

« : 05 Апреля 2007, 14:34:16 »

Условно говоря  perldoc -f format

11

Perl / Кодировка html-ок, генерируемых скриптами

« : 23 Марта 2007, 08:43:10 »

print $cgi->header(-charset=>"cp1251");

12

Perl / Проверка существования функции

« : 18 Декабря 2006, 09:22:54 »

perl -e \'
eval {
&asd;
};
print $@ if $@;
\'

13

Perl / Очистить @INC

« : 12 Декабря 2006, 11:52:16 »

#!/usr/bin/perl
@INC=("/home/me/myModules");
require "module.pm";

или

#!/usr/bin/perl
BEGIN{ @INC=("/home/me/myModules") };
use myModule;

14

Perl / LAST_INSERT_ID() :: DBI

« : 12 Декабря 2006, 08:44:37 »

print $dbh->selectrow_array("select id from table order by 1 desc limit 1");

[textImage:";print $_ for grep /(])/,$qwe=~/(<.+?>)|([^<]+)/g;]

15

Perl / вопрос по регекспам

« : 11 Декабря 2006, 09:30:13 »

$qwe="

text

Image:

";
print $_  for grep /(])/,$qwe=~/(<.+?>)|([^<]+)/g;