01-22-2008
Split a Big Report.
Hi All,
I am a newbie for Unix Script. I have report like the following: (file name: Report.txt):
Report No.: AAA
BE NO: 111
asfsdflsjdfklsdjfklsjfklsfsflsjdlk
fsdfjsfkjsklfsfj
Report No.: AAA
BE NO: 111
sdfsdfjsdklfjsfkj
fsdflkjsdfklsjkl
Report No.: AAA
BE NO: 222
dadaskdhasdjkd
dashdjkashdjhajkh
Report No.: AAA
BE NO: 222
dasdjaklsdjkladjkla
daskdjaskldjakldjklaj
Report No.: AAA
BE NO: 333
ddasdjaskldjkladjklasj
daskdjaskldjaskldj
Report No.: AAA
BE NO: 333
djakdadjaklsjdjak
dakdjakljdklajklsd
.................
.................
.................
I want to use the awk to split the report.lis into report_111.lis, report_222.lis, report_333, etc......
And the following is my expect result:
report_111.lis
Report No.: AAA
BE NO: 111
asfsdflsjdfklsdjfklsjfklsfsflsjdlk
fsdfjsfkjsklfsfj
Report No.: AAA
BE NO: 111
sdfsdfjsdklfjsfkj
fsdflkjsdfklsjkl
report_222.lis
Report No.: AAA
BE NO: 222
dadaskdhasdjkd
dashdjkashdjhajkh
Report No.: AAA
BE NO: 222
dasdjaklsdjkladjkla
daskdjaskldjakldjklaj
report_333.lis
Report No.: AAA
BE NO: 333
ddasdjaskldjkladjklasj
daskdjaskldjaskldj
Report No.: AAA
BE NO: 333
djakdadjaklsjdjak
dakdjakljdklajklsd
.................
.................
.................
Please help and 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::dispatcher::callback
Log::Report::Dispatcher::Callback(3pm) User Contributed Perl Documentation Log::Report::Dispatcher::Callback(3pm)
NAME
Log::Report::Dispatcher::Callback - call a code-ref for each log-line
INHERITANCE
Log::Report::Dispatcher::Callback
is a Log::Report::Dispatcher
SYNOPSIS
sub cb($$$)
{ my ($options, $reason, $message) = @_;
...
}
dispatcher Log::Report::Dispatcher::Callback => 'cb'
, callback => &cb;
dispatcher CALLBACK => 'cb' # same
, callback => &cb;
DESCRIPTION
This basic file logger accepts a callback, which is called for each message which is to be logged. When you need complex things, you may
best make your own extension to Log::Report::Dispatcher, but for simple things this will do.
METHODS
Constructors
$obj->close
See "Constructors" in Log::Report::Dispatcher
Log::Report::Dispatcher::Callback->new(TYPE, NAME, OPTIONS)
-Option --Defined in --Default
accept Log::Report::Dispatcher depend on mode
callback <required>
charset Log::Report::Dispatcher <undef>
format_reason Log::Report::Dispatcher 'LOWERCASE'
locale Log::Report::Dispatcher <system locale>
mode Log::Report::Dispatcher 'NORMAL'
accept => REASONS
callback => CODE
Your "callback" is called with four parameters: this dispatcher object, the options, a reason and a message. The "options" are the
first parameter of Log::Report::report() (read over there). The "reason" is a capitized string like "ERROR". Finally, the "message"
is a Log::Report::Message.
charset => CHARSET
format_reason => 'UPPERCASE'|'LOWERCASE'|'UCFIRST'|'IGNORE'|CODE
locale => LOCALE
mode => 'NORMAL'|'VERBOSE'|'ASSERT'|'DEBUG'|0..3
Accessors
$obj->callback
Returns the code reference which will handle each logged message.
$obj->isDisabled
See "Accessors" in Log::Report::Dispatcher
$obj->mode
See "Accessors" in Log::Report::Dispatcher
$obj->name
See "Accessors" in Log::Report::Dispatcher
$obj->needs
See "Accessors" in Log::Report::Dispatcher
$obj->type
See "Accessors" in Log::Report::Dispatcher
Logging
$obj->collectLocation
Log::Report::Dispatcher::Callback->collectLocation
See "Logging" in Log::Report::Dispatcher
$obj->collectStack([MAXDEPTH])
Log::Report::Dispatcher::Callback->collectStack([MAXDEPTH])
See "Logging" in Log::Report::Dispatcher
$obj->log(HASH-of-OPTIONS, REASON, MESSAGE)
See "Logging" in Log::Report::Dispatcher
$obj->stackTraceLine(OPTIONS)
Log::Report::Dispatcher::Callback->stackTraceLine(OPTIONS)
See "Logging" in Log::Report::Dispatcher
$obj->translate(HASH-of-OPTIONS, REASON, MESSAGE)
See "Logging" in Log::Report::Dispatcher
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::Dispatcher::Callback(3pm)