Could you please try following. If you are not bothered about the sequence of the output(same as Input_file) then following may help.
Output will be as follows. NOTE: As RudiC mentioned already your Input_file is different. I had used latest Input_file in above.
Thanks,
R. Singh
Last edited by RavinderSingh13; 08-26-2016 at 11:17 AM..
Reason: Added note here.
I have a file with
aaa,bbb,ccc,dddd,eee,xyz
aaa,bbb,ccc,dddd,eee,xyz,12345,rty
aaa,bbb,ccc,dddd,eee,xyz,12345,rty,tsrt
1. line columns are not fixed
2. all words are seperated by comma
what i want is always the string after last comma.
regards,
Senthil... (9 Replies)
I have a requirement in which i have to read a file which has multiple columns seperated by a pipe "|" from this i have to read each column values seperately and create a comma seperated row for the column and write to another file.
eg:
Input file:
ColA ColB
1 2
2 x
3 y... (5 Replies)
Hi,
I have a table in Db2 with data say
id_1 phase1
id_1 phase2
id_1 phase3
id_2 phase1
id_2 phase2
I need to concatenate the values like
id_1 phase1,phase2,phase3
id_2 phase1,phase2
I tried recursive query but in vain as the length of string to be concatenated in quite long. ... (17 Replies)
Hi,
I am new to shell scripting, i have requirement can any one help me out in this regrads,
in directory i have file like invoice1.txt, invoice2.txt in each file i have fixed number of columns, 62 in number but they are randomly arranged.like
for first file invoice1.txt can have columns... (5 Replies)
Hi,
I have a requirement with,
No~Dt~Notes
1~2011/08/1~"aaa
bbb
ccc
ddd
eee
fff
ggg
hhh"
Single column alone got splitted into multiple lines.
I require the output as
No~Dt~Notes
1~2011/08/1~"aaa<>bbb<>ccc<>ddd<>eee<>fff<>ggg<>hhh"
mean to say those new lines to be... (1 Reply)
Hi ,
Can You Please let Know How use unix uniq command on a single column for deleting records from file
with Below Structure.Pipe Delimter File .
Source
Name | Account_Id
A | 101
B... (2 Replies)
Hey guys, I have a column that consists of string and integer values without a distinctive deliminator, looking like this...
7ASA
14LAL
245FOO
656MOM
87577DAD
...
I want to split the column into two columns, one containing the numbers and one containing the text part.
edit: numbers... (3 Replies)
Hi,
I have pipe separated file which contains some data having comma(,) in it. I want to remove the comma(,) only from particular column without changing data in other columns.
Below is the sample data file, I want to remove the comma(,) only from 5th column.
$ cat file1
ABC | DEF, HIJ|... (6 Replies)
Hello everyone,
i need to replace in the second column of my csv file, points by nothing and dash by comma like this:
Input:
1 2 1;12.111.312-2;1.2;2;1-3
2 1 1;11.212.331-1;3.3;1;2-2
Output:
1 2 1;12111312;2;1.2;2;1-3
2 1 1;11212331;1;3.3;1;2-2
SED or PERL commands preferably.
... (7 Replies)
Hi All,
I am trying to output uniq values per column. see file below. can you please assist? Thank you in advance.
cat names
joe allen ibm
joe smith ibm
joe allen google
joe smith google
rachel allen google
desired output is:
joe allen google
rachel smith ibm (5 Replies)
Discussion started by: Apollo
5 Replies
LEARN ABOUT MOJAVE
carp::clan
Carp::Clan(3) User Contributed Perl Documentation Carp::Clan(3)NAME
Carp::Clan - Report errors from perspective of caller of a "clan" of modules
SYNOPSIS
carp - warn of errors (from perspective of caller)
cluck - warn of errors with stack backtrace
croak - die of errors (from perspective of caller)
confess - die of errors with stack backtrace
use Carp::Clan qw(^MyClan::);
croak "We're outta here!";
use Carp::Clan;
confess "This is how we got here!";
DESCRIPTION
This module is based on ""Carp.pm"" from Perl 5.005_03. It has been modified to skip all package names matching the pattern given in the
"use" statement inside the ""qw()"" term (or argument list).
Suppose you have a family of modules or classes named "Pack::A", "Pack::B" and so on, and each of them uses ""Carp::Clan qw(^Pack::);"" (or
at least the one in which the error or warning gets raised).
Thus when for example your script "tool.pl" calls module "Pack::A", and module "Pack::A" calls module "Pack::B", an exception raised in
module "Pack::B" will appear to have originated in "tool.pl" where "Pack::A" was called, and not in "Pack::A" where "Pack::B" was called,
as the unmodified ""Carp.pm"" would try to make you believe ":-)".
This works similarly if "Pack::B" calls "Pack::C" where the exception is raised, etcetera.
In other words, this blames all errors in the ""Pack::*"" modules on the user of these modules, i.e., on you. ";-)"
The skipping of a clan (or family) of packages according to a pattern describing its members is necessary in cases where these modules are
not classes derived from each other (and thus when examining @ISA - as in the original ""Carp.pm"" module - doesn't help).
The purpose and advantage of this is that a "clan" of modules can work together (and call each other) and throw exceptions at various
depths down the calling hierarchy and still appear as a monolithic block (as though they were a single module) from the perspective of the
caller.
In case you just want to ward off all error messages from the module in which you ""use Carp::Clan"", i.e., if you want to make all error
messages or warnings to appear to originate from where your module was called (this is what you usually used to ""use Carp;"" for ";-)"),
instead of in your module itself (which is what you can do with a "die" or "warn" anyway), you do not need to provide a pattern, the module
will automatically provide the correct one for you.
I.e., just ""use Carp::Clan;"" without any arguments and call "carp" or "croak" as appropriate, and they will automatically defend your
module against all blames!
In other words, a pattern is only necessary if you want to make several modules (more than one) work together and appear as though they
were only one.
Forcing a Stack Trace
As a debugging aid, you can force ""Carp::Clan"" to treat a "croak" as a "confess" and a "carp" as a "cluck". In other words, force a
detailed stack trace to be given. This can be very helpful when trying to understand why, or from where, a warning or error is being
generated.
This feature is enabled either by "importing" the non-existent symbol 'verbose', or by setting the global variable "$Carp::Clan::Verbose"
to a true value.
You would typically enable it by saying
use Carp::Clan qw(verbose);
Note that you can both specify a "family pattern" and the string "verbose" inside the ""qw()"" term (or argument list) of the "use"
statement, but consider that a pattern of packages to skip is pointless when "verbose" causes a full stack trace anyway.
BUGS
The ""Carp::Clan"" routines don't handle exception objects currently. If called with a first argument that is a reference, they simply
call ""die()"" or ""warn()"", as appropriate.
perl v5.18.2 2009-10-24 Carp::Clan(3)