Recent content by georgesmith

finally after much error this worked - crude tho it may be $ more george.pl #!/usr/bin/perl open(DOG,"/dw01/app/pwmart47/BkupFiles/custacct.sptd.200106130424") || die "Coul dn't open DOG\n$!\n"; open(CAT,">/dw01/app/pwmart47/BkupFiles/george.sptd.out") || die...

Mike Lacey provided me with the following PERL script it is currently executing /usr/bin/perl -w use strict; # just to keep me honest my $line_length = 1360; my $whole_file, $a_line; $whole_file = <>; # slurp the file into a variable. while($whole_file){ $a_line =...

We have PERL - leastways PERL -h gives me a response

OK so what I really wanted to do was split one record into many records each seperataed by a LF and not a carriage return - is PERL my best option how do I tell if we have it installed ? Thanks George

Actually success was premature I am not on solaris I and AIX I can split -bnn and get many files all of the required length each with one record in I then cat these all back together again hoping to end up with a file of just 1360 bytes CR 1360 bytes CR 1360 bytes CR etc but alas I just get back...

That worked Thanks

How do I take a file of nnnn bytes with no carriage returns and chop it into lines of nn bytes followed by a CR Thanks for yer help George