Команди Perl - Поняття - Основні для розширених команд

• Вступ до команд Perl
• Привіт Перл! Це приклад програми CGI

Вступ до команд Perl

Perl - мова програмування. Раніше призначений лише для редагування тексту, тепер він використовується для багатьох цілей, таких як адміністрування системи в Linux, веб-розробка, мережеве програмування тощо. Головним архітектором та творцем Perl є Ларрі Уолл. Він був створений ще в 1987 році і досі використовується як основна мова програмування. Perl - мова високого рівня. Це також інтерпретована та динамічна мова програмування. Тепер ми детально вивчимо команди Perl.

Основні команди Perl

1. Основна команда Perl для друку в Perl

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

2. Однорядковий коментар в Perl

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

3. Багаторядковий коментар в 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. Змінне призначення в Perl (Інтерполяція подвійних котируваних змінних)

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

5. Персонаж втечі в Perl

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

6. У Perl рядки мають різну поведінку з подвійними лапками та одинарними лапками. У той час як подвійні лапки дозволяють проводити інтерполяцію, одинарні лапки не роблять.

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

7. Верхня справа у командуванні 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. Присвоєння скалярної змінної в 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. Прості скалярні операції в 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. Спеціальні літератури в 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";

Проміжні команди Perl

1. Масиви в Perl

Індекс масиву починається з 0. Від'ємний індекс вказує на елементи з останньої позиції. Приклад нижче.

#!/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. Масиви для елементів у послідовності

#!/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. Додавання та видалення елементів масиву

#!/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. Хеш в Перл

Хеш - це концепція пари ключових цінностей. Нижче наведено приклад створення хеша.

#!/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. Додавання та видалення хеш-елементів

#!/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. Умовна заява в Perl: якщо… elsif… інше

#!/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. Умовна заява в Perl: якщо… інше заява elsif…

#!/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. Петлі в Perl: Поки петля

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

9. Петлі в Perl: до циклу і для циклу

#!/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. Петлі в Perl: виконайте … поки цикл

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

Розширені команди Perl

1. Програмування сокетів в Perl: Сервер

#!/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. Програмування сокетів в Perl: Клієнт

!/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. Підключення до бази даних за допомогою 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. Програмування CGI за допомогою Perl

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

Привіт Перл! Це приклад програми CGI

';
друк '';
друк '';
1;

Поради та рекомендації щодо використання команд Perl

Кажуть, що Perl є сумішшю всіх мов, тобто він оснащений найкращими можливостями основних мов програмування. Найважливіший аспект - оволодіння основами та продовження практики цієї мови. Модернізація та самовдосконалення - запорука успіху.

Висновок

Вищеописані програми є зразками, які допоможуть суб'єкту господарювання зрозуміти основи та продовжити самовдосконалення. Це було сказано некрасивою мовою програмування, але насправді він демонструє найрізноманітніші функції. Рекомендується дотримуватися цього документа, щоб скласти коди та зрозуміти, що відбувається в самій програмі.

Рекомендовані статті

Це був посібник для команд Perl. Тут ми обговорили основні, негайні та вдосконалені команди Perl. Ви також можете переглянути наступну статтю, щоб дізнатися більше -

1. Використання команд Tableau
2. Як користуватися командами HBase
3. Команди MongoDB
4. Важливість команд свиней
5. Програмування сокетів в Python