Сообщения

1

Perl / Заменить каждый байт в файле

« : 04 Ноября 2009, 12:44:45 »

Имею текстовый файл, заранее не знаю в какой системе он сделал(МакОс/*НИКС/Вин), необходимо заменить все символы, исключая * на символ =

Код: [Выделить]

perl -pe "s/[^*]/=/g" file

на линухе 0D 0A заменяются на ==, а на винде только =, должна быть опция заставить перл обрабатывать файл в бинарном режиме.

Спасибо.

2

Perl / Выполнение PERL cgi скрипта без www сервера???

« : 21 Сентября 2009, 22:43:47 »

qwz:
"Есть html страница с полями ввода.

А если посмотреть на задачу под другим углом, то можно, например, перевести хтмл форму на перл тк или приму или ..., тогда

qwz:
 Скрипт обрабатывает поля и делает запрос на ряд других cgi-скриптов вращающихся на www серверах.

используя LWP модули

qwz:
 Затем по средствам локального www сервера

результат складывать в место доступное локальному серверу

qwz:
 выдает результат работы в окно браузера из которого была открыта html страница."

повесить авторефреш на станицу

qwz:
------Это можно сделать используя только Javascript!???

и получится реализация без жавыскрипт

3

Perl / Вопрос по перекодировнию unix-даты

« : 15 Апреля 2009, 02:46:26 »

Если же ещё нужно и производить манипуляции с датами, то в дополнения к модулям указанным arto Date::Manip

4

Perl / Вопрос по перекодировнию unix-даты

« : 11 Апреля 2009, 02:43:31 »

в чём задача собственно?

5

Perl / JSON и Perl

« : 10 Декабря 2008, 16:39:29 »

XML + XSLT

или

JSON

6

Perl / Динамическое создание массивов

« : 10 Декабря 2008, 01:27:18 »

А как насчёт внимательного прочтения сообщения об ошибке?
Замените $i=0; на my $i=0;  в 9 строке!

7

Perl / Бинарные данные

« : 10 Декабря 2008, 01:20:23 »

тут ответил

8

Perl / Перевод в шестрадцатиричку

« : 10 Декабря 2008, 01:17:24 »

perl -pe "sprintf(\'%02x\',$_)"

9

Perl / open2 для Win

« : 30 Мая 2008, 12:10:18 »

А догадаться экранировать кавычки?

Код: [Выделить]


#!/usr/local/bin/perl -w

use strict;

my $make;

open(BIN, "/tmp/3.bin");

$make .= \'"\';
while ( ) {
   s/(\'|")/\\\\$1/g;
   $make .= $_;
}
$make .= \'"\';

close(BIN);
my $feedback = qx(/tmp/2.pl $make);
print $feedback,"\\n";


Код: [Выделить]


use strict;

$ARGV[0] =~ s/\\\\(\'|")/$1/g;
print length $ARGV[0];


10

Perl / open2 для Win

« : 30 Мая 2008, 02:39:17 »

Хочется выругаться - выругаюсь кодом

/tmp/1.pl

Код: [Выделить]


#!/usr/local/bin/perl -w

use strict;

my $make;

open(BIN, "/tmp/3.bin"); # 3.bin - это мультик Шрек в ави размером 700М

$make .= \'"\';  # Одиночная, двойная и опять одиночная
while ( ) {
   $make .= $_;
}
$make .= \'"\'; # Тоже что и выше

close(BIN);

my $feedback = qx(/tmp/2.pl $make);

print $feedback,"\\n";



/tmp/2.pl

Код: [Выделить]


#!/usr/bin/perl -w

use strict;

my $temp;

$temp = $ARGV[0];
if ($temp ne "") {print "OK";} else {print "NO";}


Результат:
/tmp> time ./1.pl
OK

real    0m12.555s
user    0m7.964s
sys     0m3.036s


Надеюсь при необходимости первый и последний байт отрезать сумеете? Те самые добавленные кавычки.

11

Perl / open2 для Win

« : 21 Мая 2008, 01:08:25 »

xmolex:
Все верно, только мне мультиплатформенность нужна.

Так уже хорошо. А теперь я скажу ещё раз: "И"?
То что я Вам привел точно работает на: Linux(RH, SuSE), AIX и Windows(куда же без него) - у меня работает, уверен и на маке работать будет, какие ещё Вам платформы нужны?

Теперь когда мы разобрались с технологией, можно подумать об оптимизации. Дело в том, что данный вариант может подойти к одной задаче, мои запросы, до сих пор, такой вариант удовлетворял, это когда передача идёт до нескольких мегов и на одной машине. А ведь можно всё сделать гораздо универсальней ни от чего не зависимо (объёмов, машин...), только это будет очень навороченно, но с бОльшим контролем - правда работать будет медленней.

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

12

Perl / open2 для Win

« : 20 Мая 2008, 18:02:57 »

xmolex:
К примеру, я хочу первым скриптом принять данные отправленные методом POST и передать их второму.

И? В чём проблема? Вы приняли первым скриптом данные, в какую-либо переменную/структуру, и хотите передать второму скрипту для дальнейшей обработки, так?

13

Perl / open2 для Win

« : 18 Мая 2008, 04:15:20 »

Может я чего не понял, тогда объясните, а пока вот:

/tmp/1.pl

Код: [Выделить]


#!/usr/bin/perl -w

use strict;

my $feedback = qx(/tmp/2.pl 8 254);

print "Feedback: $feedback\\n";


/tmp/2.pl

Код: [Выделить]


#!/usr/bin/perl -w

use strict;

print $ARGV[0] * $ARGV[1];


14

Perl / Поиск в реестре

« : 18 Мая 2008, 03:52:26 »

Посмотрите:
http://search.cpan.org/~avatar/Win32-Registry-File-1.10/File.pm

15

Perl / Программисты, где вы?

« : 18 Мая 2008, 03:37:08 »

xmolex:
Извините за не особо интересную тему, но вот меня мучает вопрос: это либо этот форум сдал свои позиции и его теперь мало посещают, либо просто Perl умерает?

Видимо стало мало вопросов, нет вопросов нет активности. А всё остальное ерунда, и сели перл вымрет, то в этом точно не будет заслуга пхп. У каждого своё назначение.