Calling bash function in perl find replace

Question

I'm a scripting noob and trying to get this find/replace working that injects salt strings in a wp-config.php file, replacing multiple placeholders.

    #!/bin/bash -e
    function salt() {
        uniqSalt=$(cat /dev/urandom | env LC_CTYPE=C tr -dc "a-zA-Z0-9!@#$%^&*()-_ []{}<>~\`+=,.;:/?|" | fold -w 64 | head -n 1)
        echo $uniqSalt
    }
    perl -pi -e "s/put your unique phrase here/$(salt)/g" wp-config.php

This works, but it only generates the salt once so they are all the same - of course it needs to generate it again for every match.

Is it possible to modify this to do what I want? Or is there a better way?

Thanks.

mpapec · Accepted Answer · 2015-06-03 12:15:31Z

2

You don't need bash and unnecessary piping through multiple system utilities,

perl -i -pe'
  BEGIN {
    @chars = ("a" .. "z", "A" .. "Z", 0 .. 9);
    push @chars, split //, "!@#$%^&*()-_ []{}<>~\`+=,.;:/?|";
    sub salt { join "", map $chars[ rand @chars ], 1 .. 64 }
  }
  s/put your unique phrase here/salt()/ge
' wp-config.php

answered Jun 3, 2015 at 12:15

mpapec

50.7k8 gold badges71 silver badges132 bronze badges

Sign up to request clarification or add additional context in comments.

1 Comment

phil Over a year ago

Brilliant - thanks @Сухой27 , that's much more elegant.

Collectives™ on Stack Overflow

Calling bash function in perl find replace

1 Answer 1

1 Comment

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

1 Comment

Your Answer

Sign up or log in

Post as a guest