BEGIN {
FS=","
}
{
for (i = 1; i <= NF; i++)
arr[i,NR]=$i
}
END {
for (x = 1; x <= NR; x++)
{
for (y = 1; y <= NF; y++)
{
printf("%s", arr[x,y])
if(y < NF)
printf("%s", ",")
}
print ""
}
} # END
---------- Post updated 28th Dec 2012 at 10:38 AM ---------- Previous update was 27th Dec 2012 at 03:35 PM ----------
A great majority of the scripts at my new office are written in KSh, but some Perl scripts remain in some servers.
I need to practice Perl too, so hereafter the Perl version of the previous awk solution :
Code:
#!/usr/bin/perl -w
use strict;
my $cur_dir = $ENV{PWD};
my $filename = $cur_dir."/file";
open(FILE,"<$filename") or die"open: $!";
my ($record,@fields,%col);
while( defined( $record = <FILE> ) ) {
my $col_counter=1;
chomp $record;
@fields=split(/,/,$record);
foreach (@fields) {
$col{$col_counter} .= "$_,";
$col_counter++;
}
}
close(FILE);
for ( my $i=1; $i<=keys(%col); $i++ ) {
my $line=$col{$i};
chop $line;
print "$line\n";
}
If Awk of Perl gurus have comments about my code, they are welcome .
I'm also wondering what is the best choice for my future new scripts : KSh+awk or Perl ?
I have in file these words:
@fraza1 = rw
@fraza2 = r
@fraza3 = r
@fraza4 = r
@fraza5 = r
@fraza1 = r
@fraza6 = r
@fraza7 = r
@fraza2 = r
@fraza8 = r
@fraza9 = r
...
I would like so that:
,rw,@fraza1
,r,@fraza2 (2 Replies)
Hi,
I am trying to fetch some values from db and spooling the output to a file.
when i query the db for the values, i get the values in following format.
PC_1 wf_test1 Test
PC_2 wf_test2 Test
PC_3 wf_test3 Test
But my spool file was created in following format.
PC_1
wf_test1
Test... (20 Replies)
I have a script which converts rows to columns.
file_name=$1
mailid=$2
#CREATE BACKUP OF ORIGINAL FILE
#cp ${file_name}.xlsx ${file_name}_temp.xlsx
#tr '\t' '|' < ${file_name}_temp.xlsx > ${file_name}_temp.csv
#rm ${file_name}_temp.xlsx
pivot_row=`head -1 ${file_name}`
sed 1d... (3 Replies)
Hi Friends,
I have come across some files where some of the columns don not have data.
Key, Data1,Data2,Data3,Data4,Data5
A,5,6,,10,,
A,3,4,,3,,
B,1,,4,5,,
B,2,,3,4,,
If we see the above data on Data5 column do not have any row got filled. So remove only that column(Here Data5) and... (4 Replies)
Hi I'm a UNIX awk and sed novice at best. I'm trying to creat a .csv file so it can be graphed in Excel. Tried various xargs, awk, sed and paste but just can't seem to get the data to line up. Not sure if this is beyond for a question in these forums. Any help would greatly be appreciated.
Have... (4 Replies)
Hi all, I'm pretty much a newbie to UNIX. I would appreciate any help with UNIX coding on comparing two large csv files (greater than 10 GB in size), and output a file with matching columns.
I want to compare file1 and file2 by 'id' and 'chain' columns, then extract exact matching rows'... (5 Replies)
hi all
I need a help ..I have a script that takes has command and its output is like below..
a b
a v v
a c
I am assigning the above outputs to a variable ..
<variable name> = <command output>
problem here is when I echo the variable ..it gives me output like " a b... (3 Replies)
I've spent the past hour trying different things and googling for this solution and cannot find the answer. Found variations of this, but not this exact thing.
I have the following text, which is the output from our mainframe. Each field is on a separate line, with a blank line between each... (7 Replies)
Discussion started by: lupin..the..3rd
7 Replies
LEARN ABOUT DEBIAN
resize
RESIZE(1) General Commands Manual RESIZE(1)NAME
resize - set environment and terminal settings to current xterm window size
SYNOPSIS
resize [ -u | -c ] [ -s [ row col ] ]
DESCRIPTION
Resize prints a shell command for setting the appropriate environment variables to indicate the current size of xterm window from which the
command is run. For this output to take effect, resize must either be evaluated as part of the command line (usually done with a shell
alias or function) or else redirected to a file which can then be read in. From the C shell (usually known as /bin/csh), the following
alias could be defined in the user's .cshrc:
% alias rs 'set noglob; eval `resize`'
After resizing the window, the user would type:
% rs
Users of versions of the Bourne shell (usually known as /bin/sh) that don't have command functions will need to send the output to a tempo-
rary file and then read it back in with the "." command:
$ resize > /tmp/out
$ . /tmp/out
Resize determines the user's current shell by first checking if $SHELL is set, and using that. Otherwise it determines the user's shell by
looking in the password file. Generally Bourne-shell variants (including ksh) do not modify $SHELL, so it is possible for resize to be
confused if one runs resize from a Bourne shell spawned from a C shell.
OPTIONS
The following options may be used with resize:
-u This option indicates that Bourne shell commands should be generated even if the user's current shell isn't /bin/sh.
-c This option indicates that C shell commands should be generated even if the user's current shell isn't /bin/csh.
-s [rows columns]
This option indicates that Sun console escape sequences will be used instead of the VT100-style xterm escape codes. If rows and
columns are given, resize will ask the xterm to resize itself. However, the window manager may choose to disallow the change.
Note that the Sun console escape sequences are recognized by XFree86 xterm and by dtterm. The resize program may be installed as sunsize,
which causes makes it assume the -s option.
The rows and columns arguments must appear last; though they are normally associated with the -s option, they are parsed separately.
FILES
/etc/termcap for the base termcap entry to modify.
~/.cshrc user's alias for the command.
ENVIRONMENT
TERM set to "xterm" if not already set.
TERMCAP variable set on systems using termcap
COLUMNS, LINES variables set on systems using terminfo
SEE ALSO csh(1), tset(1), xterm(1)AUTHORS
Mark Vandevoorde (MIT-Athena), Edward Moy (Berkeley)
Copyright (c) 1984, 1985 by X Consortium
See X(7) for a complete copyright notice.
X Window System RESIZE(1)
12-28-2012
)
.