perl
stoneechogx
这个作者很懒,什么都没留下…
展开
-
CGI
<br />CGI 意思为 Common Gateway Interface, 一种基于浏览器的输入、在Web服务器上运行的程序方法. CGI脚本 使你的浏览器与用户能交互,为了在数据库中寻找一个名词, 提供你写入的评论,或者从一个表单中选择几个条目并且能得到一个明确的回答. 如果你曾经遇到过在web上填表或进行搜索, 你就是用的CGI脚本. 你那时也许没有意识到,因为大部分工作是在服务器上运行的,你看到的只是结果. <br />作为一个网页设计者, 你创建客户端的 CGI脚本, 服务器端的程序用来处理用户原创 2010-12-28 15:41:00 · 155 阅读 · 0 评论 -
IF控制语句,花括号必须有的
<br />if 控制结构<br />一旦能比较两个值时,就希望能根据这些比较结果作判断。和别的语言类似,Perl 中也提供了if 控制结构:<br />if($name gt ‘fred’){<br />print “‘$name’comes after ‘fred’in sorted order./n”;<br />}<br />如果需要另一种选择,可以使用关键字else:<br />if($name gt ‘fred’){<br />print “‘$name’comes after ‘fred’in原创 2010-12-29 10:43:00 · 839 阅读 · 0 评论 -
子程序
<br />子程序<br />由于所有的被调用的子程序都要返回值,因此使用特殊的返回值语法在大多数情况下是一种浪费。因此Larry 将之简化了。当Perl 遍历此子程序时,将会计算每一步的值。此子程序中最后计算的值将被返回。<br /> <br /> <br />例如,下面的子程序:<br />sub sum_of_fred_and_barney{<br />print “Hey, you called the sum_of_fred_and_barney suroutine!/n”;<br />$fred原创 2010-12-29 15:52:00 · 215 阅读 · 0 评论 -
字符串重复操作符
<br />一个特殊的操作符是字符串重复操作符(string repetition operator),由小写的字母x 表示。这种操作能把操作符左边字符串<br />重复操作符右边数字那么多次:<br />“fred”x 3 # “fredfredfred”<br />“barney”x (4+1) # “barney”x 5, “barneybarneybarneybarneybarney”<br />5 x 4 #实际上是“5”x 4, “5555”<br />值得具体讲解下最后一个例子。字符串重复操作原创 2010-12-30 13:35:00 · 1330 阅读 · 0 评论 -
变量
<br />变量 <br /><br /> 在Perl里,易用性非常重要的。它是一种被称作“格式宽松”的语言,其中变量的定义并没有严格要求。实际上,没有什么方法可以定义32位的浮点数变量。 <br />Perl中有三种变量,它们分别是标量型变量(Scalars),数组型变量(arranys)和散列表(hashes),除了这些颇令人头疼的名字,他们其实都很简单:仅仅包含一些数据的不同排列而已。 <br /><br />标量型变量——数字,字符串和引用 <br /> 一个标量型变量由$标志来表示,例如$nu原创 2010-12-29 10:56:00 · 184 阅读 · 0 评论 -
my
perl里默认变量声明是全局的,所以如果要私有变量的话要用my声明。my声明了一个新变量,而local则是“借用”了一下原来的全局变量。原创 2010-12-29 15:54:00 · 194 阅读 · 0 评论 -
perl 中的$1,$2
<br />以数字为名的变量保存的是上一次匹配操作(/pattern/)中,第n个小括号中的原符号所匹配内容。 <br />$1就是第一对小括号中的原符号所对应的匹配内容。 <br />$2就是第二对小括号中的原符号所对应的匹配内容。原创 2011-01-06 11:22:00 · 2641 阅读 · 0 评论 -
类
<br />#!/usr/bin/perl<br />package Person;<br /> sub new {<br /> my $self = {};<br /> shift;<br /> my ($name, $age) = @_;<br /> $self->{name} = $name;<br /> $self->{age} = $age;<br /> bless ($self);<br /> return $self;<br /> }<br /> sub change_name {<br />原创 2011-01-11 18:06:00 · 184 阅读 · 0 评论