Question

是否有一个命令可以将制表符分隔文件转换为每个单词的前4个字母？

EG。转动此文件

Jackal Poorest Kingship Twinkle
Viscount George Lizard
Stone Goose Elephant Yvonne Chicken
Gecko Amoeba
Richard

到此文件

Jack Poor King Twin
Visc Geor Liza
Ston Goos Elep Yvon Chic
Geck Amoe
Rich

由于

Answer 1

使用substr修剪每个单词。命名以下trim.pl：

#!/usr/bin/env perl

use strict;
use warnings;

while (<>) {
    chomp;
    my @words = split /\s+/;
    my @trim;
    for my $word (@words) {
        push @trim, substr($word,0,4);
    }
    print join ' ', @trim;
    print "\n";
}

将其运行为：

cat names.txt | trim.pl

哪个输出：

Jack Poor King Twin
Visc Geor Liza
Ston Goos Elep Yvon Chic
Geck Amoe
Rich

Answer 2

尝试使用此模式匹配足以执行此操作

while(<DATA>)
{
(@ar) = $_ =~m/(.{4}).+?\s/g;
print "@ar\n";
}
__DATA__
Jackal Poorest Kingship Twinkle
Viscount George Lizard
Stone Goose Elephant Yvonne Chicken
Gecko Amoeba
Richard

output
Jack Poor King Twin
Visc Geor Liza
Ston Goos Elep Yvon Chic
Geck Amoe
Rich

Answer 3

perl -lane '$,=" "; print map substr($_,0,4),@F' input

Answer 4

来自命令行的Perl，

perl -anE 'say join " ", map /(.{1,4})/, @F' file.txt

或

use feature 'say';

while (my $line = <>) {
  my @F = split ' ', $line;
  say join " ", map /(.{1,4})/, @F; 
}

Answer 5

更易读的awk版本

awk '{l=sep=""; for(i=1;i<=NF;i++){l = l sep substr($i,1,4); sep=FS}; print l}'

如何剪切文件中的每个单词

5 个答案: