perl – 如何在Scala中重新实现Tie :: File?

我真的很喜欢 Tie::File,它允许你将数组绑定到文件的行.您可以以任何方式修改数组,当您完成它时,您可以解开它,并相应地修改文件内容.

我想在Scala中重新实现这种行为,这是我到目前为止所做的:

class TiedBuffer(val file:File) extends ArrayBuffer[String] {

  tieFile

  def untie = {
      val writer = new PrintStream(new FileOutputStream(file))
      this.foreach(e => writer.println(e))
      writer.close
      this
  }

  private def tieFile = this ++= scala.io.Source.fromFile(file).getLines()
}

但是,ArrayBuffer上定义的“运算符”返回各种类,不同于我自己的类,例如:

println((new TiedBuffer(somefile) +: "line0").getClass)

给了我一个不变的.矢量.我可以将类限制为一组非常小的预定义方法,但我认为如果我可以提供所有这些方法(foreach / map / …)会很好.

我应该继承什么,或者我应该如何解决这个问题,以便我有一个类似流体的数组接口,它允许我修改文件内容

BOUNTY:为了赢得赏金,你能展示一个利用CanBuildFrom来完成这项任务的工作实例吗?

解决方法

以冒号结尾的方法right associative,因此在您的示例中,您将调用:带有TiedBuffer作为参数的String.如果你想测试:从ArrayBuffer你可以做:
println((new TiedBuffer(somefile).+:("line0")).getClass)

要么

println(("line0" +: new TiedBuffer(somefile)).getClass)

编辑

我在你的问题中忽略了这一点,请参阅John的answer以返回TiedBuffer对象而不是ArrayBuffer.

EDIT2

以下是CanBuildFrom的示例.您必须手动调用tie,以防止每次构建器创建新的TiedBuffer实例时绑定文件.仍有很大的改进空间,例如不起作用,但它应该让你开始.

import collection.generic.CanBuildFrom
import collection.mutable._
import java.io.{PrintStream,FileOutputStream,File}

class TiedBuffer(val file: File) extends ArrayBuffer[String]
                                 with BufferLike[String,TiedBuffer]
                                 with IndexedSeqOptimized[String,TiedBuffer] {

  def tie = {
    clear
    this ++= scala.io.Source.fromFile(file).getLines()
  }

  def untie = {
    val writer = new PrintStream(new FileOutputStream(file))
    this.foreach(e => writer.println(e))
    writer.close
    this
  }

  override def newBuilder: Builder[String,TiedBuffer] =
    new ArrayBuffer mapResult {
      x: Seq[String] => (new TiedBuffer(file) ++= x)
    }
}

object TiedBuffer {
  implicit def canBuildFrom: CanBuildFrom[TiedBuffer,String,TiedBuffer] =
    new CanBuildFrom[TiedBuffer,TiedBuffer] {
      def apply(): Builder[String,TiedBuffer] =
        throw new RuntimeException("Cannot create a new TiedBuffer from scratch")

      def apply(from: TiedBuffer): Builder[String,TiedBuffer] = from.newBuilder
    }
}

相关文章

忍不住在 PerlChina 邮件列表中盘点了一下 Perl 里的 Web 应用框架(巧的是 PerlBuzz 最近也有一篇相关...
bless有两个参数:对象的引用、类的名称。 类的名称是一个字符串,代表了类的类型信息,这是理解bless的...
gb2312转Utf的方法: use Encode; my $str = "中文"; $str_cnsoftware = encode("utf-8...
  perl 计算硬盘利用率, 以%来查看硬盘资源是否存在IO消耗cpu资源情况; 部份代码参考了iostat源码;...
1 简单变量 Perl 的 Hello World 是怎么写的呢?请看下面的程序: #!/usr/bin/perl print "Hello W...
本文介绍Perl的Perl的简单语法,包括基本输入输出、分支循环控制结构、函数、常用系统调用和文件操作,...