http://www.perl.com/pub/2000/11/begperl2.html


pgm1.pl

#!/usr/local/bin/perl
print "Helena\n";

pgm2.pl

#!/usr/local/bin/perl

my $alder = 47;

print "Helena is $alder years old\n";

$alder++;

print "No, Helena is $alder years old\n";

pgm3.pl

#!/usr/local/bin/perl

my $fornamn = 'Helena';
my $efternamn = 'Bengtsson';

my $namn = $fornamn." ".$efternamn;

print "Jag heter $namn\n";

pgm4.pl

#!/usr/local/bin/perl

my @personer = ('Helena', 'Katarina', 'Lotta');

print "$personer[0] is the oldest\n";

 - Fortsatt att skriva Katarina är i mitten och Lotta är den yngsta

pgm5.pl

#!/usr/local/bin/perl
for $i (1, 2, 3, 4, 5) {
         print "$i\n";
     }

Ta med @personer från tidigare och skriv ut namnen

pgm6.pl

#!/usr/local/bin/perl
my $a = 3;
my $b = 5;

if ($a > $b) {
    print "$a is larger than $b\n";
} else {
    print "$b is larger than $a\n";  
}

OBS = betyder tilldela == betyder lika med

pgm7.pl

#!/usr/local/bin/perl  

open TEXTFIL, "<C:/Perl64/scripts/Fojo/artikel.txt";
while (<TEXTFIL>) {
        my $line = $_;
	chomp($line);
        if ( $line =~ m/([A-ZÅÄÖ][a-zåäö]+ [A-ZÅÄÖ][a-zåäö]+)/ ) {
            print "$1\n";
 	}
}