Select Code to Download

Select or download this

#!/usr/bin/perl -w

######################################################################
+########

Select or download this

#!/usr/bin/perl
use warnings;
use strict;

######################################################################
+########

Select or download this

open FH, "&lt;:encoding(UTF-16)", "$file_folder\\$ori_datafile" or die
+ "can't open file";

...
open (FIXLOG, ">$log_folder\\$fix_log") or die "can't open file";
open (ERRLOG, ">$log_folder\\$error_log") or die "can't open file";
open (FIXRPT, ">$log_folder\\$rptfile") or die "can't open file";

Select or download this
```
   chop;  # aviod \n in last field;
```

Select or download this

   $ori_line_number=$ori_line_number+1;

Select or download this
```
   $ori_line_number += 1;
```
Select or download this
```
   $ori_line_number++;
```
Select or download this
```
   $pipe_thisline=($_ =~ tr/\|/\|/);
```
Select or download this
```
   $pipe_thisline = tr/|//;
```

Select or download this

  if ($pipe_thisline eq $right_pipes) {

...

        if ( $pipe_thisline > $right_pipes ) {

Select or download this

  if ($ori_line_number eq 1) { print FIXRPT "Report on Fixing Line Bre
+aks in CT_Vendor_Summary File\n\n";
...
...
...

            elsif ($pipe_sum eq $right_pipes ) {