1: my $|FILEPOINTER|_file_name = '<CURSOR>';#input file name
2:
3: open my $|FILEPOINTER|,'<',$|FILEPOINTER|_file_name
4: or die "$0 : failed to open input file '$|FILEPOINTER|_file_name' "$!\n";
5:
6: <SPLIT>{-continue_here-}
7: close $|FILEPOINTER|
8: or warn "$0 " failed to close input file '$|FILEPOINTER|_file_name' "$!\n";
下面是渐渐的8行内容,你说打开一个输入文件轻易吗?每方法,我们完全可以自己精简:
1: 第一行,my $|FILEPOINTER|_file_name太长了,前面直接用个in表示,当然前面也要改
2: 第二行删除
3: 第三行:open my $|FILEPOINTER|,'<',$|FILEPOINTER|_in or die "failed open\n";
4: 然后到close一行:
5: 这个close 前面的warn,却是没有遇到过,所以直接把前面的删除
6: close $|FILEPOINTER|;
7: 详细的内容如下:
8:
9: = Idioms.open input file == map:ii, sc:i ==
10: my $|?FILEPOINTER|_in = '<CURSOR>'; # input file name
11: open my $|FILEPOINTER|, '<', $|FILEPOINTER|_in or die "failed open\n";
12: close $|FILEPOINTER|;
13:
14: == Idioms.open output file == map:io, sc:o ==
15: my $|?FILEPOINTER|_out = '<CURSOR>'; # output file name
16: open my $|FILEPOINTER|, '>', $|FILEPOINTER|_out or die "failed open$!\n";
17: close $|FILEPOINTER|;