Kurs 5: L�r dig att programmera Perl - Subrutiner

JavaScript.nu / Perl-kurs / Subrutiner

L�R DIG ATT PROGRAMMERA PERL
Subrutiner

I Perl kan man g�ra subrutiner. Dessa �r ov�rderliga d� du g�r script som ska g�ra om n�got flera g�nger. �ven om scriptet inte ska g�ra det s� hj�lper subrutiner till med att g�ra koden l�ttare att l�sa.
Subrutiner definieras med sub, och anropas med och-tecknet, &. Det i subrutinen utf�rs inte f�rr�n subrutinen anropas.

#!/usr/bin/perl

sub tabell_start   #Skriver ut b�rjan av varje rad i tabellen
{
$i++;   # �kar r�knaren med 1
print "<TR><TD><B>$i</B></TD><TD>";
}

sub tabell_slut   #Skriver ut slutet av varje rad i tabellen
{
print "</TD></TR>\n";
}

$i=0;   # R�knaren startar p� noll 0
@onskelista=("Bilbana","B�tar","Lego","Barbie"); #�nskningarna som ska listas ut i en tabell
print "Content-type:text/html\n\n";

print "<TABLE>\n";         #Skrivs ut f�rst
foreach $sak (@onskelista)
{
&tabell_start;             #Anropar tabell_start
print "$sak";              #Skriver ut �nskningen
&tabell_slut;              #Anropar tabell_slut
}
print "</TABLE>";          #Tabellen avslutas med detta


Utskrift:
<TABLE>
<TR><TD><B>1</B></TD><TD>Bilbana</TD></TR>
<TR><TD><B>2</B></TD><TD>B�tar</TD></TR>
<TR><TD><B>3</B></TD><TD>Lego</TD></TR>
<TR><TD><B>4</B></TD><TD>Barbie</TD></TR>
</TABLE>

Att g�ra stora och v�lstrukturerade script utan subrutiner g�r inte, varf�r du redan nu b�r memorera hur subrutiner definieras (sub) och hur de anropas (&).

[Perl guiden] - [Till kapitel 6]

L�R DIG ATT PROGRAMMERA PERL Subrutiner

L�R DIG ATT PROGRAMMERA PERL
Subrutiner