Perl inline replacement

Sometimes you need to replace something in a bunch of files. And this something is quite complex, so you can describe it only with regular expressions, or, by some other reason you need to use perl in your replacement string.

Here is a small sample I'm using:

perl -p -i -e "s/SEARCH_STRING/REPLACEMENT_STRIGN/g"

how to check amount of same items in file

cat /misc/proto_demo/xml/Indeed.xml | grep "" | wc -l

Nginx redirect www.example.com requests to example.com or vice versa

server {
  server_name  www.example.com;
  rewrite ^(.*) http://example.com$1 permanent;
}

server {
  server_name  example.com;
  Put here your domain hosting configuration.
}

Random password generate

for ((n=0;n<10;n++)); if="/dev/urandom" count="1"> /dev/null | uuencode -m -| sed -ne 2p | cut -c-8; done
dd if=/dev/urandom count=1 2> /dev/null | uuencode -m - | sed -ne 2p | cut -c-8
dd if=/dev/urandom count=1 2> /dev/null | md5sum | cut -c-26

mkisofs -iso-level 2 -J -joliet-long -l -D -relaxed-filenames -N -v -o test.iso PROXP.exe