我在while语句中将元素推入数组。每个元素是一个老师的名字。当循环结束时，数组中最后出现重复的教师名称。有时候，它们不是在数组中彼此相邻，有时它们是。
在完成获取值后，如何只打印数组中的唯一值？每次我想打印一个元素时，不必解析整个数组。
在所有东西都被推入数组之后，
- $faculty_len = @faculty;
- $i=0;
- while ($i != $faculty_len)
- {
- printf $fh '"'.$faculty[$i].'"';
- $i++;
- }
解决方法
- use List::MoreUtils qw/ uniq /;
- my @unique = uniq @faculty;
- foreach ( @unique ) {
- print $_,"\n";
- }