PHP traducido a Perl

Misosguar
Diego Rubens Mañas

Hola Mundo

PHP


echo "Hola Mundo!\n";

Perl


print "Hola Mundo!\n";
tags: basics

Variables y constantes

PHP


$myVariable = 43;
$myVariable = 70;
define('MY_CONSTANT',43);
echo MY_CONSTANT;

Perl


my $myVariable = 43;
$myVariable = 70;
use constant MY_CONSTANT => 43;
print MY_CONSTANT;
tags: basics

Interpolación de strings

PHP


$papas = 3;
$tomates = 5;
$bolsa = "Tengo ". ($papas + $tomates) ." piezas de verduras.";

Perl


$papas = 3;
$tomates = 5;
$bolsa = "Tengo @{[$papas + $tomates]} " . "piezas de verduras.";
tags: basics

Ciclo for

PHP


$names = ["Yolanda", "Jesica", "Yolando", "Brian", "Ana"];
$count = count($names) - 1;
foreach(range(1,$count) as $index){
    echo "Amigo $index se llama $names[$index]\n";
}
// Amigo 1 se llama Jesica
// Amigo 2 se llama Yolando
// Amigo 3 se llama Brian
// Amigo 4 se llama Ana

Perl


@names = ("Yolanda", "Jesica", "Yolando", "Brian", "Ana");
$count = $#names;
for my $index (1 .. $count) {
    print "Amigo $index se llama $names[$index]\n";
}
// Amigo 1 se llama Jesica
// Amigo 2 se llama Yolando
// Amigo 3 se llama Brian
// Amigo 4 se llama Ana
tags: basics

Rangos

PHP


foreach(range(2,5) as $index){
    echo "$index veces 5 es " . ($index * 5) ."\n";
}
// 2 veces 5 es 10
// 3 veces 5 es 15
// 4 veces 5 es 20
// 5 veces 5 es 25

Perl


for my $index (2..5) {
    print "$index times 5 is @{[$index * 5]}\n";
}
// 2 veces 5 es 10
// 3 veces 5 es 15
// 4 veces 5 es 20
// 5 veces 5 es 25
tags: basics