O meu primeiro script nas aulas de perl

Como vou perder isto, resolvi guardar aqui o meu primerio script nas aulas de perl:


#!/usr/bin/perl -w
use strict;
print "what is the grade?\n";
my $grade = ;
print "enter 1 when attending or 0 when not attending\n";
my $assiduity = ;
if ($grade >= 50 or $assiduity == 1) {
print "passed";
} else {
print "did not pass";
}

claro que é só o primeiro.....vao haver muitos mais.

Mas depois de ter lido metada do livro, afinal nao é assim tao dificil.

O que é que ele faz?

Copiam o script para um notepada guardam e se tiverem o perl instalado correm o ficheiro a partir da linha de comando do Dos.


Quem perceber de programaçao esta a rir-se e a dizer que cromo....