Moose 基础知识：打开文件并解析

Question

我是 Moose 和 OOP 的新手，希望获得一些指导来解决一个非常棘手的问题使用 Moose 的基本文件处理和解析要求。我熟悉 Perl，并且想开始使用 OOP。

本质上，我想做的就是打开一个文本文件，解析它，然后打印到 stdout。

例如，使用标准 Perl

open (FILE , input.txt);
while (FILE)
{
  if (/(\S+)\s+(\d+)/)
  {
    print "$1-$2";
  }
}

，其中 input.txt 是

ABC 20
DEF 10
GHI 50

Answer 1

打开文件与 Moose 没有任何关系。但是，如果您正在寻找现有的接口来处理文件，您应该看看 Path::Class::File，这是一个包含文件名的对象，并为您提供许多处理它所代表的文件的方法。在属性中使用此类作为 Moose 类型约束是很常见的：

package MyApp::Foo;

use Moose;

has filename => (
    is => 'ro', isa => 'Path::Class::File',
);

sub process_file
{
    my $this = shift;

    if (-e $this->filename)
    {
        my $fh = $this->filename->openr;
        while (my $line = <$fh>)
        {
             # process file, line by line...
        }
    }
}

package main;

my $obj = MyApp::Foo->new(filename => '/home/me/foo.txt');
$obj->process_file;

您还可以修改 process_file 方法，以便它采用从文件接收一行作为参数的 coderef 来处理以更加模块化的方式文件内容。当然，这完全取决于您需要程序做什么。

或者，如果您喜欢 MooseX::Types，您可以这样做：

use MooseX::Types::Path::Class qw(Dir File);
has file => ( ..., isa => File, coerce => 1, ... );

这会让您通过属性的文件名，它将在内部自动膨胀为 Path::Class::File 对象。

Answer 2

您可能想尝试模拟 Moose::Cookbook 中的示例。

老实说，您自己的示例与 OOP 并不真正相关。

如果您的意思是使用 OOP 版本的 IO，您可以轻松地做到这一点（使用 IO::Handle）模块，但该模块不是基于 Moose 的。

如果您的意思是要将上面的文件代码包装到基于 Moose 的模块中，您当然可以，但您需要澄清您想要的（独立于 Moose 的）OOP 设计。例如，您寻求的实例变量是什么？方法？

Answer 3

根据 DVK 的回答下的评论，您可能会要求这样的东西？

package CORDx;
use Moose;
use Carp;

sub parse_log {
    my ($self,$input_name, $whatever) = @_;
    open my $fh, "<", $input_name
        or croak "\"$input_name\" not found";

    while(<$fh>) {
        if(/(\S+)\s+(\d+)/) {
            print "$1-$2";
        }
    }
}


package main;
use CORDx;

my $cordr = CORDx->new();
$cordr->parse_log('input.txt');

Answer 4

这是一个非常简单的 Perl 程序，使用 Moose 只会使它变得复杂。

在开始编写面向对象的 Perl 之前

• 始终在程序开始时使用严格和使用警告
• 使用词法文件句柄，即三参数open 形式，并且始终检查每个 open 调用是否成功

use strict;
use warnings;

open my $fh, '<', 'input.txt' or die $!;

/(\S+)\s+(\d+)/ and print "$1-$2\n" while <$fh>;