Select Mathematica二维列表选择

我有一个2D列表-128行128个元素，这些数据是为ContourPlot设置的。我想从比某个ε小的组中快速选择项目

例如，使用3x3列表：p={{1,2,3}，{4,5,1}，{7,8,2}

我想挑选出<3的元素

{{1,2}，{1}，{2}

我知道选择[Flatten[p]，<3&]会起作用，但我会失去列表结构

有什么想法吗？我必须使用for循环吗

---

里克

谢谢你提供了一个具体的例子

In[1]:= p = {{1, 2, 3}, {4, 5, 1}, {7, 8, 2}};
In[2]:= q = p //. {h___, m_ /; m > 2, t___} -> {h, t}

Out[2]= {{1, 2}, {1}, {2}}

或者在英语中，在您重复地将每个具有可能为空的开始和任何大于2的元素以及可能为空的结束的列表替换为仅为开始和结束的列表后，使q等于p。我会写头尾，但这些在Mathematica中已经有了可能会让人困惑的含义。

Select[,，