/^1.*\.txt$/
open (IN, $filepath) or die "open error: $!"; my @lines = <IN>; chomp @lines; my @result = grep /^1.*\.txt$/, @lines; print "@result\n";
37,719
社区成员
34,239
社区内容
加载中
试试用AI创作助手写篇文章吧