01-22-2008
hi ranjithpr,
When I try to use nawk in my Solaris, the following code is fine for me.
nawk -F ':' '{ if($0 ~ "^Report No") {fl=1; i=0;}
if(fl==1){data[i]=$0; i++;}
if($0 ~ "^BE NO:")
{
fname = "reprot_"$2".lis";
gsub(" ","",fname);
for(j=0;j<i;j++) print data[j] > fname;
fl=0;
}
else if(fl==0) print $0 > fname;
}' Report.txt
But I find the first reprot_111.lis got error....
the expert result should be:
report_111.lis
Report No.: AAA
BE NO: 111
asfsdflsjdfklsdjfklsjfklsfsflsjdlk
fsdfjsfkjsklfsfj
Report No.: AAA
BE NO: 111
sdfsdfjsdklfjsfkj
fsdflkjsdfklsjkl
BUT I got the following result:
report_111.lis
Report No.: AAA
BE NO: 111
asfsdflsjdfklsdjfklsjfklsfsflsjdlk
fsdfjsfkjsklfsfj
Would you mind, please check it for me? (I will check it by myself as well) Thanks.
10 More Discussions You Might Find Interesting
1. UNIX for Dummies Questions & Answers
I have the following nawk script:
nawk -F: '{ if($0 ~ "^Report No") {fl=1; i=0;}
if(fl==1){data=$0; i++}
if($0 ~ "^BE NO:")
{
fname = "reprot_"$2".lis";
gsub(" ","",fname);
for(j=0;j<i;j++) print data > fname;
fl=0;
}
else if(fl==0) print $0 > fname;
}' filename
When I try to apply... (1 Reply)
Discussion started by: raychu65
1 Replies
2. Shell Programming and Scripting
Hi friends,
I have data in flat file as following, first filed is the customer number. We have almost 50-100 customers in the system
100 ABC A123
100 BVC D234
100 BNC N324
200 CBC A122
200 AVC D294
200 HNC N324
300 GBC A173
300 FVC D234
300 DNC N344
I want to split the file and... (5 Replies)
Discussion started by: monicasgupta
5 Replies
3. Shell Programming and Scripting
Hi
I have a big verilog file with multiple modules. Each module begin with the code word 'module <module-name>(ports,...)'
and end with the
'endmodule' keyword.
Could you please suggest the best way to split each of these modules into multiple files?
Thank you for the help.
Example of... (7 Replies)
Discussion started by: return_user
7 Replies
4. UNIX for Advanced & Expert Users
Hello,
i have a very big file that has more then 80 MBytes (100MBytes). So with my CVS Application I cannot commit this file (too Big) because it must have < 80 MBytes.
How can I split this file into two others files, i think the AIX Unix command :
split -b can do that, buit how is the right... (2 Replies)
Discussion started by: steiner
2 Replies
5. Shell Programming and Scripting
Hi friends..
We have urgent requirement.We need to split the big xml having multiple orders into multiple xmls
having each order in each xml.
For Example
In input XMl will be in following format with multiple line orders..
<OrderDetail BillToKey="20100805337" Createuserid="CreateGuestOrder"... (8 Replies)
Discussion started by: dprakash
8 Replies
6. Shell Programming and Scripting
I have a requirement to split a huge file to smaller text files based on first four characters which look like
ABCD
1234
DFGH
RREX
:
:
:
:
:
0000
Each of these records are OF EQUAL bytes with a different internal layout based on the above first digit identifier..
Any help to start... (5 Replies)
Discussion started by: etldev
5 Replies
7. HP-UX
Hi HP-admins,
I have 120GB file on HP-UX and need to split to 4GB pieces and join them on Windows.
As I don't want to use zipsplit, tried to use split command and join on windows using "copy /b" but it doesn't work (It merges and creates new file but file is corrupt)
What is the correct... (6 Replies)
Discussion started by: prvnrk
6 Replies
8. Shell Programming and Scripting
this thread is a continuation from previous thread
https://www.unix.com/shell-programming-and-scripting/223901-split-big-file-into-multiple-files-based-first-four-characters.html
..I am using awk to split file and I have a syntax error while executing the below code
I am using AIX 7.2... (4 Replies)
Discussion started by: etldev
4 Replies
9. Shell Programming and Scripting
HI
I want to split file base on tag name.
I have few header and footer on file
<?xml version="1.33" encing="UTF-8"?>
<bulkCmConfigDataFile"
<xn:SubNetwork id="ONRM_ROOT">
<xn:MeContext id="PPP04156">
... (4 Replies)
Discussion started by: pareshkp
4 Replies
10. Solaris
Gents
Actually I have question and i need your support.
I have this NAS file system mounted as /coresys has size of 7 TB
I need to Split this file system into several file systems as mount points I mean how to can I Split it professionally to different NAS mount points how to can I decide... (2 Replies)
Discussion started by: AbuAliiiiiiiiii
2 Replies
LEARN ABOUT DEBIAN
log::report::translator::pot
Log::Report::Translator::POT(3pm) User Contributed Perl Documentation Log::Report::Translator::POT(3pm)
NAME
Log::Report::Translator::POT - translation based on POT files
INHERITANCE
Log::Report::Translator::POT
is a Log::Report::Translator
SYNOPSIS
# internal use
my $msg = Log::Report::Message->new
( _msgid => "Hello World
"
, _domain => 'my-domain'
);
print Log::Report::Translator::POT
->new(lexicon => ...)
->translate('nl-BE', $msg);
# normal use (end-users view)
use Log::Report 'my-domain'
, translator => Log::Report::Translator::POT->new;
print __"Hello World
";
DESCRIPTION
Translate a message by directly accessing POT files. The files will load lazily (unless forced). To module attempts to administer the
PO's in a compact way, much more compact than Log::Report::Lexicon::PO does.
METHODS
Constructors
Log::Report::Translator::POT->new(OPTIONS)
-Option --Defined in --Default
charset Log::Report::Translator <from locale>
lexicon Log::Report::Translator <see text>
charset => STRING
lexicon => DIRECTORY|ARRAY-of-DIRECTORYs
Accessors
$obj->charset
See "Accessors" in Log::Report::Translator
$obj->lexicons
See "Accessors" in Log::Report::Translator
Translating
$obj->load(DOMAIN, LOCALE)
See "Translating" in Log::Report::Translator
$obj->translate(MESSAGE)
See "Translating" in Log::Report::Translator
SEE ALSO
This module is part of Log-Report distribution version 0.94, built on August 23, 2011. Website: http://perl.overmeer.net/log-report/
LICENSE
Copyrights 2007-2011 by Mark Overmeer. For other contributors see ChangeLog.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See
http://www.perl.com/perl/misc/Artistic.html
perl v5.14.2 2011-08-23 Log::Report::Translator::POT(3pm)