Visit Our UNIX and Linux User Community


Transpose an entire text file


 
Thread Tools Search this Thread
Top Forums Shell Programming and Scripting Transpose an entire text file
# 15  
Old 10-01-2009
here's a perl version, with and without comments:
Code:
#!/usr/bin/perl -w
# arrayref for columns
my $cols = [];
# counter for characters
my $counter = 0;
# get file handle
open FILE, "<in.txt";
# iterate over lines in file
foreach my $line (<FILE>)
{
	# remove line feed
	chomp($line);
	# create array containing each char on line
 	my @chars = split(//,$line);
 	# create arrayref for characters
 	$cols->[$counter]=[];
 	# iterate over characters, pushing each into an
 	# index of the arrayref just created
 	for my $char (@chars)
 	{
 		push(@{$cols->[$counter]},$char);
 	}
 	# iterate the counter for the next line
 	$counter++;
}
# close the file handle
close FILE;

# open a new file handle for output
open OUT, ">output.txt";
# iterate over the columns (0 thru max index of array storing characters at index 0)
for my $i ( 0 .. @{$cols->[0]} -1)
{
	# iterate over the lines (0 thru max index of array storing lines)
	for my $j ( 0 .. @$cols -1 )
	{
		# print character at line $j, column $i
		print OUT $cols->[$j]->[$i];
	}	
	# print linefeed
	print OUT "\n";
}
# close the filehandle
close OUT;

Code:
#!/usr/bin/perl -w

my $cols = [];
my $counter = 0;
open FILE, "<in.txt";
foreach my $line (<FILE>)
{
	chomp($line);
 	my @chars = split(//,$line);
 	$cols->[$counter]=[];
 	for my $char (@chars)
 	{
 		push(@{$cols->[$counter]},$char);
 	}
 	$counter++;
}
close FILE;

open OUT, ">output.txt";
for my $i ( 0 .. @{$cols->[0]} -1)
{
	for my $j ( 0 .. @$cols -1 )
	{
		print OUT $cols->[$j]->[$i];
	}	
	print OUT "\n";
}
close OUT;

# 16  
Old 10-02-2009
Have studied the awk, improve the script to handle files with different line length, thanks all for the help.
Code:
awk '{if(NF > MAX) MAX = NF;for(x=0;++x<=NF;)a[x,NR]=$x}END{for(y=0;++y<=MAX;){for(z=0;++z<=NR;) {if ((y,z) in a) printf a[y,z]; else printf " "};print ""}}' FS= file

Quote:
Originally Posted by danmero
Try awk
Code:
awk '{for(x=0;++x<=NF;)a[x","NR]=$x}END{for(y=0;++y<=NF;){for(z=0;++z<=NR;) printf a[y","z];print ""}}' FS= file


Previous Thread | Next Thread
Test Your Knowledge in Computers #899
Difficulty: Easy
Programs included in BusyBox can be run simply by adding their name as an argument to the BusyBox executable.
True or False?

10 More Discussions You Might Find Interesting

1. UNIX for Beginners Questions & Answers

Search a string and display its location on the entire string and make a text file

I want to search a small string in a large string and find the locations of the string. For this I used grep "string" -ob <file name where the large string is stored>. Now this gives me the locations of that string. Now how do I store these locations in a text file. Please use CODE tags as... (7 Replies)
Discussion started by: ANKIT ROY
7 Replies

2. Shell Programming and Scripting

Print text between 2 strings for the entire file

hey guys, for the following output: starting open open close close starting close starting open close close starting open open close open (2 Replies)
Discussion started by: boaz733
2 Replies

3. UNIX for Dummies Questions & Answers

Append two lines of text to php.ini in the entire directory tree.e

I am looking to write a script that will read the php.ini files on my web host. If the two lines do exist do nothing. If not append two lines to the end of it then move on to the next directory and open the next php.ini file. I have the beginning of one that was given to me on another web site but... (6 Replies)
Discussion started by: Larrykh465
6 Replies

4. Shell Programming and Scripting

Replacing entire fields with specific text at end or beginning of field

Greetings. I've got a csv file with data along these lines: Spumoni's Pizza Place, Placemats n Things, Just Lamps Counterfeit Dollars by Vinnie, Just Shades, Dollar StoreI want to replace the entire comma-delimited field if it matches something ending in "Place" or beginning with "Dollar",... (2 Replies)
Discussion started by: palmfrond
2 Replies

5. UNIX for Dummies Questions & Answers

Fill csv entire column with content from another text file

I have a csv that looks like this: ,yude-to-nap2,0,0,0,0,0 ,2twis-yude-to-nap2,0,0,0,0,0 ,2tiws-yude-to-nap2,0,0,0,0,0 ,2arcos-yude-to-nap2,0,0,0,0,0 and another file named m1 that has a single line of text as content: Feb 1 15:30:20 How can I fill the whole the empty column of the... (1 Reply)
Discussion started by: RobertoRivera
1 Replies

6. Shell Programming and Scripting

Transpose few columns alone in a Text file

Hi Friends, I am Stuck up with a problem on transposing Rows to Coloumns.. Though there are many threads on this my problem is little difficult.. I have a tab separated file like Below, computer selling_loc currency_type manufacturer_name salesweek-wk1 sales-wk2 ...wk-3 ..wk4 till... (7 Replies)
Discussion started by: heinz_holan
7 Replies

7. Shell Programming and Scripting

Transpose a text file.

Hello, I have a text file which is like a matrix m rows and n columns. Now I want to convert it into n rows and m columns. Thanks for hint. (1 Reply)
Discussion started by: zhshqzyc
1 Replies

8. Shell Programming and Scripting

Context Sensitive smallcap => TitleCap conversion in an entire text file

I desperately need to write a script that go into text documents that list the location of files in small caps and have it convert the directories and subdirectories that lead to the file as Title Caps while leaving the file itself in small caps... to illustrate what I mean: I need to turn txt... (6 Replies)
Discussion started by: monkeyman
6 Replies

9. Shell Programming and Scripting

File Transpose

Hi ALL I have one input file say FILE1 which looks as below. a=1 b=2 c=3 a=4 b=5 c=6 . . . Here a,b,c...etc are variable names. The output file(FILE2) should look like 1,2,3 4,5,6 ..... ..... (5 Replies)
Discussion started by: 46019
5 Replies

10. Shell Programming and Scripting

Remove spaces from first field, and write entire contents into other text file

Hi all, I have searched and found various threads about removing spaces from a field within a text file. Unfortunately, I have not found exactly what I'm looking for, nor am I adept enough to modify what I've found into what I need. I use the following command to remove the first line... (3 Replies)
Discussion started by: carriehoff
3 Replies

Featured Tech Videos