时间戳

首页 > 解决方案 > 如果输入以空格结尾，如何防止读取此循环？

ada - 如果输入以空格结尾，如何防止读取此循环？

问题描述

几分钟前我刚拿起 Ada，如果这看起来是一个微不足道的问题，请原谅我。

如果输入以“”字符结尾，我的程序中有一个循环会导致结束错误。我的程序适用于正确的输入，但我试图捕捉一些边缘情况。

> echo "1 2 3 " | ./eofloop3a

raised ADA.IO_EXCEPTIONS.END_ERROR : a-textio.adb:506

有问题的循环

procedure fun1 is
   F : Integer;
begin
  while (not End_Of_File) loop
    Get(F);
  end loop;
end fun1;

为什么会发生这种情况，有没有办法防止阅读越界？我在想 while 条件应该阻止这种情况发生。

标签： ada

解决方案

这是预期的结果。发生这种情况是因为“如果尝试跳过文件终止符，则程序End_Error会传播异常。” Get在您的示例输入的上下文中， after Gethas read 3，End_Of_File仍然False。Get然后“跳过任何前导空格”并在尝试读取“与数字文字的语法匹配的最长可能的字符序列”时遇到文件结尾。

一种解决方案是捕获异常并根据您的用例进行处理。例如，

procedure Fun1 is
   F : Integer;
begin
   while (not End_Of_File) loop
      Get (F);
   end loop;
exception
   when End_Error =>
      Put_Line ("Warning: Ignoring trailing non-numeric data.");
end Fun1;

Data_Error如果您的程序打算拒绝格式错误的整数文字，还可以考虑捕获。

推荐阅读