LINUX.ORG.RU
Форум — Development  

[perl] Как обернуть функцию в модуль?

 


0

0

Сабж. Вот к примеру функция. Вроде бы всё в порядке, но получить аргумент не может.

package ObjectiveBash;
use Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(includes);
@EXPORT_OK = qw(includes);

sub includes {
	my ($arg) = @_;
	open(FILE, $arg);
	my ($include) = grep { s/^#include +// } <FILE>;
	close(FILE);
	chomp ($include) if ($include);
	return $include;
}
1;
★★★★★
← Автоматизированный перевод сообщений для русификации
Вопрос про виртулизацию возможно оффтопик извиняюсь . →

>package ObjectiveBash; растрелять за кэмед-кэйс!

anonymous
() 

perldoc perlobj же!

sandbox.pm:
#!/usr/bin/perl

package sandbox;
use strict;

sub new{
  my $type = shift;
  my $class = ref($type) || $type;
  my $self = {};

  bless $self,$class;

  return $self;
}

sub lolwut{
  my($self,$file,$trash) = @_;

  open(sometin,">$file");
  print sometin $trash,"\n";
  close(sometin);
}

1;

test.pl:
require sandbox;
use strict;

my $sb = sandbox->new();
$sb->lolwut("testue","blah...");

nikolayd ★
()
Ответ на: комментарий от nikolayd 

Можно и без new:

package blah;
sub somecrap{
  my($arg1,$arg2) = @_;
  ....
}

somefile.pl:
use blah;

blah::somecrap(...);

nikolayd ★
()
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.
← Автоматизированный перевод сообщений для русификации
Development
Вопрос про виртулизацию возможно оффтопик извиняюсь . →