05-16-2009
Thanks !
I was wondering, couldn't we just replace all the pipes(|) from 8th occurrence till end of the line with a new line. I can use this command with Perl as well...I mean I have a Unix shell script in which cut is used but it is quite slow therefore want to simulate the same in Perl. I don't either want to use split and join in Perl. It looks to be quite a bit of extra work.Therefore looking for a utility, may be one liner to get this done....
Any thought!!!
10 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
--------------------------------------------------------------------------------
Have to check in a file that the lines starting with 620 and 705
are ending at same posiotin.
82012345
62023232323
70523949558
62023255454
9999
In the above lines, i have to check the lines starting... (1 Reply)
Discussion started by: senthil_is
1 Replies
2. Shell Programming and Scripting
I Have to check in a file that all the lines are ending at same posiotin.
Ex : line 1 is ending at position 88
line 2 should at same position i.e 88
Thanks in advance (6 Replies)
Discussion started by: evvander
6 Replies
3. Shell Programming and Scripting
Hi,
I need help with using an awk or sed filter on the below line
ALTER TABLE "ACCOUNT" ADD CONSTRAINT "ACCOUNT_PK" PRIMARY KEY ("ACCT_ID") USING INDEX PCTFREE 10 INITRANS 2 MAXTRANS 255 STORAGE(INITIAL 65536 FREELISTS 1 FREELIST GROUPS 1) TABLESPACE "WMC_DATA" LOGGING ENABLE
Look for... (2 Replies)
Discussion started by: rajan_san
2 Replies
4. UNIX for Advanced & Expert Users
Hi,
I need help with using an awk or sed filter on the below line
ALTER TABLE "ACCOUNT" ADD CONSTRAINT "ACCOUNT_PK" PRIMARY KEY ("ACCT_ID") USING INDEX PCTFREE 10 INITRANS 2 MAXTRANS 255 STORAGE(INITIAL 65536 FREELISTS 1 FREELIST GROUPS 1) TABLESPACE "WMC_DATA" LOGGING ENABLE
Look for... (1 Reply)
Discussion started by: rajan_san
1 Replies
5. UNIX for Dummies Questions & Answers
Hi,
I am a newbie in unix programming so maybe this is a simple question.
I would like to know how can I make a script that outputs only the values that are not between any given start and end positions
Example
file1:
2 30
40 80
82 100
file2:
ID1 1
ID2 35
ID3 80
ID4 81
ID6... (9 Replies)
Discussion started by: fadista
9 Replies
6. Shell Programming and Scripting
e.g. "hello.all" to be transformed to "all" :b: (6 Replies)
Discussion started by: hakermania
6 Replies
7. Shell Programming and Scripting
Hi Folks,
I got to know from this forums on how to grep from a particular line say line 6
awk 'NR==6 {print;exit}'
But how do i grep from line 6 till the end of the file or command output.
Thanks, (3 Replies)
Discussion started by: Mr. Zer0
3 Replies
8. Shell Programming and Scripting
Hi,
I have a code tag, from which i have the below snippet:
intelrpt.GetCMB_FB type=ODBC>
intelrpt.GetCMB_FB type=SYBASE>
I want the output like:
intelrpt.GetCMB_FB
intelrpt.GetCMB_FB
That is remove the lines starting from WHITESPACE till end.
Please help. I am new to... (7 Replies)
Discussion started by: anupdas
7 Replies
9. Shell Programming and Scripting
I want to remove the trailing spaces at the end of each line starting from a particular position(using ksh script). For example, in the attached file, I want to remove all the spaces starting from the position 430 till the end. The space has to be removed only from the 430th position no matter in... (3 Replies)
Discussion started by: Suryaaravindh
3 Replies
10. Shell Programming and Scripting
Hi
I have a 57 line text file and I want to cut first 6 line assigned it to a veriable and again cut next 6 line assigned to same variable till the time file have left 0 line.
Please let me know how I can do in scripting.
Thanks
Sanjay (6 Replies)
Discussion started by: Sanjay2121
6 Replies
LEARN ABOUT CENTOS
perl::critic::policy::valuesandexpressions::prohibitnoisyquotes
Perl::Critic::Policy::ValuesAndExpressions::ProhibitNoisUsertContributed Perl DoPerl::Critic::Policy::ValuesAndExpressions::ProhibitNoisyQuotes(3)
NAME
Perl::Critic::Policy::ValuesAndExpressions::ProhibitNoisyQuotes - Use "q{}" or "qq{}" instead of quotes for awkward-looking strings.
AFFILIATION
This Policy is part of the core Perl::Critic distribution.
DESCRIPTION
Don't use quotes for one or two-character strings of non-alphanumeric characters (i.e. noise). These tend to be hard to read. For
legibility, use "q{}" or a named value. However, braces, parentheses, and brackets tend do to look better in quotes, so those are allowed.
$str = join ',', @list; #not ok
$str = join ",", @list; #not ok
$str = join q{,}, @list; #better
$COMMA = q{,};
$str = join $COMMA, @list; #best
$lbrace = '('; #ok
$rbrace = ')'; #ok
print '(', @list, ')'; #ok
CONFIGURATION
This Policy is not configurable except for the standard options.
SEE ALSO
Perl::Critic::Policy::ValuesAndExpressions::ProhibitEmptyQuotes
AUTHOR
Jeffrey Ryan Thalhammer <jeff@imaginative-software.com>
COPYRIGHT
Copyright (c) 2005-2011 Imaginative Software Systems. All rights reserved.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. The full text of this license
can be found in the LICENSE file included with this module.
perl v5.16.3 2014-06-09 Perl::Critic::Policy::ValuesAndExpressions::ProhibitNoisyQuotes(3)