Сохранение групп команд для последующего использования в perl-скрипте

Question

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

Я также пытаюсь не просто импортировать набор команд из внешнего файла, но сейчас он выглядит как единственный жизнеспособный вариант. Поэтому я ищу совета здесь.

Вот суть сценария (воспользовавшись селеном):

#!/usr/bin/perl 
use strict; 
use warnings; 

use Getopt::Long; 
use WWW::Selenium; 

my @changepass; 
my $addsub  = ''; 
my $add2sub = ''; 

GetOptions (
    "changepass|cp=s{3}" => \@changepass, 
    "addsub|as=s" => \$addsub, 
    "add2sub|a2s=s" => \$add2sub, 
    "help|h" => \&do_help 
) or die(&do_help); 


sub login { 
    my $sel = WWW::Selenium->new(
     host => "localhost", 
     port => 4444, 
     browser => "*googlechrome", 
     browser_url => "example.com", 
); 
    $sel->start; 
    $sel->open("/login.php"); 
    $sel->wait_for_page_to_load("5000"); 
    $sel->type("id=loginSection-username", "username"); 
    $sel->type("id=loginSection-password", "password"); 
    $sel->click("name=send"); 
    $sel->wait_for_page_to_load("30000"); 
    sleep(2); 

    return $sel; 
} 


sub do_changepass { 
    my $email = $changepass[0]; 
    my $oldpass = $changepass[1]; 
    my $newpass = $changepass[2]; 
    my ($sel) = @_; 
    $sel->click("css=#my-webspaces-container .more > a"); 
    $sel->wait_for_page_to_load("30000"); 
    ...MORE COMMANDS... 
} 


if (@changepass) { 
    print "Changing password...\n"; 
    my $sel = do_changepass(); 
    print "Finished!\n"; 
} 

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

Answer 1

Чтобы получить работу, что вы пытаетесь достичь, вы должны заботиться о масштабах в $ Селе объекта:

... 

if (@commands){ 
    my $sel = login(); 
    do_changepass($sel); 
} 

sub login { 
    my $sel = WWW::Selenium->new(host => "localhost", 
            port => 4444, 
            browser => "*googlechrome", 
            browser_url => "example.com", 
           ); 
    $sel->start; 
    $sel->open("/login.php"); 
    $sel->wait_for_page_to_load("5000"); 
    $sel->type("id=loginSection-username", "username"); 
    $sel->type("id=loginSection-password", "password"); 
    $sel->click("name=send"); 
    $sel->wait_for_page_to_load("30000"); 
    sleep(2); 

    return $sel; 
} 

sub do_changepass { 
    my $email = $changepass[0]; my $oldpass = $changepass[1]; my $newpass = $changepass[2]; 
    my ($sel) = @_; 
    $sel->click("css=#my-webspaces-container .more > a"); 
    $sel->wait_for_page_to_load("30000"); 
    ...MORE COMMANDS... 
} 
... 

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

или вы можете использовать login -subroutine непосредственно в do_changepass

... 
    sub do_changepass { 
     my $email = $changepass[0]; my $oldpass = $changepass[1]; my $newpass = $changepass[2]; 
     my ($sel) = login(); # <--- login used here!!! 
     $sel->click("css=#my-webspaces-container .more > a"); 
     $sel->wait_for_page_to_load("30000"); 
     ...MORE COMMANDS... 
    } 
... 

Answer 2

Обратите внимания, что вы должны никогда не положенных прототипы на подпрограммах Perl (в () после идентификатора подпрограммы). Вы также должны добавить use strict и use warnings наверху всякий программа. (use warnings предпочтительнее -w в хижину линии.)

Вы можете вернуть $sel объект, который вы создали в одной подпрограмме и использовать его в дальнейшем в другом. Пока не ясно, какие вещи вы хотите сделать, как ваши две подпрограммы кажутся идентичными друг от комментария в конце второго, но это может помочь

#!/usr/bin/perl 
use strict; 
use warnings; 

use WWW::Selenium; 

sub login { 
    my $sel = WWW::Selenium->new(
     host => "localhost", 
     port => 4444, 
     browser => "*googlechrome", 
     browser_url => "example.com", 
); 
    $sel->start; 
    $sel->open("/login.php"); 
    $sel->wait_for_page_to_load("5000"); 
    $sel->type("id=username", "usernamehere"); 
    $sel->type("id=password", "passwordhere"); 
    $sel->click("name=send"); 
    $sel->wait_for_page_to_load("30000"); 
    sleep(2); 

    return $sel; 
} 

sub some_function { 
    my ($sel) = @_; 
    # ....MORE COMMANDS HERE.... 
} 

my $sel = login(); 
some_function($sel); 

---

Update

Что у вас не так с кодом, так это то, что вы никогда не звоните login. Если вы посмотрите на мой пример выше, вызывается login для входа в систему и возвращает значение $sel, которое затем передается в some_function.

Ваш код должен выглядеть следующим образом

if (@changepass) { 
    print "Changing password...\n"; 
    my $sel = login(); 
    do_changepass($sel); 
    print "Finished!\n"; 
} 

Я также полагаю, что вы не вызывать login внутри каждой подпрограммы. Его лучше всего вызвать из того же кода, который вызывает do_changepass и т. Д., Как указано выше.

Answer 3

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

Для того, чтобы повторно использовать ваш "селен" экземпляр на протяжении сценария здесь является то, что я делаю:

В моем тестовом скрипте:

my $driver = Custom::WebApp::setup_selenium(undef, undef, \%desired_capabilities); 

В моем WebApp.pm:

sub setup_selenium { 

    my $self   = shift; 
    my $browser  = shift; 
    my $capabilities = shift; 
    my $driver; 
    my %desired_capabilities; 

    if ($capabilities) { 
     %desired_capabilities = %$capabilities; 
    } 

    # Start selenium with capabilities if passed in from test script 
    unless (keys %desired_capabilities == 0) { 

     $driver = eval { 
      Selenium::Remote::Driver->new(%desired_capabilities); 
     }; 
     return $@ if $@; # Return with error if capability not matched 
    } 

    # Or just start it with default settings 
    else { 
     $driver = eval { 
      Selenium::Remote::Driver->new(browser_name => $browser, 
              proxy => { proxyType => 'system' }); 
     }; 
     return $@ if $@; # Return with error if capability not matched 
    } 
    return $driver; 

} 

Водитель, который возвращается setup_selenium, затем может использоваться на протяжении всего сценария, пока вы не позвоните $driver->quit;

Если вы заметили, в приведенном выше решении используется привязка Selenium :: Remote :: Driver, но вы можете легко заменить WWW :: Selenium, если хотите (хотя я рекомендую S: R: D в основном потому, что он активно поддерживается на Git и CPAN).