如何刪除文件中的某些條目？

-rw-r--r-- 1 root root 3178 Jun 29 16:08 FTS_TESTCAMPAIGN1_29_06_2013_160823.html 
-rw-r--r-- 1 root root 711 Jun 29 16:08 FTS_ABORT_BACKUP_JOB_1_29_06_2013_160823.html 
-rw-r--r-- 1 root root 405 Jun 29 16:08 FTS_ABORT_BACKUP_JOB_1_29_06_2013_160823.csv 
-rw-r--r-- 1 root root 466 Jun 29 16:08 FTS_ABORT_BACKUP_JOB_1_29_06_2013_160823 
-rw-r--r-- 1 root root 3178 Jun 29 16:14 FTS_TESTCAMPAIGN1_29_06_2013_161404.html 
-rw-r--r-- 1 root root 711 Jun 29 16:14 FTS_ABORT_BACKUP_JOB_1_29_06_2013_161404.html 
-rw-r--r-- 1 root root 405 Jun 29 16:14 FTS_ABORT_BACKUP_JOB_1_29_06_2013_161404.csv 
-rw-r--r-- 1 root root 466 Jun 29 16:14 FTS_ABORT_BACKUP_JOB_1_29_06_2013_161404 
-rw-r--r-- 1 root root 0 Jun 29 16:25 log

我有目錄lising在上面的文件。我需要的輸出爲：如何刪除文件中的某些條目？

FTS_TESTCAMPAIGN1_29_06_2013_160823.html 
FTS_ABORT_BACKUP_JOB_1_29_06_2013_160823.html 
FTS_ABORT_BACKUP_JOB_1_29_06_2013_160823.csv 
FTS_ABORT_BACKUP_JOB_1_29_06_2013_160823 
FTS_TESTCAMPAIGN1_29_06_2013_161404.html 
FTS_ABORT_BACKUP_JOB_1_29_06_2013_161404.html 
FTS_ABORT_BACKUP_JOB_1_29_06_2013_161404.csv 
FTS_ABORT_BACKUP_JOB_1_29_06_2013_161404 
log

我該如何使用Perl？

來源

2013-06-29 user1954970

只要目錄列表保持相同的結構，下面的快速和骯髒的Perl的一個班輪將完成這項工作：

perl -pi.bak -ae 's/^.*$/$F[8]/' FILENAME

來源

2013-06-29 18:05:17 dms

use File::Listing qw(parse_dir); 
use File::Slurp qw(read_file); 

print $_->[0], "\n" for parse_dir read_file 'ls-l';

來源

2013-06-29 18:00:55 daxim

perl -naE 'say $F[$#F]' file

也就是說，啓用自動分割和打印每行上的最後一個字段。

類似地，在awk：

awk '{print $NF}' file

來源

2013-06-29 19:48:43 JRFerguson

如何刪除文件中的某些條目？

回答

相關問題