Функция чтения аргумент или STDIN

Question

Я noticed that с в Perl print, вы можете печатать из строки или из STDIN. У меня есть простая функция, которая может работать из строки

warn() 
{ 
    awk '{printf "\033[36m%s\033[m\n", $0}' <<< $1 
} 

или из STDIN

warn() 
{ 
    awk '{printf "\033[36m%s\033[m\n", $0}' 
} 

Однако я могу изменить функцию таким образом, чтобы он мог принимать либо как Perl?

Answer 1

warn() { 
    (if [ $# -gt 0 ] 
    then exec <<< $1 
    fi 
    awk '{printf "\033[36m%s\033[m\n", $0}' 
) 
} 

Команда exec позволяет выполнить перенаправление, которое сохраняется в следующих команд.