Làm cách nào tôi có thể xóa một chuỗi khỏi mọi dòng của tệp trong cột thứ hai của tệp

Cấu trúc tập tin là như thế này:

34945,/data/file/system01/data/system/backups/filename.txt
393092,/data/file/system-03stby/data/system/backups/filename.extra.txt

Kết quả mà tôi đang tìm kiếm là thế này:

34945,/data/system/backups/filename.txt
393092,/data/system/backups/filename.extra.txt

Được cho

tệp con mèo $
34945,/data/file/system01/data/system/backups/filename.txt
393092,/data/file/system-03stby/data/system/backups/filename.extra.txt

sau đó

$ sed -E 's:,(/[^/]*){3}:,:' tệp
34945,/data/system/backups/filename.txt
393092,/data/system/backups/filename.extra.txt

hoặc tương tự

$ awk -F, 'BEGIN{OFS=FS} {sub(/([/][^/]*){3}/,"",$2)} 1' tệp
34945,/data/system/backups/filename.txt
393092,/data/system/backups/filename.extra.txt

Trong cả hai trường hợp, ([/][^/]*){3} là một biểu thức chính quy mở rộng khớp với một dấu gạch chéo, theo sau là 0 hoặc nhiều ký tự không phải dấu gạch chéo, cả 3 lần. Nếu hai thư mục đầu tiên không đổi, bạn có thể sử dụng một cái gì đó như sed 's:,/data/file/[^/]*:,:' hoặc awk -F, 'BEGIN{OFS=FS} {sub(/data[/]file[/][^/]*[/]/,"",$2)} 1'.

Hoặc tách và tham gia trong Perl:

$ perl -F, -lpe '@p = split /\//, $F[1]; $_ = tham gia ",", $F[0], (tham gia "/", @p[4..$#p])'
34945,dữ liệu/hệ thống/sao lưu/tên tệp.txt
393092,dữ liệu/hệ thống/sao lưu/tên tệp.extra.txt

Một cách Perl khác, ý tưởng cơ bản giống như câu trả lời của @steeldriver, nhưng ngắn gọn hơn:

$ perl -F'[,/]' -nle 'print "$F[0],/",join("/",@F[5..$#F])'
34945,/data/system/backups/filename.txt
393092,/data/system/backups/filename.extra.txt

Đọc người đàn ông cắt Và sử dụng cắt "-d," -f2- | cắt -d/ -f5- trên tập tin của bạn.