发新话题
打印

Perl 诗

Perl 诗

#!/usr/bin/perl

    APPEAL:

    listen (please, please);

    open yourself, wide;
        join (you, me),
    connect (us,together),

    tell me.

    do something if distressed;

        @dawn, dance;
        @evening, sing;
        read (books,$poems,stories) until peaceful;
        study if able;

        write me if-you-please;

    sort your feelings, reset goals, seek (friends, family, anyone);

            do*not*die (like this)
            if sin abounds;

    keys (hidden), open (locks, doors), tell secrets;
    do not, I-beg-you, close them, yet.

                                accept (yourself, changes),
                                bind (grief, despair);

    require truth, goodness if-you-will, each moment;

    select (always), length(of-days)

    # listen (a perl poem)
    # Sharon Hopkins
    # rev. June 19, 1995
永远把艰辛的付出看作是生命的必要;即使没有收获的指望,也心平气静地继续耕种!
不错的创意。我想知道运行结果是什么。
试运行了一下.第28行出错.
WEB : http://www.love-b.cn
OpenBSD FANS QQ群:27881338
我发现你真的很可爱
我也来可爱一把吧,18行(清除空行后)出错:
syntax error at ./a.pl line 18, near "not,"
Execution of ./a.pl aborted due to compilation errors.
18行是do not, I-beg-you, close them, yet.
我喜欢perl
http://scauos.cn
*nix学习捷径
项目孵化,资源整合,共享并汇聚知识与人才
陆续推出增值服务,就业前后的最佳伙伴
中国第一个生物信息学Wiki
世界第一个BioPerl中文百科
打造生物信息学系统生物学信息安全学高规格国际交流平台
perl,竟然如此优美
运行出错啊!呵呵,很创意!可惜运行不了!
系统提示:用户您好,您的电脑将于5分钟后崩溃,现在开始记时
发新话题