Bevezetés a Perl parancsaiba
A Perl egy programozási nyelv. Korábban csak szöveges szerkesztésre tervezték, és többféle célra felhasználják, mint például a rendszer adminisztrációja a Linuxban, webfejlesztés, hálózati programozás, stb. A Perl főépítésze és alkotója Larry Wall. 1987-ben hozták létre, és továbbra is fő programozási nyelvként használják. A Perl magas szintű nyelv. Ez egy értelmezett és dinamikus programozási nyelv is. Most részletesen megismerjük a Perl parancsokat.
Alapvető Perl-parancsok
1. Alapvető Perl-parancs a Perl-ben történő nyomtatáshoz
#!/usr/bin/perl
# This will print "Hello, World"
print "Hello, world\n";
2. Egysoros megjegyzés Perlben
#!/usr/bin/perl
# This is a single line comment
print "Hello Perl\n";
3. Több soros megjegyzés Perlben
#!/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. Változtatható hozzárendelés Perl-ben (kettős idézésű változók interpolálása)
#!/usr/bin/perl
$a = 10;
print "Variable a = $a\n";
5. Menekülési karakter Perlben
#!/usr/bin/perl
$a = "This is \"Perl\"";
print "$a\n";
print "\$a\n";
6. Perl-ben a húrok viselkedése eltérő idézőjelekkel és egy idézőjelekkel. Míg a dupla idézőjelek lehetővé teszik az interpolációt, az idézőjelek nem.
#!/usr/bin/perl
# Interpolation example.
$str = "Hello \nPerl";
print "$str\n";
# Non-interpolation example.
$str = 'Hello \nPerl';
print "$str\n";
7. Felsőbetű a Perl-parancsban
#!/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. Skaláris változó hozzárendelés Perl-ben
#!/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. Egyszerű skaláris műveletek Perl-ben
#!/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. Speciális irodalom Perlben
#!/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";
Köztes Perl-parancsok
1. Tömbök Perl-ben
A tömbindex 0-tól kezdődik. A negatív index az utolsó pozíció elemeit jelzi. Az alábbi példa.
#!/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. Az elemek tömbjei egy sorozatban
#!/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. tömb elem hozzáadása és eltávolítása
#!/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. hash Perl-ben
A Hash a kulcsérték-pár fogalma. Az alábbiakban található egy példa hash létrehozására.
#!/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. A hasító elem hozzáadása és eltávolítása
#!/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. Feltételes nyilatkozat Perlben: ha… elsif… egyéb
#!/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. Feltételes nyilatkozat Perl-ben: kivéve, ha… elsif… egyéb nyilatkozat
#!/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. Hurkok Perl-ben: Míg hurok
#!/usr/local/bin/perl
$i = 1;
# while loop
while( $i < 5 ) (
printf "Value of i: $i\n";
$i = $i + 1;
)
9. Hurkok Perlben: A hurokig és a hurokig
#!/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. Hurkok Perl-ben: csinálj … addig, amíg hurok van
#!/usr/local/bin/perl
$i = 10;
# do…while loop
do(
printf "Value of i: $i\n";
$i = $i + 1;
)
while( $i < 20 );
Speciális Perl parancsok
1. Socket programozás Perl-ben: Szerver
#!/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 programozás Perl-ben: kliens
!/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. Adatbázis-kapcsolat a Perl használatával
#!/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 programozás a Perl segítségével
#!/usr/bin/perl
print "Content-type:text/html\r\n\r\n";
print '';
print '';
print 'Hello Perl - CGI Example';
print '';
print '';
print '
Helló Perl! Ez egy CGI programpélda
„nyomtatás '';
nyomtatás '';
1;
Tippek és trükkök a Perl-parancsok használatához
Perlről azt állítják, hogy az összes nyelv keveréke, azaz fel van szerelve a főbb programozási nyelvek legjobb tulajdonságaival. A legfontosabb szempont az alapok elsajátítása és ezen nyelv gyakorlásának folytatása. Frissítés és önfejlesztés a siker kulcsa.
Következtetés
A fenti programok olyan minták, amelyek segítenek az entitásnak megérteni az alapokat és folytatni az önfejlesztést. Ezt mondták egy csúnya programozási nyelvnek, de valójában sokféle funkciót mutat be. Javasoljuk, hogy kövesse ezt a dokumentumot a kódok összeállításához és a programban zajló események megértéséhez.
Ajánlott cikkek
Ez egy útmutató a Perl-parancsokhoz. Itt megvitattuk az alapvető, azonnali és fejlett Perl-parancsokat. A következő cikkben további információkat is megtudhat -
- A Tableau parancsok felhasználása
- A HBase parancsok használata
- MongoDB parancsok
- A sertésparancsok fontossága
- Socket programozás Pythonban