Темы

1

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

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

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

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

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

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

Спасибо.

2

ОС и системное ПО / Запуск графического приложения на сервере с залокированной консолью

« : 05 Июня 2007, 14:21:36 »

Всем привет.

Не знаю бывают ли тут опытные люди в этом направлении, но больше не знаю где спросить

Так вот, имеется ява приложение с графическим интерфейсом и имеется софт который умеет кликать (не только кликать, но это сейчас не важно) по этому интерфейсу. Когда я логинюсь на сервак и запускаю эту кликающую софтину, то происходит перехват мыши, клавы... и работать на том клиенте нет возможности, т.к. происходит эмуляция будто сидит чел. и работает с данным ява приложением, все логично. Но встала задача: запускать процесс кликания прямо на сервере в ночное время, из крона, но оставить открытую консоль я себе позволить не могу, даже если при этом уташить монитор. В обшем хотелось бы запустить в бакграунде еще одни иксы которые бы делали отображение на каком-то виртуальном дисплее.

Возможно ли такое? Или есть какие-то другие методы? Вообще за любую инфу буду очень благодарен!!!

Все это должно работать на Линуксе, конкретно на СЛЕС 9.

3

Perl / split - баг?

« : 29 Января 2007, 18:57:46 »

Всем привет.

Споткнулся на ровном месте. Объясните почему сплит отрабатывает поразному.

есть 2 строки:
0|0|0|||||
0|0|0|||| |


print map {">$_<\\n"} split /\\|/, $_;

Я считаю, что для 1 строки должен вернуться список из 7 элементов.

Спасибо.

4

Perl / Отлавливание системных событий

« : 27 Ноября 2006, 19:30:45 »

Нужен модуль для отлавливания системных событий(events).

Задача состоит в том, что есть десяток файлов при изменении которых нужно получать сообщение: кем, когда и какой файл подвергся изменению. Конечно параноя, но клиент всегда прав, а он хочет audit trail на файлы

Система линукс.

Нашел /usr/src/linux/Documentation/dnotify.txt но это Ц и с наскока, с моим скудным знанием Ц, переделать в Перл не получилось.

В общем жду советы/идеи...
Всем заранее спасибо!

5

Perl / Многострочные sql запросы

« : 11 Июля 2006, 13:25:29 »

Собственно вопрос: есть ли какой метод в DBI чтобы посылать несколько SQL комманд разделенных точкой с запятой хронящихся в переменной куда были считанны из файла? Можно организовать через do, разбивая в цикле на строки и выполняя по одной комманде, но мне кажется это будет медленней чем просто в system вызвать sqlplus в тихом режиме, речь идет об Oracle.

Кто-то может что-то посоветовать?

6

Perl / Parser .eml

« : 03 Июня 2005, 14:24:39 »

Никто не встречал парсер для емл - это формат в который сохраняет Аутлук Экспрес.

Если кто даст ссылки на спецификации тоже будет полезно. Гугл не помог выводит на какие-то другие емл, а поиском по мс ресурсам, их же поисковыми системами, вообще пользоваться не возможно, еще ни разу не нашел нужное.

Спасибо!

7

Perl / Parsing PCL

« : 07 Апреля 2005, 15:56:18 »

Есть ли что для парсинга PCL? На cpan нашел только pcl::simple, а на google нашел только parser на Delphi.

Этот "PCL 5 Printer Language Technical Reference Manual" документ качаю, но не знаю поможет ли он мне.

Свой парсер писать не хотелось бы, нет времени.

А задача такая:
Есть документ, много страничный и не очень простой (графики, таблици, бар коды...), его нужно побить на документы. А затем эти документы конвертить в пдф, с этим справился.

В общем за любую инфу буду благодарен! Очень бы хотелось спицификацию с описанием структуры и кодов.

Спасибо!

8

Perl / Получить аутпут система в скрипте вызвавшем систем

« : 28 Января 2005, 17:05:36 »

Направте что почитать, или подскажите.

Есть скрипт, внутри есть вызов фу-и систем, которая в свою очередь, кое-что, бросает в "стдерр", а я хочу получить в переменную скрипта вызвавшего данный систем.

Конечно можно в системе добавить 2>file.tmp, а после считать его, но это не спортивно.

Какие есть решения?

Спасибо!

9

Perl / Как задать реалм в урл?

« : 07 Декабря 2004, 19:52:01 »

Что-то типа

http://user:pass:realm@127.0.0.1:8080/path

Это конечно к перл не относится, но все же, т.к. код

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


use strict;
use LWP;  
my $browser = LWP::UserAgent->new;$browser->credentials(      \'127.0.0.1:8889\',    \'Realm\',    \'admin\' => \'admin\'  );  

my $url
=   \'http://127.0.0.1:8889/admin/security/processNewUser.jsp?currentEditRealm=Realm&user=v&fullName=v&description=v&email=v&password=v&confirmPassword=v&accountDisabled=ON&passwordLife=expire&expireTime=3&enableBlank=minValue&minLength=1\';  

my $response = $browser->get($url);  die "Error: ", $response->header(\'WWW-Authenticate\') ||     \'Error accessing\',    
"\\n ", $response->status_line, "\\n at $url\\n Aborting"   unless $response->is_success;

работать не хочет, ругается 401, кто имеет примеры использования ЛВП с авторизацией не сочтите за труд, поделитесь.

Тут смотрел
http://www.faqs.org/rfcs/rfc1738.html
может не туда смотрел?

Спасибо заранее.

10

Perl / Проблема с @ARGV в винде

« : 20 Августа 2004, 14:19:40 »

test_getopt.pl

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


#!/usr/bin/perl.exe -w

use strict;
use Getopt::Long;

my $VERSION = \'1.0\';

my $optionVersion;
my $optionHelp;

GetOptions("help"    => \\$optionHelp,
            "version" => \\$optionVersion,
           );

print $VERSION,"\\n" and exit if ($optionVersion);

print "Help printed\\n" and exit if ($optionHelp);

print @ARGV,"\\nWrong!!!";


C:\\tmp>test_getopt.pl version

Wrong!!!
C:\\tmp>test_getopt.pl -version

Wrong!!!
C:\\tmp>perl test_getopt.pl -version
1.0

C:\\tmp>perl test_getopt.pl version
version
Wrong!!!

Что за фигня в двух первых вариантах запуска?
Почему скрипт ничего не ловит в аргв?

11

Perl / С Днем Рождения, Perl !

« : 20 Декабря 2001, 04:17:59 »

:super:

19 декабря в 1987 году Ларри Уол создал ...

 :beer: