处理字符串文件句柄

从Perl 5.6开始，我们可以在字符串上打开一个文件句柄，操作起来和普通的文件，套接字或管道没什么两样。

1.从字符串读

my $string = <<'MULTILINE’;



Buster



Mini



Roscoe



MULTILINE







open my ($str_fh),’<’,\$string;



my @end_in_vowels = grep /[aeiou]$/,<$str_fh>;

 

2.写入字符串

my $string = q{};

open my ($str_fh),'>',\$string;



print $str_fh  "This goes into  the string\n";