Einführung in Perl-Befehle
Perl ist eine Programmiersprache. Früher nur für die Textbearbeitung konzipiert, wird es jetzt für viele Zwecke wie die Systemadministration unter Linux, Webentwicklung, Netzwerkprogrammierung usw. verwendet. Der Chefarchitekt und Schöpfer von Perl ist Larry Wall. Es wurde 1987 erstellt und wird immer noch als wichtige Programmiersprache verwendet. Perl ist eine Hochsprache. Es ist auch eine interpretierte und dynamische Programmiersprache. Jetzt lernen wir Perl-Befehle im Detail.
Grundlegende Perl-Befehle
1. Grundlegender Perl-Befehl zum Drucken in Perl
#!/usr/bin/perl
# This will print "Hello, World"
print "Hello, world\n";
2. Einzeiliger Kommentar in Perl
#!/usr/bin/perl
# This is a single line comment
print "Hello Perl\n";
3. Mehrzeiliger Kommentar in 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. Variablenzuweisung in Perl (Interpolation von Variablen in Anführungszeichen)
#!/usr/bin/perl
$a = 10;
print "Variable a = $a\n";
5. Escape-Zeichen in Perl
#!/usr/bin/perl
$a = "This is \"Perl\"";
print "$a\n";
print "\$a\n";
6. In Perl verhalten sich Zeichenfolgen mit doppelten und einfachen Anführungszeichen unterschiedlich. Während doppelte Anführungszeichen Interpolation erlauben, tun einfache Anführungszeichen nicht.
#!/usr/bin/perl
# Interpolation example.
$str = "Hello \nPerl";
print "$str\n";
# Non-interpolation example.
$str = 'Hello \nPerl';
print "$str\n";
7. Großbuchstaben im Perl-Befehl
#!/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. Skalare Variablenzuweisung in 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. Einfache skalare Operationen in 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. Spezielle Literale 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";
Perl-Befehle für Fortgeschrittene
1. Arrays in Perl
Der Array-Index beginnt bei 0. Der negative Index kennzeichnet Elemente von der letzten Position. Beispiel unten.
#!/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. Arrays für Elemente in einer Sequenz
#!/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. Hinzufügen und Entfernen von Array-Elementen
#!/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 in Perl
Hash ist ein Konzept von Key Value Pair. Unten sehen Sie ein Beispiel zum Erstellen eines Hashs.
#!/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. Hinzufügen und Entfernen von Hash-Elementen
#!/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. Bedingte Anweisung in Perl: if… 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. Bedingte Anweisung in Perl: sofern nicht anders angegeben
#!/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. Schleifen in Perl: While-Schleife
#!/usr/local/bin/perl
$i = 1;
# while loop
while( $i < 5 ) (
printf "Value of i: $i\n";
$i = $i + 1;
)
9. Schleifen in Perl: Bis zur Schleife und Für die Schleife
#!/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. Schleifen in Perl: do… while Schleife
#!/usr/local/bin/perl
$i = 10;
# do…while loop
do(
printf "Value of i: $i\n";
$i = $i + 1;
)
while( $i < 20 );
Erweiterte Perl-Befehle
1. Socket-Programmierung 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-Programmierung 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. Datenbankverbindung mit 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-Programmierung mit Perl
#!/usr/bin/perl
print "Content-type:text/html\r\n\r\n";
print '';
print '';
print 'Hello Perl - CGI Example';
print '';
print '';
print '
Hallo Perl! Dies ist ein CGI-Programmbeispiel
';drucken '';
drucken '';
1;
Tipps und Tricks zur Verwendung von Perl-Befehlen
Perl soll eine Mischung aller Sprachen sein, dh es ist mit den besten Funktionen der wichtigsten Programmiersprachen ausgestattet. Der wichtigste Aspekt ist, die Grundlagen zu beherrschen und mit dem Üben dieser Sprache fortzufahren. Aufrüstung und Selbstverbesserung ist der Schlüssel zum Erfolg.
Fazit
Die oben genannten Programme sind Beispiele, die einem Unternehmen helfen, die Grundlagen zu verstehen und mit der Selbstverbesserung fortzufahren. Man hat gesagt, dass dies eine hässliche Programmiersprache ist, aber tatsächlich zeigt sie eine Vielzahl von Funktionen. Es wird empfohlen, dieses Dokument zu befolgen, um Codes zu kompilieren und zu verstehen, was im Programm selbst vor sich geht.
Empfohlene Artikel
Dies war eine Anleitung zu Perl-Befehlen. Hier haben wir grundlegende, unmittelbare sowie erweiterte Perl-Befehle besprochen. Sie können auch den folgenden Artikel lesen, um mehr zu erfahren.
- Verwendung von Tableau-Befehlen
- Verwendung der HBase-Befehle
- MongoDB-Befehle
- Bedeutung der Schweinebefehle
- Socket-Programmierung in Python