02-03-2020
I see my mistake. Thanks !
10 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
Hi Everyone,
I have a flat file of 1000 unique records like following : For eg
Andy,Flower,201-987-0000,12/23/01
Andrew,Smith,101-387-3400,11/12/01
Ani,Ross,401-757-8640,10/4/01
Rich,Finny,245-308-0000,2/27/06
Craig,Ford,842-094-8740,1/3/04
.
.
.
.
.
.
Now I want to duplicate... (9 Replies)
Discussion started by: ganesh123
9 Replies
2. Shell Programming and Scripting
Hi:
I've been searching the net but didnt find a clue. I have a file in which, for some records, some fields coincide. I want to compare one (or more) of the dissimilar fields and retain the one record that fulfills a certain condition. For example, on this file:
99 TR 1991 5 06 ... (1 Reply)
Discussion started by: rleal
1 Replies
3. Shell Programming and Scripting
I have a .DAT file like below
23666483030000653-B94030001OLFXXX000000120081227
23797049900000654-E71060001OLFXXX000000220081227
23699281320000655 E71060002OLFXXX000000320081227
22885068900000652 B86860003OLFXXX592123320081227
22885068900000652 B86860003ODL-SP592123420081227... (8 Replies)
Discussion started by: kshuser
8 Replies
4. UNIX for Dummies Questions & Answers
Hi,
I have a file with these records
abc
xyz
xyz
pqr
uvw
cde
cde
In my o/p file , I want all the non duplicate rows to be shown.
o/p abc
pqr
uvw
Any suggestions how to do this?
Thanks for the help.
rs (2 Replies)
Discussion started by: rs123
2 Replies
5. UNIX for Dummies Questions & Answers
Consider my input is
10
10
20
then,
uniq -u will give 20 and uniq -dwill return 10.
But i need the output as ,
10
10
How we can achieve this?
Thanks (4 Replies)
Discussion started by: pandeesh
4 Replies
6. Shell Programming and Scripting
Hi,
In a file, I have to mark duplicate records as 'D' and the latest record alone as 'C'.
In the below file, I have to identify if duplicate records are there or not based on Man_ID, Man_DT, Ship_ID and I have to mark the record with latest Ship_DT as "C" and other as "D" (I have to create... (7 Replies)
Discussion started by: machomaddy
7 Replies
7. Shell Programming and Scripting
I have 2 files
"File 1" is delimited by ";" and "File 2" is delimited by "|".
File 1 below (3 record shown):
Doc1;03/01/2012;New York;6 Main Street;Mr. Smith 1;Mr. Jones
Doc2;03/01/2012;Syracuse;876 Broadway;John Davis;Barbara Lull
Doc3;03/01/2012;Buffalo;779 Old Windy Road;Charles... (2 Replies)
Discussion started by: vestport
2 Replies
8. Shell Programming and Scripting
Hi,
i am working on a script that would remove records or lines in a flat file. The only difference in the file is the "NOT NULL" word. Please see below example of the input file.
INPUT FILE:>
CREATE a
(
TRIAL_CLIENT NOT NULL VARCHAR2(60),
TRIAL_FUND NOT NULL... (3 Replies)
Discussion started by: reignangel2003
3 Replies
9. Shell Programming and Scripting
Gents,
I have a file which contends duplicate records in column 1, but the values in column 2 are different.
3099753489 3
3099753489 5
3101954341 12
3101954341 14
3102153285 3
3102153285 5
3102153297 3
3102153297 5
I will like to get something like this:
output desired... (16 Replies)
Discussion started by: jiam912
16 Replies
10. Shell Programming and Scripting
Gents,
Please give a help
file
--BAD STATUS NOT RESHOOTED--
*** VP 41255/51341 in sw 2973
*** VP 41679/51521 in sw 2973
*** VP 41687/51653 in sw 2973
*** VP 41719/51629 in sw 2976
--BAD COG NOT RESHOOTED--
*** VP 41689/51497 in sw 2974
*** VP 41699/51677 in sw 2974
*** VP... (18 Replies)
Discussion started by: jiam912
18 Replies
LEARN ABOUT DEBIAN
strictures
strictures(3pm) User Contributed Perl Documentation strictures(3pm)
NAME
strictures - turn on strict and make all warnings fatal
SYNOPSIS
use strictures 1;
is equivalent to
use strict;
use warnings FATAL => 'all';
except when called from a file where $0 matches:
/^x?t/.*.t$/
and when either '.git' or '.svn' is present in the current directory (with the intention of only forcing extra tests on the author side) -
or when the PERL_STRICTURES_EXTRA environment variable is set, in which case
use strictures 1;
is equivalent to
use strict;
use warnings FATAL => 'all';
no indirect 'fatal';
no multidimensional;
no bareword::filehandles;
Note that _EXTRA may at some point add even more tests, with only a minor version increase, but any changes to the effect of 'use
strictures' in normal mode will involve a major version bump.
If any of the extra testing modules are not present, strictures will complain loudly, once, via warn(), and then shut up. But you really
should consider installing them, they're all great anti-footgun tools.
DESCRIPTION
I've been writing the equivalent of this module at the top of my code for about a year now. I figured it was time to make it shorter.
Things like the importer in 'use Moose' don't help me because they turn warnings on but don't make them fatal - which from my point of view
is useless because I want an exception to tell me my code isn't warnings clean.
Any time I see a warning from my code, that indicates a mistake.
Any time my code encounters a mistake, I want a crash - not spew to STDERR and then unknown (and probably undesired) subsequent behaviour.
I also want to ensure that obvious coding mistakes, like indirect object syntax (and not so obvious mistakes that cause things to
accidentally compile as such) get caught, but not at the cost of an XS dependency and not at the cost of blowing things up on another
machine.
Therefore, strictures turns on additional checking, but only when it thinks it's running in a test file in a VCS checkout - though if this
causes undesired behaviour this can be overridden by setting the PERL_STRICTURES_EXTRA environment variable.
If additional useful author side checks come to mind, I'll add them to the _EXTRA code path only - this will result in a minor version
increase (i.e. 1.000000 to 1.001000 (1.1.0) or similar). Any fixes only to the mechanism of this code will result in a subversion increas
(i.e. 1.000000 to 1.000001 (1.0.1)).
If the behaviour of 'use strictures' in normal mode changes in any way, that will constitute a major version increase - and the code
already checks when its version is tested to ensure that
use strictures 1;
will continue to only introduce the current set of strictures even if 2.0 is installed.
METHODS
import
This method does the setup work described above in "DESCRIPTION"
VERSION
This method traps the strictures->VERSION(1) call produced by a use line with a version number on it and does the version check.
COMMUNITY AND SUPPORT
IRC channel
irc.perl.org #toolchain
(or bug 'mst' in query on there or freenode)
Git repository
Gitweb is on http://git.shadowcat.co.uk/ and the clone URL is:
git clone git://git.shadowcat.co.uk/p5sagit/strictures.git
AUTHOR
mst - Matt S. Trout (cpan:MSTROUT) <mst@shadowcat.co.uk>
CONTRIBUTORS
None required yet. Maybe this module is perfect (hahahahaha ...).
COPYRIGHT
Copyright (c) 2010 the strictures "AUTHOR" and "CONTRIBUTORS" as listed above.
LICENSE
This library is free software and may be distributed under the same terms as perl itself.
perl v5.14.2 2012-04-08 strictures(3pm)