140 lines
4.3 KiB
Bash
140 lines
4.3 KiB
Bash
|
# -*- coding: utf-8 mode: sh -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8
|
|||
|
|
##@cooked nocomments
|
|||
|
|
module: base.str base_ "Fonctions de base: gestion des valeurs chaines"
|
|||
|
|
|
|||
|
|
function: base_strmid "Afficher la plage \$1 de la valeur \$2..*
|
|||
|
|
|
|||
|
|
La plage peut être d'une des formes 'start', '[start]:length'. Si start est
|
|||
|
|
négatif, le compte est effectué à partir de la fin de la chaine. Si length est
|
|||
|
|
négatif, il est rajouté à la longueur de la chaine à partir de start"
|
|||
|
|
function base_strmid() {
|
|||
|
|
local range="$1"; shift
|
|||
|
|
local str="$*"
|
|||
|
|
if [[ "$range" == *:-* ]]; then
|
|||
|
|
local max=${#str}
|
|||
|
|
[ $max -eq 0 ] && return
|
|||
|
|
local start="${range%%:*}"
|
|||
|
|
[ -n "$start" ] || start=0
|
|||
|
|
while [ "$start" -lt 0 ]; do
|
|||
|
|
start=$(($max$start))
|
|||
|
|
done
|
|||
|
|
max=$(($max-$start))
|
|||
|
|
local length="${range#*:}"
|
|||
|
|
while [ "$length" -lt 0 ]; do
|
|||
|
|
length=$(($max$length))
|
|||
|
|
done
|
|||
|
|
range="$start:$length"
|
|||
|
|
fi
|
|||
|
|
eval 'echo "${str:'" $range"'}"'
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
function: base_strrepl "Remplacer dans la valeur \$3..* le motif \$1 par la chaine \$2
|
|||
|
|
|
|||
|
|
\$1 peut commencer par l'un des caractères /, #, % pour indiquer le type de recherche"
|
|||
|
|
function base_strrepl() {
|
|||
|
|
local pattern="$1"; shift
|
|||
|
|
local repl="$1"; shift
|
|||
|
|
local str="$*"
|
|||
|
|
local cmd='echo "${str/'
|
|||
|
|
if [ "${pattern#/}" != "$pattern" ]; then
|
|||
|
|
pattern="${pattern#/}"
|
|||
|
|
cmd="$cmd/"
|
|||
|
|
elif [ "${pattern#\#}" != "$pattern" ]; then
|
|||
|
|
pattern="${pattern#\#}"
|
|||
|
|
cmd="$cmd#"
|
|||
|
|
elif [ "${pattern#%}" != "$pattern" ]; then
|
|||
|
|
pattern="${pattern#%}"
|
|||
|
|
cmd="$cmd%"
|
|||
|
|
fi
|
|||
|
|
cmd="$cmd"'$pattern/$repl}"'
|
|||
|
|
eval "$cmd"
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
function: base_strlcomp "transformer dans le flux en entrée en UTF-8 certains caractères en leur équivalent transformable en latin1.
|
|||
|
|
|
|||
|
|
si cette fonction est appelée avec des arguments, prendre \$* comme valeur du flux en entrée."
|
|||
|
|
function base_strlcomp() {
|
|||
|
|
if [ $# -gt 0 ]; then base_strlcomp <<<"$*"
|
|||
|
|
else LANG=fr_FR.UTF-8 sed $'
|
|||
|
|
s/[\xE2\x80\x90\xE2\x80\x91\xE2\x80\x92\xE2\x80\x93\xE2\x80\x94\xE2\x80\x95]/-/g
|
|||
|
|
s/[‘’]/\x27/g
|
|||
|
|
s/[«»“”]/"/g
|
|||
|
|
s/[\xC2\xA0\xE2\x80\x87\xE2\x80\xAF\xE2\x81\xA0]/ /g
|
|||
|
|
s/[œ]/oe/g
|
|||
|
|
s/[Œ]/OE/g
|
|||
|
|
s/[æ]/ae/g
|
|||
|
|
s/[Æ]/AE/g
|
|||
|
|
s/a\xCC\x80/à/g
|
|||
|
|
s/e\xCC\x81/é/g; s/e\xCC\x80/è/g; s/e\xCC\x82/ê/g; s/e\xCC\x88/ë/g
|
|||
|
|
s/i\xCC\x88/ï/g; s/i\xCC\x82/î/g
|
|||
|
|
s/o\xCC\x82/ô/g; s/o\xCC\x88/ö/g
|
|||
|
|
s/u\xCC\x88/ü/g; s/u\xCC\x82/û/g
|
|||
|
|
s/c\xCC\xA7/ç/g
|
|||
|
|
s/A\xCC\x80/À/g
|
|||
|
|
s/E\xCC\x81/É/g; s/E\xCC\x80/È/g; s/E\xCC\x82/Ê/g; s/E\xCC\x88/Ë/g
|
|||
|
|
s/I\xCC\x88/Ï/g; s/I\xCC\x82/Î/g
|
|||
|
|
s/O\xCC\x82/Ô/g; s/O\xCC\x88/Ö/g
|
|||
|
|
s/U\xCC\x88/Ü/g; s/U\xCC\x82/Û/g
|
|||
|
|
s/C\xCC\xA7/Ç/g
|
|||
|
|
'
|
|||
|
|
fi
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
function: base_strnacc "supprimer les accents dans le flux en entrée en UTF-8
|
|||
|
|
|
|||
|
|
si cette fonction est appelée avec des arguments, prendre \$* comme valeur du flux en entrée."
|
|||
|
|
function base_strnacc() {
|
|||
|
|
if [ $# -gt 0 ]; then base_strnacc <<<"$*"
|
|||
|
|
else LANG=fr_FR.UTF-8 sed '
|
|||
|
|
s/[à]/a/g
|
|||
|
|
s/[éèêë]/e/g
|
|||
|
|
s/[ïî]/i/g
|
|||
|
|
s/[ôö]/o/g
|
|||
|
|
s/[üû]/u/g
|
|||
|
|
s/[ç]/c/g
|
|||
|
|
s/[À]/A/g
|
|||
|
|
s/[ÉÈÊË]/E/g
|
|||
|
|
s/[ÏÎ]/I/g
|
|||
|
|
s/[ÔÖ]/O/g
|
|||
|
|
s/[ÜÛ]/U/g
|
|||
|
|
s/[Ç]/C/g
|
|||
|
|
'
|
|||
|
|
fi
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
function: base_stripnl "Supprimer dans le flux en entrée les caractères de fin de ligne
|
|||
|
|
|
|||
|
|
si cette fonction est appelée avec des arguments, prendre \$* comme valeur du flux en entrée."
|
|||
|
|
function base_stripnl() {
|
|||
|
|
if [ $# -gt 0 ]; then base_stripnl <<<"$*"
|
|||
|
|
else tr -d '\r\n'
|
|||
|
|
fi
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
function: base_nl2lf "transformer dans le flux en entrée les fins de ligne en LF
|
|||
|
|
|
|||
|
|
si cette fonction est appelée avec des arguments, prendre \$* comme valeur du flux en entrée."
|
|||
|
|
function base_nl2lf() {
|
|||
|
|
if [ $# -gt 0 ]; then base_nl2lf <<<"$*"
|
|||
|
|
else lawk 'BEGIN {RS="\r|\r\n|\n"} {print}'
|
|||
|
|
fi
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
function: base_nl2crlf "transformer dans le flux en entrée les fins de ligne en CRLF
|
|||
|
|
|
|||
|
|
si cette fonction est appelée avec des arguments, prendre \$* comme valeur du flux en entrée."
|
|||
|
|
function base_nl2crlf() {
|
|||
|
|
if [ $# -gt 0 ]; then base_nl2crlf <<<"$*"
|
|||
|
|
else lawk 'BEGIN {RS="\r|\r\n|\n"} {print $0 "\r"}'
|
|||
|
|
fi
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
function: base_nl2cr "transformer dans le flux en entrée les fins de ligne en CR
|
|||
|
|
|
|||
|
|
si cette fonction est appelée avec des arguments, prendre \$* comme valeur du flux en entrée."
|
|||
|
|
function base_nl2cr() {
|
|||
|
|
if [ $# -gt 0 ]; then base_nl2cr <<<"$*"
|
|||
|
|
else lawk 'BEGIN {RS="\r|\r\n|\n"; ORS=""} {print $0 "\r"}'
|
|||
|
|
fi
|
|||
|
|
}
|