Bagaimana cara menggabungkan beberapa baris nama file menjadi satu dengan pembatas khusus?

Saya ingin menggabungkan hasil ls -1menjadi satu baris dan membatasi dengan apa pun yang saya inginkan.

Apakah ada perintah Linux standar yang dapat saya gunakan untuk mencapai ini?

Mirip dengan opsi pertama tetapi menghilangkan pembatas trailing

ls -1 | paste -sd "," -

EDIT : Cukup " ls -m " Jika Anda ingin pembatas menjadi koma

Ah, kekuatan dan kesederhanaan!

ls -1 | tr '\n' ','

Ubah koma " , " menjadi apa pun yang Anda inginkan. Perhatikan bahwa ini termasuk "trailing koma"

Ini menggantikan koma terakhir dengan baris baru:

ls -1 | tr '\n' ',' | sed 's/,$/\n/'

ls -m termasuk baris baru pada karakter lebar layar (misalnya ke-80).

Sebagian besar Bash (hanya lseksternal):

saveIFS=$IFS; IFS=$'\n'
files=($(ls -1))
IFS=,
list=${files[*]}
IFS=$saveIFS

Menggunakan readarray(alias mapfile) di Bash 4:

readarray -t files < <(ls -1)
saveIFS=$IFS
IFS=,
list=${files[*]}
IFS=$saveIFS

Terima kasih kepada gniourf_gniourf untuk sarannya.

Saya pikir ini luar biasa

ls -1 | awk 'ORS=","'

ORS adalah "pemisah rekaman keluaran" jadi sekarang baris Anda akan digabungkan dengan koma.

Kombinasi pengaturan IFSdan penggunaan "$*"dapat melakukan apa yang Anda inginkan. Saya menggunakan subkulit jadi saya tidak mengganggu $ IFS shell ini

(set -- *; IFS=,; echo "$*")

Untuk menangkap output,

output=$(set -- *; IFS=,; echo "$*")

Parsing lssecara umum tidak disarankan , jadi cara alternatif yang lebih baik adalah menggunakan find, misalnya:

find . -type f -print0 | tr '\0' ','

Atau dengan menggunakan finddan paste:

find . -type f | paste -d, -s

Untuk penggabungan umum beberapa baris (tidak terkait dengan sistem file), periksa: Ringkas dan portabel "gabung" pada baris perintah Unix .

Jangan menemukan kembali roda.

ls -m

Itu persis seperti itu.

hanya bash

mystring=$(printf "%s|" *)
echo ${mystring%|}

Perintah ini untuk penggemar PERL:

ls -1 | perl -l40pe0

Di sini 40 adalah kode ascii oktal untuk ruang.

-p akan memproses baris demi baris dan mencetak

-l akan mengurus penggantian trailing \ n dengan karakter ascii yang kami sediakan.

-e adalah untuk memberi tahu PERL bahwa kita sedang melakukan eksekusi baris perintah.

0 berarti sebenarnya tidak ada perintah untuk dieksekusi.

perl -e0 sama dengan perl -e ''

Untuk menghindari kemungkinan kebingungan baris baru untuk tr kita bisa menambahkan flag -b ke ls:

ls -1b | tr '\n' ';'

Sepertinya jawabannya sudah ada.

Jika Anda ingin a, b, cmemformat, gunakan ls -m( jawaban Tulains Córdova )

Atau jika Anda ingin a b cmemformat, gunakan ls | xargs(versi sederhana jawaban Chris J )

Atau jika Anda ingin pembatas lain seperti |, gunakan ls | paste -sd'|'(aplikasi jawaban Artem )

Menambahkan di atas jawaban majkinetor, berikut adalah cara menghilangkan pembatas trailing (karena saya belum bisa mengomentari jawabannya):

ls -1 | awk 'ORS=","' | head -c -1

Hapus saja trailing byte yang dihitung oleh pembatas Anda.

Saya suka pendekatan ini karena saya bisa menggunakan pembatas multi-karakter + manfaat lain dari awk:

ls -1 | awk 'ORS=", "' | head -c -2

EDIT

Seperti yang Peter perhatikan, jumlah byte negatif tidak didukung dalam versi kepala MacOS asli. Namun ini dapat dengan mudah diperbaiki.

Pertama, instal coreutils. "Utilitas Inti GNU adalah utilitas manipulasi file, shell dan teks dasar sistem operasi GNU."

brew install coreutils

Perintah yang disediakan oleh MacOS juga diinstal dengan awalan "g". Sebagai contoh gls.

Setelah Anda melakukan ini, Anda dapat menggunakan gheadyang memiliki jumlah byte negatif, atau lebih baik, buat alias:

alias head="ghead"

Cara sed,

sed -e ':a; N; $!ba; s/\n/,/g'
  # :a         # label called 'a'
  # N          # append next line into Pattern Space (see info sed)
  # $!ba       # if it's the last line ($) do not (!) jump to (b) label :a (a) - break loop
  # s/\n/,/g   # any substitution you want

Catatan :

Ini linear dalam kompleksitas, menggantikan hanya sekali setelah semua baris ditambahkan ke Pola Space.

@ AnandRajaseka menjawab , dan beberapa jawaban serupa lainnya, seperti di sini , adalah O (n²), karena sed harus melakukan penggantian setiap kali baris baru ditambahkan ke Pola Space.

Untuk membandingkan,

seq 1 100000 | sed ':a; N; $!ba; s/\n/,/g' | head -c 80
  # linear, in less than 0.1s
seq 1 100000 | sed ':a; /$/N; s/\n/,/; ta' | head -c 80
  # quadratic, hung

Jika versi xargs Anda mendukung flag -d maka ini akan berfungsi

ls  | xargs -d, -L 1 echo

-d adalah bendera pembatas

Jika Anda tidak memiliki -d, maka Anda dapat mencoba yang berikut ini

ls | xargs -I {} echo {}, | xargs echo

Xargs pertama memungkinkan Anda untuk menentukan pembatas yang merupakan koma dalam contoh ini.

sed -e :a -e '/$/N; s/\n/\\n/; ta' [filename]

Penjelasan:

-e- menunjukkan perintah yang akan dieksekusi
:a- adalah label
/$/N- mendefinisikan ruang lingkup kecocokan untuk arus dan (ext) garis
s/\n/\\n/;- menggantikan semua EOL dengan \n
ta;- label goto a jika pertandingan berhasil

Diambil dari blog saya .

Kamu bisa menggunakan:

ls -1 | perl -pe 's/\n$/some_delimiter/'

lsmenghasilkan satu output kolom ketika terhubung ke pipa, sehingga -1redundan.

Inilah jawaban perl lainnya menggunakan joinfungsi builtin yang tidak meninggalkan pembatas trailing:

ls | perl -F'\n' -0777 -anE 'say join ",", @F'

Yang tidak jelas -0777membuat perl membaca semua input sebelum menjalankan program.

sed alternatif yang tidak meninggalkan pembatas trailing

ls | sed '$!s/$/,/' | tr -d '\n'

lsmemiliki opsi -muntuk membatasi output dengan ", "koma dan spasi.

ls -m | tr -d ' ' | tr ',' ';'

perpipaan hasil ini truntuk menghilangkan spasi atau koma akan memungkinkan Anda untuk menyalurkan hasilnya lagi truntuk mengganti pembatas.

dalam contoh saya, saya mengganti pembatas ,dengan pembatas;

ganti ;dengan pembatas satu karakter apa pun yang Anda sukai karena tr hanya menghitung karakter pertama dalam string yang Anda berikan sebagai argumen.

Anda dapat menggunakan chomp untuk menggabungkan beberapa baris dalam satu baris:

perl -e 'while (<>) {if (/ \ $ /) {chomp; } print;} 'bad0> test

menempatkan kondisi garis istirahat di if pernyataan. Ini dapat berupa karakter khusus atau pembatas apa pun.

Versi Perl cepat dengan penanganan garis miring:

ls -1 | perl -E 'say join ", ", map {chomp; $_} <>'

Untuk menjelaskan:

• perl -E: jalankan Perl dengan fitur-fitur yang mendukung (katakanlah, ...)
• katakan: cetak dengan pengembalian pembawa
• bergabung dengan ",", ARRAY_HERE: bergabung dengan array dengan ","
• map {chomp; $ _} ROWS: hapus dari setiap baris operator kembali dan mengembalikan hasilnya
• <>: stdin, setiap baris adalah ROW, ditambah dengan peta itu akan membuat array dari setiap ROW