AI导航网
微信公众号搜"智元新知"关注
微信扫一扫可直接关注哦！

Perl VS PHP

分类：Perl作者：编程之家

Perl VS PHP 比較表

這份之前找到的 Perl VS PHP 的對照表,不過原始網站連不進去,幸好當初有另存下來. 先貼起來放著. 以防流失...

原始網站: Perl/Php Translation

其它參考可見: PHP in contrast to Perl  

 

td { font-family: helvetica,arial; } pre,xmp { font-family: courier; } a { text-decoration:none; color: blue; font-weight:bold; } a:hover { color: green; text-decoration:underline; }

Perl/PHP Translation

— Perl arrays — — PHP arrays — 
@a = ();


@a = ( 'xx',11,33.5,);


@a = 12..33;


$a[2] = 'something';


$len = scalar(@a);

# or

$len = @a;


@a3 = ('xx',@a1,@a2);


($x,$y) = @a;


$a[@a] = 'new'; # push


push

pop

shift

unshift

splice


foreach $i (@a) { .. }
 
$a = array();


$a = array( 'xx',);


$a = range(12,33);


$a[2] = 'something';


$len = count($a);




$a3 = array_merge('xx',$a1,$a2);


list($x,$y) = $a;


$a[] = 'new'; # push


array_push

array_pop

array_shift

array_unshift

array_splice


foreach ($a as $i) { .. }

— Perl hashes — — PHP hashes — 
%h = ();


%h = ( 'x' => 'y',

       'z' => 'w',

     );


$h{'x'} = 7;


while (($key,$value) = each(%h))

{ .. }


$a = keys(%h);

$b = values(%h);


delete $h{'x'};
 
$h = array();


$h = array( 'x' => 'y',

            'z' => 'w',

          );


$h['x'] = 7;


foreach ($h as $key => $value)

{ .. }


$a = array_keys($h);

$b = array_values($h);


unset( $h['x'] );

— Perl data structures — — PHP data structures — 
%h = ('a'=>13,'b'=>25);

@x = ('hi','there','all',);


@mix = ( %h,@x,

         [33..39],

	 { x=>15,yy=>23,},

       );


$mix[0]->{'b'}  # == 25

$mix[0]{'b'}    # == 25

$mix[2]->[2]    # == 35

$mix[2][2]      # == 35

 
$h = array('a'=>13,'b'=>25);

$x = array('hi',);


$mix = array($h,$x,

	     range(33,39),

	     array('x'=>15,'yy'=>23),

	    );


$mix[0]['b']  # == 25


$mix[2][2]    # == 35

— Perl array split/join — — PHP array split/join — 
@a = split( '|',$s );


@a = split( 's+',$s );



$s = join( '|',@a );
 
$a = preg_split( '/|/',$s,

            -1,PREG_SPLIT_NO_EMPTY );

$a = preg_split( '/s+/',PREG_SPLIT_NO_EMPTY );


$s = join( '|',$a );

— Perl case conversion — — PHP case conversion — 
$s = lc($s);

$s = uc($s);


$s =~ tr/a-z/A-Z/;
 
$s = strtolower($s);

$s = strtoupper($s);

— Perl string comparisons — — PHP string comparisons — 
$s1 eq $s2




$s1 lt $s2
 
strcmp($s1,$s2) == 0

# or

$s1 === $s2


strcmp($s1,$s2) < 0

— Perl functions — — PHP functions — 
sub foo {

 my @args = @_;

}


sub foo {

 $x = 5;

}






foo2( @a,%h );
 
function foo() {

 $args = func_get_args();

}


function foo() {

 global $x;

 $x = 5;

}


function foo2($x,$y) {

}


foo2( $a,$h );

— Perl string matching operations — — PHP string matching operations — 
$s =~ m/(w+)/;

$substr = $1;


@all = ($s =~ m/(w+)/g);



$s =~ s/s+/X/;

$s =~ s/s+/X/g;


$s =~ s/^s+|s+$//g;
 
preg_match( "/(w+)/",$match );

$substr = $match[1];


preg_match_all( "/(w+)/",$match );

$all = $match[0];


$s = preg_replace( "/s+/",'X',1 );

$s = preg_replace( "/s+/",$s );


$s = trim($s);

— Perl basename/dirname — — PHP basename/dirname — 
use File::Basename;


$b = basename($path);

$d = dirname($path);
 
 


$b = basename($path);

$d = dirname($path);

— Perl environment variables — — PHP environment variables — 
%ENV


$ENV{REQUEST_METHOD}


$ARGV[$i]


$0
 
$_SERVER


$_SERVER[REQUEST_METHOD]


$argv[$i+1]


$argv[0]  # PHP/CGI only

— Perl POST/GET parameters — — PHP POST/GET parameters — 
#form/hyperlink parameters:

# s : single-valued

# m : multi-valued


use CGI (:standard);





$s = param('s');

@m = param('m');


@param_names = param();

$num_params = param();
 
#form/hyperlink parameters:

# s   : single-valued

# m[] : multi-valued

#       (such as multi-selections

#        and checkBox groups)


$ParaM

  = array_merge($_GET,$_POST);


$s = $ParaM['s'];  # a scalar

$m = $ParaM['m'];  # an array


$param_names = array_keys($ParaM);

$num_params = count($ParaM);

— Perl HTML elements — — PHP HTML elements — 
use CGI (:standard);








$ref = "x.cgi";

a({href=>$ref},"yy")


textfield({name=>"yy",size=>5})


password({name=>"yy",size=>5})


textarea({name=>"yy",

	  cols=>5,rows=>2})


submit({value=>"yy"})


button( {name=>"xx",

	 value=>"yy",

         onclick=>"submit()",

        }

      )


%labels = (0=>'a',1=>'q',2=>'x');

popup_menu( { name=>"xx",

              values=>[0..2],

              labels=>%labels,

              size=>4,

	    }

          )



@a = ('xx','yy','zz');

radio_group( { name=>'nn',

               values=> @a,

               default=>'_',

               linebreak=>1,

	     }

           )


%labels = ('xx'=>'L1','yy'=>'L2');

@a = keys( %labels );

checkBox_group( { name=>'nn',

                  values=> @a,

		  labels=> %labels,

	        }

              )


table(

       Tr(

           [

	     td(['a','b']),

             td(['x','y']),

	   ]

         )

     )

 
# The Perl/CGI functions have the

# additional property of "stability"

# when used in reentrant forms.

# The values of the HTML elements are

# set according to the incoming

# parameter values for those elements.

# The versions below are not stable.


$ref = "x.PHP";

<a href="<?PHP echo $ref?>">yy</a>


<input type=text name=yy size=5>


<input type=password name=yy size=5>


<textarea name=yy cols=5 rows=2>


</textarea>


<input type="submit" value=yy>


<input type="button"

  name="xx" value="yy"

  onclick="submit()">




<select name="xx" size="4">

<?PHP

$labels = array(0=>'a',2=>'x');

foreach (range(0,2) as $_)

  echo "<option value='$_'>",

       $labels[$_];

?>


</select>


$a = array('xx','zz');

foreach ($a as $_)

  echo "<input type=radio

         name=nn value='$_'>$_<br>";





$labels = array('xx'=>'L1','yy'=>'L2');

foreach (array_keys($labels) as $_)

  echo "<input type=checkBox

         name=nn value='$_'>",

         $labels[$_];




<table>

<tr>

<td>a</td><td>b</td>


</tr>

<tr>

<td>x</td><td>y</td>

</tr>

</table>

— Perl URL encode — — PHP URL encode — 
use URI::Escape;


uri_escape($val)

uri_unescape($val)
 
 



urlencode($val)

urldecode($val)

— Perl MysqL database access — — PHP MysqL database access — 
use DBI;

$dbh = DBI->connect(

  'DBI:MysqL:test:localhost',

  $usr,$pwd

);


$dbh->do( $sql_op )


$query = $dbh->prepare( $sql_op );

$query->execute();


while(

 @record = $query->fetchrow() )

{ .. }



$dbh->quote($val)



 
 
$dbh = MysqL_connect(
  'localhost',$usr,$pwd
);
MysqL_query('USE test')
 
MysqL_query( $sql_op );
 
$results = MysqL_query( $sql_op );
 
 
while($record =
        MysqL_fetch_row($results))
{ .. }
 
 
"'" . addslashes($val) . "'"

版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 [email protected] 举报，一经查实，本站将立刻删除。

相关推荐

Perl碎碎念
1. 如何去重 #!/usr/bin/perl use strict; my %hash; while(&lt;&gt;){ chomp; print &quot;$_n&quot; unless
如何用perl将表格中不同列的数据进行拼凑，然后将拼凑后的数据用“|”连接在一起
最近写了一个perl脚本，实现的功能是将表格中其中两列的数据进行拼凑，然后将拼凑后的数据用“|”连接在一起。表格内容如下： 员工号码员工姓名职位入职日期1001张三销售1980/12/17 0:00:
基于表的数据字典构造MySQL建表语句
表的数据字典格式如下：如果手动写MySQL建表语句，确认麻烦，还不能保证书写一定正确。写了个Perl脚本，可快速构造MySQL脚本语句。脚本如下：#!/usr/bin/perluse strict;m
如何用Perl对Excel的数据进行提取并分析
巡检类工作经常会出具日报，最近在原有日报的基础上又新增了一个表的数据量统计日报，主要是针对数据库中使用较频繁，数据量又较大的31张表。该日报有两个sheet组成，第一个sheet是数据填写，第二个sh
如何用Perl截取报文
在实际生产环境中，常常需要从后台日志中截取报文，报文的形式类似于.........一个后台日志有多个报文，每个报文可由操作流水唯一确定。以前用AWK写过一个，程序如下：beginline=`awk &
如何通过关键词匹配统计其出现的频率
最近写的一个perl程序，通过关键词匹配统计其出现的频率，让人领略到perl正则表达式的强大，程序如下：#!/usr/bin/perluse strict;my (%hash,%hash1,@arra
漫谈 Perl 的 web 应用开发框架
忍不住在 PerlChina 邮件列表中盘点了一下 Perl 里的 Web 应用框架（巧的是 PerlBuzz 最近也有一篇相关的讨论帖），于是乎，决定在我自己的 blog 上也贴一下 :) 原生 CGI/FastCGI 的 web app 对于较小的应用非常合适...
perl中bless的理解
bless有两个参数：对象的引用、类的名称。 类的名称是一个字符串，代表了类的类型信息，这是理解bless的关键。 所谓bless就是把 类型信息 赋予 实例变量。 程序包括5个文件： person.pm ：实现了person类 dog.pm ：实...
PERL GB2312 UTF-8 编码转换
gb2312转Utf的方法： use Encode; my $str = "中文"; $str_cnsoftware = encode("utf-8", decode("gb2312", $str));   Utf转 gb2312的方法： use Encode; my $str = "utf8中文"; $...
perl 计算硬盘利用率
  perl 计算硬盘利用率， 以%来查看硬盘资源是否存在IO消耗cpu资源情况； 部份代码参考了iostat源码；     #!/usr/bin/perl use Time::HiRes qw(gettimeofday); use POSIX; $SLEEPTIME=3; sub getDiskUtl() { $cl...
    pythonJavaScriptjavaHTMLreactjsC#AndroidCSSNode.jssqlrpython-3.xMysqLjQueryc++pandasFlutterangularIOSdjangolinuxswifttypescript路由器JSON路由器设置无线路由器h3c华三华三路由器设置华三路由器电脑软件教程arraysdocker软件图文教程Cvue.jslaravelspring-bootreact-native