免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
最近访问板块 发新帖
查看: 1723 | 回复: 5
打印 上一主题 下一主题

<< 符号的使用方法 [复制链接]

论坛徽章:
0
跳转到指定楼层
1 [收藏(0)] [报告]
发表于 2009-08-19 20:13 |只看该作者 |倒序浏览
请问这个符号的使用在perldoc的那个手册 ?
搜索不支持字符,没有找到在那点  ...

比如看到可以这样使用
print <<END
hello !
END

不知道还有什么用法?  谢谢!

[ 本帖最后由 linuxty 于 2009-8-19 20:21 编辑 ]

论坛徽章:
0
2 [报告]
发表于 2009-08-19 20:24 |只看该作者
package Fayland;
use strict;use warnings;
use vars qw/$VERSION/; $VERSION = '0.033';

@_ = qw/Blog/2008 Journal/2005 Talks Services/;
print <<Introduction;

Yup, I'm fayland. Welcome 2 my site. Enjoy!
欢迎来访。此为 fayland 的个人站点。

A Chinese guy who love Perl only less than his girl.
喜欢用 Perl 做所有可能的事。
Inrtoduction
my $Summary = <<;

    * 2006-3-11 moving from Journal/2005 to Doodle/2006
    * 2005-5-10 I'm the maintainer of China.pm for now.
    * 2005-4-23 Finally I release the Eplanet-Beta, Enjoy!
    * 2005-3-28 It's roughly done. Still need more work. See this journal for more details.
    * 2005-3-26 I want to use Catalyst to build my new site. It may take several days. God bless me.

sub directory {

  for (@_) {
      /^CPAN$/ && $q->redirect('CPAN');
      /books?/i && $q->redirect('Books');
      /Synopsis/i && $q->redirect('Synopsis');
      -e $_ && $q->redirect('$_');
      die 'What are u looking for? my email?';
  }
}

# Contact

my $email = join('', 'fayland', '@', 'gmail', '.', 'com');
1; # let mummy happy

论坛徽章:
0
3 [报告]
发表于 2009-08-19 20:52 |只看该作者
perlop perlop | less -p 'here-doc'

论坛徽章:
0
4 [报告]
发表于 2009-08-20 11:03 |只看该作者

回复 #3 DQP 的帖子

^_^ 谢谢

论坛徽章:
0
5 [报告]
发表于 2009-08-20 12:53 |只看该作者
最后结束的为什么是“1;”而不是“;”

论坛徽章:
0
6 [报告]
发表于 2009-08-20 15:53 |只看该作者

回复 #5 xiaobing927 的帖子

模块最后要有一个1。
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号-6 北京市公安局海淀分局网监中心备案编号:11010802020122 niuxiaotong@pcpop.com 17352615567
未成年举报专区
中国互联网协会会员  联系我们:huangweiwei@itpub.net
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP