Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- var1 var2 var3
- var_with_long_name_which_ruins_alignment var2 var3
- var1 var2 var3
- var_with_long_name_which_ruins_alignment var2 var3
- column -t file_name
- column -t -s $'t' -n file_name
- #!/usr/bin/perl
- my $delim = 's*ts*';
- my %length = ();
- my @lines = ();
- for my $line (<>) {
- chomp $line;
- my @words = split $delim, $line;
- my $numwords = scalar(@words);
- for my $i (0..$numwords-1) {
- my $maxlen = $length{$i} // 0;
- my $thislen = length($words[$i]);
- $maxlen = ($thislen > $maxlen)? $thislen: $maxlen;
- $length{$i} = $maxlen;
- }
- push @lines, [@words];
- }
- foreach my $wordsref (@lines) {
- my @words = @$wordsref;
- my $numwords = scalar(@words);
- for my $i (0..$numwords-1) {
- if ($i < $numwords-1) {
- my $fieldlen = $length{$i};
- printf "%-${fieldlen}s ", $words[$i];
- }
- else {
- print $words[$i];
- }
- }
- print "n";
- }
- $ aligntabs.pl < infile
- var1 var2 var3
- var_with_long_name_which_ruins_alignment var2 var3
- column -t -s $'t' /Users/me/data.csv | less --chop-long-lines
- sed 's/||/| |/g;s/||/| |/g' filename-here | column -s"|" -t | less -#2 -N -S
- zydsld|asl|asd
- das|aosdk|dd
- zydsld|asl |asd
- das |aosdk|dd
- mlr --inidx --ifs "t" --opprint cat input | tail -n +2
- var1 var2 var3
- var_with_long_name_which_ruins_alignment var2 var3
Add Comment
Please, Sign In to add comment