Làm thế nào để thay thế văn bản ngẫu nhiên từ tập tin?

Làm cách nào tôi có thể thay thế ngẫu nhiên các chuỗi cụ thể trong một tệp văn bản bằng các chuỗi từ một tệp khác? Ví dụ:

file1.txt(file has more than 200 lines):
moonwalker@address.com
hansolo@address.com
anakinskywalker@address.com
obiwankenobi@address.com
darthvader@address.com

file2.txt(file has 10-20 lines):
@adress1.com
@adress2.com
@adress3.com
@adress4.com
@adress5.com

output.txt:
moonwalker@address4.com
hansolo@address1.com
anakinskywalker@address5.com
obiwankenobi@address2.com
darthvader@address3.com

Nếu bạn thực sự muốn một lựa chọn ngẫu nhiên, thì đây là một cách sử dụng awk:

awk '
  BEGIN{FS="@"; OFS=""} 
  NR==FNR{a[NR]=$0; n++; next} 
  {$2=a[int(1 + n * rand())]; print}
' file2.txt file1.txt
moonwalker@adress2.com
hansolo@adress2.com
anakinskywalker@adress5.com
obiwankenobi@adress1.com
darthvader@adress3.com

OTOH nếu bạn muốn hoán vị ngẫu nhiên các địa chỉ, tôi sẽ đề xuất một cái gì đó như

paste -d '' <(cut -d'@' -f1 file1.txt) <(sort -R file2.txt)
moonwalker@adress2.com
hansolo@adress1.com
anakinskywalker@adress5.com
obiwankenobi@adress4.com
darthvader@adress3.com

Bạn có thể thực hiện thuật toán này:

• Tải nội dung của file2.txtmột mảng
• Đối với mỗi dòng trong file1.txt:
  • Trích xuất phần tên
  • Nhận một địa chỉ ngẫu nhiên
  • In đầu ra được định dạng chính xác

Như thế này:

mapfile -t addresses < file2.txt
while IFS='' read -r orig || [[ -n "$orig" ]]; do
    ((index = RANDOM % ${#addresses[@]}))
    name=${orig%%@*}
    echo "$name${addresses[index]}"
done < file1.txt

(Cảm ơn đặc biệt đến @GlennJackman và @d PLAY vì những cải tiến.)

Bạn có thể sử dụng shuf(bạn có thể cần sudo apt install shuf) để xáo trộn các dòng của tệp thứ hai và sau đó sử dụng chúng để thay thế:

$ awk -F'@' 'NR==FNR{a[NR]=$1;next}{print a[FNR]"@"$2} ' file1 <(shuf file2)
moonwalker@adress3.com
hansolo@adress1.com
anakinskywalker@adress5.com
obiwankenobi@adress4.com
darthvader@adress2.com

shufchỉ đơn giản là ngẫu nhiên thứ tự của các dòng đầu vào của nó. Các awklệnh có đầu tiên sẽ đọc tất cả các file1 ( NR==FNRsẽ chỉ có đúng trong khi tập đầu tiên đang được đọc), và tiết kiệm trường thứ hai (trường được định nghĩa bởi @, vì vậy đây là tên miền) trong mảng kết hợp acó giá trị là các lĩnh vực và có khóa là số dòng. Sau đó, khi chúng ta đến tệp tiếp theo, nó sẽ chỉ in bất cứ thứ gì được lưu trữ acho số dòng này, cùng với những gì trong tệp 2 cho cùng một số dòng.

Lưu ý rằng điều này giả sử cả hai tệp có cùng số dòng và không thực sự là "ngẫu nhiên", vì nó sẽ không cho phép bất cứ điều gì được lặp lại. Nhưng đó trông giống như những gì bạn muốn yêu cầu.

Giải pháp Python 2.7 và 3

Giải pháp này thay thế lần xuất hiện đầu tiên của một chuỗi đã cho tùy ý (chuỗi kim kim) trong mỗi dòng của tệp đầu vào bằng một chuỗi mỗi lần được chọn ngẫu nhiên từ bộ dòng của danh sách chuỗi thay thế.

#!/usr/bin/python
from __future__ import print_function
import sys, random

needle = sys.argv[1]

if sys.argv[2] == '-':
    f_replacements = sys.stdin
else:
    f_replacements = open(sys.argv[2])
with f_replacements:
    replacements = [l.rstrip('\n') for l in f_replacements]
if not replacements:
    raise ValueError('No replacement strings given')

if len(sys.argv) <= 3 or sys.argv[3] == '-':
    f_in = sys.stdin
else:
    f_in = open(sys.argv[3])
with f_in:
    for s in f_in:
        rep = replacements[random.randrange(len(replacements))]
        print(s.rstrip('\n').replace(needle, rep, 1))

Việc neo kim vào đầu hoặc cuối chuỗi hoặc sử dụng các biểu thức chính quy hoàn toàn là điều gần như không đáng kể.

Sử dụng

python replace-random.py NEEDLE REPLACEMENTS-FILE [INPUT-FILE]

Thí dụ:

python replace-random.py '@address.com' file2.txt file1.txt

hoặc là

python replace-random.py '@address.com' file2.txt < file1.txt

Đây là một cách hay:

#!/usr/bin/perl
use warnings;
use strict;
use Tie::File;

tie my @file1,'Tie::File','file1.txt' or die "Can't open file1.txt\n";
tie my @file2,'Tie::File','file2.txt' or die "Can't open file2.txt\n";

for my $file_index (0..$#file1) {
   my $suffix = $file2[int(rand($#file2+1))];
   $file1[$file_index] =~ s/@.*$/$suffix/;
}

untie @file1;
untie @file2;

Một giải pháp bash khác. Nó sử dụng tính năng thay thế chuỗi tích hợp bash. Nó cũng giả sử chỉ file2.txtchứa các chuỗi thay thế. Nếu không, chúng có thể được lọc đầu tiên bằng cách sử dụnggrep -o <replace> file2.txt

Với shuf

#search string
Search="@address.com"
for lines in $(grep $Search file1.txt)
do 
    echo ${lines/$Search/$(shuf file2.txt -n 1)} 
done

Không có shuf(gần như nguyên chất bash)

Ở đây chúng ta phải tạo một hàm đầu tiên bắt chước shufnhư vậy

bshuf () 
{ 
    nlines=$(( $(wc -l < $1) + 1))
    rand=0
    while [ "$rand" -eq 0 ]; do
        rand=$(( $RANDOM % nlines ))
    done
    echo $(head -n $rand $1 | tail -1)
}

Sau đó, nó là tương tự

for lines in $(grep $Search file1.txt) 
do 
    echo ${lines/$Search/$(bshuf file2.txt)}
done

Kiểm tra:

$ for lines in $(grep $Search file1.txt); do echo ${lines/$Search/$(bshuf file2.txt)} ; done
moonwalker@adress4.com
hansolo@adress2.com
anakinskywalker@adress2.com
obiwankenobi@adress3.com
darthvader@adress5.com
$