如何为Ada命令行程序添加从管道读取输入的支持？

嘿，这事儿其实挺简单的！管道输入本质上就是让程序从标准输入（也就是平时终端键盘输入的那个流）读取数据，而Ada的Ada.Text_IO模块已经帮我们处理好了标准输入的细节——它本身就是一个File_Type对象，和你打开的普通文件用法完全一致。

我们只需要调整程序的逻辑：

• 如果有命令行参数（指定了文件名），就打开这个文件读取
• 如果没有命令行参数，就直接从标准输入（包括管道、重定向过来的数据流）读取

下面是修改后的完整代码：

procedure main is
   File : Ada.Text_IO.File_Type;
   Using_Standard_Input : Boolean := False; -- 标记是否使用标准输入
begin
   if Ada.Command_Line.Argument_Count = 1 then
      -- 有命令行参数，打开指定文件
      Ada.Text_IO.Open (File => File, Mode => Ada.Text_IO.In_File, 
                       Name => Ada.Command_Line.Argument (1));
   elsif Ada.Command_Line.Argument_Count = 0 then
      -- 没有参数，使用标准输入（管道/重定向都走这里）
      File := Ada.Text_IO.Standard_Input;
      Using_Standard_Input := True;
   else
      -- 参数数量不对，直接退出
      return;
   end if;

   -- 统一的读取处理逻辑，不管是文件还是标准输入都能用
   while not Ada.Text_IO.End_Of_File (File) loop
      declare
         Line : constant String := Ada.Text_IO.Get_Line (File);
      begin
         -- 这里写你的行处理逻辑
         Ada.Text_IO.Put_Line("处理行: " & Line); -- 示例输出，可替换成你的业务代码
      end;
   end loop;

   -- 只有打开的是外部文件时才需要关闭，标准输入不用手动关闭
   if not Using_Standard_Input then
      Ada.Text_IO.Close (File);
   end if;
end main;

关键细节说明： #

• Standard_Input的使用：它是Ada.Text_IO预定义的File_Type对象，直接赋值给你的File变量就行，不需要调用Open方法
• 关闭文件的判断：标准输入是系统管理的流，我们不需要手动关闭，所以用一个布尔变量标记是否使用了标准输入，避免错误操作
• 多场景兼容性：这个逻辑同时支持三种输入方式：
  1. 指定文件名：./main mydata.txt
  2. 管道输入：cat mydata.txt | ./main
  3. 输入重定向：./main < mydata.txt

这样修改后，你的程序就能完美适配两种输入场景啦！

内容的提问来源于stack exchange，提问作者NeoSer