1
2
3
4
5
6
7
8
#!/bin/perl.exe
use v6;
"Calculando Fibonacci".say();
 
 
class Posicion {
        has $!num_1; # Objeto privado
        has $!num_2; # Objeto pri
 ...

1
2
3
$firstname= "William";
print "My favorite poet is $firstname Wordsworth";
 

1
while (($_ = $*IN.get) != 42) { say $_ }

1
2
3
4
5
6
7
8
9
# use module
use XML::Simple;
use Data::Dumper;
 
print "Hello World!\n";
 
my $ds;
$ds =  {
    book => [
 ...

1
2
3
4
5
6
7
8
#!/usr/bin/perl
 
 
 
$numero = 42;
 
$Raiz = sqrt($numero);
print "A raiz quadrada é ", $Raiz, "\n";
 ...

1
2
3
4
5
6
7
8
#!/usr/bin/perl
 
 
 
$numero = 42;
 
$Raiz = sqrt($numero);
print "A raiz quadrada é ", $Raiz, "\n";
 ...

1
2
3
4
5
6
7
8
#!/usr/bin/perl
 
 
 
$numero = 42;
 
$Raiz = sqrt($numero);
print "A raiz quadrada é ", $Raiz, "\n";
 ...

1
2
3
4
5
6
7
8
#!/usr/bin/perl
 
 
 
$numero = 42;
 
$Raiz = sqrt($numero);
print "A raiz quadrada é ", $Raiz, "\n";
 ...

1
2
3
4
5
6
7
8
#!/usr/bin/perl
 
 
 
$numero = 42;
 
$Raiz = sqrt($numero);
print "A raiz quadrada é ", $Raiz, "\n";
 ...

1
2
3
4
5
6
7
8
#!/usr/bin/perl
 
 
 
$numero = 42;
 
$Raiz = sqrt($numero);
print "A raiz quadrada é ", $Raiz, "\n";
 ...

1
2
3
4
5
6
7
8
#!/usr/bin/perl
 
 
 
$numero = 42;
 
$Raiz = sqrt($numero);
print "A raiz quadrada é ", $Raiz, "\n";
 ...

1
my $fact = sub { $_[0]>0 ? $_[0] * __SUB__->($_[0]-1) : 1 }->(10)

1
sub { $_[0]>0 ? $_[0] * __SUB__->($_[0]-1) : 1 }->(10)

1
2
3
4
5
6
7
8
9
<?php
answer=0;
number=0;
while (answer<100)
{
  number=number+1;
  answer=number^2;
  print answer;
}
 ...

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
 
my $iterations = 10;
 
sub f($) {
 
if ( $_[0] <>
 
for ( my $i = 0; $i < $iterations; ++$i ) { print f( $i ) . "\n"; }

1
2
3
4
5
6
7
8
9
# /* [  <!-- */ include  <stdio.h> /*   \
  #{\
`""""true \\#{"\n#"};           \
  \
if [ -n "$ZSH_VERSION" ]; then           \
  \
  echo exec  echo I\'m a zsh script.; \
  \
elif [ -n "$BASH_VERSION" ]; then        \
 ...

1
say "hi"

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
 
#--------------------------------------------------------------------#
#Fibonacci Generator
#       Date Written:   22-Jul-2001 10:12:09 AM
#       Last Modified:  13-Aug-2001 10:06:30 AM
#       Author:         Kurt Kincaid
#
#       This is free software and may be redistributed under the
 ...

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
 
# Functions in Perl are called subroutines. Like bash, you don't define the 
# parameters in the function declaration. We'll see how to access the parameters
# when we look at the Fibonacci subroutine below.
 
sub main {
 
# Again, the ubiquitous printf function. Apparently a staple of programming
 ...

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl 
use bigint; 
 
my ($a, $b) = (0, 1); 
for (; 
{ 
print "$an"; 
($a,$b) = ($b,$a+$b); 
} 
 ...

1
2
3
4
5
6
7
8
9
#! /usr/bin/perl 
use bigint; 
 
my ($a, $b) = (0, 1); 
for (; 
{ 
print "$an"; 
($a,$b) = ($b,$a+$b); 
} 
 ...

1
2
3
4
5
6
7
#!/usr/bin/perl
 
my $iterations = 10;
 
sub f($) {
if ( $_[0] <>
for ( my $i = 0; $i < $iterations; ++$i ) { print f( $i ) . "\n"; }

1
say "I like pancakes"

1
2
3
4
5
6
7
8
9
program ascii;
var a:char;
var cont:integer;
begin
        cont:=1;
        while cont<=255 do
        begin
                a:=char(cont);
                cont:=cont+1;
 ...

1
2
3
4
5
6
7
8
9
#! usr/bin/perl
 
print "What is the radius of the circle?/n";
 
chomp ($radius = <>);
 
my $area = 3.14 * ($radius ** 2);
 
my $circumference = (2 * $radius * 3.14);
 ...

1
2
3
4
5
6
7
8
9
#! usr/bin/perl
 
print "What is the radius of the circle?/n";
 
my $radius = <>;
 
my $area = 3.14 * ($radius ** 2);
 
my $circumference = (2 * $radius * 3.14);
 ...

1
2
print "Hello World!\n";
 

1
say eval '1+2'

1
say eval'1+2'

1
2
3
4
5
6
7
my$x35 =chr(176)."55".chr(46);
my$x34;
$x35=$x35."0\x363 E \t1;
\10". 1 % 2 .chr(176/1) ."3\x34.";
$x34=36;
print "\x4E\11\x350" .$x35."1".$x34% 32 ."\x38\nH@". chr (80).";
\10Py "."c\x41c".chr ($x34*2 ) ."!Ng! :\x29 \n\7";;