Как я создаю класс Perl?
В OS X bash вы можете сделать следующее:
Создать файл сценария bash для сброса переменной
#!/bin/bash
unset http_proxy
Сделать файл исполняемым
sudo chmod 744 unsetvar
Создайте псевдоним
alias unsetvar='source /your/path/to/the/script/unsetvar'
. Он должен быть готов к использованию, если к пути добавлена папка с файлом сценария.
4 ответа
типичный способ создания объектов Perl - «благословить» хэш-ссылку. Экземпляр объекта затем может хранить данные по собственному набору хеш-ключей.
package SampleObject;
use strict;
use warnings;
sub new {
my ($class, %args) = @_;
return bless { %args }, $class;
}
sub sample_method {
my ($self) = @_;
print $self->{sample_data};
}
и использование:
my $obj = SampleObject->new( sample_data => 'hello world',
more_data => 'blah blah blah' );
$obj->sample_method();
В качестве альтернативы можно добавить методы доступа / мутатора (см. Class :: Accessor, Class :: Accessor :: Chained и т. Д. Для простая настройка) - они упрощают проверку данных и добавление инкапсуляции (в Perl это не применяется, вы должны убедиться, что ваш код не обходит соответствующий аксессор / мутатор и не получает доступ к данным в благословенном хэшрефе напрямую) .
Что ж, Perl - это просто, но у меня есть проблемы с другими языками, поэтому я немного обновлю их. Вот простой класс Perl:
#!/usr/bin/perl
package Person;
use strict;
use warnings;
use Carp;
sub new {
my $class = shift;
my $self = { @_ };
croak "bad arguments" unless defined $self->{firstname} and defined $self->{lastname};
return bless $self, $class; #this is what makes a reference into an object
}
sub name {
my $self = shift;
return "$self->{firstname} $self->{lastname}";
}
#and here is some code that uses it
package main;
my $person = Person->new(firstname => "Chas.", lastname => "Owens");
print $person->name, "\n";
Вот тот же класс, написанный с использованием новых объектов стиля Moose:
#!/usr/bin/perl
package Person;
use Moose; #does use strict; use warnings; for you
has firstname => ( is => 'rw', isa => 'Str', required => 1 );
has lastname => ( is => 'rw', isa => 'Str', required => 1 );
sub name {
my $self = shift;
return $self->firstname . " " . $self->lastname;
}
#and here is some code that uses it
package main;
my $person = Person->new(firstname => "Chas.", lastname => "Owens");
print $person->name, "\n";
А MooseX :: Declare устраняет необходимость в дополнительном коде и делает вещи красивыми:
#!/usr/bin/perl
use MooseX::Declare;
class Person {
has firstname => ( is => 'rw', isa => 'Str', required => 1 );
has lastname => ( is => 'rw', isa => 'Str', required => 1 );
method name {
return $self->firstname . " " . $self->lastname;
}
}
#and here is some code that uses it
package main;
my $person = Person->new(firstname => "Chas.", lastname => "Owens");
print $person->name, "\n";
Небольшое примечание , Эти два класса - первые два класса Moose, которые я когда-либо писал. А вот очень ржавый код C ++ (не порежьтесь им, иначе вам понадобится прививка от столбняка):
#include <stdio.h>
#include <string.h>
class Person {
char* firstname;
char* lastname;
public:
Person(char* first, char* last) {
firstname = first;
lastname = last;
}
char* name(void) {
int len = strlen(firstname) + strlen(lastname) + 1;
char* name = new char[len];
name[0] = '\0';
strcat(name, firstname);
strcat(name, " ");
strcat(name, lastname);
return name;
}
};
int main(void) {
Person* p = new Person("Chas.", "Owens");
char* name = p->name();
printf("%s\n", name);
delete name;
delete p;
return 0;
}
Посмотрите Moose , который является расширением объектной системы Perl 5.
Следующее поможет вам в изучении Moose:
Помимо Moose, о котором люди уже упоминали ...
Если вы просто говорите о классах (то есть, а не об объектах), вы обычно создаете данные класса с лексическими переменными, привязанными к файлу и используйте один класс для каждого файла. Вы создаете методы доступа для работы с ними. Есть несколько способов справиться с этим.
Однако похоже, что вам нужно начать с чего-то вроде Intermediate Perl или Damian Conway's Object Oriented Perl . Слишком много объяснений, чтобы кто-то нашел время воспроизвести все это в ответе Stackoverflow.