Help for this page

Select Code to Download


  1. or download this
    open(MYINPUTFILEONE, "inbndtrk1.txt");
open(MYINPUTFILETWO, "inbndtrk2.txt");
...
my @linestwo = <MYINPUTFILETWO>;
close (MYINPUTFILEONE);
close (MYINPUTFILETWO);
  2. or download this
    printf ("%-15s %-15s\n", "=================================");
printf ("%-15s %-15s\n", "| INBOUND TRACK 1 | INBOUND TRACK 2 |");
...
my @field2 = split(":");
my $format2 = "%-5s %-6s\n"; 
printf ($format2, $field2[1], $field2[2]);
  3. or download this
    foreach (@linesone, @linestwo) {
chomp;
my @field2 = split(":");
my $format2 = "%-5s %-6s\n"; 
printf ($format2, $field2[1], $field2[2]);
  4. or download this
    __DATA__
1:B&O:101
...
__DATA__
1:CSXT:1001
2:CSXT:1002