Úvod do príkazov Perl
Perl je programovací jazyk. Skôr určený iba na úpravu textu, teraz sa používa na mnohé účely, ako je napríklad správa systému v systéme Linux, vývoj webových aplikácií, sieťové programovanie atď. Hlavným architektom a tvorcom Perlu je Larry Wall. Bol vytvorený už v roku 1987 a stále sa používa ako hlavný programovací jazyk. Perl je jazyk na vysokej úrovni. Je to tiež interpretovaný a dynamický programovací jazyk. Teraz sa dozvieme podrobné príkazy Perlu.
Základné príkazy Perl
1. Základný príkaz Perl na tlač v jazyku Perl
#!/usr/bin/perl
# This will print "Hello, World"
print "Hello, world\n";
2. Jednoriadkový komentár v Perl
#!/usr/bin/perl
# This is a single line comment
print "Hello Perl\n";
3. Komentár viacerých riadkov v 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. Priradenie premenných v Perle (Interpolácia dvojitých kótovaných premenných)
#!/usr/bin/perl
$a = 10;
print "Variable a = $a\n";
5. Uniknite z postavy v Perle
#!/usr/bin/perl
$a = "This is \"Perl\"";
print "$a\n";
print "\$a\n";
6. V Perle majú reťazce odlišné správanie s dvojitými úvodzovkami a jednoduchými úvodzovkami. Zatiaľ čo dvojité úvodzovky umožňujú interpoláciu, jednoduché úvodzovky nie.
#!/usr/bin/perl
# Interpolation example.
$str = "Hello \nPerl";
print "$str\n";
# Non-interpolation example.
$str = 'Hello \nPerl';
print "$str\n";
7. Veľké písmená vo velení 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. Priradenie skalárnej premennej v 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. Jednoduché skalárne operácie v 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. 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";
Priebežné príkazy Perl
1. Polia v Perl
Index poľa začína od 0. Záporný index označuje prvky z poslednej pozície. Príklad nižšie.
#!/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. Polia prvkov v sekvencii
#!/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. Pridanie a odstránenie prvkov poľa
#!/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 Perl
Hash je koncept páru kľúčových hodnôt. Nižšie je uvedený príklad na vytvorenie 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. Pridanie a odstránenie 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. Podmienené vyhlásenie v jazyku Perl: ak … 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. Podmienené vyhlásenie v Perle: pokiaľ … vyhlásenie o spoločnosti 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. Slučky v Perli: Zatiaľ čo slučka
#!/usr/local/bin/perl
$i = 1;
# while loop
while( $i < 5 ) (
printf "Value of i: $i\n";
$i = $i + 1;
)
9. Slučky v Perle: Do slučky a do sluč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. Slučky v Perl: robiť … zatiaľ čo slučka
#!/usr/local/bin/perl
$i = 10;
# do…while loop
do(
printf "Value of i: $i\n";
$i = $i + 1;
)
while( $i < 20 );
Rozšírené príkazy Perl
1. Programovanie Socket v 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. Programovanie Socket v Perl: Klient
!/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. Pripojiteľnosť databázy pomocou 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. Programovanie CGI pomocou 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 príklad programu CGI
, ;print '';
print '';
1;
Tipy a triky na používanie príkazov Perl
Perl je považovaný za zmes všetkých jazykov, tj je vybavený najlepšími vlastnosťami hlavných programovacích jazykov. Najdôležitejším aspektom je osvojenie základov a postupovanie v praxi tohto jazyka. Kľúčom k úspechu je modernizácia a zlepšovanie.
záver
Vyššie uvedené programy sú ukážkami, ktoré pomôžu účtovnej jednotke porozumieť základom a pokračovať v sebaposilňovaní. To bolo povedané škaredý programovací jazyk, ale v skutočnosti predstavuje širokú škálu funkcií. Odporúča sa postupovať podľa tohto dokumentu pri zostavovaní kódov a porozumení tomu, čo sa deje v samotnom programe.
Odporúčané články
Toto bol sprievodca príkazmi Perl. Tu sme diskutovali základné, okamžité aj pokročilé príkazy Perlu. Ak sa chcete dozvedieť viac, pozrite si nasledujúci článok
- Použitie príkazov Tableau
- Ako používať príkazy HBase
- Príkazy MongoDB
- Dôležitosť príkazov ošípaných
- Programovanie zásuviek v Pythone