Perl VS PHP

hashes

data structures

array split/join

case conversion

string comparisons

functions

basename/dirname

environment variables

POST/GET parameters

HTML elements

URL encode

MySQL database access

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