如何将字符串转换为perl中的文件句柄?

时间:2013-09-12 08:48:55

标签: string perl filehandle

我有一个非常大的字符串$s="dfasdfasdfafd....",有近1,000,000个字符。我想将其转换为文件句柄,使其看起来像从文件中读取此字符串。但是我不想将它存储到临时文件中并阅读它。

有人能给我一些建议吗?

2 个答案:

答案 0 :(得分:17)

打开对字符串的引用:

use strict; use warnings; use autodie;

my $foo = "abc\ndef\n";
open my $fh, "<", \$foo;

while (<$fh>) {
  print "line $.: $_";
}

输出:

line 1: abc
line 2: def

答案 1 :(得分:2)

您可能想要使用OO风格,然后使用IO::String包。

#!/usr/bin/perl

use strict;
use warnings;

use IO::String;

my $s="dfasdfasdfafd....\nabc";
my $io = IO::String->new($s);

while (my $line = $io->getline()) {
   print $line;
}

print "\nTHE END\n";

# write new line
$io->print("\nappend new line");

# back to the start
$io->seek(0, 0);

while ($io->sysread(my $line, 512)) {
   print $line;
}

您也可以使用IO::Handle包中描述的几乎所有方法。

当另一个包只接受IO :: Handle(IO :: File)对象来操作数据时,此解决方案很有用。