Shell + perl : Ini file parser

#!/bin/ksh

ini_parser()
{
 # Check if ini file exists
 if [ ! -f 1ドル ]; then
 echo "Erreur: le fichier a parser n'existe pas"
 return 0
 fi

 # Rewrite ini file in shell script 
 perl -lane 'if($_ =~ /^$/){$s="";next;}; if(m/^\[([^\]]+)\]$/g) { $s=1ドル;$s=~s/[^a-z0-9_]/_/g }; print $s.($s eq ""?"":"_").$_ if ($_ !~ m/^(\[|;)/ and $_ =~ m/^[^=]+=[^=]+/);print $s."=".$_, $s="" if($_ !~ m/^(\[|;)/ and $_ !~ m/^[^=]+=[^=]+/)' 1ドル >"${1}.tmp"

 # Call tmp shell script in bash
 . "${1}.tmp"

 # Remove tmp shell script after loading
 rm "${1}.tmp"
}

Related protips

Have a fresh tip? Share with Coderwall community!