意外行爲上__DATA__

Question

使用領帶::文件時，在試圖回答一個聰明的方法的old question，我要嘗試這個，不知道它是否會成功：

#!/usr/bin/env perl 

use strict; 
use warnings; 

use Tie::File; 
tie(my @data, 'Tie::File', \*DATA) or die "Cannot tie DATA"; 

foreach (@data) { 
    print; 
} 

foreach (@data) { 
    print scalar reverse; 
} 


__DATA__ 
one 
two 
three 
four 
five 
six 

我預計它要麼工作，或死亡;我得到了什麼是意外：

#!/usr/bin/env perluse strict;use warnings;use Tie::File;tie(my @data, 'Tie::File', \*DATA) or die "Cannot tie DATA";foreach (@data) { print;}foreach (@data) { print scalar reverse;}__DATA__onetwothreefourfivesixlrep vne/nib/rsu/!#;tcirts esu;sgninraw esu;eliF::eiT esu;"ATAD eit tonnaC" eid ro) ATAD*\ ,'eliF::eiT' ,atad@ ym (eit{) atad@ (hcaerof;tnirp }{) atad@ (hcaerof;esrever ralacs tnirp }__ATAD__enoowteerhtruofevifxis 

如何在地球上沒有試圖扳平__DATA__爲Tie::File做到了扳平腳本，chomp太？

Answer 1

DATA文件句柄只是指向它的文件的打開文件句柄。它有一些額外的魔力，第一次讀取它時，它尋找到程序中的__DATA__或__END__令牌後面的第一個字節，從而爲您提供期望的行爲。

當你連接*DATA時，你會遇到第一個讀取魔術的方法，並獲得位於文件頂部的源文件句柄。

我懷疑如果您在tie之前先撥打tell DATA（或者seek DATA,0,1），它會處於正確的位置，並且像您期望的那樣「工作」。