Perl VS PHP

@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) { .. }

%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'] );

%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

@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 );

$s = lc($s);

$s = uc($s);


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

$s = strtolower($s);

$s = strtoupper($s);

$s1 eq $s2




$s1 lt $s2

strcmp($s1,$s2) == 0

# or

$s1 === $s2


strcmp($s1,$s2) < 0

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 );

$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);

use File::Basename;


$b = basename($path);

$d = dirname($path);

 


$b = basename($path);

$d = dirname($path);

%ENV


$ENV{REQUEST_METHOD}


$ARGV[$i]


$0

$_SERVER


$_SERVER[REQUEST_METHOD]


$argv[$i+1]


$argv[0]  # Php/CGI only

#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);

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>

use URI::Escape;


uri_escape($val)

uri_unescape($val)

 



urlencode($val)

urldecode($val)

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) . "'"