帮忙写一个脚函数，谢谢！！

wangchun26

UID: 32614
帖子: 11
积分: 25
在线时间: 10 分钟

1^# wangchun26 发表于 2006-06-26 22:31

帮忙写一个脚函数，谢谢！！

控制字符串长度的函数。需要向函数传递两个参数：实际字符串和字符串最大长度。超长时给予提示。循环持续到输入的字符串的长度小于最大字符串长度。:confused:　　　　　　

dearvoid

UID: 41384
帖子: 4
积分: 9
在线时间: 10 分钟

2^# dearvoid 发表于 2006-06-27 09:00

自己先练习一下呗　　　　　　

li-jiahuan

UID: 22298
帖子: 1
积分: 2
在线时间: 10 分钟

3^# li-jiahuan 发表于 2006-06-27 15:34

这一阵光看Perl
Bash都有些荒废了

复制内容到剪贴板

代码:

[0 N0.2048 huan@deb ~/svn_bash/practice ]$ ./length_test.sh abc 3
see u

[0 N0.2049 huan@deb ~/svn_bash/practice ]$ ./length_test.sh abc 2
str to long, try again: ab
see u

[0 N0.2050 huan@deb ~/svn_bash/practice ]$ cat length_test.sh
#! /bin/bash

len_test(){
      str=$1
      len=$2

      while [[ ${#str} > $len ]];do
            read -p "str to long, try again: " str
      done
      echo "see u"
}

len_test $1 $2

[0 N0.2051 huan@deb ~/svn_bash/practice ]$

海天一色

UID: 26825
帖子: 4
积分: 9
在线时间: 10 分钟

4^# 海天一色发表于 2006-07-06 16:28

${#str}
取变量长度 ,又会了一点.　　　　　　

li-jiahuan

UID: 22298
帖子: 1
积分: 2
在线时间: 10 分钟

5^# li-jiahuan 发表于 2006-07-06 17:52

复制内容到剪贴板

代码:

[2 No.2023 huan@deb ~]$ a="123"

[0 No.2024 huan@deb ~]$ awk 'END{print length('$a')}' /dev/null
3

[0 No.2025 huan@deb ~]$ awk 'BEGIN{print length('$a')}' /dev/null
3

[0 No.2026 huan@deb ~]$ perl -e "{ print length($a) }"
3
[0 No.2027 huan@deb ~]$ echo ${#a}
3

[0 No.2028 huan@deb ~]$

还是最后一个方便　　　　　　