Perl的行为，OP中给出的代码可以不带参数，也可以有多个参数，如果一个参数是一个连字符-这被理解为stdin。此外，文件名总是可能带有$ARGV。 到目前为止给出的答案都没有真正模仿Perl在这些方面的行为。这里有一个纯Bash的可能性。诀窍在于适当地使用exec。

#!/bin/bash

(($#)) || set -- -
while (($#)); do
   { [[ $1 = - ]] || exec < "$1"; } &&
   while read -r; do
      printf '%s\n' "$REPLY"
   done
   shift
done

文件名可在$1。

如果没有给出参数，则人为地将-设置为第一个位置参数。然后循环参数。如果参数不是-，则使用exec重定向filename中的标准输入。如果重定向成功，则使用while循环进行循环。我使用标准的REPLY变量，在这种情况下，您不需要重置IFS。如果你想要另一个名字，你必须像这样重置IFS(当然，除非你不想这样做，并且知道你在做什么):

while IFS= read -r line; do
    printf '%s\n' "$line"
done

下面的解决方案从文件读取(如果脚本调用时将文件名作为第一个参数$1)，否则从标准输入读取。

while read line
do
  echo "$line"
done < "${1:-/dev/stdin}"

替换${1:-…}如果定义了，则接受$1。否则，使用自己进程的标准输入的文件名。

我觉得这些答案都不能接受。特别是，接受的答案只处理第一个命令行参数，而忽略其余的。它试图模拟的Perl程序处理所有命令行参数。所以公认的答案甚至不能回答问题。

其他答案使用Bash扩展，添加不必要的“cat”命令，只适用于简单的输入输出回显情况，或者只是不必要的复杂。

然而，我必须给他们一些赞扬，因为他们给了我一些想法。以下是完整的答案:

#!/bin/sh

if [ $# = 0 ]
then
        DEFAULT_INPUT_FILE=/dev/stdin
else
        DEFAULT_INPUT_FILE=
fi

# Iterates over all parameters or /dev/stdin
for FILE in "$@" $DEFAULT_INPUT_FILE
do
        while IFS= read -r LINE
        do
                # Do whatever you want with LINE here.
                echo $LINE
        done < "$FILE"
done

两种主要方法:

要么将参数文件和stdin管道到单个流和处理，就像stdin(流方法) 或者重定向stdin(和参数文件)到一个命名管道和进程，就像一个文件(文件方法)

流的方法

对之前答案的小修改:

使用cat，而不是更少。这样更快，而且不需要分页。 使用$1从第一个参数文件读取(如果存在)或$*从所有文件读取(如果存在)。如果这些变量为空，则从stdin读取(像cat一样) # !/bin/bash 猫$* |…

文件的方法

写入一个命名管道有点复杂，但这允许你把stdin(或文件)当作一个单独的文件:

使用mkfifo创建管道。 并行化写作过程。如果未读取命名管道，则可能阻塞。 要将stdin重定向到子进程(在这种情况下是必要的)，使用<&0(与其他注释不同，这在这里不是可选的)。 # !/bin/bash mkfifo / tmp / myStream /tmp/myStream & #分离子进程(!) AddYourCommandHere /tmp/myStream #进程输入像一个文件， rm /tmp/myStream #正在清理

文件方法:变化

仅在没有给出参数的情况下创建命名管道。这对于从文件中读取可能更稳定，因为命名管道偶尔会阻塞。

#!/bin/bash
FILES=$*
if echo $FILES | egrep -v . >&/dev/null; then # if $FILES is empty
   mkfifo /tmp/myStream
   cat <&0 > /tmp/myStream &
   FILES=/tmp/myStream
fi
AddYourCommandHere $FILES     # do something ;)
if [ -e /tmp/myStream ]; then
   rm /tmp/myStream
fi

此外，它允许你迭代文件和stdin，而不是连接到一个单一的流:

for file in $FILES; do
    AddYourCommandHere $file
done

更准确的说……

while IFS= read -r line ; do
    printf "%s\n" "$line"
done < file

代码${1:-/dev/stdin}只理解第一个参数，所以你可以这样使用:

ARGS='$*'
if [ -z "$*" ]; then
  ARGS='-'
fi
eval "cat -- $ARGS" | while read line
do
   echo "$line"
done