人体精品一二三区,青青免费在线视频,自拍偷拍亚洲视频

ivaneeo — Thu, 20 Apr 2006 12:56:00 GMT

��点敎ͼ�
   7.25e45   #可以直接用科学计数法定义
   -65e24
   -12e-12
   -1.2E-23

十进制整敎ͼ�
   61298040283768   #�q�里整数到底有多��位看不太清
   61_298_040_283_768   #�q�样��清楚了�Q?br />
非十�q�制整数�Q?br />   0377   #八进制数
   0xff   #十六�q�制�?br />   0b1111111   #二进制数
   注：有两个进制�{换函敎ͼ�oct()和hex().
      oct(144);   #�q�里把一个八�q�制数�{换�ؓ10�q�制�?br />      100
      hex(64);   #�q�里把一个十六进制数转换�?0�q�制�?br />      100

数字操作�W�：
   perl会自动识别计��结果是整数�q�是��点数�?br />   例：10.2   /   0.3   #整数34
            10   /   3   #��点�?.3333333.....

   2 ** 3   #�q�里的阶乘很有用的！
   8
   注：复数可以查找CPAN Math::Complex模块�?br />
文本
   单引�?br />      注：单引��L��字符串不能��用�{义和变量�?br />      例：'hello\n'
            hello\n

   双引号��用的转义�W?br />      形式                转义
      \n                     newline
      \r                     回�R
      \t                     tab
      \f                     换纸
      \b                     退格键
      \a                     bell
      \e                     Escape�?br />      \007                 八进制数
      \x7F                 十六�q�制�?br />      \cC                  控制字符
      \\                     \
      \"                     "
      \l                     下一个字�W��{换�ؓ��写
      \L                     到\E�l�束的所有的字符转换为小�?br />      \u                     下一个字�W��{换�ؓ大写
      \U                     到\E�l�束的所有的字符转换为大�?br />      \Q                     到\E�l�束的所有的字符中不是英文单词的加�{义符�?br />                                 例：print "a \Qfd d %\E";
                                          a fd\ d\ \%
      \E                     \L,\U,\Q的结束符�?img src ="http://www.aygfsteel.com/ivanwan/aggbug/42222.html" width = "1" height = "1" />

ivaneeo 2006-04-20 20:56 发表评论

ivaneeo — Thu, 20 Apr 2006 10:15:00 GMT

一�D�perl代码�Q?br /> #!/usr/bin/perl -w
@lines = `perldoc -u -f atan2`;
上面的代码可以调用perl的perldoc工具�q�且�q�回所有的�pȝ��信息。真是太��了�Q?img src ="http://www.aygfsteel.com/ivanwan/aggbug/42206.html" width = "1" height = "1" />

ivaneeo 2006-04-20 18:15 发表评论

ivaneeo — Tue, 18 Apr 2006 12:39:00 GMT

use POSIX qw/locale_h/�Q?br />

## 获取有关钱币�Q�时��_��W�号的信息�?br />$locale_values = localeconv();

for (sort keys %$locale_values) {
printf "%-20s = %s\n", $_, $locale_values->{$_};
}

## 获取语言的所有信�?br />
## 有LC_ALL, LANGUAGE, LC_CTYPE, LC_COLLATE,
## LC_MONETARY, LC_NUMBERIC, LC_TIME,
## LANG�q�个要捕捉错�?因�ؓ有的�pȝ��没有�?
$old_locale = setlocale(LC_ALL);
print $old_locale;

ivaneeo 2006-04-18 20:39 发表评论

perlIO对中文的支持

ivaneeo — Tue, 18 Apr 2006 12:34:00 GMT

其实perl对国际化非常的支持，例如在windows下读入一个gbk(cp936)的文�?然后要�{化�ؓutf8的文本输出，代码如下�Q?br />
use Encode;

use Encode::CN;      #最后包含这个包�Q�以为对以后�~�译有好处�?br />
use PerlIO;      # 同上

open(FILE, "<:encoding(gbk)", "gbk.txt");      # �q�里自动解码成utf8
@lines = ;
close(FILE);

open(F, ">:utf8", "utf.txt"); # 自动�~�码成utf8.
print F @lines;
close(F);

�q�样可以省得再打开以后在编码�?/p>

ivaneeo 2006-04-18 20:34 发表评论

perl2exe成功�~�译wxperl

ivaneeo — Tue, 18 Apr 2006 12:27:00 GMT

一�D늮�单的使用wxperl的perl代码�Q?br />

#!/usr/bin/perl
#############################################################################
## Name:        samples/hello/hello.pl
## Purpose:     Hello wxPerl sample
## Author:      Mattia Barbon
## Modified by:
## Created:     02/11/2000
## RCS-ID:      $Id: hello.pl,v 1.3 2004/10/19 20:28:14 mbarbon Exp $
## Copyright:   (c) 2000 Mattia Barbon
## Licence:     This program is free software; you can redistribute it and/or
##              modify it under the same terms as Perl itself
#############################################################################

##      �q�里发觉只有使用Wx,Encode,Encode::CN,File::Glob�q�四个模块才能通过perl2exe�~�译�?br />
##      但是�q�有把wxbase26u_gcc_custom.dll�Q�wxmsw26u_adv_gcc_custom.dll�Q�wxmsw26u_core_gcc_custom.dll

##      拷到目录下才能运行�?br />
use strict;
use Wx;
use Encode;
use Encode::CN;
#use PerlIO;
#use POSIX;;
#use Getopt::Std;
use File::Glob;

# every program must have a Wx::App-derive class
package MyApp;

use vars qw(@ISA);

@ISA = qw(Wx::App);

# this is called automatically on object creation
sub OnInit {
my( $this ) = shift;

# create a new frame
my( $frame ) = MyFrame->new();

# set as top frame
$this->SetTopWindow( $frame );
# show it
$frame->Show( 1 );
}

package MyFrame;

use vars qw(@ISA);

@ISA = qw(Wx::Frame);

use Wx::Event qw(EVT_PAINT);
# this imports some constants
use Wx qw(wxDECORATIVE wxNORMAL wxBOLD);
use Wx qw(wxDefaultPosition);
use Wx qw(wxWHITE);

sub new {
# new frame with no parent, id -1, title 'Hello, world!'
# default position and size 350, 100
my( $this ) = shift->SUPER::new( undef, -1, 'Hello, world!',
wxDefaultPosition , [350, 100] );

# create a new font object and store it
$this->{FONT} = Wx::Font->new( 40, wxDECORATIVE, wxNORMAL, wxBOLD, 0 );
# set background colour
$this->SetBackgroundColour( wxWHITE );

$this->SetIcon( Wx::GetWxPerlIcon() );

# declare that all paint events will be handled with the OnPaint method
EVT_PAINT( $this, \&OnPaint );

return $this;
}

sub OnPaint {
my( $this, $event ) = @_;
# create a device context (DC) used for drawing
my( $dc ) = Wx::PaintDC->new( $this );

# select the font
$dc->SetFont( $this->font );
# darw a friendly message
$dc->DrawText( 'Hello, world!', 10, 10 );
}

sub font {
$_[0]->{FONT};
}

package main;

# create an instance of the Wx::App-derived class
my( $app ) = MyApp->new();
# start processing events
$app->MainLoop();

# Local variables: #
# mode: cperl #
# End: #

我现在还不知是�ؓ什么。如果有哪位高手知道�Q�告诉小弟一声�?br />
谢谢�Q?/p>

ivaneeo 2006-04-18 20:27 发表评论

ivaneeo — Tue, 18 Apr 2006 02:34:00 GMT

文档选项

未显�C�需�?JavaScript 的文��选项

��此��作为电子邮件发�?/b>

最新推�?/td>

Java 应用开发源动力 �Q?下蝲免费软�g�Q�快速启动开�?/a>

用传�l�的 Unix 方式创徏的简单用��L��?/span>

Unix 用户非常熟悉��Z��文本�?UI 模型。设��x��一�?Perl �E�序�Q�让我们先看一下这个模型用于该�E�序的简单实现。标准的 Getopt::Std 模块��化了命��o行参数的解析。这个程序仅仅�ؓ了说�?Getopt::Std 模块�Q�没有实际用途）�? 请参阅本文后面的参考资料�?/p> 使用 Getopt::Std 的命令行开�?/b>

				
						
#!/usr/bin/perl -w

use strict;				# always use strict, it's a good habit
use Getopt::Std;			# see "perldoc Getopt::Std"

my %options;
getopts('f:hl', \%options);		# read the options with getopts

# uncomment the following two lines to see what the options hash contains
#use Data::Dumper;
#print Dumper \%options;

$options{h} && usage();			# the -h switch

# use the -f switch, if it's given, or use a default configuration filename
my $config_file = $options{f} || 'first.conf';

print "Configuration file is $config_file\n";

# check for the -l switch
if ($options{l})
{
 system('/bin/ls -l');
}
            else
{
 system('/bin/ls');
}

# print out the help and exit
sub usage
{
 print <first.pl [-l] [-h] [-f FILENAME]

Lists the files in the current directory, using either /bin/ls or
/bin/ls -l.  The -f switch selects a different configuration file.
The -h switch prints this help.
EOHIPPUS
exit;
}

ivaneeo 2006-04-18 10:34 发表评论

ivaneeo — Sat, 15 Apr 2006 14:50:00 GMT
大家�l�常使用正则表达式的字符集从字符串中抽取或排除中文字�W�，但是�q�样�?br />很费事，效果也�ƈ不是很理惟뀂实际上Perl�?.6开始已�l�开始在内部使用utf8�~�码
来表�C�字�W�，也就是说对中文以及其他语�a�字符的处理应该是完全没有问题的。关�?br />在于目前使用的编辑器以及文�g格式�q�不都能很好地支持utf8�Q�委屈了Perl的强大能力�?br />实际上我们只需要利用好Encode�q�个模块便能充分发挥Perl的utf8字符的优势了�?br />
    下面��׃��中文文本的处理�ؓ例进行说明（注意�Q�编辑下面这�D늨�序不能用使用utf8
�~�码的编辑器�Q�，比如有一个字�W�串"��试文本"�Q�我们想要把�q�个中文字符串拆成单�?br />字符�Q�可以这样写�Q?br />use Encode;
use Encode::CN; #可写可不�?br />$dat="��试文本";
$str=decode("gb2312",$dat);
@chars=split //,$str;
foreach $char (@chars) {
        print encode("gb2312",$char),"\n";
}
�l�果大家试一试就知道了，应该是��o人满意的�?br />
    �q�里主要用到了Encode模块的decode、encode函数。要了解�q�两个函数的作用我们
需要清楚几个概念：
1、Perl字符串是使用utf8�~�码的，它由Unicode字符�l�成而不是单个字节，每个utf8�~?br />码的Unicode字符�?~4个字节（变长�Q��?br />2、进入或��d��Perl处理环境�Q�比如输出到屏幕、读入和保存文�g�{�等�Q�时不是直接使用
Perl字符�Ԍ��而需要把Perl字符串�{换成字节��，转换�q�程中��用何�U�编码方式完全取�?br />于你�Q�或者由Perl代劳�Q�。一旦Perl字符串向字节��的�~�码完成�Q�字�W�的概念��׃��存在�?br />�Q�变成了�U��a的字节组合，如何解释�q�些�l�合则是你自��q��工作�?br />
    我们可以看出如果惌��Perl按照我们的字�W�概忉|��对待文本�Q�文本数据就需要一直用
Perl字符串的形式存放。但是我们��^时写出的每个字符一般都被作为纯ASCII字符保存�Q?br />包括在程序中明文写出的字�W�串�Q�，也就是字节流的�Ş式，�q�里��需要encode和decode�?br />数的帮助了�?br />
    encode函数��֐�思义是用来编码Perl字符串的。它��Perl字符串中的字�W�用指定的编
码格式编码，最�l��{化�ؓ字节��的形式�Q�因此和Perl处理环境之外的事物打交道�l�常需�?br />它。其格式很简单：
        $octets = encode(ENCODING, $string [, CHECK])
�q�里$string是Perl字符�Ԍ��ENCODING是给定的�~�码方式�Q?octets则是�~�码之后的字节流
�Q�CHECK表示转换时如何处理畸变字�W�（也就是Perl认不出来的字�W�）。一般不需要��?br />CHECK�Q�让Perl按默认规则处理即可�?br />    �~�码方式视语�a�环境的不同有很大变化�Q�默认可以识别utf8、ascii、ascii-ctrl�?br />iso-8859-1�{�，中文环境�Q�CN�Q�增加了euc-cn�Q�gb2312与之�{��h�Q�、cp936�Q�gbk与之�{��h
�Q�、hz�{�，�q�有日文环境�Q�JP�Q�、韩文（KR�Q�等�{�，在此不一一��数�?br />
    decode函数则是用来解码字节��的。它按照你给出的�~�码格式解释�l�定的字节流�Q�将
其�{化�ؓ使用utf8�~�码的Perl字符�Ԍ��一般来说从�l�端或者文件取得的文本数据都应该用
decode转换为Perl字符串的形式。它的格式�ؓ�Q?br />        $string = decode(ENCODING, $octets [, CHECK])
$string、ENCODING�?octets和CHECK的含义同上�?br />
    现在��很�Ҏ��理解上面写的那段�E�序了。因为字�W�串是用明文写出的，存放的时候已
�l�是字节��Ş式，丧失了本来的意义�Q�所以首先就要用decode函数��其转换为Perl字符�?br />�Q�由于汉字一般都用gb2312格式�~�码�Q�这里decode也要使用gb2312�~�码格式。�{换完成后
Perl对待字符的行为就和我们一样了�Q��^时对字符串进行操作的函数基本上都能正��对�?br />�W�进行处理，除了那些本来��把字符串当成一堆字节的函数�Q�如vec、pack、unpack�{�）�?br />于是split��p��把字�W�串切成单个字符了。最后由于在输出的时候不能直接��用utf8�~�码
的字�W�串�Q�还需要将切割后的字符用encode函数�~�码为gb2312格式的字节流�Q�再用print
输出�?br />
    Encode模块的初步应用大概就是这��P��详细情况�q�是要参阅模块的文档。实际上如果
我们使用UltraEditor�{�等支持�~�辑utf8�~�码文�g的编辑器写程序，基本上用不着Encode
模块�Q�在�E�序开头加上一句use utf8��p��。这时Perl默认包括�E�序本��n在内的所有的字符
都是Unicode字符�Q�可以随便��用Unicode范围内的字符�Q�甚臛_��以用非英文字�W�作为标�?br />�W�，只是输出的时候可能还需要用Encode模块。比如用UE的utf8�~�码模式�~�辑�q�个�E�序�Q?br />        use utf8;
        $单�h=10;
        $数量=100;
        $总额=$单�h*$数量;
        print "$总额\n";
可以在Perl 5.6以后的版本中正常�q�行�q�给出结果，是不是很爽？:) �q�种模式最大的优点
��是在字�W�串中可以�؜合多�U�语�a�的文字，��q��中日韩英加上阿拉伯字�W�都在一个字�W�串
中出��C��没问题；不像使用Encode模块那样必须固定一�U�编码方式，中日韩英字符同时�?br />现还好办�Q�因为gbk包含了所有这些字�W�，可是再加上一些非亚洲语言字符��׃��一定能�?br />理了。所以以后用Unicode�~�码应该是大势所��?br />
希望写的�q�些能对大家有所帮助�?br />

ivaneeo 2006-04-15 22:50 发表评论

以适当的方式运行die函数

ivaneeo — Fri, 14 Apr 2006 05:15:00 GMT
在P e r l中，d i e函数可以用来在出现错误的时候停止解释程序的�q�行�Q��ƈ输出一条有意义�?br />出错消息。正如你在前面已�l�看到的那样�Q�只要调用d i e函数�Q�就能够输出�c�M��下面的消息：
   died at scriptname line xxx

d i e函数也可以带有一�p�d��的参敎ͼ��q�些参数��取代默认消息而被输出。如果消息的后面
没有换行�W�，那么消息的结��ְ�附有at scriptname line xxx字样�Q?br />   die "Cannot open";   #prints "Cannot open at scriptname scriptname line xxx"

P e r l中有一个特�D�的变量$ !�Q�它��L��讄��为系�l�需要的最后一个操作（比如��盘输入或输
出）的出错消息。当$ !用于数字上下文时�Q�它�q�回一个错误号�Q�这个号可能对�Q何�h都没�?br />什么用处。在字符串上下文中， $ !�q�回来自你的操作�pȝ��的相应的出错消息�Q?br />   open(MYFILE, "myfile") || die "Cannot open myfile: $!\n";

不要使用$ !的值来��查系�l�函数的�q�行是失败还是成功。只有当�pȝ��?br />行一��Ҏ��作（比如文�g输入或输出）之后�Q?$ !才有意义�Q��ƈ且只有在该操�?br />�q�行��p�|后， $ !才被讄��。在其他旉��中， $ !的值几乎可以是��M��东西�Q��ƈ
且是毫无意义的�?/font>

不过有时�q�不想�ɽE�序停止�q�行�Q�只是想要发��Z��个警告。若要创��L��警告�Q?P e r l�?br />一个w a r n函数可供使用。w a r n的运行方式与d i e完全一��P��你可以从下面�q�个代码中看出来�Q�不�q�差别是它的�E�序��保持运行状态：
   if(! open(MYFILE, "output)) {
      warn "cannot read output: $!";
   } else {
      ;   # Reading output...
   }

ivaneeo 2006-04-14 13:15 发表评论

一个一个字�W�处理字�W�串

ivaneeo — Sun, 09 Apr 2006 03:16:00 GMT
1.split函数

   %seen = ( );
   $string = "an apple a day";
   foreach $char (split //, $string) {
       $seen{$char}++;
   }

2./(.)/g 但是(.)永远不会是newline
   %seen = ( );
   $string = "an apple a day";
   while ($string =~ /(.)/g) {
       $seen{$1}++;
   }

3.unpack("C*")也可以逐个处理字符:(�q�个例子是篏加字�W�串里每个字�W�ascii码的累加�?
   $sum = 0;
   foreach $byteval (unpack("C*", $string)) {
       $sum += $byteval;
   }
   print "sum is $sum\n";
   # prints "1248" if $string was "an apple a day"

$sum = unpack("%32C*", $string); #�q�个�Ҏ��比上面更�?�q�个�q�回32位的checksum�?

4 .<>是默认的输入��?其实��是ARGV.
     �q�个模拟sysv的checksum�E�序:
   #!/usr/bin/perl    # sum - compute 16-bit checksum of all input files    $checksum = 0;    while (<>) { $checksum += unpack("%16C*", $_) }    $checksum %= (2 ** 16) - 1;    print "$checksum\n";

   Here's an example of its use:
   % perl sum /etc/termcap    1510

   If you have the GNU version of sum, you'll need to call it with the —sysv option to get the same answer on the same file.
   % sum --sysv /etc/termcap    1510 851 /etc/termcap

一个详�l�的例子�Q?br />

#!/usr/bin/perl # slowcat - emulate a s l o w line printer # usage: slowcat [-DELAY] [files ...] $DELAY = ($ARGV[0] =~ /^-([.\d]+)/) ? (shift, $1) : 1; #�q�里[.]取消�?的特�D�性。��其�ؓ一般意义。shift�U�除了@ARGV�W�一个变量和长度减一�? $| = 1; #不�ؓ0��强行清�I��出或打印�? while (<>) { #<>为@ARGV指定的文件句�? for (split(//)) { print; select(undef,undef,undef, 0.005 * $DELAY); #select函数讄��屏幕输出。这里是讄��延迟�? } }

ivaneeo 2006-04-09 11:16 发表评论

ivaneeo — Thu, 06 Apr 2006 09:19:00 GMT

NAME

perlcn - ��体中�?Perl 指南

DESCRIPTION

�Ƣ迎来到 Perl 的天�?

�?5.8.0 版开�? Perl 具备了完善的 Unicode (�l�一�? 支援, 也连带支援了许多拉丁语系以外的编码方�? CJK (中日�? 便是其中的一部䆾. Unicode 是国际性的标准, 试图�늛�世界上所有的字符: 西方世界, 东方世界, 以及两者间的一�?(希腊�? 叙利亚文, 亚拉伯文, 希伯来文, 印度�? 印地安文, �{�等). 它也容纳了多�U�作业系�l�与�q�_�� (�?PC 及麦金塔).

Perl 本��n�?Unicode �q�行操作. �q�表�C?Perl 内部的字�W�串数据可用 Unicode 表示; Perl 的函式与��符 (例如正规表示式比�? 也能�?Unicode �q�行操作. 在输入及输出�? ��Z��处理�?Unicode 之前的编码方式存攄��数据, Perl 提供�?Encode �q�个模块, 可以让你��L��地读取及写入旧有的编码数�?

Encode 延��模块支援下列��体中文的�~�码方式 ('gb2312' 表示 'euc-cn'):

euc-cn Unix 延��字符�? 也就是俗�U�的国标�?br /> gb2312-raw 未经处理�?(低比�? GB2312 字符�?br /> gb12345 未经处理的中国用�J�体中文�~�码
iso-ir-165 GB2312 + GB6345 + GB8565 + 新增字符
cp936 字码��?936, 也可以用 'GBK' (扩充国标�? 指明
hz 7 比特逸出�?GB2312 �~�码

举例来说, ��?EUC-CN �~�码的档案�{�?Unicode, ��需键入下列指��o:

perl -Mencoding=euc-cn,STDOUT,utf8 -pe1 < file.euc-cn > file.utf8

Perl 也内附了 ``piconv'', 一支完全以 Perl 写成的字�W��{换工��L��? 用法如下:

piconv -f euc-cn -t utf8 < file.euc-cn > file.utf8
piconv -f utf8 -t euc-cn < file.utf8 > file.euc-cn

另外, 利用 encoding 模块, 你可以轻易写��Z��字符为单位的�E�序�? 如下所�C?

#!/usr/bin/env perl
# 启动 euc-cn 字串解析; 标准输出入及标准错误都设�?euc-cn �~�码
use encoding 'euc-cn', STDIN => 'euc-cn', STDOUT => 'euc-cn';
print length("骆驼"); # 2 (双引可��C�字�W?
print length('骆驼'); # 4 (单引可��C�字�?
print index("谆谆教诲", "蛔唤"); # -1 (不包含此子字�W�串)
print index('谆谆教诲', '蛔唤'); # 1 (从第二个字节开�?

在最后一列例子里, ``�?' 的第二个字节�?``�?' 的第一个字节结合成 EUC-CN 码的 ``�?'; ``�?' 的第二个字节则与 ``�?' 的第一个字节结合成 ``�?'. �q�解决了以前 EUC-CN 码比对处理上常见的问�?

�q�一步的信息

请参�?Perl 内附的大量说明文�?(不幸全是用英文写�?, 来学习更多关�? Perl 的知�? 以及 Unicode 的��用方�? 不过, 外部的资源相当丰�?

提供 Perl 资源的网址

http://www.perl.com/

Perl 的首��?(由欧��q��公司�l�护)

http://www.cpan.org/

Perl �l�合典藏�|?(Comprehensive Perl Archive Network)

http://lists.perl.org/

Perl 邮递论坛一�?

学习 Perl 的网址

http://www.oreilly.com.cn/html/perl.html

��体中文版的欧��q�� Perl 书藉

 http://www.pm.org/groups/asia.shtml#China

中国 Perl 推广�l�一�?

Unicode 相关�|�址

http://www.unicode.org/

Unicode 学术学会 (Unicode 标准的制定�?

http://www.cl.cam.ac.uk/%7Emgk25/unicode.html

Unix/Linux 上的 UTF-8 �?Unicode �{�客�?

SEE ALSO

the Encode manpage, the Encode::CN manpage, the encoding manpage, the perluniintro manpage, the perlunicode manpage

AUTHORS

Jarkko Hietaniemi <jhi@iki.fi>

Autrijus Tang (唐宗�? <autrijus@autrijus.org>

ivaneeo 2006-04-06 17:19 发表评论

ivaneeo — Thu, 06 Apr 2006 08:27:00 GMT
1.ord函数
    $num = ord($char); #把字�W��{换�ؓ整数
2.chr函数
    $char = chr($num); #把整数�{换�ؓ字符
3.printf函数
    printf("Number %d is character %c\n", 101, 101); #格式化输��Z��个整数和字符.
    printf "%vd\n", "fac\x{0327}ade";
        102.97.99.807.97.100.101
    printf "%vx\n", "fac\x{0327}ade";
        66.61.63.327.61.64.65



4.unpack函数(C*把一个字�W�串转换为byte数组)(U*是指定的unicode)
    @ascii_character_numbers = unpack("C*", "sample");
    print "@ascii_character_numbers\n";
        115 97 109 112 108 101

5.pack函数(C*把一个byte数组转换��Z��个字�W�串)
    $word = pack("C*", @ascii_character_numbers);
    $word = pack("C*", 115, 97, 109, 112, 108, 101); # same print "$word\n";
        sample

ivaneeo 2006-04-06 16:27 发表评论

ivaneeo — Thu, 06 Apr 2006 06:55:00 GMT
1.使用||来徏立默认�?br />    $foo = $bar || "DEFAULT VALUE"; #如果$bar没有值的话就使用"DEFAULT VALUE"作�ؓ$foo的�?

$dir = shift(@ARGV) || "/tmp"; #如果没有参数,,��p��?/tmp".
$dir = defined($ARGV[0]) ? shift(@ARGV) : "/tmp";

2.shift函数:
�U�d��W�一个数�l�元�?�q�返�?

3.defined函数:
    判断一个变量、数�l�或数组的一个元素是否已�l�被赋倹{��expr为变量名、数�l�名或一个数�l�元素。如果已定义�Q�返回真�Q�否则返回假�?br />
4. if和unless
    �?if和unless意思相�?
$a = $b if $a;     #如果$a为真$a赋��gؓ$b
$a = $b unless $a #如果$a为假$a赋��gؓ$b

ivaneeo 2006-04-06 14:55 发表评论

ivaneeo — Tue, 04 Apr 2006 08:02:00 GMT
1.一旦我们读��Z��一个记录，通常打算��L��记录分隔�W�，(�~�省��gؓ换行�W�字�W?�Q?

    chomp($n = );

�?Perl 4.0版本仅有chop()操作�Q�去掉串的最后一个字�W? 不管该字�W�是什么。chomp() 没有�q�么大的破坏性，如果有行分隔�W�存在，它仅��L��行分隔符。如果你打算��L��行分隔符�Q�就用chomp() 来代替chop()�?br />
2.q//�?tt>qq//前面一个是加单引号,后面一个是加双引号.匚w��形式�?/regex/ 而直接运行命令是($x=`cmd`).
$string = q[Jon 'Maddog' Orwant]; # literal single quotes
$string = q{Jon 'Maddog' Orwant}; # literal single quotes
$string = q(Jon 'Maddog' Orwant); # literal single quotes
$string = q; # literal single quotes

3.�Ҏ��字符包括 "\n" (新行), "\033" (八进制数的字�W?3), "\cJ" (Ctrl-J), "\x1B" (十六�q�制的字�W?br /> 0x1B).

4.直接输入多行:
$a = <<"EOF"; #指明了EOF为结束符
This is a multiline here document
terminated by EOF on a line by itself
EOF
5.prinf函数
$char = chr(0x394);
$code = ord($char);
printf "char %s is code %d, %#04x\n", $char, $code, $code; # %#04x表示占四位十六进制数��的话用0补齐

charDis code 916, 0x394

6.substr函数
substr函数形式如下:
    $value = substr($string, $offset, $count);
    $value = substr($string, $offset);
    substr($string, $offset, $count) = $newstring;
    substr($string, $offset, $count, $newstring); # 和前面一�?br />    substr($string, $offset) = $newtail;

    $string = "This is what you have";
    # you can test substrings with =~
    if (substr($string, -10) =~ /pattern/) {
        print "Pattern matches in last 10 characters\n";
    }
    # substitute "at" for "is", restricted to first five characters
    substr($string, 0, 5) =~ s/is/at/g;

    # exchange the first and last letters in a string $a = "make a hat";
    (substr($a,0,1), substr($a,-1)) = (substr($a,-1), substr($a,0,1));
    print $a;
        take a ham

7.unpack函数
    # extract column with unpack
    $a = "To be or not to be"; $b = unpack("x6 A6", $a); # skip 6, grab 6 print $b;
        or not

ivaneeo 2006-04-04 16:02 发表评论

ivaneeo — Tue, 04 Apr 2006 07:58:00 GMT
perl中的undef,false�?是属于假的一�?其他的属于真.

ivaneeo 2006-04-04 15:58 发表评论

人体精品一二三区,青青免费在线视频,自拍偷拍亚洲视频

perlIO对中文的支持

perl2exe成功�~�译wxperl

以适当的方式运行die函数

一个一个字�W�处理字�W�串

http://www.pm.org/groups/asia.shtml#China 中国 Perl 推广�l�一�?

http://www.pm.org/groups/asia.shtml#China

中国 Perl 推广�l�一�?