文件操作 - _segment.pm
返回文件管理
返回主菜单
删除本文件
文件: /usr/share/perl5/URI/_segment.pm
编辑文件内容
package URI::_segment; # Represents a generic path_segment so that it can be treated as # a string too. use strict; use warnings; use URI::Escape qw(uri_unescape); use overload '""' => sub { $_[0]->[0] }, fallback => 1; our $VERSION = '5.10'; sub new { my $class = shift; my @segment = split(';', shift, -1); $segment[0] = uri_unescape($segment[0]); bless \@segment, $class; } 1;
修改文件时间
将文件时间修改为当前时间的前一年
删除文件