如何使用正则表达式而不是 glob 表达式来过滤文件名？

发布于 2024-12-14 14:57:15 字数 427 浏览 0 评论 0原文

我正在过滤目录中的文件：

chdir '/home/brian/mypics/';
@picArray   = <*.JPG *.GIF *.jpg *.gif *.PNG *.png *.jpeg>;
@soundArray = <*.mid *.MID *.wav *.WAV *.mp3 *.MP3 *.wma *.WMA *.ogg *.OGG>;

我知道必须有一种更好、更简单的方法，这种方法不区分大小写，并且可以允许像 gif|png|jpe?g 和 wma 这样的正则表达式|ogg|mp3|wave?|midi?。

我怎样才能有一个数组来捕获所有未知的文件类型（例如，如果一个是.exe，那么它将在一个数组中，而其他两个文件从未捕获它）？

原文

I am filtering files of a directory:

chdir '/home/brian/mypics/';
@picArray   = <*.JPG *.GIF *.jpg *.gif *.PNG *.png *.jpeg>;
@soundArray = <*.mid *.MID *.wav *.WAV *.mp3 *.MP3 *.wma *.WMA *.ogg *.OGG>;

I know there has to be a better and easier way, something that's case-insensitive and can allow for regex like gif|png|jpe?g and wma|ogg|mp3|wave?|midi?.

How can I have an array to catch all unknown file types (such if one was .exe, it would be in an array all of it's own as the other two never caught it)?

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

回眸一笑 2024-12-21 14:57:15

opendir/readdir 可以工作：

opendir(my $dh, "/tmp/");
my @files = readdir($dh);
my @picArray = grep { /\.(gif|png|jpe?g)$/i } @files;
my @soundArray = grep { /\.(wma|ogg|mp3|wave?|midi?)$/i } @files;

opendir/readdir would work:

opendir(my $dh, "/tmp/");
my @files = readdir($dh);
my @picArray = grep { /\.(gif|png|jpe?g)$/i } @files;
my @soundArray = grep { /\.(wma|ogg|mp3|wave?|midi?)$/i } @files;

回复收藏 0 原文

~没有更多了~