Conversion Perl Windows

**seyan7180** · 15/10/2014, 20h53

Bonsoir,

Voila, je voudrai convertir ce petit bout de code (d'affichage console) perl écrit sous linux pour la version WIndows
Par exemple je sais que echo signifiera Print , qu'il n'y a pas de switch case, ect
Es-ce possible d'obtenir de l'aide ?
merci

Code shell :

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
   #!/bin/bash 
    clear
    echo -e "\n\n\n\n\n\t\t\t\t\t\t\t\t"
    for i in My File Utility
    do
    echo -n -e "\t$i"
    sleep 1
    done
    # Function to implement main menu
    main_menu()
    {
    while [ "$choice" = "" ] # loop till user enters a choice
    do
    clear
    echo -e "\t\t\t\t\t My File Utility"
    echo -e "\t\t\t\t\t******************"
    cat <<XXXX # good use of hereis 
    1. File Functions
    2. Backup functions
    3. Exit
    XXXX
    	echo -n "Enter your choice: "
    read choice 
    done 
    case $choice in 
    1)
    	file_menu
    ;; 
    2)
    	backup_menu
    ;;
    3)
    	echo "Bye......, have a nice day."
    ;;
    *)
    	echo "Wrong Choice!"
    ;;
    esac # switch case ends
    }

**Lolo78** · 16/10/2014, 09h16

Euh, ce n'est pas du Perl, pour autant que je sache, mais du bash. Si le script avait été écrit en Perl, il ne nécessiterait sans doute pas de conversion (peut-être tout au plus une petite adaptation), mais ici, c'est du pur bash, donc hors sujet dans cette section du forum.

**Philou67430** · 16/10/2014, 09h24

Ce code (que tu aurais du encadrer avec une base [Code] n'est pas un source perl, mais un script bash.

Je suppose que tu souhaites donc porter ton script bash en perl ? (qu'il soit pour Linux ou pour Windows importe peu).