http://qs1969.pair.com?node_id=223142


in reply to Re: New Line removal from both Unix & Win32
in thread New Line removal from both Unix & Win32

The code below is no longer getting an error but is failing to remove new lines from the end of files in the Unix environment
my $fh = Symbol::gensym(); open $fh, '+<$Conf[1]' or warn "$!"; binmode $fh; my $size = 4096; seek $fh, -$size, 2; # Locate the end of the file while (1) { $cur_pos = tell $fh; read $fh, $buf, $size; last if $buf =~ m/\S/s; seek $fh, -$size*2, 1; } $buf =~ m/(\s*)$/s; $cur_pos += $-[0] || 0; truncate $fh, ++$cur_pos if $cur_pos; close $fh;
Any ideas why

Thanks again