Cara memberi daftar yang dipisahkan koma sebagai argumen untuk perintah selanjutnya

Saya memiliki skrip s1yang menampilkan daftar angka yang dipisahkan dengan ',' misalnya 1,2,3,4. Sekarang saya ingin memberikan angka-angka ini ke skrip s2sebagai argumen, sehingga s2 akan dijalankan pada masing-masing dan menampilkan hasilnya dalam baris terpisah. Misalnya, jika s2 mengalikan angka dengan dua, ini akan menjadi hasil yang saya cari:

2
4
6
8

Yang saya lakukan sekarang adalah:

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

Tapi aku merasa seperti melakukannya dengan cara bodoh! Jadi pertanyaan saya adalah:

Apa cara yang tepat untuk melakukannya?

Masalah saya dengan solusi saya adalah memanggil xargs dua kali dan mengulangi input dua kali yang tentu saja tidak masuk akal bagi saya melalui kinerja! Jawabannya xargs -d "," -n1kelihatannya bagus, tapi saya tidak yakin apakah itu hanya dilakukan satu kali. Jika ya, harap verifikasi itu dalam jawaban Anda, dan saya akan menerimanya. By the way, saya lebih suka tidak menggunakan Perl karena masih iterasi dua kali dan juga Perl mungkin tidak ada pada banyak sistem.

Ini harus bekerja sama baiknya:

s1 | xargs -d "," -n1 s2

Kasus cobaan:

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

Hasil:

1
2
3
4

Jika s1menampilkan daftar yang diikuti oleh karakter baris baru, Anda ingin menghapusnya karena jika tidak panggilan terakhir akan dengan 4\nbukannya 4:

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

Jika s2dapat menerima beberapa argumen, Anda bisa melakukan:

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

yang sementara mengesampingkan IFS menjadi koma, semua dalam subkulit, sehingga s2melihat output s1dipecah oleh koma. Subshell adalah cara mudah untuk mengubah IFS tanpa menyimpan nilai sebelumnya atau meresetnya.

Versi sebelumnya dari jawaban ini salah, mungkin karena pengaturan IFS yang tersisa, merusak hasil. Terima kasih kepada ilkkachu karena menunjukkan kesalahan saya .

Untuk secara manual mengulang output dan menyediakannya secara individual s2, di sini menunjukkan penghematan & pengaturan ulang IFS:

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

atau jalankan bit IFS dalam subkulit seperti sebelumnya:

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

Coba ini:

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