Re: Remove the first word for each lines from a text file

Expanding on what Corion said, you second while loop is what is causing the problem. Instead of

    print $out $_ while s/^\s*\S+\s*//;
[download]

get rid of the inner while:

    s/^\s*\S+\s*//;
    print $out;
[download]

Comment on Re: Remove the first word for each lines from a text file Select or Download Code

Replies are listed 'Best First'.
Re^2: Remove the first word for each lines from a text file by Anonymous Monk on Dec 22, 2016 at 21:41 UTC
`s/^\s\S+\s//; print $out;` [download] Not quite, that prints the value of `$out` ("`GLOB(0xabc...)`") to the currently selected filehandle; the `print $out $_;` is necessary in this case.	[reply] [d/l] [select]
Re^3: Remove the first word for each lines from a text file by ExReg (Priest) on Dec 22, 2016 at 21:58 UTC
You are right. I blame it on my computer. It is out to get me toda	[reply]