in reply to Re^2: inserting new lines
in thread inserting new lines

To randomly select one of the three characters, you can use code like my $char = qw(; { })[rand 3];. You can then interpolate the result into a substitution that uses a look behind.

#11929 First ask yourself `How would I do this without a computer?' Then have the computer do it the same way.

Replies are listed 'Best First'.
Re^4: inserting new lines
by Anonymous Monk on Apr 20, 2012 at 20:41 UTC
    well the code that was posted by the other member (or you?) was actually a better idea, only problem is that after running the script a few times the file becomes empty. 
    #open file removing empty lines 
open(FILE, "<myfile.txt");
my $txt = do { local $/; <FILE>};
$txt =~ s/\n{3,}/\n\n/g;
close FILE;
#remove new lines
$txt =~ s/\r|\n//g; 
#insert newlines after a randomly selected space
$txt =~ s/ /rand() < .5 ? ' ' : "\n"/eg;

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

    [download]
[reply]
[d/l]
Re^4: inserting new line
by Anonymous Monk on Apr 20, 2012 at 20:46 UTC
    this is fine, only problem is that after a few runs the 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]
[reply]
[d/l]

In Section Seekers of Perl Wisdom