Chinaunix首页 | 论坛 | 博客
  • 博客访问: 96577
  • 博文数量: 46
  • 博客积分: 2510
  • 博客等级: 少校
  • 技术积分: 505
  • 用 户 组: 普通用户
  • 注册时间: 2008-04-22 19:56
文章分类
文章存档

2008年(46)

我的朋友

分类:

2008-05-24 22:59:48

perl语言中内置了大量的函数可供程序员使用:
 shift 
   $name1=shift(数组 @name)
  该函数是将数组name最左边的标量变量移出数组,然后赋给name1.如果shift中没有参数就作用与@_(一个子过程用来接外部参数的数组)或者是@AVGN(脚本用来接命令行参数的数组)
unshift
  my num=unshft(@num, ())
   将列表放在数组num的左边形成新数组num,返回num的元素个数。
sort
 %num=sort key %num
  按照num散列表中key的顺序排列该哈希表,返回排好的散列表
split
  split  /模式/ 字符串
     将字符串按照模式分割返回字符串数组。
exists
   exists 散列键值
     如果存在,返回true,否则返回false
stat
  @tmp=stat(文件描述符)
    返回文件描述符对应的文件的属性的一个含有13个元素的数组
keys
   @tmp=keys(%hash)
   $tmp=keys(%hash)
   在list上下文中返回hash中的键值列表,然后赋值给tmp数组
   在sclar上下文中返回hash中的键值的总数量,然后赋值给tmp标量
readline
   $tmp=readline file
   @tmp=readline  file
    在sclar上下文下读取file文件的一行数据,赋给tmp
    在list上下文下读取file文件的所有行数据,赋给tmp
glob
  @tmp=glob 正则表达式
     返回满足正则表达式的文件列表,赋给tmp
defined
   defined expr
       正则表达式定义返回true,不然返回false
  
阅读(1066) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~