“Shell Curses”是一个脚本函数库，这些函数为 Shell 程序员提供了将基于文本的光标移动到屏幕上指定位置的能力。这种能力允许使用 Shell 脚本创建菜单和数据输入系统，而不需要已编译的库。这些函数非常类似于“C”语言的“Curses”库。

0 评论：

Dana French, 总裁, Mt Xia Inc.

2008 年 6 月 12 日

在 IBM Bluemix 云平台上开发并部署您的下一个应用。

开始您的试用

   #!/usr/bin/ksh93FPATH="/usr/local/functions/shellcurses"initscrclearmove 10 25addstr "Example 1: Hello World!"move 23 1refreshendwinexit 0

  #!/usr/bin/ksh93FPATH="/usr/local/functions/shellcurses"initscrclearmvaddstr 10 25 "Example 2: Hello World!"move 23 1refreshendwinexit 0

    #!/usr/bin/ksh93FPATH="/usr/local/functions/shellcurses"initscrclearPROMPT="Example 3: Enter some data...:"LEN="${#PROMPT}"(( COL = LEN + 2 + 1 ))mvaddstr 10 2 "${PROMPT}"move 10 ${COL}refreshANS=$( getstr )mvaddstr 15 2 "Here is the data you entered.: ${ANS}"move 23 1refreshendwinexit 0

  #!/usr/bin/ksh93FPATH="/usr/local/functions/shellcurses"SCRWID="80"initscrclear#### Display a screen header, centered on the screenHEADER="Shell Curses Example 4"HDRWID="${#HEADER}"(( HDRBEGIN = ( SCRWID - HDRWID ) / 2 ))mvaddstr 1 ${HDRBEGIN} "${HEADER}"MENU[0]="First Menu Line"MENU[1]="Second Menu Line"MENU[2]="Third Menu Line"MENU[3]="Fourth Menu Line"MENU[4]="Fifth Menu Line"ITEMCNT="${#MENU[@]}"MENUWID="${#MENU[0]}"#### Determine the maximum length of the longest menu itemfor MENULINE in "${MENU[@]}"do(( ${#MENULINE} > MENUWID )) && (( MENUWID = ${#MENULINE} + 4 ))done#### Display the numbered menu item, centered on the screen(( COL = ( SCRWID - MENUWID ) / 2 ))NBR="0"for MENULINE in "${MENU[@]}"domvaddstr $(( ++NBR + 4 )) ${COL} "${NBR} = ${MENULINE}"done#### Prompt the user for a selectionmvaddstr 22 2 "Enter the number of your selection: "mvaddstr 23 2 "( 0 = Exit )"#### Read the users selection from the screenANSWER="99"while [[ "_${ANSWER}" != _[0-9] ]] ||(( ANSWER < 1 )) ||(( ANSWER > ITEMCNT ))do[[ "_${ANSWER}" == _0 ]] && exit 0mvclrtoeol 22 40refreshANSWER="$( getstr )"done#### Display the item number selected by the userclearmvaddstr 1 ${HDRBEGIN} "${HEADER}"mvaddstr 4 2 "You selected menu item number ${ANSWER}"move 23 1refreshendwinexit ${ANSWER}

   #!/usr/bin/ksh93FPATH="/usr/local/functions/shellcurses"initscrSCRWID="${MAX_COLS}"SCRLEN="${MAX_LINES}"clear#### Display a two line header, centered on the screenHEADER1="Shell Curses Example 5"HEADER2="Data Entry Screen"mvaddstr 1 $(( ( SCRWID - ${#HEADER1} ) / 2 )) "${HEADER1}"mvaddstr 2 $(( ( SCRWID - ${#HEADER2} ) / 2 )) "${HEADER2}"#### Define the user entry promptsDOTS="........................................"PRMPT[1]="Enter an existing directory name"PRMPT[2]="Enter an existing regular file name"PRMPT[3]="Enter an alpha-numeric value"PRMPT[4]="Enter a numeric value"PRMPT[5]="Enter an executable file name"PCNT="${#PRMPT[@]}"#### Display the numbered data entry prompt with trailing dotsfor IDX in "${!PRMPT[@]}"do(( DOTWID = ( SCRWID / 2 ) - ( ${#PRMPT[IDX]} + 4 ) ))PRMPT[IDX]="${PRMPT[IDX]}${DOTS:0:${DOTWID}}"mvaddstr $(( IDX + 4 )) 2 "${IDX}: ${PRMPT[IDX]}...:"doneDATACOL="$(( ${#PRMPT[1]} + 10 ))"#### Prompt the user for a selectionmvaddstr $(( SCRLEN - 3 )) 2 "Select a line number to enter data:"#### Read the users data line number selection from the screenwhile :do#### Read the line number entered by the usermvclrtoeol $(( SCRLEN - 3 )) 40refreshANS="$( getstr )"#### clear the status line and re-display the default status messagemvclrtoeol $(( SCRLEN - 2 )) 2mvaddstr $(( SCRLEN - 2 )) 2 "( 0 = Exit )"#### Validate the user entered line number, if invalid go back and ask again[[ "_${ANS}" == "_0" ]] && exit 0if [[ "_${ANS}" != _+([[:digit:]]) ]] || (( ANS < 1 )) || (( ANS > PCNT ))thencontinuefi#### Read the line data from the user entrymvclrtoeol $(( ANS + 4 )) ${DATACOL}refreshDATA[${ANS}]="$( getstr )"mvclrtoeol $(( SCRLEN - 2 )) 2attrset rev#### Check the validity of the line 1 data as entered by the userif (( ANS == 1 )) && [[ ! -d "${DATA[${ANS}]}" ]]thenmvclrtoeol $(( ANS + 4 )) ${DATACOL}mvaddstr $(( SCRLEN - 2 )) 2 "ERROR: Invalid Directory Name"fi#### Check the validity of the line 2 data as entered by the userif (( ANS == 2 )) && [[ ! -f "${DATA[${ANS}]}" ]]thenmvclrtoeol $(( ANS + 4 )) ${DATACOL}mvaddstr $(( SCRLEN - 2 )) 2 "ERROR: Invalid Regular File Name"fi#### Check the validity of the line 3 data as entered by the userif (( ANS == 3 )) && [[ "_${DATA[${ANS}]}" != _+([[:alnum:]]) ]]thenmvclrtoeol $(( ANS + 4 )) ${DATACOL}mvaddstr $(( SCRLEN - 2 )) 2 "ERROR: Invalid Alpha-Numeric Value"fi#### Check the validity of the line 4 data as entered by the userif (( ANS == 4 )) && [[ "_${DATA[${ANS}]}" != _+([[:digit:]]) ]]thenmvclrtoeol $(( ANS + 4 )) ${DATACOL}mvaddstr $(( SCRLEN - 2 )) 2 "ERROR: Invalid Numeric Value"fi#### Check the validity of the line 5 data as entered by the userif (( ANS == 5 )) && [[ ! -x "${DATA[${ANS}]}" ]]thenmvclrtoeol $(( ANS + 4 )) ${DATACOL}mvaddstr $(( SCRLEN - 2 )) 2 "ERROR: File is not executable or does not exist"fiattroffrefreshdoneendwinexit ${ANS}