URN Logo
UNIX Resources » Linux » China Linux Forum » Perl 编 程 » 4 » perl 代码 请教
announcement 声明: 本页内容为中国Linux论坛的内容镜像,文章的版权以及其他所有的相关权利属于中国Linux论坛和相应文章的作者,如果转载,请注明文章来源及相关版权信息。
Resources
China Linux Forum(finished)
Linux Forum(finished)
FreeBSD China(finished)
linuxforum.net
  业界新闻与评论
  自由软件杂谈
  IT 人生
  Linux软件快递
  翻译作坊
  Linux图书与评论
  GNU Emacs/XEmacs
  Linux 中文环境和中文化
  Linux桌面与办公软件
  Linux 多媒体与娱乐版
  自由之窗Mozilla
  笔记本电脑上的Linux
  Gentoo
  Debian 一族
  网络管理技术
  Linux 安装与入门
  WEB服务器和FTP服务器
  域名服务器和邮件服务器
  Linux防火墙和代理服务器应用
  文件及打印服务器
  技术培训与认证
  Linux内核技术
  Linux 嵌入技术
  Linux设备驱动程序
  Linux 集群技术
  LINUX平台数据库
  系统和网络安全
  CPU 与 编译器
  系统计算研究所专栏
  Linux下的GUI软件开发
  C/C++编程版
  PHP 技 术
  Java&jsp技术
  Shell编程技术
  Perl 编 程
  Python 编 程
  XML/Web Service 技术
  永远的Unix
  FreeBSD世界
   
perl 代码 请教
perl 代码 请教 - jing04 [2004-08-31 13:16 | 294 byte(s)]
 
Re: perl 代码 请教 - ryanfishtail [2004-09-28 15:06 | 695 byte(s)]
 
Re: perl 代码 请教 - DanceDanceDance [2004-08-31 14:34 | 37 byte(s)]
 
Subject: perl 代码 请教
Author: jing04    Posted: 2004-08-31 13:16    Length: 294 byte(s)
[Original] [Print] [Top]
下面两行代码是在perl中, 在源程序中,我发现有许多qq| 或 map , 我不知何意.
<th align=left>|.$locale->text('Notes').qq|</th>;


........
map { print "$column_data{$_} " } @column_index;

----
thanks
[Original] [Print] [Top]
Subject: Re: perl 代码 请教
Author: DanceDanceDance    Posted: 2004-08-31 14:34    Length: 37 byte(s)
[Original] [Print] [Top]
perldoc -f qq
perldoc -f map
----
It's better to burn out than to fade away...
[Original] [Print] [Top]
Subject: Re: perl 代码 请教
Author: ryanfishtail    Posted: 2004-09-28 15:06    Length: 695 byte(s)
[Original] [Print] [Top]
我只能回答map的问题:
map可以用来对一个列表(@val类型)变量的内容进行处理的函数,对列表中的每个元素进行处理,然后再把处理后的结果以列表的形式返回。列表中的每个元素默认的放入$_中

格式:map BLOCK, LIST
map EXPRESSION, LIST

例如:
FILE1文件中的内容如下:
abc def g
hijk lmn
opq rst

程序段:
open FILE1 '...';
@lines=<FILE1>; #此时@lines中有3个元素,分别为每一行的内容
@words = map {split ' ', substr($_, 0, -1)} @lines; #substr的目的是去掉元素最后的换行符

结果@words中为('abc', 'def', 'g', 'hijk', 'lmn', 'opq', 'rst')
[Original] [Print] [Top]
« Previous thread
多个参数怎么传给子函数
Perl 编 程
4
Next thread »
这行perl5代码什么意思
     

Copyright © 2007 UNIX Resources Network, All Rights Reserved.      About URN | Privacy & Legal | Help | Contact us
备案序号: 京ICP备05006143    webmaster: webmaster@unixresources.net
This page created on 2008-07-17 04:09:01, cost 0.045035839080811 ms.