Introducere în comenzile Perl
Perl este un limbaj de programare. Proiectat anterior pentru editare de text, acum este folosit în mai multe scopuri, cum ar fi administrarea sistemului în Linux, dezvoltare web, programare de rețea, etc. Arhitectul principal și creatorul Perl sunt Larry Wall. A fost creat în 1987 și este încă utilizat ca limbaj de programare major. Perl este un limbaj la nivel înalt. Este, de asemenea, un limbaj de programare interpretat și dinamic. Acum vom învăța în detaliu Comenzile Perl.
Comenzi de bază Perl
1. Comandă de bază Perl pentru a imprima în Perl
#!/usr/bin/perl
# This will print "Hello, World"
print "Hello, world\n";
2. Comentariu cu o singură linie în Perl
#!/usr/bin/perl
# This is a single line comment
print "Hello Perl\n";
3. Comentariu cu mai multe linii în 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. Alocarea variabilelor în Perl (Interpolarea variabilelor citate dublu)
#!/usr/bin/perl
$a = 10;
print "Variable a = $a\n";
5. Personajul de evadare din Perl
#!/usr/bin/perl
$a = "This is \"Perl\"";
print "$a\n";
print "\$a\n";
6. În Perl, șirurile au un comportament diferit cu ghilimele duble și ghilimele simple. În timp ce ghilimelele duble permit interpolarea, ghilimelele simple nu.
#!/usr/bin/perl
# Interpolation example.
$str = "Hello \nPerl";
print "$str\n";
# Non-interpolation example.
$str = 'Hello \nPerl';
print "$str\n";
7. Cazul superior în comanda 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. Alocare variabilă scalară în 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. Operații scalare simple în 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. Literale speciale în 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";
Comenzi intermediare Perl
1. Arătări în Perl
Indicele Array pornește de la 0. Indicele negativ indică elemente din ultima poziție. Exemplu de mai jos.
#!/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. Schițe pentru elemente dintr-o secvență
#!/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. Adăugarea și îndepărtarea elementului Array
#!/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. Hașe în Perl
Hash este un concept de pereche de valori cheie. Mai jos este un exemplu pentru a crea 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. Adăugarea și îndepărtarea elementului 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. Declarație condiționată în Perl: dacă … elsif … altfel
#!/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. Declarație condiționată în Perl: cu excepția cazului în care … elsif … altceva
#!/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. Bucle în Perl: În buclă
#!/usr/local/bin/perl
$i = 1;
# while loop
while( $i < 5 ) (
printf "Value of i: $i\n";
$i = $i + 1;
)
9. Bucle în Perl: Până la Buclă și Pentru Buclă
#!/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. Bucle în Perl: faceți … în timp ce Buclă
#!/usr/local/bin/perl
$i = 10;
# do…while loop
do(
printf "Value of i: $i\n";
$i = $i + 1;
)
while( $i < 20 );
Comenzi avansate Perl
1. Programare Socket în Perl: Server
#!/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. Programare Socket în Perl: Client
!/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. Conectivitatea bazelor de date folosind 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. Programare CGI folosind Perl
#!/usr/bin/perl
print "Content-type:text/html\r\n\r\n";
print '';
print '';
print 'Hello Perl - CGI Example';
print '';
print '';
print '
Salut Perl! Acesta este un exemplu de program CGI
„;imprimare '';
imprimare '';
1;
Sfaturi și trucuri pentru a utiliza comenzile Perl
Se spune că Perl este un amestec dintre toate limbile, adică este echipat cu cele mai bune caracteristici ale limbajelor de programare majore. Cel mai important aspect este să stăpânești elementele de bază și să continui practicarea acestui limbaj. Modernizarea și îmbunătățirea de sine este cheia succesului.
Concluzie
Programele de mai sus sunt exemple care ajută o entitate să înțeleagă elementele de bază și să continue cu auto-îmbunătățirea. S-a spus despre un limbaj de programare urât, dar, de fapt, prezintă o mare varietate de funcții. Este recomandat să urmați acest document pentru a compila coduri și a înțelege ce se întâmplă în programul în sine.
Articole recomandate
Acesta a fost un ghid pentru comenzile Perl. Aici am discutat despre comenzile Perl de bază, imediate, precum și avansate. De asemenea, puteți consulta articolul următor pentru a afla mai multe-
- Utilizări ale comenzilor Tableau
- Cum se utilizează Comenzile HBase
- Comenzile MongoDB
- Importanța comenzilor de porci
- Programare Socket în Python