文件操作 - prefix.pl
返回文件管理
返回主菜单
删除本文件
文件: /usr/src/linux-headers-5.15.0-113/tools/testing/selftests/kselftest/prefix.pl
编辑文件内容
#!/usr/bin/env perl # SPDX-License-Identifier: GPL-2.0 # Prefix all lines with "# ", unbuffered. Command being piped in may need # to have unbuffering forced with "stdbuf -i0 -o0 -e0 $cmd". use strict; use IO::Handle; binmode STDIN; binmode STDOUT; STDOUT->autoflush(1); my $needed = 1; while (1) { my $char; my $bytes = sysread(STDIN, $char, 1); exit 0 if ($bytes == 0); if ($needed) { print "# "; $needed = 0; } print $char; $needed = 1 if ($char eq "\n"); }
修改文件时间
将文件时间修改为当前时间的前一年
删除文件