|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Vlad 2:5020/400 16 Oct 2002 23:54:15
To : Alexander Kulik
Subject : Re: WSH perlScript
--------------------------------------------------------------------------------
Hello Alexander,
Wednesday, October 16, 2002, 4:03:53 PM, you wrote:
AK> Приветствую тебя, Vlad!
AK> Среда Октябрь 16 2002 Vlad писАл(а) к Alexander Kulik:
AK> AK>> куда PerlScript выводить данный из print ? ругается он на них
AK> V> Что именно говорит, когда ругается? Если выводишь в HTML, то нужно
AK> V> писать $window->document->write("Hello, World!"), если просто нужно
AK> V> сообщение, то $WScript->Echo("Hello World!"). Или так еще можно:
AK> V> -------hello.wsf-------------------------------
AK> V> <Job Id="WshShell">
AK> V> <script language=PerlScript>
AK> V> $WshShell = $WScript->CreateObject("WScript.Shell");
AK> V> $WshShell->Run("notepad", 5);
AK> V> $WshShell->AppActivate("Untitled - Notepad");
AK> V> my $message = "Hello from PerlScript!";
AK> V> for($i=0; $i < length($message); $i++) {
AK> V> $char = substr($message, $i, 1);
AK> V> $WScript->Sleep(100);
AK> V> $WshShell->SendKeys($char);
AK> V> }
AK> V> </script>
AK> V> </job>
AK> V> -------------------------------------------------
AK> А если нет например объекта WScript, ну не WSH это например! Как тогда
AK> получить $WScript?
Тогда правильно сформулируйте вопрос (для начала посмотрите на тему
сообщения). Куда и что вы собираетесь выводить? Я показал три решения
с выводом для PerlScript. Рекомендую вначале прочесть доку, которая
идет с AS Perl, там показано где и как эта технология может
применяться. Можно также здесь почитать:
http://aspn.activestate.com/ASPN/Reference/Products/ActivePerl/Components/Window
s/PerlScript.html
--
Best regards,
VLAD
mailto:vlad@niko.kiev.ua
Отправлено через сервер Форумы@mail.ru - http://talk.mail.ru
--- ifmail v.2.15dev5
* Origin: NIKO (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
