weird problem

Hi, i posted about inserting new lines from a text file, so sorry about this new topic but i screwed up my last one :/ will try not to do this again.. so anyway im not sure why but after running this script a few times my file becomes empty.

open(FILE, "<myfile.txt");
my $txt = do { local $/; <FILE>};
$txt =~ s/\n{3,}/\n\n/g;
close FILE;

$txt =~ s/\r|\n//g;
$txt =~ s/ /rand() < .5 ? ' ' : "\n"/eg;

open(FILE, ">myfile.txt");
print FILE;
print FILE $txt;
close FILE;
[download]

Comment on weird problem Download Code
Re: weird problem by Riales (Friar) on Apr 20, 2012 at 21:09 UTC
Why do you do this: `$txt =~ s/\n{3,}/\n\n/g;` [download] When you're going to do this anyways: `$txt =~ s/\r\|\n//g;` [download] ? Also, I don't think you need that first `print FILE;` Also, try adding `or die $!` after your `open` calls.	[reply] [d/l] [select]
Re^2: weird problem by Anonymous Monk on Apr 20, 2012 at 21:12 UTC
I tried what you suggested, although it's neater it doesnt solve the problem..	[reply]
Re: weird problem by Anonymous Monk on Apr 20, 2012 at 22:49 UTC
This works just fine: `my $file = 'myfile.txt'; my $txt = do { local (@ARGV, $/) = $file; <> }; $txt =~ s/[\r\n]/ /g; $txt =~ s/ /rand() < 0.5 ? q{ } : "\n"/eg; open(my $fh, '>', $file) or die "$0: Can't open $file for write: $!"; print $fh $txt; close $fh;` [download]	[reply] [d/l]
Re^2: weird problem by Anonymous Monk on Apr 21, 2012 at 08:49 UTC
doesnt eventually empty the file, but it only works 2-3 times before it will no longer modify the text in the file. to be able to modify the text, when reading the file all lines must be restored (remove empty lines) and then repeat the process of adding newlines in randomly selected spaces.	[reply]


XP is just a number
	PerlMonks

weird problem

The best material for plates (tableware) is: