Результаты поиска

Я хочу создать ссылку на конкретный слайд в файле online PowerPoint, (например, http://www.example.com/hello.ppt), но я хочу, чтобы, когда люди нажимают на мою ссылку, она сразу переходит к N-му слайду.

Разве это возможно?

Кто-нибудь знает, где можно найти онлайн-копии старых статей журнала The Perl ?

Я знаю, что теперь они принадлежат доктору Доббу, просто главная страница для него говорит, что они являются частью любого раздела, тема которого тоже актуальна, а не индексируются вместе. Тем не менее, я никогда не мог найти ни одного из них в интернете на этом сайте.

Я знаю, что у Марка Джейсона Доминуса есть несколько его статей на своем сайте , кто-нибудь знает о других хороших местах? Или даже какие поисковые термины использовать в доктор Доббс это?

Кто-нибудь знает, где можно найти онлайн-копии старых статей журнала The Perl ?

Я знаю, что теперь они принадлежат доктору Доббу, просто главная страница для него говорит, что они являются частью любого раздела, тема которого тоже актуальна, а не индексируются вместе. Тем не менее, я никогда не мог найти ни одного из них в интернете на этом сайте.

Я знаю, что у Марка Джейсона Доминуса есть несколько его статей на своем сайте , кто-нибудь знает о других хороших местах? Или даже какие поисковые термины использовать в доктор Доббс это?

В Perl объект - это просто ссылка на любой из основных типов данных Perl, который был благословлен в определенный класс. Когда вы используете функцию ref() для необработанной ссылки, вам говорят, на какой тип данных указывает ссылка. Однако, когда вы вызываете ref() по благословенной ссылке, вам возвращается имя пакета, в который была благословлена ссылка.

Я хочу знать фактический базовый тип благословенной ссылки. Как я могу это определить?

В Perl объект - это просто ссылка на любой из основных типов данных Perl, который был благословлен в определенный класс. Когда вы используете функцию ref() для необработанной ссылки, вам говорят, на какой тип данных указывает ссылка. Однако, когда вы вызываете ref() по благословенной ссылке, вам возвращается имя пакета, в который была благословлена ссылка.

Я хочу знать фактический базовый тип благословенной ссылки. Как я могу это определить?

Когда я выполняю следующий оператор:

@filtered = map {s/ //g} @outdata;

он возвращает пустой список вместо отфильтрованного списка, который я ожидал. То, что я пытаюсь сделать, это удалить каждое вхождение   из массива строк (который является файлом XML).

Очевидно, я чего-то не понимаю. Может ли кто-нибудь сказать мне, как правильно это сделать, и почему это не работает для меня, как есть?

Есть ли простой способ в Perl, который позволит мне определить, является ли данная переменная числовой? Что-то в этом роде ... :

if (is_number($x))
{ ... }

это было бы идеально. Метод, который не будет выдавать предупреждения, когда используется переключатель -w , безусловно, предпочтителен.

Я пишу свое первое приложение Perl - AOL Instant Messenger bot, который разговаривает с Arduino microcontroller, который, в свою очередь, управляет сервомотором, который нажимает кнопку питания на сервере нашего sysadmin, который случайным образом зависает каждые 28 часов или около того.

Я сделал все самое сложное, я просто пытаюсь добавить последний бит кода, чтобы разорвать основной цикл и выйти из AIM, когда пользователь наберет 'quit'.

Проблема в том, что если я попытаюсь прочитать из STDIN в главном цикле программы, он блокирует процесс до тех пор, пока не будет введен ввод, по сути, делая бота неактивным. Я пробовал тестировать для EOF перед чтением,но никаких костей... EOF просто всегда возвращает false.

Вот ниже приведен пример кода, с которым я работаю:

while(1) {
    $oscar->do_one_loop();

# Poll to see if any arduino data is coming in over serial port
    my $char = $port->lookfor();

# If we get data from arduino, then print it
    if ($char) {
        print "" . $char ;
    }

    # reading STDIN blocks until input is received... AAARG!
    my $a = <STDIN>;
    print $a;
    if($a eq "exit" || $a eq "quit" || $a eq 'c' || $a eq 'q') {last;}
}

print "Signing off... ";

$oscar->signoff();
print "Done\n";
print "Closing serial port... ";
$port->close() || warn "close failed";
print "Done\n";

Под автолинковкой я подразумеваю процесс, с помощью которого wiki ссылок, встроенных в содержимое страницы, генерируются либо в гиперссылку на страницу (если она существует), либо в ссылку на создание (если страница не существует).

С помощью парсера, который я использую, это двухэтапный процесс-сначала анализируется содержимое страницы и извлекаются все ссылки на страницы wiki из источника markup. Затем я передаю массив существующих страниц обратно в синтаксический анализатор, прежде чем будет создан окончательный HTML markup.

Каков наилучший способ справиться с этим процессом? Похоже, что мне нужно сохранить кэшированный список каждой отдельной страницы на сайте, а не извлекать индекс заголовков страниц каждый раз. Или лучше проверить каждую ссылку отдельно, чтобы увидеть, существует ли она? Это может привести к большому количеству запросов к базе данных, если список не был кэширован. Будет ли это по-прежнему жизнеспособно для более крупного сайта wiki с тысячами страниц?

В Perl вы можете выполнять системные команды, используя system() или ` (backticks). Вы даже можете записать выходные данные команды в переменную. Однако это скрывает выполнение программы в фоновом режиме, так что человек, выполняющий ваш сценарий, не может его видеть.

Обычно это полезно, но иногда я хочу посмотреть, что происходит за кулисами. Как сделать так, чтобы выполняемые команды печатались на terminal, а выходные данные этих программ-на terminal? Это будет .bat эквивалент "@echo on".

Как заставить Perl считывать содержимое данного каталога в массив?

Backticks может это сделать, но есть ли какой-то метод, использующий 'scandir' или аналогичный термин?

В Perl, какой хороший способ выполнить замену строки с помощью регулярного выражения и сохранить значение в другой переменной, не изменяя оригинал?

Обычно я просто копирую строку в новую переменную, а затем привязываю ее к s/// regex, который делает замену на новую строку, но мне было интересно, есть ли лучший способ сделать это?

$newstring = $oldstring;
$newstring =~ s/foo/bar/g;

Я пытаюсь извлечь страницы Википедии с помощью LWP::Simple, но они не возвращаются. Настоящий кодекс:

#!/usr/bin/perl
use strict;
use LWP::Simple;

print get("http://en.wikipedia.org/wiki/Stack_overflow");

ничего не печатает. Но если я использую какую-то другую веб-страницу, скажем http://www.google.com , она отлично работает.

Есть ли какое-то другое имя, которое я должен использовать для ссылки на страницы Википедии?

Что здесь может происходить?

Я пытаюсь использовать существующий сервер CAS для аутентификации входа в веб-скрипт Perl CGI и использую модуль AuthCAS Perl (v 1.3.1). Я могу подключиться к серверу CAS, чтобы получить билет службы, но когда я пытаюсь подключиться, чтобы проверить билет, мой скрипт возвращается со следующей ошибкой из модуля IO::Socket::SSL:

 500 Can't connect to [CAS Server]:443 (Bad hostname '[CAS Server]') 
 ([CAS Server] substituted for real server name)

Symptoms/Tests:

1. Если я наберу сгенерированный URL для аутентификации в строке местоположения веб-браузера, он вернется просто отлично с ожидаемым фрагментом XML. Так что это не плохое имя хоста.
2. Если я создаю сценарий без использования модуля AuthCAS, но используя модуль IO::Socket::SSL непосредственно для запроса сервера CAS для проверки созданного билета службы, сценарий Perl будет работать нормально из командной строки, но не в браузере.
3. Если я добавлю модуль AuthCAS в скрипт в пункте 2, скрипт больше не будет работать в командной строке и по-прежнему не будет работать в браузере.

Вот голые кости скрипт, который производит ошибку:

#!/usr/bin/perl
use strict;
use warnings;
use CGI;
use AuthCAS;
use CGI::Carp qw( fatalsToBrowser );

my $id = $ENV{QUERY_STRING};
my $q = new CGI;
my $target = "http://localhost/cgi-bin/testCAS.cgi";

my $cas = new AuthCAS(casUrl => 'https://cas_server/cas');

if ($id eq ""){
    my $login_url = $cas->getServerLoginURL($target);
    printf "Location: $login_url\n\n";
    exit 0;
} else {
    print $q->header();
    print "CAS TEST<br>\n";

    ## When coming back from the CAS server a ticket is provided in the QUERY_STRING
    print "QUERY_STRING = " . $id . "</br>\n";
    ## $ST should contain the received Service Ticket
    my $ST = $q->param('ticket');
    my $user = $cas->validateST($target, $ST);  #### This is what fails

    printf "Error: %s\n", &AuthCAS::get_errors() unless (defined $user);
}

Есть идеи, где может быть конфликт?

Сообщение об ошибке поступает от линии непосредственно над Cebjyre фрагмент процитировал именно

$ssl_socket = new IO::Socket::SSL(%ssl_options);

а именно: создание сокета. Все входные параметры верны. Я отредактировал модуль, чтобы ввести отладочные операторы и распечатать все параметры непосредственно перед этим вызовом, и все они в порядке. Похоже, мне придется глубже погрузиться в модуль IO::Socket::SSL.

В настоящее время я использую модуль URI::URL для создания полного URL из относительного URL; однако он работает не так быстро, как хотелось бы. Кто-нибудь знает другой способ сделать это, который может быть быстрее?

Моя работа была бы проще или, по крайней мере, менее утомительной, если бы я мог придумать автоматизированный способ (предпочтительно в сценарии Python) извлечения полезной информации из базы данных FileMaker Pro. Я работаю на машине Linux, и база данных FileMaker находится на том же самом LAN, работающем на машине OS X. Я могу войти в веб-интерфейс с моей машины.

Я очень хорошо справляюсь с SQL, и если бы кто-нибудь мог указать мне на какой-нибудь плагин FileMaker, который мог бы дать мне доступ к данным SQL в пределах FileMaker, я был бы рад, как панч. Все, что я нашел, идет только в другую сторону: имея FileMaker получить данные из SQL источников. Не полезный.

Это не мой первый выбор,но я бы использовал Perl вместо Python, если бы под рукой было решение Perl-Y.

Примечание: сервисы XML/XSLT (как предлагают некоторые люди) доступны только на FM-сервере, а не на FM Pro. В противном случае, это, вероятно, было бы лучшим решением. ODBC оказывается чрезвычайно трудно даже заставить работать. Существует абсолютно нулевая обратная связь от FM, когда вы настраиваете его, так что вам придется копаться в /var/log/system.log и анализировать неясные сообщения об ошибках.

Вывод : я получил его работу, запустив сценарий python локально на машине, которая запрашивает базу данных FM через соединения ODBC. Скрипт на самом деле является TCPServer, который принимает сокетные соединения от других систем на LAN, выполняет запросы и возвращает данные через сокетное соединение. Мне пришлось сделать это, чтобы обойти тот факт, что FM Pro принимает только ODBC соединений локально (FM сервер требуется для внешних подключений).

Мне нужно сопоставить и удалить все теги, используя регулярное выражение в Perl. У меня есть следующее:

<\\??(?!p).+?>

Но это все равно совпадает с закрывающим тегом </p> . Есть ли какие-либо подсказки о том, как соответствовать закрывающему тегу?

Обратите внимание, что это выполняется на xhtml.

perl Makefile.PL
make && make test && make install

perl Makefile.PL
make && make test && make install

На входе

> hello world

А на выходе, что-то на подобии

> h2dfde3r443332d

$ perl -e 'print crypt(«hello world», «a3»)'

The crypt() function is unimplemented due to excessive paranoia. at -e line 1.

#!/usr/bin/perl -w
###Подключение всех необходимых модулей###
use strict;
use POSIX;
use POSIX ":sys_wait_h";
use IO::Socket;
use IO::Handle;
###Создаем процесс-демон###
my $pid= fork();
exit() if $pid;
die "Couldn't fork: $! " unless defined($pid);
###Создаем связь с новым терминалом###
POSIX::setsid() or die "Can't start a new session $!";
###Переменная - бесконечное время жизни сервера###
my $time_to_die =0;
###Переменная - интернет-сокет или сервер###
my $server;
###Функция обработчик сигналов INT и TERM###
###Она срабатывает перед этими сигналами###
sub signal_handler{
  $time_to_die = 1;
  close($server);
}
$SIG{INT}= $SIG{TERM} = $SIG{HUP} = \&signal_handler;

###Функция обработчик сигнала CHLD - для уборки процессов зомби ###
sub REAPER {
  while ((my $waitedpid = waitpid(-1,WNOHANG)) > 0) { }
  $SIG{CHLD} = \&REAPER
}

###Заполняем массив разрешенных команд при старте сервера###

###Создаем интернет сокет на порту 17403###
my $server_port=17403;
$server= new IO::Socket::INET(LocalPort => $server_port,
                 TYPE => SOCK_STREAM,
                 Reuse => 1,
                 Listen => 10)
or die "Couldn't be a tcp server on port $server_port: $@\n";
###Сервер работает до бесконечности пока его не вырубит Term ###
until($time_to_die){
  my $client;
  my $req;
  ###Обрабатываем входящие подключения
  while($client = $server->accept()){
    ###Включаем обработку зомби###
    $SIG{CHLD} = \&REAPER
    ###Тот который постучался, отделяем в отдельный процесс###
    defined(my $child_pid=fork()) or die "Can't fork new child $!";
    ###Родительский процесс идет в конец и ждет следующего подключения###
    next if $child_pid;
    ###Дочернему процессу копия сокета не нужна, её закрываем###
    if($child_pid == 0) {
      close($server);
    }
    ###Очистка буфера###
    $client->autoflush(1);
    my $response = <$client>;
    my @get_req = split(' ', $response);
    print $client $get_req[1];
  exit;
  }
  continue {
    close($client);
  }

}

* This source code was highlighted with Source Code Highlighter.