Subversion Repositories DevTools

Rev

Rev 3967 | Rev 5710 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 3967 Rev 4898
Line 295... Line 295...
295 
 
 295 
 
296 
    #
 296 
    #
297 
    #   Open the output file
 297 
    #   Open the output file
298 
    #
 298 
    #
299 
    open ( OUTFILE, ">$opt_work_file" ) || Error( "Cannot create $opt_work_file", $! );
 299 
    open ( OUTFILE, ">$opt_work_file" ) || Error( "Cannot create $opt_work_file", $! );
- 
 
 300 
    binmode(OUTFILE);
300 
 
 301 
 
301 
    #
 302 
    #
302 
    #   Read input file and process as an array of lines
 303 
    #   Read input file and process as an array of lines
303 
    #
 304 
    #
304 
    foreach ( getInputLines($opt_infile) )
 305 
    foreach ( getInputLines($opt_infile) )
Line 431... Line 432...
431 
 
 432 
 
432 
    #
 433 
    #
433 
    #   Open the output file
 434 
    #   Open the output file
434 
    #
 435 
    #
435 
    open ( OUTFILE, ">$opt_work_file" ) || Error( "Cannot create $opt_work_file", $! );
 436 
    open ( OUTFILE, ">$opt_work_file" ) || Error( "Cannot create $opt_work_file", $! );
- 
 
 437 
    binmode(OUTFILE);
436 
 
 438 
 
437 
    #
 439 
    #
438 
    #   Read input file and process as an array of lines
 440 
    #   Read input file and process as an array of lines
439 
    #
 441 
    #
440 
    foreach ( getInputLines($opt_infile) )
 442 
    foreach ( getInputLines($opt_infile) )
Line 624... Line 626...
624 
 
 626 
 
625 
    #
 627 
    #
626 
    #   Open the input file
 628 
    #   Open the input file
627 
    #
 629 
    #
628 
    open ( INFILE, "<$infile" ) || Error( "Cannot read from $infile", $! );
 630 
    open ( INFILE, "<$infile" ) || Error( "Cannot read from $infile", $! );
- 
 
 631 
    binmode(INFILE);
629 
 
 632 
 
630 
    #   Read the entire file and break into lines
 633 
    #   Read the entire file and break into lines
631 
    #   Need to handle files that are a mix of Unix and Windows line endings
 634 
    #   Need to handle files that are a mix of Unix and Windows line endings
632 
    #   Attempt to preserve the line style
 635 
    #   Attempt to preserve the line style
633 
 
 636