Is there a code to delete the line spaces between sentences or words in a file?
I mean when i've word like this:

-> Input.txt



1.The file you are looking for might have been moved.


2.If you typed the address in the navigation bar.

i.e. maybe with 2-3 line spacing,and i need to remove the line spaces to:

-> Output.txt

1.The file you are looking for might have been moved.
2.If you typed the address in the navigation bar.

: Is there a code to delete the line spaces between sentences or words
: in a file?
Yup.

: I mean when i've word like this:
:
: -> Input.txt
:
:
:
: 1.The file you are looking for might have been moved.
:
:
: 2.If you typed the address in the navigation bar.
:
: i.e. maybe with 2-3 line spacing,and i need to remove the line spaces to:
:
: -> Output.txt
:
: 1.The file you are looking for might have been moved.
: 2.If you typed the address in the navigation bar.
:
Two methods:-

1) If the file is reasonably small, read the file into an array, so there is one line per element, then grep for non-empty lines.

@lines = grep { $_ ne "\n" } @lines;

2) If it's a bigger file, loop through it.

open IFILE, "< input.txt";
open OFILE, "> output.txt";
while (<IFILE>) {
    print OFILE $_ unless $_ eq "\n";
}
close IFILE;
close OFILE;

Jonathan

###
for(74,117,115,116){$::a.=chr};(($_.='qwertyui')&&
(tr/yuiqwert/her anot/))for($::b);for($::c){$_.=$^X;
/(p.{2}l)/;$_=$1}$::b=~/(..)$/;print("$::a$::b $::c hack$1.");