DSXchange

Code: Select all

      Text = Arg1

      If Text=OCONV(Text, "MCP") Then
         Ans = Text
      End Else
         LetterCount=LEN(Text)
         Ans = ""
         For i=1 to LetterCount
            letter=Text[i,1]
            AsciiLetter=SEQ(letter)
            Begin Case
               Case AsciiLetter < 32 Or AsciiLetter > 127
                  letter = " "
            End Case
            Ans := letter
         Next i
      End

Code: Select all

#!/usr/local/bin/perl -w

use strict;
use warnings;

my ($filepath, $filename, $newfilename, $line, $hold);
my @array;

$hold = '';

$filepath = "$ARGV[0]";
$filename = "$ARGV[1]";
$newfilename = "$filepath" . "fix_" . "$filename";

$filename = "$filepath"."$filename";

open(O,"< $filename")||die "Could not open $filename for processing!\n";
open(F,"> $newfilename")||die "Could not open $newfilename for processing!\n";

while ($line = <O>)
{
        if ($line =~ //)
        {
                $line =~ s// /g;
                $hold = $hold . $line;
                chomp $hold;
                next;
        }

        if (($line =~ /\n/) and (length($hold)> 0))
        {
                $hold = $hold . $line;
                print F $hold;
                $hold = '';
                next;
        }

        # if none of the other option have appeared then this is a normal row
        print F $line;
}
close (O);
close (F);

# rename($newfilename,$filename);