如何将随机字符串附加到文件中所有出现的另一个字符串

Question

我正在尝试编写一个 bash 脚本来修改文件中某个字符串的所有出现。

我有一个包含一堆文本的文件，其中出现了 url。所有网址都采用以下格式：http://goo.gl/abc23（即 goo.gl/，后跟 4 或 5 个字母数字字符）。

我想做的是将一个字符串附加到所有 url。我设法（在用户Dan Fego 的帮助下）使用 sed 完成了这项工作，但它只能通过附加一个静态字符串来工作。

我正在寻找一种将不同的字符串附加到每次出现的方法。假设我有一个函数generatestring，它每次都回显一个不同的字符串。我想将不同的生成字符串附加到每个 url。 http://goo.gl/abc23 将变为 http://goo.gl/abc23?GeneratedString1，http://goo.gl/JB007 将变为 http://goo.gl/JB007?GeneratedString2 等等。

有人知道这是否可以做到吗？有人告诉我 perl 是要走的路，但我对 perl 的经验为零。这就是我在这里问的原因。

提前感谢您的帮助。

Answer 1

ETA：假设 URL 嵌入在其他文本中：

$ perl -lnwe 's#http://goo.gl/\w{5}\K\b# "?" . rand(100) #ge; print' googl.txt

例如：

$ cat googl 
random text here, and perhaps some html <a href="http://goo.gl/abc23">
more stuff http://goo.gl/abc23 foo fake link http://foo.bar/abc12
longer http://goo.gl/abc23123123 foo fake link http://foo.bar/abc12
$ perl -lnwe 's#http://goo.gl/\w{5}\K\b# "?" . rand(100) #ge; print' googl
random text here, and perhaps some html <a href="http://goo.gl/abc23?69.998515">
more stuff http://goo.gl/abc23?26.186867532985 foo fake link http://foo.bar/abc12
longer http://goo.gl/abc23123123 foo fake link http://foo.bar/abc12

-l chomps 文件并向print. 添加换行符-n 在脚本周围添加了while(<>) 循环，这基本上意味着它从参数文件名或从STDIN 读取。 \K 表示“保留匹配的文本”，\b 是单词边界，这样就不会匹配部分字符串。

请注意，它仍将匹配http://goo.gl/abc12/foo，但由于我不知道您的数据是什么样的，您必须确定哪些边界是可接受的。

当然，rand(100) 只是作为您打算使用的任何功能的占位符。

如果你需要脚本版本，这里是解析后的代码：

use strict;
use warnings;

BEGIN { $/ = "\n"; $\ = "\n"; }
while (<>) {
    chomp;
    s[http://goo.gl/\w{5}\K\b]['?' . rand(100);]eg;
    print;
}

Answer 2

如果每行中的 URL 不是单独的，您可以这样做：

#!/usr/bin/perl
use strict;
use warnings;

sub generate {
    my $i = shift;
    return "GeneratedString$i";
}
my $i = 0;
while(my $line = <>) {
    $line =~ s~(http://\S+)~$1 . "?" . &generate($i++)~eg;
    print $line;
}

用法：

test.pl file_to__modify

输出：

http://goo.gl/abc23?GeneratedString1
http://goo.gl/JB007?GeneratedString2

Answer 3

你可以用很多语言做到这一点，但在 Perl 中它非常简单：

#!/usr/bin/perl

use strict;

use constant MAX_RANDOM_STRING_LENGTH => 5;

my $regex_url = '(http://goo.gl/\w{5})';

my @alphanumeric = ("A".."Z", "0".."9");
my $random_cap = $#alphanumeric + 1;

sub generate_string
{
    my $string = "?";
    for (my $i = 0; $i < MAX_RANDOM_STRING_LENGTH; $i++)
    {
        $string .= $alphanumeric[int(rand($random_cap))];
    }
    return $string;
}

my @input = <>;

for(@input)
{   
    my $cur = $_;
    while ($cur =~ /$regex_url/)
    {
        $cur = $';
        my $new_url = $1 . generate_string();       
        s/$1/$new_url/g;
    }
}

print(@input);

用法：

script_name.pl < input.txt > output.txt

Answer 4

这可能对你有用：

gs(){  echo $(tr -cd '[:alnum:]' </dev/urandom | head -c5); }
export -f gs
cat <<\! file
> http://goo.gl/abc23
> http://goo.gl/JB007
> bunch of text http://goo.gl/qwert another bunch of text
> another bot http://goo.gl/qwert another bot http://goo.gl/qaza
!
sed '\|http://goo\.gl/[0-9a-zA-Z]\{4,5\}\>|{s//&?'\''$(gs)'\''/g;s/^/echo '\''/;s/$/'\''/}' file |
sh
http://goo.gl/abc23?0Az23
http://goo.gl/JB007?ugczB
bunch of text http://goo.gl/qwert?LDW27 another bunch of text
another bot http://goo.gl/qwert?U9my2 another bot http://goo.gl/qaza?Ybtlp