วิธีการรวมชื่อไฟล์หลายบรรทัดเป็นหนึ่งเดียวด้วยตัวคั่นที่กำหนดเองได้อย่างไร

ฉันต้องการที่จะเข้าร่วมผลลัพธ์ของการls -1เป็นหนึ่งบรรทัดและคั่นด้วยสิ่งที่ฉันต้องการ

มีคำสั่ง Linux มาตรฐานที่ฉันสามารถใช้เพื่อให้บรรลุนี้

คล้ายกับตัวเลือกแรก แต่ไม่ใช้ตัวคั่นต่อท้าย

ls -1 | paste -sd "," -

แก้ไข : เพียงแค่ " ls -m " หากคุณต้องการให้ตัวคั่นของคุณเป็นจุลภาค

อ๊ะพลังและความเรียบง่าย!

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

เปลี่ยนเครื่องหมายจุลภาค " , " เป็นสิ่งที่คุณต้องการ โปรดทราบว่าสิ่งนี้รวมถึง "เครื่องหมายจุลภาคต่อท้าย"

สิ่งนี้จะแทนที่เครื่องหมายจุลภาคสุดท้ายด้วยการขึ้นบรรทัดใหม่:

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

ls -m รวมบรรทัดใหม่ที่อักขระที่มีความกว้างหน้าจอ (ตัวอย่างที่ 80)

Bash ส่วนใหญ่ ( lsภายนอกเท่านั้น):

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

การใช้readarray(aka mapfile) ใน Bash 4:

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

ขอบคุณ gniourf_gniourf สำหรับคำแนะนำ

ฉันคิดว่าอันนี้ยอดเยี่ยม

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

ORS คือ "ตัวคั่นเร็กคอร์ดเอาต์พุต" ดังนั้นตอนนี้บรรทัดของคุณจะถูกรวมเข้ากับเครื่องหมายจุลภาค

การรวมกันของการตั้งค่าIFSและการใช้"$*"สามารถทำสิ่งที่คุณต้องการ ฉันใช้ subshell ดังนั้นฉันจะไม่เข้าไปยุ่งกับ $ IFS ของ shell นี้

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

ในการจับเอาตพุต

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

ไม่แนะนำให้ใช้การแยกวิเคราะห์lsโดยทั่วไปดังนั้นวิธีที่ดีกว่าคือใช้เช่น:find

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

หรือโดยการใช้findและpaste:

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

สำหรับการเข้าร่วมทั่วไปหลายบรรทัด (ที่ไม่เกี่ยวข้องกับระบบแฟ้ม) การตรวจสอบ: กระชับและแบบพกพา“เข้าร่วม” บนระบบปฏิบัติการยูนิกซ์บรรทัดคำสั่ง

อย่าประดิษฐ์ล้อใหม่

ls -m

มันทำอย่างนั้น

แค่ทุบตี

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

คำสั่งนี้สำหรับแฟน ๆ PERL:

ls -1 | perl -l40pe0

นี่คือ 40 เป็นรหัสเลขฐานแปดสำหรับพื้นที่

-p จะประมวลผลทีละบรรทัดและพิมพ์

-l จะดูแลการแทนที่ส่วนท้าย \ n ด้วยอักขระ ascii ที่เราให้

-e เป็นการแจ้ง PERL ที่เรากำลังดำเนินการกับ command line

0 หมายความว่าไม่มีคำสั่งให้ดำเนินการ

perl -e0 เหมือนกับ perl -e ''

เพื่อหลีกเลี่ยงความสับสนของบรรทัดใหม่สำหรับ tr เราสามารถเพิ่มแฟล็ก -b ใน ls:

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

ดูเหมือนว่ามีคำตอบอยู่แล้ว

ถ้าคุณต้องการ a, b, cฟอร์แมตให้ใช้ls -m( คำตอบของ Tulains Córdova )

หรือถ้าคุณต้องการa b cฟอร์แมตให้ใช้ls | xargs( คำตอบของChris Jเวอร์ชันที่แปลแล้ว)

หรือถ้าคุณต้องการตัวคั่นอื่น ๆ|ให้ใช้ls | paste -sd'|'(การประยุกต์ใช้คำตอบของ Artem )

เพิ่มด้านบนของคำตอบ majkinetor นี่คือวิธีการลบตัวคั่นต่อท้าย (เนื่องจากฉันยังไม่สามารถแสดงความคิดเห็นภายใต้คำตอบของเขา):

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

เพียงแค่ลบจำนวนไบต์ต่อท้ายที่ตัวคั่นของคุณนับ

ฉันชอบวิธีนี้เพราะฉันสามารถใช้ตัวคั่นหลายตัว + ประโยชน์อื่น ๆ ของawk:

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

แก้ไข

ดังที่ Peter สังเกตเห็นการนับจำนวนลบจะไม่ได้รับการสนับสนุนในส่วนหัวของ MacOS รุ่นดั้งเดิม อย่างไรก็ตามเรื่องนี้สามารถแก้ไขได้ง่าย

coreutilsก่อนติดตั้ง "GNU Core Utilities เป็นยูทิลิตี้ไฟล์เชลล์และการจัดการข้อความพื้นฐานของระบบปฏิบัติการ GNU"

brew install coreutils

คำสั่งที่ให้บริการโดย MacOS จะถูกติดตั้งด้วยคำนำหน้า "g" ตัวอย่างเช่นglsเช่น

เมื่อคุณทำสิ่งนี้แล้วคุณสามารถใช้gheadซึ่งมีจำนวนลบไบต์หรือดีกว่าทำนามแฝง:

alias head="ghead"

วิธีที่ใจเย็น ๆ

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

หมายเหตุ :

นี่คือเส้นตรงในความซับซ้อนการแทนที่เพียงครั้งเดียวหลังจากที่ทุกบรรทัดถูกผนวกเข้ากับพื้นที่รูปแบบของ sed

@ คำตอบของ AnandRajaseka และคำตอบอื่น ๆ ที่คล้ายกันเช่นที่นี่คือ O (n²) เนื่องจาก sed ต้องทำการแทนที่ทุกครั้งที่มีการต่อบรรทัดใหม่เข้ากับ Pattern Space

เปรียบเทียบ,

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

หากเวอร์ชัน xargs ของคุณรองรับแฟล็ก -d สิ่งนี้จะทำงานได้

ls  | xargs -d, -L 1 echo

-d เป็นธงตัวคั่น

หากคุณไม่มี -d คุณสามารถลองทำสิ่งต่อไปนี้

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

xargs แรกช่วยให้คุณระบุตัวคั่นซึ่งเป็นเครื่องหมายจุลภาคในตัวอย่างนี้

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

คำอธิบาย:

-e- หมายถึงคำสั่งที่จะดำเนินการ
:a- เป็นเลเบล
/$/N- กำหนดขอบเขตของการจับคู่สำหรับกระแสในปัจจุบันและ (N) สายต่อ
s/\n/\\n/;- แทนที่ EOL ทั้งหมดด้วย\n
ta;- goto label a หากการแข่งขันประสบความสำเร็จ

ที่นำมาจากบล็อกของฉัน

คุณสามารถใช้ได้:

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

ls สร้างเอาต์พุตคอลัมน์หนึ่งเมื่อเชื่อมต่อกับไพพ์ดังนั้น -1ซ้ำซ้อน

ต่อไปนี้เป็นคำตอบสำหรับ perl อื่น ๆ ที่ใช้joinฟังก์ชันbuiltin ซึ่งไม่ปล่อยให้ตัวคั่นต่อท้าย:

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

ความคลุมเครือ -0777ทำให้ Perl อ่านอินพุตทั้งหมดก่อนที่จะเรียกใช้โปรแกรม

ทางเลือก sed ที่ไม่ปล่อยให้ตัวคั่นต่อท้าย

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

lsมีตัวเลือก-mในการกำหนดเขตเอาท์พุทด้วย", "เครื่องหมายจุลภาคและเว้นวรรค

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

การวางท่อผลลัพธ์นี้trเพื่อลบพื้นที่หรือเครื่องหมายจุลภาคจะอนุญาตให้คุณไพพ์ผลลัพธ์อีกครั้งtrเพื่อแทนที่ตัวคั่น

ในตัวอย่างของฉันฉันแทนที่ตัวคั่น,ด้วยตัวคั่น;

แทนที่;ด้วยตัวคั่นตัวอักษรตัวใดตัวหนึ่งที่คุณต้องการเนื่องจาก tr เฉพาะบัญชีสำหรับอักขระตัวแรกในสตริงที่คุณส่งเป็นอาร์กิวเมนต์

คุณสามารถใช้ chomp เพื่อรวมหลายบรรทัดในบรรทัดเดียว:

perl -e 'ในขณะที่ (<>) {if (/ \ $ /) {chomp; } print;} 'bad0> test

ใส่เงื่อนไขการแบ่งบรรทัดในถ้า statement.It สามารถเป็นอักขระพิเศษหรือตัวคั่นใด ๆ

Perl เวอร์ชันด่วนพร้อมการจัดการสแลชต่อท้าย:

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

อธิบาย:

• Perl - E: รัน Perl ด้วยคุณสมบัติรองรับ (พูด, ... )
• พูด: พิมพ์โดยส่งคืนผู้ให้บริการ
• เข้าร่วม ",", ARRAY_HERE: เข้าร่วมอาร์เรย์ด้วย ","
• แผนที่ {chomp; $ _} ROWS: ลบจากแต่ละบรรทัดที่ผู้ให้บริการส่งคืนและส่งคืนผลลัพธ์
• <>: stdin แต่ละบรรทัดเป็น ROW โดยมีแผนที่จะสร้างอาเรย์ของแต่ละแถว