Tom's Guide | Tom's Hardware | Tom's Games
![]() |
![]() |
![]() |
Hi,
I have a text file which contains the following information.
'DISP SPGTRUL' EXECUTING
---------
SPGTTRL | SPGTRUL | Global Title | SPGTCRUL | Pointer
---------
ID | Name | ID | Name | Address Information | ID | Name | Type | ID | Name
=============================================================================================================================
2 | INTINT | 0 | ------------ | 60120000215 | - | - | SPRNS | 16 | SMS015
---------
2 | INTINT | 1 | 963 | 963 | - | - | SPRNS | 55 | IRIGLS
---------
2 | INTINT | 2 | 595 | 595 | - | - | SPRNS | 55 | IRIGLS
---------
2 | INTINT | 3 | 60120001035 | 60120001035 | - | - | SPRNS | 26 | IN3#3
---------
.
.
.
---------
2 | INTINT | 499 | 6012202 | 6012202 | 1 | CANGT | SPENS | 10 | HLHTATABLE 1/2
--
SPGTTRL | SPGTRUL | Global Title | Include | Possible | Traffic | Resume
--
ID | Name | ID | Name | Address Information | SPC | Ported Number | Type | At Digit
======================================================================================================================
2 | INTINT | 0 | ------------ | 60120000215 | FALSE | FALSE | Nat. Own | -
--
2 | INTINT | 1 | 963 | 963 | FALSE | FALSE | Nat. Own | -
--
2 | INTINT | 2 | 595 | 595 | FALSE | FALSE | Nat. Own | -
--
2 | INTINT | 3 | 60120001035 | 60120001035 | FALSE | FALSE | Nat. Own | -
--
.
.
.
--
2 | INTINT | 499 | 6012202 | 6012202 | FALSE | FALSE | Nat. Own | -TABLE 2/2
Work in progress...'DISP SPGTRUL' EXECUTING
---------
SPGTTRL | SPGTRUL | Global Title | SPGTCRUL | Pointer
---------
ID | Name | ID | Name | Address Information | ID | Name | Type | ID | Name
=============================================================================================================================
2 | INTINT | 500 | 6012203 | 6012203 | 1 | CANGT | SPENS | 10 | HLHTA
---------
2 | INTINT | 501 | 6012200 | 6012200 | 10 | INTINTB | SPGTTRL | 1 | INTNAT
---------
2 | INTINT | 502 | 6012205 | 6012205 | 1 | CANGT | SPENS | 10 | HLHTA
---------
2 | INTINT | 503 | 6012206 | 6012206 | 1 | CANGT | SPENS | 10 | HLHTA
---------
.
.
.
---------
2 | INTINT | 999 | 6012270 | 6012270 | 1 | CANGT | SPENS | 128 | HLNLBTABLE 1/2
--
SPGTTRL | SPGTRUL | Global Title | Include | Possible | Traffic | Resume
--
ID | Name | ID | Name | Address Information | SPC | Ported Number | Type | At Digit
======================================================================================================================
2 | INTINT | 500 | 6012203 | 6012203 | FALSE | FALSE | Nat. Own | -
--
2 | INTINT | 501 | 6012200 | 6012200 | FALSE | FALSE | Nat. Own | 1
--
2 | INTINT | 502 | 6012205 | 6012205 | FALSE | FALSE | Nat. Own | -
--
2 | INTINT | 503 | 6012206 | 6012206 | FALSE | FALSE | Nat. Own | -
--
.
.
.
--
2 | INTINT | 999 | 6012270 | 6012270 | FALSE | FALSE | Nat. Own | -TABLE 2/2
Work in progress...'DISP SPGTRUL' EXECUTING
and the file goes on
Now, I have to merge all records in Table 1 into a file and all records in Table 2 to another file.
How do I do that?
Nimi

My Perl script is:-
#!/usr/bin/perl
$strMain_Dir = "/data/Dstage/SDCT/source";
$strSubA_Dir = "/data/Dstage/SDCT/output";
$strSubB_Dir = "/data/Dstage/SDCT/output";
opendir DIRHANDLE, $strMain_Dir;@strFiles = grep !/^\.\.?$/, readdir DIRHANDLE;
closedir DIRHANDLE;
$iFileCount = 0;while ($strFiles[$iFileCount] ne "")
{
print "Processing $strFiles[$iFileCount], please wait\n";
Process_File ("$strFiles[$iFileCount]");
$iFileCount++;
}sub Process_File {
local ($strFile) = @_;#Get the Out File Name
$strOutFileA = "$strSubA_Dir/$strFile".".subA";
$strOutFileB = "$strSubB_Dir/$strFile".".subB";
open (IFILE, "$strMain_Dir/$strFile");
open (OUTFILEA, ">$strOutFileA");
open (OUTFILEB, ">$strOutFileB");$iCounter = 0;
while (<IFILE>)
{
$strLine = $_;
$strHeader = substr ($strLine,0,7);if ($strHeader eq "TABLE 1")
{
$iCounter++;
}if ($strHeader eq "TABLE 2")
{
$iCounter = 0;
}if ($iCounter = 0)
{
print OUTFILEA ($strLine);
}
else
{
print OUTFILEB ($strLine);
}
}close (IFILE);
close (OUTFILEA);
close (OUTFILEB);}
I am not getting the desired result. What went wrong?Nimi

![]() |
![]() |
![]() |

This post is quite old and has been locked from receiving new replies. Please create a new posting instead.
| Ads by Google |