Shell Programming and Scripting

#! /opt/third-party/bin/perl

my($data);

open ( FILE, "< inputfile " ) || die "Unable to open file 'inputfile' <$!> \n";
open ( OUTFILE, "> outputfile " ) || die "Unable to open file 'outputfile' <$!> \n";

while ( read(FILE, $data, 1) == 1 ) {
  if( $data eq "\\" ) {
    if( read(FILE, $data, 1) == 1 ) {
      if( $data eq "n" ) {
        print OUTFILE "\n";
        next;
      }
      else {
        print OUTFILE "\\$data";
        next;
      }
    }
    else {
      last;
    }
  }
  print OUTFILE "$data";
}

close (FILE);
close (OUTFILE);

exit 0

#! /opt/third-party/bin/perl

my($data, $MAXCHAR_IN_LINE, $cnt);

$MAXCHAR_IN_LINE = 10;

open ( FILE, "< a" ) || die "Unable to open file 'a' <$!> \n";
open ( OUTFILE, "> b" ) || die "Unable to open file 'b' <$!> \n";

while ( read(FILE, $data, 1) == 1 ) {
  if( $cnt == $MAXCHAR_IN_LINE ) {
    $cnt = 0;
    print OUTFILE "\n";
  }
  else {
    $cnt++;
  }
  if( $data eq "\\" ) {
    if( read(FILE, $data, 1) == 1 ) {
      if( $data eq "n" ) {
        print OUTFILE "\n";
        next;
      }
      else {
        print OUTFILE "\\$data";
        next;
      }
    }
    else {
      last;
    }
  }
  print OUTFILE "$data";
}

close (FILE);
close (OUTFILE);

exit 0