Useful Perl one liners

Search and replace

  • Search in file and replace a with b

perl -p -e 's/a/b/g' datei

  • Replace and make backup before

perl -p -i.old -e 's/a/b/g' datei

  • Recursivly replace files

find . -type f | xargs perl -p -e 's/a/b/g'

ASCII, Hex and Binary conversion

  • ASCII2Hex (urlencoded)

perl -e 'map { print "%"; printf("%x",ord($_)); } split(//,$ARGV[0]); print"\n";'

  • Hex2ASCII

perl -e 'map { print chr(hex($_)); } split(/%/,$ARGV[0]); print "\n";'

  • ASCII2Binary

perl -e 'map { print "$_ "; printf("%08b",ord($_)); print "\n"; } split(//,$ARGV[0]);'

  • Binary2ASCII

perl -e 'print chr(ord(pack("B*",$ARGV[0])))."\n";'

Base64

  • Encoding

perl -MMIME::Base64 -e 'print MIME::Base64::encode_base64($ARGV[0]) . "\n"' "BLA BLA BLA"

  • Decoding

perl -MMIME::Base64 -e 'print MIME::Base64::decode_base64($ARGV[0]) . "\n"' "QkxBIEJMQSBCTEE="

Make /etc/hosts to domain names

perl -n -e 'my @a=split(/\s*\s/,$_); print "$a[1]\tIN\tA\t$a[0]\n";' /etc/hosts >> domain.name.fwd