Sorry about my delay in gettng back think timezone differences are involved here. looks like we have some nice solutions coming together in this thread now.
This is the pseudo code I had in mind when I first read your requirements:
And the awk coded solution:
This is very similar to RudiC's proposal. The main difference being in the close statement. awk has a limited number of output buffers and using close will become necessary when dealing with a larger input files which can generate too many output files.
And in the spirit of this site this reduced solution could be derived from above:
Last edited by Chubler_XL; 03-02-2020 at 04:09 PM..
This User Gave Thanks to Chubler_XL For This Post:
Hi,
I am new to this forum and new to awk.
I have a file that contains 2 columns.
Heres an example of what it looks like:
10 +
20 +
40 +
50 -
70 -
So the file is tab-delimited. What I want to do is add 10 to column 1 whenever column 2 is + and substract 10 from column 1... (1 Reply)
Dear All,
I would like to split a file of the following format into multiple files based on the number in the 6th column (numbers 1, 2, 3...):
ATOM 1 N GLY A 1 -3.198 27.537 -5.958 1.00 0.00 N
ATOM 2 CA GLY A 1 -2.199 28.399 -6.617 1.00 0.00 ... (3 Replies)
Hi,
I have a file sample_1.txt (300k rows) which has data like below:
* Also each record is around 64k bytes
11|1|abc|102553|125589|64k bytes of data
10|2|def|123452|123356|......
13|2|geh|144351|121123|...
25|4|fgh|165250|118890|..
14|1|abc|186149|116657|......... (6 Replies)
I have a following inputfile
MT,AP,CDM,TTML,MUM,GS,SUCC,3
MT,AP,CDM,TTSL,AP,GS,FAIL,9
MT,AP,CDM,RCom,MAH,GS,SUCC,3
MT,AP,CDM,RTL,HP,GS,SUCC,1
MT,AP,CDM,Uni,UPE,GS,SUCC,2
MT,AP,CDM,Uni,MUM,GS,SUCC,2
TTSL,AP,GS,MT,MAH,CDM,SUCC,20
TTML,AP,GS,MT,MAH,CDM,FAIL,10... (2 Replies)
Hi,
I have a similar input format-
A_1 2
B_0 4
A_1 1
B_2 5
A_4 1
and looking to print in this output format with headers. can you suggest in awk?awk because i am doing some pattern matching from parent file to print column 1 of my input using awk already.Thanks!
letter number_of_letters... (5 Replies)
Hi,
I have a table to be imported for R as matrix or data.frame but I first need to edit it because I've got several lines with the same identifier (1st column), so I want to sum the each column (2nd -nth) of each identifier (1st column)
The input is for example, after sorted:
K00001 1 1 4 3... (8 Replies)
please write a shell script
Table
--------------------------
1 2 3 a b c
3 4 5 c d e
7 8 9 f g h
Output should be like this
---------------
1 2 3
3 4 5
7 8 9
a b c
c d e
f g h (1 Reply)
Split column data if the table has n number of column's with some record then how to split n number of colmn's line by line with records
Table
---------
Col1 col2 col3 col4 ....................col20
1 2 3 4 .................... 20
a b c d .................... v
... (11 Replies)
Hello,
I am trying to store sum of a column as a new column inside a file but have to find the column names dynamically
I/p
c1,c2,c3,c4,c5
10,20,30,40,50
20,30,40,50,60
If i want to find sum only column c1, c3 and output it as c6,c7
O/p
c1,c2,c3,c4,c5,c6,c7
10,20,30,40,50,30,70... (6 Replies)
Hi All,
I have a file as below and want to sum based on the id in the first column
Input
10264;ATE; 12
10265;SES;11
10266AUT;50
10264;ATE;10
10265;SES;13
10266AUT;89
10264;ATE;1
10265;SES;15
10266AUT;78
Output
10264;ATE; 23
10265;SES;39
10266AUT;139 (6 Replies)
Discussion started by: arunkumar_mca
6 Replies
LEARN ABOUT MOJAVE
io::seekable
IO::Seekable(3pm) Perl Programmers Reference Guide IO::Seekable(3pm)NAME
IO::Seekable - supply seek based methods for I/O objects
SYNOPSIS
use IO::Seekable;
package IO::Something;
@ISA = qw(IO::Seekable);
DESCRIPTION
"IO::Seekable" does not have a constructor of its own as it is intended to be inherited by other "IO::Handle" based objects. It provides
methods which allow seeking of the file descriptors.
$io->getpos
Returns an opaque value that represents the current position of the IO::File, or "undef" if this is not possible (eg an unseekable
stream such as a terminal, pipe or socket). If the fgetpos() function is available in your C library it is used to implements getpos,
else perl emulates getpos using C's ftell() function.
$io->setpos
Uses the value of a previous getpos call to return to a previously visited position. Returns "0 but true" on success, "undef" on
failure.
See perlfunc for complete descriptions of each of the following supported "IO::Seekable" methods, which are just front ends for the
corresponding built-in functions:
$io->seek ( POS, WHENCE )
Seek the IO::File to position POS, relative to WHENCE:
WHENCE=0 (SEEK_SET)
POS is absolute position. (Seek relative to the start of the file)
WHENCE=1 (SEEK_CUR)
POS is an offset from the current position. (Seek relative to current)
WHENCE=2 (SEEK_END)
POS is an offset from the end of the file. (Seek relative to end)
The SEEK_* constants can be imported from the "Fcntl" module if you don't wish to use the numbers 0 1 or 2 in your code.
Returns 1 upon success, 0 otherwise.
$io->sysseek( POS, WHENCE )
Similar to $io->seek, but sets the IO::File's position using the system call lseek(2) directly, so will confuse most perl IO operators
except sysread and syswrite (see perlfunc for full details)
Returns the new position, or "undef" on failure. A position of zero is returned as the string "0 but true"
$io->tell
Returns the IO::File's current position, or -1 on error.
SEE ALSO
perlfunc, "I/O Operators" in perlop, IO::Handle IO::File
HISTORY
Derived from FileHandle.pm by Graham Barr <gbarr@pobox.com>
perl v5.18.2 2013-11-04 IO::Seekable(3pm)