Discussion :

[paissad]

Bonjour,
j'ai quelques fonctions bash que j'utilise pour personnaliser l'affichage des sorties etc ... de mes scripts
voici les 2 funtions shell associées que je veux convertir en perl pour mes scripts perl ....

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
frame()
{
   WIDTH=78
   STARS="*******************************************************************************"
   SPACES="                                                                               "
   printf "%s\n" "${STARS:1:$WIDTH}"
   while read line ; do
      HALF="${SPACES:1:$((($WIDTH-${#line})/2))}"
      LINE="$HALF$line$SPACES"
      printf "*%s*\n" "${LINE:1:$(($WIDTH-2))}"
   done
   printf "%s\n" "${STARS:1:$WIDTH}"
}
introduce(){
    echo -e "$txtgrn"
    printf "$1\n" | frame
    echo -e  "$txtrst \c "; sleep 3;
}

voici un exemple de sortie de la fonction introdude

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
******************************************************************************
*       Changing orig.tar.gz tarball ( debian/rules get-orig-source )        *
******************************************************************************

Comme vous le voyez, la fonction introduce centre et mes dans 1 centre et mets dans un cadre le texte donné en paramètre

Est ce que quelqu'un pourrait m'aider à écrire tout ça en perl ?
Ce que j'ai lu dans la doc de perl pour la fonction print & printf me semblent peu suffisant :/

Merci d'avance pour votre aide ...

[Schmorgluck]

Je voudrais bien essayer de t'aider, mais je ne m'y connais pas assez en bash pour comprendre cette notation :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

"${STARS:1:$WIDTH}"

Et je n'arrive pas à trouver de doc à ce sujet.

[Philou67430]

C'est dans le man de bash, "Parameter expansion".

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

"${STARS:1:$WIDTH}"

correspond en perl à

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

substr($STARS, 1, $WIDTH)