Deleting line spacing - Programmers Heaven

Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

Categories

Deleting line spacing

EsmebabeEsmebabe Posts: 7Member
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.


Comments

  • JonathanJonathan Posts: 2,914Member
    : 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 "
    " } @lines;

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

    [code]open IFILE, "< input.txt";
    open OFILE, "> output.txt";
    while () {
    print OFILE $_ unless $_ eq "
    ";
    }
    close IFILE;
    close OFILE;[/code]

    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.");

Sign In or Register to comment.