文件操作 - fork.t
返回文件管理
返回主菜单
删除本文件
文件: /usr/share/doc/perl-Test-Simple/t/Legacy/fork.t
编辑文件内容
#!/usr/bin/perl -w use strict; use warnings; use Test2::Util qw/CAN_FORK/; BEGIN { unless(CAN_FORK) { require Test::More; Test::More->import(skip_all => "fork is not supported"); } } BEGIN { if( $ENV{PERL_CORE} ) { chdir 't'; @INC = '../lib'; } } use Test::More; plan tests => 1; if( fork ) { # parent pass("Only the parent should process the ending, not the child"); } else { exit; # child }
修改文件时间
将文件时间修改为当前时间的前一年
删除文件