Úvod do příkazů Perl
Perl je programovací jazyk. Dříve navržený pouze pro úpravy textu, nyní se používá pro mnoho účelů, jako je správa systému v Linuxu, vývoj webových aplikací, programování v síti atd. Hlavní architekt a tvůrce Perlu jsou Larry Wall. Byl vytvořen již v roce 1987 a stále se používá jako hlavní programovací jazyk. Perl je jazyk na vysoké úrovni. Je to také interpretovaný a dynamický programovací jazyk. Nyní se naučíme Perl Commands podrobně.
Základní příkazy Perl
1. Základní příkaz Perl pro tisk v Perlu
#!/usr/bin/perl
# This will print "Hello, World"
print "Hello, world\n";
2. Jeden řádek v Perlu
#!/usr/bin/perl
# This is a single line comment
print "Hello Perl\n";
3. Víceřádkový komentář v Perlu
#!/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. Přiřazení proměnných v Perlu (Interpolace dvojitě citovaných proměnných)
#!/usr/bin/perl
$a = 10;
print "Variable a = $a\n";
5. Úniková postava v Perlu
#!/usr/bin/perl
$a = "This is \"Perl\"";
print "$a\n";
print "\$a\n";
6. V Perlu mají řetězce různé chování s uvozovkami a jednoduchými uvozovkami. Zatímco dvojité uvozovky umožňují interpolaci, jednoduché uvozovky nikoli.
#!/usr/bin/perl
# Interpolation example.
$str = "Hello \nPerl";
print "$str\n";
# Non-interpolation example.
$str = 'Hello \nPerl';
print "$str\n";
7. Velká písmena v příkazu 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. Přiřazení skalární proměnné v Perlu
#!/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. Jednoduché skalární operace v Perlu
#!/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. Special Literals in 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";
Mezilehlé příkazy Perl
1. Pole v Perlu
Index pole začíná od 0. Záporný index označuje prvky z poslední pozice. Příklad níže.
#!/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. Pole prvků v sekvenci
#!/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. Přidání a odstranění prvku pole
#!/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 v Perlu
Hash je koncept Key Value Pair. Níže je uveden příklad vytvoření hashe.
#!/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. Přidání a odstranění prvku 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. Podmíněné prohlášení v Perlu: pokud… elsif… jinde
#!/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. Podmíněné prohlášení v Perlu: pokud… prohlášení elsif… else
#!/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. Loops in Perl: while loop
#!/usr/local/bin/perl
$i = 1;
# while loop
while( $i < 5 ) (
printf "Value of i: $i\n";
$i = $i + 1;
)
9. Smyčky v Perlu: Do smyčky a do smyčky
#!/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. Smyčky v Perlu: udělejte … zatímco smyčky
#!/usr/local/bin/perl
$i = 10;
# do…while loop
do(
printf "Value of i: $i\n";
$i = $i + 1;
)
while( $i < 20 );
Rozšířené příkazy Perl
1. Socket Programming in 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. Socket Programming in 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. Připojení databáze pomocí Perlu
#!/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. Programování CGI pomocí Perl
#!/usr/bin/perl
print "Content-type:text/html\r\n\r\n";
print '';
print '';
print 'Hello Perl - CGI Example';
print '';
print '';
print '
Ahoj Perl! Toto je příklad programu CGI
';tisk '';
tisk '';
1;
Tipy a triky k používání příkazů Perl
Perl je údajně směsicí všech jazyků, tj. Je vybaven nejlepšími funkcemi hlavních programovacích jazyků. Nejdůležitějším aspektem je osvojení základů a pokračování v praxi tohoto jazyka. Klíčem k úspěchu je modernizace a sebezdokonalování.
Závěr
Výše uvedené programy jsou ukázkami, které pomohou účetní jednotce porozumět základům a postupovat se zdokonalením. To bylo řečeno ošklivý programovací jazyk, ale ve skutečnosti ukazuje širokou škálu funkcí. Doporučujeme postupovat podle tohoto dokumentu při sestavování kódů a pochopení toho, co se děje v samotném programu.
Doporučené články
Toto byl průvodce Perl Commands. Zde jsme diskutovali základní, okamžité i pokročilé příkazy Perlu. Další informace naleznete také v následujícím článku.
- Použití příkazů Tableau
- Jak používat příkazy HBase
- Příkazy MongoDB
- Význam příkazů pro prasata
- Programování soketů v Pythonu