File I/O problem:/ - Programmers Heaven

Howdy, Stranger!

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

Categories

File I/O problem:/

ShinobiC0deShinobiC0de Posts: 6Member
I'm opening a text file with the open(); call, and then use an while() loop to store every line of that file into an array. However I have small problem: the array items retain the trailing newline characters that were read from the file. Is there some way to "remove" the trailing newline from a string?

//This is the particular code

open(LFILE, "$file");
@tsir = ();
while () {
push(@tsir, $_);
};

Comments

  • JonathanJonathan Posts: 2,914Member
    : I'm opening a text file with the open(); call, and then use an while() loop to store every line of that file into an array. However I have small problem: the array items retain the trailing newline characters that were read from the file. Is there some way to "remove" the trailing newline from a string?
    :
    : //This is the particular code
    :
    : open(LFILE, "$file");
    : @tsir = ();
    : while () {
    : push(@tsir, $_);
    : };
    :
    To remove any newline characters:-
    chomp for (@tsir);

    Your code could be shorter though - it is possible to use the diamond operator in array context to read the entire file.

    open(LFILE, "$file");
    @tsir = ;
    close LFILE;
    chomp for (@tsir);

    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.