一、unix与windows下的差别

由于perl在最初是unix下的工具，现在虽然perl已经移植到流行的平台上：windows系统，但是运用起来却是有哪么一点差别，这一点需要引起我们的注意。

1、文件运算符

在unix下perl一共有27个文件运算符可以使用，这些运算符使得我们在不打开文件的情况下就可以获得文件的各种信息。但是在windows平台下，我们只能使用其中四个运算符，但万幸的是这４个运算符功能不错，基本能满足我们的需要，这就是下面的那４个运算符：

-d 测试文件是不是一个目录
-e 测试文件是否存在
-s 测试文件的大小
-w 测试文件是否是可写的

　　前两个运算符返回的是布尔值（即真或假），第３个运算符返回文件的大小（以字节作为返回方式）。下面是使用方法：

if(-e ‘perl.exe’){
print ‘file size is:’-s’perl.exe’;
}
else{
print ‘can’t find perl.exen’;
}
(-w ‘somefile’)||die “cannot write to somefilen”;

2、邮件的发送 Read the rest of this entry »

[code]<?php
set_time_limit(0);
header("Connection: Keep-Alive");
header("Proxy-Connection: Keep-Alive");
for($i=0; $i<1000; $i++) {
   print 'fuck man!'.$i.'<br>';
   flush();
   sleep(3);
   clearstatcache();
}
?>[/code]

作者：zjl_perl 中国Perl协会 (2005-06-28 10:24:21)
你是否觉得perl中关于模块的文档有些难懂？好的，这里有一个世界上最简单的模块，它将用于展示(demonstrate)Exporter模块所有的特性，另外还有一段使用这个模块的脚本。同时，我们也会给出一个有关于@INC的简短说明，最后，还要讲一下有些关于using warnings和use模块的使用。
下面是这个模块的内容：

MyModule.pm
package MyModule;

use strict;
use Exporter;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);

$VERSION     = 1.00;
@ISA         = qw(Exporter);
@EXPORT      = ();
@EXPORT_OK   = qw(func1 func2);
%EXPORT_TAGS = ( DEFAULT => [qw(&func1)],
                Both    => [qw(&func1 &func2)]);

sub func1  { return reverse @_  }
sub func2  { return map{ uc }@_ }

1; Read the rest of this entry »