07-14-2011
Thanks for the reply and its working fine now in UNIX.
As my design is changed to handle the same logic in PERL script ,Could someone explain how to handle the same logic in PERL code.
Regards
-Sasi
10 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
Hi, I need to chope the header and footer record from an input file and make a new output file, please let me know how i can do it in unix.thanks. (4 Replies)
Discussion started by: coolbudy
4 Replies
2. Shell Programming and Scripting
I am trying to get a total number of tapes w/out headers or footers in a ERV file and append it to the file. For some reason I cannot get it to work. Any ideas?
#!/bin/sh
dat=`date +"%b%d_%Y"`
+ date +%b%d_%Y
dat=Nov16_2006
tapemgr="/export/home/legato/tapemgr/rpts"... (1 Reply)
Discussion started by: gzs553
1 Replies
3. UNIX for Dummies Questions & Answers
Hello gurus,
I have a file in a tab delimited format and a header row. I need a code to delete the header in the file, and convert the file to a fixed width format, with all the columns aligned. Below is a sample of the file:... (4 Replies)
Discussion started by: chumsky
4 Replies
4. Shell Programming and Scripting
I am having report file with header and footer . The details in between header and footer are separated by a pipe charater. I want to sort the file by considering multiple columns in between header and footer.
pls help (4 Replies)
Discussion started by: suryanarayana
4 Replies
5. Shell Programming and Scripting
This is my file(Target.txt)
name|age|locaction
abc|23|del
xyz|24|mum
jkl|25|kol
The file should be like this
1|03252012
1|name|age|location
2|abc|23|del
2|xyz|24|mum
2|jkl|25|kol
2|kkk|26|hyd
3|4
Column 1 is row indicator
for row 1 and 2, column indicator is 1,for data rows... (1 Reply)
Discussion started by: itsranjan
1 Replies
6. Shell Programming and Scripting
Hi Every one,
what is the coomand to remove header or footer from a file.
Please help me by providing command/syntax to remove header/footer from unix.
Thanks in advance for all your support. (5 Replies)
Discussion started by: sridhardwh
5 Replies
7. Shell Programming and Scripting
currently I've a file
Insert into CD_CARD_TYPE
(CODE, DESCRIPTION, LAST_UPDATE_BY, LAST_UPDATE_DATE)
Values
('024', '024', 2, sysdate);
Insert into CD_CARD_TYPE
(CODE, DESCRIPTION, LAST_UPDATE_BY, LAST_UPDATE_DATE)
Values
('032', '032', 2, sysdate);
........
is it... (3 Replies)
Discussion started by: jediwannabe
3 Replies
8. UNIX for Dummies Questions & Answers
Is there any command to eliminate Header and footer from EBCDIC file (4 Replies)
Discussion started by: abhilashnair
4 Replies
9. Post Here to Contact Site Administrators and Moderators
HI Everyone,
I have below source file
AAA|NAME1|ADDRESS1|300.20
BBB|NAME2|ADDRESS2|400.31
CCC|NAME3|ADDRESS3|300.34
I have requirement where I need to sum up fourth field in above fixed width pipe delimited flat file. When I use below code, it gives me value 1001.00
But I am expecting... (1 Reply)
Discussion started by: patricjemmy6
1 Replies
10. Shell Programming and Scripting
Hi Forum.
I have the following script that splits a large fixed-width file into smaller multiple fixed-width files based on input segment type.
The main command in the script is:
awk -v search_col_pos=$search_col_pos -v search_str_len=$search_str_len -v segment_type="$segment_type"... (8 Replies)
Discussion started by: pchang
8 Replies
LEARN ABOUT DEBIAN
sort::key::register
Sort::Key::Register(3pm) User Contributed Perl Documentation Sort::Key::Register(3pm)
NAME
Sort::Key::Register - tell Sort::Key how to sort new data types.
SYNOPSYS
use Sort::Key::Register Person =>
sub { $_->surname, $_->name },
qw(string string);
use Sort::Key::Register 'Color::Component' => 'integer';
use Sort::Key::Register Color =>
sub { $_->R, $_->G, $_->B },
('Color::Component') x 3;
DESCRIPTION
Sort::Key::Register allows one to register new data types with Sort::Key so that they can be sorted as natively supported ones.
It works as a pragma module and doesn't export any function, all its functionality is provided via "use":
use Sort::Key::Register ...
To avoid collisions between modules registering types with the same name, you should qualify them with the package name.
use Sort::Key::Register 'MyPkg::foo' => sub { $_ }, '-int';
# or using __PACKAGE__:
use Sort::Key::Register __PACKAGE__, sub { $_ }, '-int';
USAGE
use Sort::Key::Register $name => &multikeygen, @keytypes;
registers type $name.
&multikeygen is the multikey extraction function for the type and @keytypes are the types of the extracted keys.
use Sort::Key::Register $name => $keytype;
this 'use' is useful for simple types that are sorted as another type already registered, maybe changing the direction of the sort
(ascending or descending).
SEE ALSO
Sort::Key, Sort::Key::Maker.
AUTHOR
Salvador Fandin~o, <sfandino@yahoo.com>
COPYRIGHT AND LICENSE
Copyright (C) 2005 by Salvador Fandin~o
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have available.
perl v5.14.2 2012-06-30 Sort::Key::Register(3pm)