Comandos Perl - Conceptos - Comandos básicos a avanzados

Tabla de contenido:

Anonim

Introducción a los comandos de Perl

Perl es un lenguaje de programación. Anteriormente diseñado solo para edición de texto, ahora se usa para muchos propósitos, como la administración del sistema en Linux, desarrollo web, programación de redes, etc. El arquitecto principal y creador de Perl es Larry Wall. Fue creado en 1987 y todavía se usa como un lenguaje de programación importante. Perl es un lenguaje de alto nivel. También es un lenguaje de programación interpretado y dinámico. Ahora aprenderemos los comandos de Perl en detalle.

Comandos básicos de Perl

1. Comando básico de Perl para imprimir en Perl

#!/usr/bin/perl
# This will print "Hello, World"
print "Hello, world\n";

2. Comentario de una sola línea en Perl

#!/usr/bin/perl
# This is a single line comment
print "Hello Perl\n";

3. Comentario de varias líneas en Perl

#!/usr/bin/perl
=begin comment
This is a multiline comment.
Line 1
Line 2
Line 3
We can insert
as much lines
as comments
until we code =cut
to end multiline comments
=cut
print "Hello Perl\n";

4. Asignación de variables en Perl (Interpolación de variables con comillas dobles)

#!/usr/bin/perl
$a = 10;
print "Variable a = $a\n";

5. Escape del personaje en Perl

#!/usr/bin/perl
$a = "This is \"Perl\"";
print "$a\n";
print "\$a\n";

6. En Perl, las cadenas tienen un comportamiento diferente con comillas dobles y comillas simples. Mientras que las comillas dobles permiten la interpolación, las comillas simples no.

#!/usr/bin/perl
# Interpolation example.
$str = "Hello \nPerl";
print "$str\n";
# Non-interpolation example.
$str = 'Hello \nPerl';
print "$str\n";

7. Mayúsculas en el comando Perl

#!/usr/bin/perl
# Only u will become upper case.
$str = "\uhello perl";
print "$str\n";
# All the letters will become Uppercase.
$str = "\Uhello perl";
print "$str\n";
# A portion of string will become Uppercase.
$str = "hello \Uperl\E";
print "$str\n";

8. Asignación de variables escalares en Perl

#!/usr/bin/perl
$age = 35; # Assigning an integer
$name = "Tony Stark"; # Assigning a string
$pi = 3.14; # Assigning a floating point
print "Age = $age\n";
print "Name = $name\n";
print "Pi = $pi\n";

9. Operaciones escalares simples en Perl

#!/usr/bin/perl
$constr = "hi" . "perl";# Concatenates two or more strings.
$add = 40 + 10; # addition of two numbers.
$prod = 4 * 51;# multiplication of two numbers.
$connumstr = $constr . $add;# concatenation of string and number.
print "str = $constr\n";
print "num = $add\n";
print "mul = $prod\n";
print "mix = $connumstr\n";

10. Literales especiales en Perl

#!/usr/bin/perl
print "Current file name ". __FILENAME__ . "\n";
print "Current Line Number " . __LINENO__ ."\n";
print "Current Package " . __PACKAGENAME__ ."\n";
# here they cannot be interpolated
print "__FILENAME__ __LINENO__ __PACKAGENAME__\n";

Comandos Perl intermedios

1. Matrices en Perl

El índice de matriz comienza desde 0. El índice negativo indica elementos de la última posición. Ejemplo a continuación.

#!/usr/bin/perl

@weekday = qw/Mon Tue Wed Thu Fri Sat Sun/;

print "$weekday(0)\n";
print "$weekday(1)\n";
print "$weekday(2)\n";
print "$weekday(6)\n";
print "$weekday(-1)\n";
print "$weekday(-6)\n";

2. Matrices para elementos en una secuencia

#!/usr/bin/perl
@oneToTen = (1..10);
@fiftyToSeventyfive = (50..75);
@aToZ = (a..z);
print "@oneToTen\n"; # Prints one to ten
print "@fiftyToSeventyfive\n"; # Prints fifty to seventy five
print "@aToZ\n"; # Prints from a to z

3. Adición y eliminación de elementos de matriz

#!/usr/bin/perl
# creating an array
@expression = ("happy", "sad", "angry");
print "1. \@expression = @expression\n";
# add element to the end of the arraypush(@expression, "jolly");
print "2. \@expression = @expression\n";
# add element to the beginning of the arrayunshift(@expression, "excited");
print "3. \@expression = @expression\n";
# remove element to the last of the array.pop(@expression);
print "4. \@expression = @expression\n";
# remove element from the beginning of the array.shift(@expression);
print "5. \@expression = @expression\n";

4. Hashes en Perl

Hash es un concepto de Key Value Pair. A continuación se muestra un ejemplo para crear un hash.

#!/usr/bin/perl
%data = ('Mohan Singh' => 55, 'Ram Gupta' => 25, 'Bhuvan Kumar' => 31);
@age = values %data;
print "$age(0)\n";
print "$age(1)\n";
print "$age(2)\n";

5. Adición y eliminación de elementos hash

#!/usr/bin/perl
%data = ('Mohan Singh' => 55, 'Ram Gupta' => 25, 'Bhuvan Kumar' => 31);
@keys = keys %data;
$size = @keys;
print "a - Hash size: $size\n";
# add an element to the hash;
$data('Imran Khan') = 44;
@keys = keys %data;
$size = @keys;
print "b - Hash size: $size\n";
# delete an element from the hash;
delete $data('Imran Khan');
@keys = keys %data;
$size = @keys;
print "c - Hash size: $size\n";

6. Declaración condicional en Perl: if … elsif … else

#!/usr/local/bin/perl
$num = 50;
# check condition using if statement
if( $num == 40 ) (
# print the following if true
printf "num has a value which is 20\n";
) elsif( $num == 60 ) (
# else print if the next condition is true
printf "num has a value which is 30\n";
) else (
# if none is true print following
printf "num has a value which is $num\n";
)

7. Declaración condicional en Perl: a menos que … elsif … otra declaración

#!/usr/local/bin/perl,
$num = 50;
# check condition using unless statement
unless( $num == 25) (
# if condition is false then print the following
printf "num has a value which is not 25\n";
) elsif( $num == 55) (
# if condition is true then print the following
printf "num has a value which is 55";
) else (
# if both the condition is dissatisfied, print the
original value
printf "num has a value which is $num\n";
)

8. Bucles en Perl: bucle While

#!/usr/local/bin/perl
$i = 1;
# while loop
while( $i < 5 ) (
printf "Value of i: $i\n";
$i = $i + 1;
)

9. Bucles en Perl: hasta el bucle y para el bucle

#!/usr/local/bin/perl
$i = 1;
# until loop
until( $i > 5 ) (
printf "Value of i: $i\n";
$i = $i + 1;
)
# for loop
for ($j = 0; $j < 3; $j++) (
printf "Value of j: $j\n";
)

10. Loops en Perl: do … while Loop

#!/usr/local/bin/perl
$i = 10;
# do…while loop
do(
printf "Value of i: $i\n";
$i = $i + 1;
)
while( $i < 20 );

Comandos avanzados de Perl

1. Programación de socket en Perl: servidor

#!/usr/bin/perl -w
# Filename : server.pl
use strict;
use Socket;
# use port 8081 as default
my $port = shift || 8081;
my $protocol = getprotobyname('tcp');
my $server = "localhost"; # Host IP running the
server
# create a socket, make it reusable
socket(SOCKET, PF_INET, SOCK_STREAM,
$protocol)
or die "Can't open socket $!\n";
setsockopt(SOCKET, SOL_SOCKET,
SO_REUSEADDR, 1)
or die "Can't set socket option to SO_REUSEADDR
$!\n";
# bind to a port, then listen
bind( SOCKET, pack_sockaddr_in($port,
inet_aton($server)))
or die "Can't bind to port $port! \n";
listen(SOCKET, 5) or die "listen: $!";
print "SERVER started on port $port\n";
# accepting a connection
my $client_addr;
while ($client_addr = accept(NEW_SOCKET,
SOCKET)) (
# send them a message, close connection
my $name = gethostbyaddr($client_addr,
AF_INET );
print NEW_SOCKET "Smile from the server";
print "Connection recieved from $name\n";
close NEW_SOCKET;
)

2. Programación de socket en Perl: Cliente

!/usr/bin/perl -w
# Filename : client.pl
use strict;
use Socket;
# initialize host and port
my $host = shift || 'localhost';
my $port = shift || 8081;
my $server = "localhost"; # Host IP running the
server
# create the socket, connect to the port
socket(SOCKET, PF_INET, SOCK_STREAM, (getproto
byname('tcp'))(2))
or die "Can't create a socket $!\n";
connect( SOCKET, pack_sockaddr_in($port,
inet_aton($server)))
or die "Can't connect to port $port! \n";
my $line;
while ($line = ) (
print "$line\n";
)close SOCKET or die "close: $!";

3. Conectividad de base de datos usando Perl

#!/usr/bin/per
use DBI
use strict;
my $driver = "mysql";
my $database = "DBTEST";
my $dsn = "DBI:$driver:database=$database";
my $userid = "user123";
my $password = "pass123";
my $dbh = DBI->connect($dsn, $userid, $password
) or die $DBI::errstr;

4. Programación CGI usando Perl

#!/usr/bin/perl
print "Content-type:text/html\r\n\r\n";
print '';
print '';
print 'Hello Perl - CGI Example';
print '';
print '';
print '

Hola perl Este es un ejemplo de programa CGI

';
impresión '';
impresión '';
1;

Consejos y trucos para usar los comandos de Perl

Se dice que Perl es una mezcla de todos los lenguajes, es decir, viene equipado con las mejores características de los principales lenguajes de programación. El aspecto más importante es dominar los conceptos básicos y continuar con la práctica de este lenguaje. La actualización y la superación personal son la clave del éxito.

Conclusión

Los programas anteriores son ejemplos que ayudarán a una entidad a comprender los conceptos básicos y proceder con la mejora personal. Esto se ha dicho un lenguaje de programación feo, pero en realidad, muestra una amplia variedad de características. Se recomienda seguir este documento para compilar códigos y comprender lo que sucede en el programa mismo.

Artículos recomendados

Esta ha sido una guía para los comandos de Perl. Aquí hemos discutido los comandos básicos, inmediatos y avanzados de Perl. También puede consultar el siguiente artículo para obtener más información.

  1. Usos de los comandos de Tableau
  2. Cómo usar los comandos de HBase
  3. Comandos MongoDB
  4. Importancia de los comandos de cerdo
  5. Programación de sockets en Python