How to strip out EOF characters

[Charlie Anderson]

I need to count the number of lines in a series of files for a database
load validation.  However, some of the files have hex 1A imbedded in the
middle of the file, so my while loop dies a premature death.  Any
suggestions on how to proceed would be welcome.  Snip below, TIA,


open (tablehandle, $fileDir) || die;
binmode tablehandle;
while (tablehandle) {
  $tableline = $_;
  $filerowcount ++;
}
print total count $filerowcount\n;
close (tablehandle);


Charlie Anderson
Duke Energy Field Services - IT
303-605-1689


___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Re: How to strip out EOF characters

[Charlie Anderson]

Here is the complete (test) script, its part of a larger script, but this
one fails all by itself.

$fileDir = shift @ARGV;
# $myvar = srctree.txt;
print opening file $fileDir\n;
  open (tablehandle, $fileDir) || ($errorcheck2 = TRUE);
   if ($errorcheck2 eq TRUE)
{
 print mainlog ERROR \- data table $table$data_ext missing for
validation\n;
 $error_flag = TRUE;
}
   $filerowcount = 0;
   binmode tablehande;
   while (tablehandle)
#  until (eof (tablehandle)==1)
{
$tableline = $_;
 #  $tableline = tablehandle;
  $filerowcount ++;
print $tableline\n;
 print current count = $filerowcount\n;
}
close (tablehandle);
print total count $filerowcount\n;


Also,

Here is part of the file to be processed.

DUKENRESOURCE_TYPE 01/01/1940ACCOUNTING  ROLLFORWARD_RPTG
99404Cumultv EOC in Actg Principle Cumultv EORT_GROUPS Accounting
RT_DETAILSRoll Forward Reporting  4  5
DUKENRESOURCE_TYPE 01/01/1940ACCOUNTING  ROLLFORWARD_RPTG
99405Purchase Accounting Adj.  Purchase ART_GROUPS Accounting
RT_DETAILSRoll Forward Reporting  4  5
DUKENRESOURCE_TYPE 01/01/1940ACCOUNTING  ROLLFORWARD_RPTG
99406Interacct Transfers (reclassesInteracct RT_GROUPS Accounting
RT_DETAILSRoll Forward Reporting  4  5
DUKENRESOURCE_TYPE 01/01/1940ACCOUNTING  ROLLFORWARD_RPTG
99407Intercompany TransfersIntercompaRT_GROUPS Accounting
RT_DETAILSRoll Forward Reporting  4  5
DUKENRESOURCE_TYPE 01/01/1940ACCOUNTING  ROLLFORWARD_RPTG
99408Add'tInvestment Expenditures  Add'tInveRT_GROUPS Accounting
RT_DETAILSRoll Forward Reporting  4  5
DUKENRESOURCE_TYPE 01/01/1940ACCOUNTING  ROLLFORWARD_RPTG
99409Add'tInc's in Resv/Accrl Exp. Add'tInc'RT_GROUPS Accounting
RT_DETAILSRoll Forward Reporting  4  5
DUKENRESOURCE_TYPE 01/01/1940ACCOUNTING  ROLLFORWARD_RPTG
99411Add'tOth Bal Sheet Chn'g  Add'tOth RT_GROUPS Accounting
RT_DETAILSRoll Forward Reporting  4  5
DUKENRESOURCE_TYPE 01/01/1940ACCOUNTING  ROLLFORWARD_RPTG
99412Add't-Capital ExpendituresAdd't-CapiRT_GROUPS Accounting
RT_DETAILSRoll Forward Reporting  4  5
DUKENRESOURCE_TYPE 01/01/1940ACCOUNTING  ROLLFORWARD_RPTG
99413Add't-Increase in DebtAdd't-IncrRT_GROUPS Accounting
RT_DETAILSRoll Forward Reporting  4  5
DU

Charlie Anderson
Duke Energy Field Services - IT
303-605-1689


   
 
  $Bill Luebkert 
 
  [EMAIL PROTECTED]To:   Charlie Anderson [EMAIL 
PROTECTED]   
  .netcc:   [EMAIL PROTECTED] 
 
   Subject:  Re: How to strip out EOF 
characters
  02/03/2004 02:30 
 
  PM   
 
   
 
   
 




Charlie Anderson wrote:

 I need to count the number of lines in a series of files for a database
 load validation.  However, some of the files have hex 1A imbedded in the
 middle of the file, so my while loop dies a premature death.  Any
 suggestions on how to proceed would be welcome.  Snip below, TIA,

The binmode should allow you to read any binary data including an
Windoze EOF.  There must be something you're not showing us.  How
about a *complete* failing snippet (small as possible) - you have to
be doing something wrong to come to your conclusion.

 open (tablehandle, $fileDir) || die;
 binmode tablehandle;
 while (tablehandle) {
   $tableline = $_;
   $filerowcount ++;
 }
 print total count $filerowcount\n;
 close (tablehandle);

You might also wish to change tablehandle to FH or TH to
eliminate any warnings.

--
  ,-/-  __  _  _ $Bill LuebkertMailto:[EMAIL PROTECTED]
 (_/   /  )// //   DBE CollectiblesMailto:[EMAIL PROTECTED]
  / ) /--  o // //  Castle of Medieval Myth  Magic
http://www.todbe.com/
-/-' /___/__/_/_http://dbecoll.tripod.com/ (My Perl/Lakers stuff)







___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs