why does chomping a list remove all its elements

[Lowell Kirsh]

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

 

[Gunnar Hjalmarsson]

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.

 

[Jon Landenburer]

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.

 

[Ben Morrow]

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