[Date Prev][Date Next][Thread Prev][Thread Next] [Search] [Date Index] [Thread Index]

[MacPerl-AnyPerl] Mac to linux perl problem



Anyone know why I get ^H (escape character?) inserted into the output 
of this script infront of the 0\1 replacement on a linux machine, it 
works a treat under macperl?

---------------------
#!/usr/bin/perl
print "This script takes a CSV file and normalizes the date to 
03/12/87. \nWhat file do you want to convert? ";
chomp ($filename = <STDIN>);
open (THATFILE, "$filename") || die "cannot open $filename: $!";
open (OTHERFILE, ">output.xls") || die "cannot open output.xls";
while (<THATFILE>) {
	if (s/\b(\d)(\d\d)(19)(\d\d)/\b0\1\/\2\/\4,/g) {
	}	else {
	(s/\b(\d\d)(\d\d)(19)(\d\d)/\b\1\/\2\/\4/g)
}
print OTHERFILE $_;
---------------------

any optimised suggestions also appreciated, the output file will be 
imported to Excel on a windows machine




--------------------------------------------------------------------
Richard Allen:	      <rallen@easynet.co.uk>

"The illiterate of the 21st century will not be those who cannot read
and write but those who cannot learn, unlearn and relearn."
- Alvin Toffler
--------------------------------------------------------------------

==== Want to unsubscribe from this list?
==== Send mail with body "unsubscribe" to macperl-anyperl-request@macperl.org