问将文本转换为表(空格分隔或固定长度)

EN

awk '
FNR==NR{
  len=length($0)>len?length($0):len
  next
}
{
  val=$NF
  $NF=""
  $1=$1
  printf("%-"len"s%s\n",$0,val)
}
'  Input_file  Input_file

awk 'FNR==NR{len=length($0)>len?length($0):len;next}  {val=$NF;$NF="";$1=$1;printf("%-"len"s%s\n",$0,val)}'  Input_file  Input_file

awk '                                       ##Starting awk program from here.
FNR==NR{                                    ##Checking condition FNR==NR which will be TRUE when first time Input_file is being read.
  len=length($0)>len?length($0):len         ##Creating variable len whose value is either length of current line or len value whichever is having higher value.
  next                                      ##next will skip all further statements from here.
}                                           ##Closing BLOCK for FNR==NR condition here.
{                                           ##Starting BLOCK which will be executed when 2nd time Input_file is being read.
  val=$NF                                   ##Creating variable val whose value is $NF(last field of current line).
  $NF=""                                    ##Nullifying last field of current line.
  $1=$1                                     ##re-assigning value of $1 to itself to adjust $0.
  printf("%-"len"s %s\n",$0,val)            ##Printing current line with mentioning %- with variable len to add spaces at last of current line and then printing last field with new line.
}                                           ##Closing BLOCK for which was opened for 2nd time Input_file is being read.
'  Input_file  Input_file                   ##Mentioning Input_file names here.

Product Name Product                         Key
Autodesk 3ds Max 2019                        128K1
Autodesk 3ds Max 2019 with Softimage         978K1
Autodesk Advance Steel 2019                  959K1
Autodesk Alias AutoStudio 2019               966K1
Autodesk Alias Concept 2019                  A63K1
Autodesk Alias Design 2019                   712K1
Autodesk Alias SpeedForm 2019                A62K1
Autodesk Alias Surface 2019                  736K1
Autodesk AutoCAD 2019                        001K1

#!/usr/bin/env perl
# Save in a file instead of trying to use as a one-liner
use warnings;
use strict;
use autodie;
use List::Util qw/max/;
use Fcntl qw/:seek/;

my $file = shift;
open my $INFILE, "<", $file;

my @lens;
while (<$INFILE>) {
  chomp;
  my @F = split /\t/;
  for my $col (0 .. $#F) {
    $lens[$col] = max(length $F[$col], $lens[$col]//0);
  }
}

seek $INFILE, 0, SEEK_SET;

while (<$INFILE>) {
  chomp;
  my @F = split /\t/;
  for my $col (0 .. $#F) {
    printf "%-*s ", $lens[$col], $F[$col];
  }
  print "\n";
}

$ perl widify input.tsv
 Product Name                         Product Key 
 Autodesk 3ds Max 2019                128K1       
 Autodesk 3ds Max 2019 with Softimage 978K1       
 Autodesk Advance Steel 2019          959K1       
 Autodesk Alias AutoStudio 2019       966K1       
 Autodesk Alias Concept 2019          A63K1       
 Autodesk Alias Design 2019           712K1       
 Autodesk Alias SpeedForm 2019        A62K1       
 Autodesk Alias Surface 2019          736K1       
 Autodesk AutoCAD 2019                001K1

sed -E '1{s/\S+ \S+/       &              /;b};:a;/^.{39,} \S+$/!s/^(.*) /\1  /;ta' file