下面的Perl脚本(my.pl)既可以从命令行参数中的文件读取，也可以从标准输入(STDIN)读取:
while (<>) {
print($_);
}
Perl my.pl将从标准输入中读取，而Perl my.pl .txt将从a.txt中读取。这很方便。
Bash中也有类似的功能吗?
当前回答
以下是使用标准sh(在Debian上用Dash测试)的工作，相当可读，但这是一个品味问题:
if [ -n "$1" ]; then
cat "$1"
else
cat
fi | commands_and_transformations
详细信息:如果第一个参数非空，则cat该文件，否则cat标准输入。然后整个if语句的输出由command_and_transforms处理。
其他回答
这个很容易在终端上使用:
$ echo '1\n2\n3\n' | while read -r; do echo $REPLY; done
1
2
3
问题中的Perl循环从命令行上的所有文件名参数读取，如果没有指定文件，则从标准输入读取。如果没有指定文件，我看到的答案似乎都在处理单个文件或标准输入。
虽然经常被嘲笑为UUOC(无用地使用猫)，但有时猫是工作的最佳工具，这是有争议的:
cat "$@" |
while read -r line
do
echo "$line"
done
唯一的缺点是它创建了一个在子shell中运行的管道，因此while循环中的变量赋值之类的东西在管道之外是不可访问的。bash的方法是进程替换:
while read -r line
do
echo "$line"
done < <(cat "$@")
这使得while循环在主shell中运行，因此在循环中设置的变量可以在循环外访问。
#!/usr/bin/bash
if [ -p /dev/stdin ]; then
#for FILE in "$@" /dev/stdin
for FILE in /dev/stdin
do
while IFS= read -r LINE
do
echo "$@" "$LINE" #print line argument and stdin
done < "$FILE"
done
else
printf "[ -p /dev/stdin ] is false\n"
#dosomething
fi
运行:
echo var var2 | bash std.sh
结果:
var var2
运行:
bash std.sh < <(cat /etc/passwd)
结果:
root:x:0:0::/root:/usr/bin/bash
bin:x:1:1::/:/usr/bin/nologin
daemon:x:2:2::/:/usr/bin/nologin
mail:x:8:12::/var/spool/mail:/usr/bin/nologin
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
更准确的说……
while IFS= read -r line ; do
printf "%s\n" "$line"
done < file
