Perl:排除以特定文件扩展名结尾的文件

时间:2016-10-25 16:41:43

标签: regex perl regex-negation

我想将所有文件放在工作目录中,不包括例如以.pl结尾的文件。因此应该排除test.pl,但不能排除test.txt或test.xyz

表达式@Override protected void onSaveInstanceState(Bundle outState) { super.onSaveInstanceState(outState); outState.putInt(STATE_SELECTED_POSITION, mCurrentSelectedPosition); } @Override protected void onRestoreInstanceState(Bundle savedInstanceState) { super.onRestoreInstanceState(savedInstanceState); mCurrentSelectedPosition = savedInstanceState.getInt(STATE_SELECTED_POSITION, 0); Menu menu = navigationView.getMenu(); menu.getItem(mCurrentSelectedPosition).setChecked(true); } 匹配工作目录中的所有文件,似乎运行良好。排除以.pl结尾的文件的部分除外。我尝试了几个表达式,包括glob(".* *"),但似乎都没有。

1 个答案:

答案 0 :(得分:5)

一种常见的方法是使用grep排除列表中的项目:

my @files = grep { !/\.pl$/ } glob(".* *");