Perl one-liner:从数组中删除路径,只获取路径中的姓氏,如basename

Perl one-liner: 从数组中删除路径, 只获取路径中的姓氏, 如 basename

要完成这个任务，您需要使用Perl编程语言。下面是一个Perl one-liner示例，用于从数组中删除路径，并只获取路径中的姓氏：

@names = ("John Doe", "Jane Smith", "Bob Johnson", "Mary Johnson");
@without_path = map { $_->[1] } grep { !/^\// } @names;
print "@without_path\n";

这个示例代码首先定义了一个包含四个名字的数组。然后，使用map和grep函数来过滤出路径中的姓氏。map函数将每个元素传递给$_->[1]，这会导致仅保留第二个元素（姓氏）。grep函数会过滤出没有/符号的元素，从而保留路径。最后，使用print语句将结果输出到控制台。

请注意，这个示例假设姓氏在路径中。如果您的数据集有不同的结构，您可能需要对代码进行相应的修改。