Login or Register to Ask a Question and Join Our Community

Sponsored Content
Full Discussion: Aligning columns in a text file using Perl
Top Forums Shell Programming and Scripting Aligning columns in a text file using Perl Post 302626299 by birei on Thursday 19th of April 2012 06:43:12 AM
Old 04-19-2012
Did you solve it?

I think it is not the exact solution you are looking for, but perhaps it helps. I use a non built-in module, you will have to install it using CPAN or similar tool. Also adjust column width to your needs, I used 10 characters for the example.
Code:
$ cat script.pl
use warnings;
use strict;
use Text::ASCIITable;

my @lines;
my @header = qw( col1 col2 );

while ( <DATA> ) {
        chomp;
        my @f = map { s/\s+\Z//; $_ } split /\|/;
        push @lines, [ @f ];
}

my $t = Text::ASCIITable->new;
$t->setCols( @header );

$t->setColWidth( $header[0], 10 );
for ( @lines ) {
        $_->[0] =~ s/(.{10})(?=\S)/$1\n/g;
        my $num_lines = $_->[0] =~ tr/\n/\n/;
        for my $i ( 1 .. $num_lines ) {
                $_->[1] =~ s/^/\n/;
        }
        $t->addRow( $_ );
}

print $t;

__DATA__
value1                                                    | Updated this row
value1                                                    | Updated this row also
value1                                                    | Updated again
value1                                                    | Changed table contents
value-value-value-value-value2                            | added few lines of code
value-value-value-value-value2                            | added another few lines using perl
ABCDEFGH                                                  | updated code to add few lines
TESTING                                                   | added new testing procedure
TESTING AGAIN                                             | Updated General info
ABCDEFG TESTING, AGAIN AND AGAIN                          | Updated information
ABCDEFG TESTING, AGAIN AND AGAIN                          | Updated home address
$ perl script.pl
.--------------------------------------------------.
| col1       | col2                                |
+------------+-------------------------------------+
| value1     |  Updated this row                   |
| value1     |  Updated this row also              |
| value1     |  Updated again                      |
| value1     |  Changed table contents             |
| value-valu |                                     |
| e-value-va |                                     |
| lue-value2 |  added few lines of code            |
| value-valu |                                     |
| e-value-va |                                     |
| lue-value2 |  added another few lines using perl |
| ABCDEFGH   |  updated code to add few lines      |
| TESTING    |  added new testing procedure        |
| TESTING AG |                                     |
| AIN        |  Updated General info               |
| ABCDEFG TE |                                     |
| STING, AGA |                                     |
| IN AND AGA |                                     |
| IN         |  Updated information                |
| ABCDEFG TE |                                     |
| STING, AGA |                                     |
| IN AND AGA |                                     |
| IN         |  Updated home address               |
'------------+-------------------------------------'

 

10 More Discussions You Might Find Interesting

1. UNIX for Dummies Questions & Answers

How to convert text to columns in tab delimited text file

Hello Gurus, I have a text file containing nearly 12,000 tab delimited characters with 4000 rows. If the file size is small, excel can convert the text into coloumns. However, the file that I have is very big. Can some body help me in solving this problem? The input file example, ... (6 Replies)
Discussion started by: Unilearn
6 Replies

2. Shell Programming and Scripting

Aligning text files by max field length

Hello, Is there anyway that I can align a pipe delimited text file by the maxium field length where the field is separated out by pipes for large text files with more than 100,000 rows? So, far I have searched other forums and google about aligning text files in unix and I have noticed that... (7 Replies)
Discussion started by: physalis2099
7 Replies

3. Shell Programming and Scripting

Aligning numbers in the second file based on first file

Hi All, I have two sets of files with names .dat and .txt. The number of files is really large more than 90000. The files have names like 1.dat, 2.dat,3.dat and so on where as txt files have names like 1.txt, 2.txt, 3.txt and so on The DAT and TXT files are equal in number. About 90000 each ... (4 Replies)
Discussion started by: shoaibjameel123
4 Replies

4. UNIX for Dummies Questions & Answers

Removing columns from a text file that do not have any values in second and third columns

I have a text file that has three columns. But at the end of the text file, there are trailing lines that have missing second and third columns: 4 0.04972604 KLHL28 4 0.0497332 CSTB 4 0.04979822 AIF1 4 0.04983331 DECR2 4 0.04990344 KATNB1 4 4 4 4 How can I remove the trailing... (3 Replies)
Discussion started by: evelibertine
3 Replies

5. UNIX for Dummies Questions & Answers

Perl - adding columns to file

I have a file in which I need to add more columns to based on a key in the first file: File1 key1,abc,123, key2,def,456, key3,ghi,789, File2 key2,zyx,111,qqq, key3,yuu,222,www, key1,pui,333,eee, key4,xxx,999,rrr, I would like to create the following output: Output (1 Reply)
Discussion started by: WongSifu
1 Replies

6. UNIX for Dummies Questions & Answers

Help with Aligning the content of a txt file

Hello friends Please help me to display the content of a file in specific aligned manner. for ex. the content of the file may be >$TEST WELCOME HI HELLO UNIX SHELL SCRIPTING >$ I want to display the content like . TEST WELCOME HI HELLO ... (18 Replies)
Discussion started by: rajmohan146
18 Replies

7. Shell Programming and Scripting

Replace text in column1 of a file matching columns of another file

Hi all, I have 2 files: species-names.txt Abaca-bunchy-top-virus ((((Abaca-bunchy-top-virus((Babuvirus((Unassigned((Nanoviridae((Unassigned)))) Abutilon-mosaic-virus ((((Abutilon-mosaic-virus((Begomovirus((Unassigned((Geminiviridae((Unassigned))))... (2 Replies)
Discussion started by: thienxho
2 Replies

8. Shell Programming and Scripting

How to concatenate 2-columns by 2 -columns for a text file?

Hello, I want to concatenate 2-columns by 2-columns separated by colon. How can I do so? For example, I have a text file containing 6 columns separated by tab. I want to concatenate column 1 and 2; column 3 and 4; column 5 and 6, respectively, and put a colon in between. input file: 1 0 0 1... (10 Replies)
Discussion started by: huiyee1
10 Replies

9. Shell Programming and Scripting

Perl syntax for formatting columns and text

Dear all, Pzl let me know what is the syntax for converting the columns format to text as i have lots of values for but when i put these values in xls sheet the values are automatically converted to and one more question i have is how to call values from shell script into perl script eg. ... (3 Replies)
Discussion started by: sagar_1986
3 Replies

10. Shell Programming and Scripting

Aligning a file

I have a large text file in following format cat input.txt abc qwert qwer afweferf wdfwefwe ==> kjhjkwdd mnmn ==> jkjkjwekj poiu ==> lklklke tytyutut ==> olkjmnsmn I need to align those lines with the characters " ==>" . I dont want to disturb the lines which dont have "==>". The... (6 Replies)
Discussion started by: ctrld
6 Replies

LEARN ABOUT CENTOS

secret-tool

SECRET-TOOL(1)							   User Commands						    SECRET-TOOL(1)

NAME

       secret-tool - Store and retrieve passwords

SYNOPSIS

       secret-tool store --label='Label' {attribute} {value} ...

       secret-tool lookup {attribute} {value} ...

       secret-tool clear {attribute} {value} ...

       secret-tool search [--all]{attribute} {value} ...

DESCRIPTION

       secret-tool is a command line tool that can be used to store and retrieve passwords.

       Each password is stored in an item. Items are uniquely identified by a set of attribute keys and values. When storing a password you must
       specify unique pairs of attributes names and values, and when looking up a password you provide the same attribute name and value pairs.

STORE

       To store a password run secret-tool with the store argument. You must also specify a label for the passward with the --label argument. This
       label will be displayed in the password manager.

       Make sure to pass a unique set of attributes names and values when storing a password. If the attributes match an already existing item, it
       will be updated instead of creating a new item.

       If invoked from a terminal or tty, then the password to store will be prompted for and only one line will be accepted.

       A password to store can also be piped in via stdin. The password will be the contents of stdin until EOF. If you provide a newline via
       stdin it will be stored as part of the password.

LOOKUP

       To lookup a password run secret-tool with the lookup argument. Specify the same same attribute names and value pairs that you passed when
       storing the password.

       If multiple items match the attribute provided, then the first password that is already unlocked will be returned. If necessary an item
       will be unlocked.

       When printing the password to a terminal or tty, an extra newline will be added after the password.

CLEAR

       To remove a password run secret-tool with the clear argument. Specify the same attirbute name and value pairs that you passed when storing
       the password.

       All unlocked items that match the attributes will be removed.

SEARCH

       This command searches for and prints details on matching items in secret service. Specify the same attribute and value pairs that you
       passed in when storing the password. You can use the following options:

       --all
	   Return all matching results, rather than just the one of the matches. Without this option, the first unlocked match returned from the
	   service will be printed.

       --unlock
	   Unlock items that are locked and then print out their details. Without this option, locked items are skipped.

EXIT STATUS

       On success 0 is returned, a non-zero failure code otherwise.

EXAMPLES

       Example 1. Storing, retrieving, and clearing a password

	   $ secret-tool store --label='My password' key1 value1 key2 value2
	   Password: My password

	   $ secret-tool lookup key1 value1 key2 value2
	   My password

	   $ secret-tool clear key1 value1 key2 value2

XDG
																    SECRET-TOOL(1)
All times are GMT -4. The time now is 06:09 AM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy