文件操作 - 06-ofh.t
返回文件管理
返回主菜单
删除本文件
文件: /usr/local/src/openssl-1.1.1w/external/perl/Text-Template-1.46/t/06-ofh.t
编辑文件内容
#!perl # # test apparatus for Text::Template module # still incomplete. use Text::Template; die "This is the test program for Text::Template version 1.46. You are using version $Text::Template::VERSION instead. That does not make sense.\n Aborting" unless $Text::Template::VERSION == 1.46; print "1..2\n"; $n=1; $template = new Text::Template TYPE => STRING, SOURCE => q{My process ID is {$$}}; $of = "t$$"; END { unlink $of } open O, "> $of" or die; $text = $template->fill_in(OUTPUT => \*O); # (1) No $text should have been constructed. Return value should be true. print +($text eq '1' ? '' : 'not '), "ok $n\n"; $n++; close O or die; open I, "< $of" or die; { local $/; $t = <I> } close I; # (2) The text should have been printed to the file print +($t eq "My process ID is $$" ? '' : 'not '), "ok $n\n"; $n++; exit;
修改文件时间
将文件时间修改为当前时间的前一年
删除文件