如何解决如何将第一列从文件A复制到文件b?
我刚刚学习了Perl编程,需要帮助。我想将1列从文件A复制到新文件。在文件A中有3列,我只想将第一列文件复制到新文件,有人可以帮助我吗?
file_a.txt
JJ | John Junior | 300-400
SJ | Samuel Jackson | 500-600
CJ | Chris John | 789-899
BB | Bernard Blaze | 789-899
LV | Luis Villa | 789-899
我想将第一列部分复制到新文件中:
newfile.txt
JJ
SJ
CJ
BB
LV
我在互联网上发现,我需要使用定界符选项卡(\ t)分隔列,并使用定界符换行符(\ n)分隔行。(但我不明白)
对不起,我是一个初学者,也许有人想帮助我。谢谢
解决方法
有很多方法可以过滤掉第一列:
-
cut -d ' ' -f1 in_file > out_file
(UNIX / Linux / Mac OSX) -
nawk '{ print $1 }' in_file > out_file
(UNIX / Linux / Mac OSX)
如果您对perl脚本感兴趣
use strict;
use warnings;
use feature 'say';
my $in = shift;
my $out = shift;
open my $fh_in,'<',$in
or die "Couldn't open $in";
open my $fh_out,'>',$out
or die "Couldn't open $out";
while( <$fh_in> ) {
chomp;
say $fh_out (split)[0];
}
close $fh_in;
close $fh_out;
简短版本以script.pl in_file > out_file
的身份运行
use strict;
use warnings;
use feature 'say';
say ((split)[0]) while <>;
甚至用perl一根衬管更短
perl -ane "print qq($F[0]\n)" in_file > out_file
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。