Tråd bedømmelse:
  • 1 Stemmer - 5 Gennemsnit
  • 1
  • 2
  • 3
  • 4
  • 5
Kom i gang med Perl scripting
12-04-2015, 14:34 (Denne besked var sidst ændret: 27-05-2015, 16:51 af iTick.)
#1
Kom i gang med Perl scripting
Formål:
Dette er ikke en guide i scripting, men en lille opslagsting, der forhåbentlig kan få andre i gang med at programmere,
derfor har jeg også undladt at kommentere koden. Det burde umiddelbart være læsligt, uden at kende sproget.
Og jeg anbefaler selvfølgelig, at søge på google og andre steder, før man spøger. Man falder ofte over noget interessant,
der kan give noget tillægsviden.
Jeg er ikke ekspert i sproget, og det er lavet for at være simpelt og let at forstå, så der vil uden tvivl være ting,
der er smartere eller bedre gjort på andre måder.
Det kan bare virke demotiverende, når man er helt ny til programmering, hvis man og skal overholde kodestandarder.
Sprog ændrer sig også med tiden, og tingene skal pludselig gøres anderledes.
Det er efter min opfattelse vigtigst at få det til at virke og få lidt rutine, så kan man finpudse det bag efter.
Jeg dækker absolut heller ikke det hele, men har taget lidt forskelligt med, og det burde være nok til at komme i gang.
Huske at alle sprog har nogle små kinks og triks. Disse er heller ikke taget med. Dette er heller ikke til eksperterne. :)

Alle scriptene kan startes direkte fra en linux konsol. Nogle sprog kan også benyttes på windows, men disse virker i hvert fald på linux.
Først skal man nok lige give brugertilladelse til, at scriptet må eksekveres. Dette gøres med:
$ chmod u+x <scriptnavn>
$ ./<scriptnavn>


Det typiske Hello World eksempel:
 
#!/usr/bin/env perl

# Perl Hello world
# Fil: helloworld.pl

print "Hello World\n"


Et eksempel på en for loop:
 
#!/usr/bin/env perl

# Perl for
# Fil: for.pl

for ($i = 1; $i < 10; $i++) {
print $i . "\n";
}

for $i (1..5) { print "$i\n"; }

for $i (reverse(1..10), "Done") {
print $i, "\n";
}


Et eksempel på en while loop:
 
#!/usr/bin/env perl

# Perl while
# Fil: while.pl

$i = 1;
while ($i < 10) {
print $i . "\n";
} continue {
$i++;
}


Et eksempel på brugen af if/then/else:
 
#!/usr/bin/env perl

# Perl if
# Fil: if.pl

$i = 5;
if ($i == 5) {
print "OK\n";
}

$i = 5;
if ($i < 5) {
print "Lav\n";
} elsif ($i == 5) {
print "Mellem\n";
} else {
print "H0j\n";
}


Et eksempel på et script der får brugerinput:
 
#!/usr/bin/env perl

# Perl input
# Fil: input.pl

$a = <>;
print $a


Et eksempel på et script der bliver kaldt med argumenter:
 
#!/usr/bin/env perl

# Perl arguments
# Fil: arg.pl
# kaldes med ./arg.pl 1 2

print $ARGV[0] . "\n";
print $ARGV[1] . "\n";


Et eksempel på en funktion:
 
#!/usr/bin/env perl

# Perl funktioner
# Fil: function.pl

sub enfunktion
{
my ($a) = @_;
print $a;
}

print "Uden for funktionen\n";
enfunktion("I funktionen\n");


Et eksempel på et script der forbinder til en webside:
 
#!/usr/bin/env perl

# Perl networking
# Fil: network.pl

use LWP::Simple;

$content = get("http://www.google.dk") ;
print $content;


Link:
perldoc.perl.org
---
Writing a shellcode decoder stub in assembly is like talking gibberish in such a way that it is still perfectly intelligible. - iTick
Besøg denne brugers hjemmeside Find alle beskeder fra denne bruger
Citer denne besked i et svar
« Ældre | Nyere »




User(s) browsing this thread: 1 Gæst(er)