PERLScript

Введение

Первоначально PerlScript был исключительно для ActiveX Scripting Engine, которые производила компания ActiveState для использования с Microsoft Internet Information’s Services (IIS), что позволило программистам использовать исходный код Perl как дополнение к нему или на замену VBScript или JScript в контексте веб-серверов, работающих на протоколе ASP. И только впоследствии Apache:: ASP был создан для сервера Apache HTTP Server, который позволял программировать только на Perl. PerlScript может также быть использован для написания Windows Script Host программ, аналогичных программ, которые создаются на VBScript.

Простой пример

Простой скрипт, который используется для вывода строки «Hello World!» на Web-странице.

use strict;
$WScript->Echo("Hello World!");

Файлы .pls не получают доступа к WSH-возможностям drag and drop’а.

Файлы .wsf на PerlScript обязательно должны иметь XML-теги, в которых указываются «job id» и «script language», а также, если надо, другие параметры… Например:

<Job ID="DropFiles">
<script language="PerlScript">
    use strict;
    our $WScript;
    $WScript->Echo("Displaying names of dropped files");
    my $arg = $WScript->{Arguments};
    my $countArgs = $arg->{Count};
    for (my $i=0; $i<$countArgs; $i++)
    {
        $WScript->Echo($arg->Item($i));
    }
</script>
</Job> 

Файлы .wsf на PerlScript получают доступ к WSH-возможностям drag and drop’а, как и «Perl Droplets» в устаревшем на данный момент MacPerl.

Большинство WSH-объектов доступны через автоматически создаваемый объект $WScript.

См. также

• ASP
• Perl
• JScript
• VBScript

Ссылки