Re: Sv: [NOVICE] perl start

[Svend Erik Venstrup <sslug@sslug>]

Peter Seidler wrote:
> 
> On Mon, 31 Jan 2000 18:57:36 +0100, Christian Precht Jensen wrote:
> >tak
> >hvordan helved laver man et shell-script
> 
> Man kan for _helvede_ bare starte en f*cking editor:
> 
> #> joe filnavn          (return)
> 
> og så skrive scriptet, e.g.:
> --
> #!/bin/sh/perl -w
> 
> read string
> if [ $string != "" ]; then
>         echo "Du indtastede: $string"
> else
>         echo "Du indtastede ikke noget"
> fi
> 
> exit 0
> --
> 
> Og hvis man så synes, det ser interessant ud, går man ud og køber en bog.
> Evt. bare en generel en om Linux, der ofte har noget shell scripting også.
> Hvis du vil lære perl, så køb en bog om dette
> 
> --
>         Peter Seidler

Et andet forslag til et perl script

Linux - Friheden til at vælge

En introduktion til Linux - version 2.8

Peter Toft

Snebjørn Andersen

Kenneth Geisshirt

Copyright © 1998, 1999 by Peter Toft, Snebjørn Andersen og
Kenneth Geisshirt under OpenContent License


8.3. Perl programmering

Perl er et spændende og meget anvendeligt sprog. C og C++ er
i mange tekniske sammenhænge en de facto standard, men disse
programmeringssprog er
ikke ret velegnede til tekst-manipulationer. Det skal
allokeres den rette mængde hukommelse, og det er ofte svært
at kunne beregne, hvor meget man skal
bruge. Perl er som skabt til behandling af tekst. Perl er et
fortolket sprog, som BASIC er det.

Check om du har installeret Perl ved at skrive 
 sslug@sslug daisy]$ rpm -q `which perl`


Ordren which perl bliver her udført og checker, om
programmet perl kan findes i den nuværende søgesti (Se dette
med echo $PATH). Ordren rpm -q
FILNAVN giver hvilken RPM pakke, som filen findes i. Kommer
der en tom streng frem, er Perl ikke installeret.

Du kan også checke om Perl er installeret ved at skrive 
 sslug@sslug daisy]$ perl -v



Indtast følgende program, og gem det som leg_med_perl 
 #!/usr/bin/perl -w

 @a="hej";
 @b=(@a,"igen");

 print "Arrayet sslug@sslug har værdierne : @b\n";
 printf "Der er %i elementer i sslug@sslug",$#b+1;

 foreach $indeks (@b)
 {
   print "Ud kommer $indeks fra arrayet\n";
 }

 $c = "hvad med at ";
 $d = "sætte strenge sammen";
 $e = $c.$d;

 print "Variablen \$e har værdien : $e\n";



Programmet skal gøres eksekverbart ved at skrive 
 sslug@sslug daisy]$  chmod +x leg_med_perl


Udføres programmet ved at skrive ./leg_med_perl, får man
følgende 
 sslug@sslug daisy]$  ./leg_med_perl
 Arrayet @b har værdierne : hej igen
 Der er 2 elementer i @b
 Ud kommer hej fra arrayet
 Ud kommer igen fra arrayet
 Variablen $e har værdien : hvad med at sætte strenge sammen



Der er selvfølgelig et par små tricks i dette lille program,
men det væsentlige at lægge mærke til er, at der ikke
reserveres hukommelse til nye variable, og
det er legende let at arbejde videre med.

Hvad med følgende lille søde program, som tager et filnavn
som input og erstatter samtlige forekomster af Microsoft med
navnet Linux? Det er et program,
som slet ikke kan laves så elegant og kort som i Perl. 
 #!/usr/bin/perl -i.bak -p
 s/Microsoft/Linux/g;



Hvis du nu har fået blod på tanden og vil i gang med at lære
Perl, er disse to bøger standardværkerne, den ene til at
komme i gang på, den anden for
viderekomne:

Randal L. Schwartz & Tom Christiansen: Learning Perl (2nd
Edition), O'Reilly & Associates, Inc., ISBN 1-56592-284-0,
271 sider

     Larry Wall, Tom Christiansen & Randal L. Schwartz:
Programming Perl (2nd Edition), O'Reilly & Associates, Inc.,
ISBN 1-56592-149-6, 645 sider

Hilsen Tuxlingen svenne
(-;>/
A´smile