blocks|key|1444671|text|引用可以解决所有问题。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1444672|find+"$i"+-type+f|code-block|syntax|javascript|1444673|而且，你也不需要tail。只需交换$a和$b并在打印后退出。|offset|length|style|CODE|1444674|find+$i+-type+f+%7C+perl+-lne+'chomp(@files+=+<>);+my+$p+=+9;+foreach+my+$f+(sort+{+(stat($b))[$p]+<=>+(stat($a))[$p]+}+@files)+{+print+scalar+localtime((stat($f))[$p]),+"\t",+$f;+exit+}'|1444675|-l+(字母"ell")会在打印时为您添加换行符。|1444676|编辑：|BOLD|1444677|实际上根本不需要循环：|1444678|find++-type+f+%7C+perl+-lne+'chomp(@files+=+<>);+my+$p+=+9;+@files+=+sort+{+(stat($b))[$p]+<=>+(stat($a))[$p]+}+@files;+print+scalar+localtime((stat($files[0]))[$p]),+"\t",+$files[0]'|1444679|entityMap^0|0|0|8|4|H|2|K|2|0|0|0|2|0|0|3|0|0|0^^$0|@$1|2|3|4|5|6|7|Z|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|10|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|11|8|@$I|12|J|13|K|L]|$I|14|J|15|K|L]|$I|16|J|17|K|L]]|9|@]|A|$]]|$1|M|3|N|5|D|7|18|8|@]|9|@]|A|$E|F]]|$1|O|3|P|5|6|7|19|8|@$I|1A|J|1B|K|L]]|9|@]|A|$]]|$1|Q|3|R|5|6|7|1C|8|@$I|1D|J|1E|K|S]]|9|@]|A|$]]|$1|T|3|U|5|6|7|1F|8|@]|9|@]|A|$]]|$1|V|3|W|5|D|7|1G|8|@]|9|@]|A|$E|F]]|$1|X|3|-4|5|6|7|1H|8|@]|9|@]|A|$]]]|Y|$]]

Quoting fixes everything.

<pre><code>find "$i" -type f
</code></pre>

Also, you don't need <code>tail</code>. Just swap <code>$a</code> and <code>$b</code> and exit after you print.

<pre><code>find $i -type f | perl -lne 'chomp(@files = &lt;&gt;); my $p = 9; foreach my $f (sort { (stat($b))[$p] &lt;=&gt; (stat($a))[$p] } @files) { print scalar localtime((stat($f))[$p]), "\t", $f; exit }'
</code></pre>

And <code>-l</code> (letter "ell") appends newlines for you when printing.

Edit:

Actually there's no need for a loop at all:

<pre><code>find -type f | perl -lne 'chomp(@files = &lt;&gt;); my $p = 9; @files = sort { (stat($b))[$p] &lt;=&gt; (stat($a))[$p] } @files; print scalar localtime((stat($files[0]))[$p]), "\t", $files[0]'
</code></pre>

blocks|key|1445429|text|由于您只需处理当前目录，因此只能使用一条命令：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1445430|find+.+-type+f+%7C+perl+-ne+'chomp(@files+=+<>);+my+$p+=+9;+foreach+my+$f+(sort+{+(stat($a))[$p]+<=>+(stat($b))[$p]+}+@files)+{+print+scalar+localtime((stat($f))[$p]),+"\t",+$f,+"\n"+}'+%7C+tail+-1|code-block|syntax|javascript|1445431|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

As you only deal with the current directory, you can do it with one command only:

<pre><code>find . -type f | perl -ne 'chomp(@files = &lt;&gt;); my $p = 9; foreach my $f (sort { (stat($a))[$p] &lt;=&gt; (stat($b))[$p] } @files) { print scalar localtime((stat($f))[$p]), "\t", $f, "\n" }' | tail -1
</code></pre>

blocks|key|1445443|text|用Perl编写这一切似乎没那么麻烦了。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1445444|perl+-MFile::Find+-e+'find(sub{@f=((stat)[9],$File::Find::name)+if+-f+&&+$f[0]<(stat)[9]},".");print+"@f")'|code-block|syntax|javascript|1445445|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

Writing it all in Perl seems less messy

<pre><code>perl -MFile::Find -e 'find(sub{@f=((stat)[9],$File::Find::name) if -f &amp;&amp; $f[0]&lt;(stat)[9]},".");print "@f")'
</code></pre>

blocks|key|1445454|text|Perl？你没有bash，而且你喜欢写长行代码？;-)|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1445455|find+.+-type+f+-printf+'%25T%2B+%25p\n'+%7C+sort+-r+%7C+head+-n1|code-block|syntax|javascript|1445456|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

Perl? you don't have bash and you like writing long lines of code? ;-)

<pre><code>find . -type f -printf '%T+ %p\n' | sort -r | head -n1
</code></pre>

I found and tweaked this script to find the most recently modified file in a directory recursively. It only breaks when there is a space in the directory name. Can anyone help me adjust the script so it will read directories with space also?s

<pre><code>for i in *; do

find $i -type f | perl -ne 'chomp(@files = &lt;&gt;); my $p = 9; foreach my $f (sort { (stat($a))[$p] &lt;=&gt; (stat($b))[$p] } @files) { print scalar localtime((stat($f))[$p]), "\t", $f, "\n" }' | tail -1

done
</code></pre>

Find last modified file in a directory with white space

翻译质量差，导致语言生硬或混乱。

没有提供实际的解决方法或示例。

解答不清晰，无法理解或解决问题。

页面排版不美观，阅读体验差。

文章

问答

视频

学习中心

腾讯云实验室

直播

竞赛

腾讯云代码分析专区

腾讯iOA零信任安全管理系统专区

腾讯云架构师技术同盟交流圈

腾讯云数据库专区

腾讯云顾问专区

腾讯云原生专区

腾讯混元专区

腾讯云TCE专区

腾讯云Lighthouse专区

腾讯云HAI专区

腾讯云Edgeone专区

腾讯云存储专区

腾讯云智能专区

腾讯轻联专区 

腾讯云开发专区

TAPD专区

腾讯轻量云游戏服专区

腾讯云最具价值专家

腾讯云架构师技术同盟

腾讯云创作之星

腾讯云开发者先锋

腾讯云代码助手

云原生构建

TAPD 敏捷项目管理

Cloud Studio

SDK中心

API中心

命令行工具

涵盖代码开发、场景应用、自动测试全流程，助你从零构建专属AI助手

一站式MCP教程库，解锁AI应用新玩法

我找到并调整了这个脚本，以递归方式在目录中查找最近修改过的文件。只有当目录名中有空格时，它才会中断。谁可以帮助我调整脚本，使它将读取目录与空间也？for i in *; dofind $i -type f | perl -ne 'chomp(@files = <>); my $p = 9; foreach my $f ...

问在带有空格的目录中查找上次修改的文件
EN

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问在带有空格的目录中查找上次修改的文件EN