okamuuu https://blog.hatena.ne.jp/okamuuu/ Perl日誌 https://okamuuu.hatenadiary.org/ 自分と同様にはまっている人がいるので、書いておくといつか誰かの役に立つかもしれないというエントリーです。 スクリプト #!/usr/bin/perl use strict; use warnings; my $data = <<END_OF_DATA; test1 test2 test3 END_OF_DATA ### ファイルハンドルopen open my $fh, '<', \$data; ### 現在のファイル位置を調べる warn tell $fh; ### read my @array1 = <$fh>; ### 読み取り開始位置が最後に移動している事を確認。 ( 文字数 + 改行… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fokamuuu.hatenadiary.org%2Fentry%2F20100410%2F1270880957" title="__DATA__をmod_perlやらFCGIなどで使ってハマる人が俺以外にも居る件 - Perl日誌" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> Hatena Blog https://hatena.blog 2010-04-10 15:29:17 rich https://okamuuu.hatenadiary.org/entry/20100410/1270880957 1.0 100%