How do I remove all undefs from array?

问题

While reading from a configuration file in Perl there might be cases when a line is invalid and it does not need to get added to my array of valid lines. Since I'm using a for loop here, even the invalid lines create an undef entry. How can I remove all them afterwards?

Thanks!

回答1:

@array = grep defined, @array;

来源：https://stackoverflow.com/questions/11122977/how-do-i-remove-all-undefs-from-array