blocks|key|2669340|text|不幸的是，p4返回退出代码0，不管它是否找到了一些文件，或者它是否返回“在那个日期之后没有修改”消息。这意味着您必须解析输出。|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|2669341|最简单的解决方案可能是退出脚本if+$filelist[0]+=~+/+-+no+revision$s$+after+that+date\./。缺点是我们不知道这个信息有多“稳定”。Perforce的未来版本会准确地发出这条消息吗?或者它们是否有可能重言？|2669342|另一个选项是使用-s开关：my+$p4cmd+=+"p4+-s+files+-e+$files\@$previous_date,\@now";。这会导致p4在输出的每一行之前都加上“严重性”。如果找到一个文件，行将以info:开头，而“在该日期之后没有修改”将以error:开头。在我看来，这是比较稳定的:退出if+grep+/%5Eerror:/,+@filelist。注意最后一行；当您使用-s开关时，您将得到一条带有退出代码的额外行。|2669343|另一种选择是使用P4Perl。在这种情况下，您将得到作为结构化数据的结果，这将避免解析。这可以说是最优雅的，但您首先需要P4Perl模块。|2669344|entityMap^0|5|2|0|F|1M|0|8|2|D|1M|24|2|30|5|3N|6|4B|S|5F|2|0|0^^$0|@$1|2|3|4|5|6|7|N|8|@$9|O|A|P|B|C]]|D|@]|E|$]]|$1|F|3|G|5|6|7|Q|8|@$9|R|A|S|B|C]]|D|@]|E|$]]|$1|H|3|I|5|6|7|T|8|@$9|U|A|V|B|C]|$9|W|A|X|B|C]|$9|Y|A|Z|B|C]|$9|10|A|11|B|C]|$9|12|A|13|B|C]|$9|14|A|15|B|C]|$9|16|A|17|B|C]]|D|@]|E|$]]|$1|J|3|K|5|6|7|18|8|@]|D|@]|E|$]]|$1|L|3|-4|5|6|7|19|8|@]|D|@]|E|$]]]|M|$]]

Unfortunately, <code>p4</code> returns exit code 0 regardless of whether it finds some files or whether it returns the "no revision(s) after that date" message. That means you have to parse the output.

The simplest solution is probably to exit the script <code>if $filelist[0] =~ / - no revision$s$ after that date\./</code>. The downside is we don't know how "stable" that message is. Will future versions of Perforce emit this message exactly, or is it possible they would reword?

Another option is to use the <code>-s</code> switch: <code>my $p4cmd = "p4 -s files -e $files\@$previous_date,\@now";</code>. That causes <code>p4</code> to prepend the "severity" before every line of output. If a file is found, the line will start with <code>info:</code>, while the "no revision(s) after that date" will start with <code>error:</code>. That looks a bit more stable to me: exit <code>if grep /^error:/, @filelist</code>. Watch out for the last line; when you use the <code>-s</code> switch, you get an extra line with the exit code.

Yet another option would be to use P4Perl. In that case you'd get the results as structured data, which will obviate the parsing. That's arguably the most elegant, but you'd need the P4Perl module first.

blocks|key|3248226|text|如果数组没有填充，什么也不做。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|3248227|my+@filelist+=+`$p4cmd`;
good_bye()+unless+@filelist;++#+Say+goodbye+and+exit.

chomp+@filelist;|code-block|syntax|javascript|3248228|要抑制消息，只需将命令的stderr重定向到bitbucket：|3248229|my+$p4cmd+=+"p4+files+-e+$files\@$previous_date,\@now+2>+/dev/null";|3248230|entityMap^0|0|0|0|0^^$0|@$1|2|3|4|5|6|7|M|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|N|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|O|8|@]|9|@]|A|$]]|$1|I|3|J|5|D|7|P|8|@]|9|@]|A|$E|F]]|$1|K|3|-4|5|6|7|Q|8|@]|9|@]|A|$]]]|L|$]]

Just do nothing if the array isn't populated.

<pre><code>my @filelist = `$p4cmd`;
good_bye() unless @filelist; # Say goodbye and exit.

chomp @filelist;
</code></pre>

To suppress the message, just redirect stderr of the command to a bitbucket:

<pre><code>my $p4cmd = "p4 files -e $files\@$previous_date,\@now 2&gt; /dev/null";
</code></pre>

blocks|key|3248259|text|我建议使用-F标志来驯服输出：|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|3248260|my+$p4cmd+=+"p4+-F+%25depotFile%25+files+-e+$files\@$previous_date,\@now";|code-block|syntax|javascript|3248261|然后进行以下操作：|3248262|my+@filelist+=+`$p4cmd`;
good_bye()+unless+@filelist;++#+Say+goodbye+and+exit.|3248263|如果没有包含@filelist字段的输出行，则%25depotFile%25将为空，而且调用方现在不需要尝试从标准p4+files输出中解析depot路径。|3248264|如果您想进一步按摩p4+files输出，请查看p4+-e+files+(args)，以便您可以插入到-F中的不同字段是什么。|3248265|entityMap^0|5|2|0|0|0|0|6|9|N|B|1H|8|0|9|8|N|I|1E|2|0^^$0|@$1|2|3|4|5|6|7|U|8|@$9|V|A|W|B|C]]|D|@]|E|$]]|$1|F|3|G|5|H|7|X|8|@]|D|@]|E|$I|J]]|$1|K|3|L|5|6|7|Y|8|@]|D|@]|E|$]]|$1|M|3|N|5|H|7|Z|8|@]|D|@]|E|$I|J]]|$1|O|3|P|5|6|7|10|8|@$9|11|A|12|B|C]|$9|13|A|14|B|C]|$9|15|A|16|B|C]]|D|@]|E|$]]|$1|Q|3|R|5|6|7|17|8|@$9|18|A|19|B|C]|$9|1A|A|1B|B|C]|$9|1C|A|1D|B|C]]|D|@]|E|$]]|$1|S|3|-4|5|6|7|1E|8|@]|D|@]|E|$]]]|T|$]]

I suggest using the <code>-F</code> flag to tame the output:

<pre><code>my $p4cmd = "p4 -F %depotFile% files -e $files\@$previous_date,\@now";
</code></pre>

and then go ahead with the:

<pre><code>my @filelist = `$p4cmd`;
good_bye() unless @filelist; # Say goodbye and exit.
</code></pre>

<code>@filelist</code> will be empty if there are no lines of output containing a <code>%depotFile%</code> field, and now your caller doesn't need to try to parse the depot path out of the standard <code>p4 files</code> output.

If you want to massage the <code>p4 files</code> output further, take a look at <code>p4 -e files (args)</code> so you can see what the different fields are that you can plug into <code>-F</code>.

I am trying to code a Perl subroutine that returns an array of files that has been modified and submitted to the Perforce repository from <code>$previous_date</code> until <code>now</code>. This is how the subroutine looks like:

<pre><code>sub p4_files {
 my ($previous_date) = @_;

 my $files = "//depot/project/design/...rtl.sv"
 my $p4cmd = "p4 files -e $files\@$previous_date,\@now";

 my @filelist = `$p4cmd`;
 chomp @filelist;

 return @filelist;
}
</code></pre>

The subroutine works as expected if there are files submitted between the given dates. However, it happens that no new changes are made, and executing the <code>p4 files</code> command returns a message instead:

<pre><code>prompt% p4 files -e //depot/project/design/...rtl.sv\@25/05/2017,\@now
prompt% //depot/project/design/...rtl.sv\@25/05/2017,\@now - no revision(s) after that date.
</code></pre>

How should I handle this in my Perl script? I would like to exit the script when such a situation is encountered.

Handling Perforce message in Perl when there are no new files submitted

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

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

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

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

文章

问答

视频

学习中心

腾讯云实验室

直播

竞赛

腾讯云代码分析专区

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

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

腾讯云数据库专区

腾讯云顾问专区

腾讯云原生专区

腾讯混元专区

腾讯云TCE专区

腾讯云Lighthouse专区

腾讯云HAI专区

腾讯云Edgeone专区

腾讯云存储专区

腾讯云智能专区

腾讯轻联专区 

腾讯云开发专区

TAPD专区

腾讯轻量云游戏服专区

腾讯云最具价值专家

腾讯云架构师技术同盟

腾讯云创作之星

腾讯云开发者先锋

腾讯云代码助手

云原生构建

TAPD 敏捷项目管理

Cloud Studio

SDK中心

API中心

命令行工具

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

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

我正在尝试编写一个Perl子例程，它返回一个文件数组，这些文件已经被修改并从$previous_date到now提交到Perforce存储库。子程序如下所示：sub p4_files {    my ($previous_date) = @_;    my $files = "//depot/project/desig...

问在没有提交新文件的情况下处理Perl中的Perforce消息
EN

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问在没有提交新文件的情况下处理Perl中的Perforce消息EN