«

Why does the following not work?

open(FILES, "< musiclist2.txt");
@files = <FILES>;
print "unchomped\n";
print @files;
print "chomped\n";
chomp @files;
print @files;

It gives:

unchomped
(Cream) - the very best of cream
(Janis Joplin) - Greatest Hits
(Jethro Tull) - Heavy Horses
(Jethro Tull) - Thick As A Brick
chomped


Lowell

Lowell Kirsh wrote:
> Subject: why does chomping a list remove all its elements

It doesn't.

Please post a *complete* script that people can copy and paste, and
that, unlike the code you posted, illustrates the problem you say you
have.

--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl

Interesting . When I did:
#!/bin/perl
@files = ("AAAAA", "BBBBB", "CCCCC", "DDDDDD");
print @files;
print "chomped\n";
chomp @files;
print @files;

print "test2\n";
@files = ("AAAAA\n", "BBBBB\n", "CCCCC\n", "DDDDDD\n");
print @files;
print "chomped\n";
chomp @files;
print @files;

I got:
AAAAABBBBBCCCCCDDDDDDchomped ##No reult of chomp because no CR
AAAAABBBBBCCCCCDDDDDDtest2
AAAAA
BBBBB
CCCCC
DDDDDD
chomped
AAAAABBBBBCCCCCDDDDDD[Hit return to continue] ## Yesiree it removed all the \n'
I learned something today.

Lowell Kirsh <> wrote:
> Why does the following not work?
>
> open(FILES, "< musiclist2.txt");
> @files = <FILES>;
> print "unchomped\n";
> print @files;
> print "chomped\n";
> chomp @files;
> print @files;
>
> It gives:
>
> unchomped
> (Cream) - the very best of cream
> (Janis Joplin) - Greatest Hits
> (Jethro Tull) - Heavy Horses
> (Jethro Tull) - Thick As A Brick
> chomped

Chances are that your prompt is overwriting the last line of output:
it won't have a newline at the end, remember. Try adding
print "\n";
on the end.

Ben

--
The cosmos, at best, is like a rubbish heap scattered at random.
- Heraclitus