Como fornecer uma lista separada por vírgula como argumentos para o próximo comando

Eu tenho um script s1que gera uma lista de números separados por ',' por exemplo 1,2,3,4. Agora, quero atribuir esses números ao script s2como argumentos, para que o s2 seja executado em cada um deles e produza o resultado em uma linha separada. Por exemplo, se s2 multiplica números por dois, este seria o resultado que estou procurando:

2
4
6
8

O que estou fazendo agora é:

s1 | xargs -d "," | xargs -n1 s2

Mas sinto que estou fazendo isso de uma maneira tão tola! Então, minha pergunta é:

Qual é a maneira correta de fazer isso?

Meu problema com a minha solução é que ele está chamando xargs duas vezes e iterando sobre a entrada duas vezes, o que não é razoável para meus olhos, é claro, por meio do desempenho! A resposta xargs -d "," -n1parece boa, mas não tenho certeza se está apenas repetindo uma vez. Caso isso aconteça, verifique isso em sua resposta e eu aceito. A propósito, prefiro não usar o Perl, pois ele ainda está iterando duas vezes e também o Perl pode não existir em muitos sistemas.

Isso deve funcionar igualmente:

s1 | xargs -d "," -n1 s2

Caso de teste:

printf 1,2,3,4 | xargs -d ',' -n1 echo

Resultado:

1
2
3
4

Se s1gerar essa lista seguida por um caractere de nova linha, você deverá removê-la, caso contrário a última chamada estaria com em 4\nvez de 4:

s1 | tr -d '\n' | xargs -d , -n1 s2

Se s2puder aceitar vários argumentos, você poderá:

(IFS=,; ./s2 $(./s1))

que substitui temporariamente o IFS por vírgula, tudo em um subshell, para que s2a saída seja s1dividida por vírgulas. O subshell é uma maneira abreviada de alterar o IFS sem salvar o valor anterior ou redefini-lo.

Uma versão anterior desta resposta estava incorreta, provavelmente devido a uma configuração restante do IFS, corrompendo os resultados. Obrigado a ilkkachu por apontar meu erro .

Para fazer um loop manual sobre as saídas e fornecê-las individualmente s2, demonstrando aqui a economia e a redefinição do IFS:

oIFS="$IFS"
IFS=,
for output in $(./s1); do ./s2 "$output"; done
IFS="$oIFS"

ou execute os bits IFS em um subshell como antes:

(
IFS=,
for output in $(./s1); do ./s2 "$output"; done
)

Tente o seguinte:

s1 | perl -pe 's/,/\n/g' | xargs -n1 s2