1
2
3
4
5
6
#exemplo01 - hello.pl

#! /usr/bin/perl 

# Meu primeiro script
print "Hello world!\n";

1
2
3
4
5
6
# exemplo02 
# Imprimir o conteudo da variavel como parte de uma sentença maior

print "Eu não suporto mais esse exemplo do $greetings\n";

exit;

1
2
3
4
5
6
7
8
9
10
11
12
# exemplo03

#! /usr/bin/perl 
# script para testar interpolacao

# declarando minha variavel constante
my $greetings = "Hello world!";

# imprimindo
print "$greetings, mais uma vez!\n";

exit;

1
2
3
4
5
6
7
8
9
10
11
12
13
# exemplo04

#! /usr/bin/perl 
# script para testar interpolacao

# declarando minha variavel constante
my $greetings = "Hello world!";

# imprimindo
print 'O nome da nossa variavel eh $greetings';
print " e o conteudo dela eh $greetings.\n";

exit;

1
2
# exemplo05
print "Ah, se eu ganhasse R$1,00 a cada vez que \"$greetings\" fosse usado...\n";

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
# exemplo06
#! /usr/bin/perl 
# script para criar uma tabela muito manera

# titulo e header
print "Notas da disciplina de Introducao a Programacao\n\n";
print "No USP\tNome\tNota\n";

# imprimindo
print "0001\tMaricotinha\t9,8\n";
print "0002\tJoazinho\t2,0\n";
print "0003\tJujubinha\t9,0\n";
print "0004\tJuquinha\t3,5\n";
print "0005\tMariazinha\t9,5\n";
print "0006\tPedrinho\t2,8\n";

exit;

1
2
3
4
5
6
7
8
9
# exemplo07
# continuacao do script para criar uma tabela muito manera

# alunas aprovadas
$aluna01 = "Maricotinha";
$aluna02 = "Jujubinha";
$aluna03 = "Mariazinha";

print "\nParabens as alunas $aluna01, $aluna02 e $aluna03!\n\n";

1
2
3
4
5
6
7
8
9
10
11
12
13
# exemplo08
#! /usr/bin/perl 

# Perguntar o nome do usuário
print "Qual seu nome?\n"; 

# Entrada do usuário
my $nome = <STDIN>;

# Cumprimentar o usuário
print "Boa noite, $nome!\n";

exit; 

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
# exemplo09
#! /usr/bin/perl 

# atribuindo valores as variaveis
$y = 1;       # inteiro positivo
$z = -5;      # inteiro negativo
$x = 3.14;    # real em ponto flutuante 
$w = 2.75e-6; # real em notação científica
$t = 0377;    # octal
$u = 0xffff;  # hexadecimal

$string1 = "Oi, eu sou uma string!";    # string
$string2 = 'Oi, eu tb sou uma string';  # string
$string3 = "ATCGATCGATCGATCGATTGGATC";  # string

print "\$y \= $y\n";
print "\$z \= $z\n";
print "\$x \= $x\n";
print "\$w \= $w\n";
print "\$t \= $t\n";
print "\$u \= $u\n\n";

print "$string1\n$string2\n$string3\n\n";

exit; 

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
# exemplo10
#! /usr/bin/perl 
# script para testar operacoes matematicas

# testando
$a = 1;
print "Atribuicao\:             \$a \= $a\n"; 

#++$a;
#print "Auto\-acrescimo\:         \$a \= $a\n"; 

#--$a;
#print "Auto\-decrescimo\:        \$a \= $a\n"; 

#$b = 3 + 1;
#print "Soma\:                   \$b \= $b\n";

#$c = $a + $b;
#print "Soma\:                   \$c \= $c\n";

#$d = $b * $c;
#print "Multiplicacao\:          \$d \= $d\n";

#$e = $d / $b;
#print "Divisao\:                \$e \= $e\n";

#$f = sqrt($b);
#print "Raiz quadrada\:          \$f \= $f\n";

#$g = ($a + $b) * $c;
#print "Equacao\:                \$g \= $g\n";

#$h = $g  % 2;
#print "Modulo\:                 \$h \= $h\n";

#$i = $d % $b;
#print "Modulo\:                 \$i \= $i\n";

#$j = $c ** $f;
#print "Potenciacao\:            \$j \= $j\n";

#$j += 5;
#print "Adicao e atribuicao\:    \$j \= $j\n";

#$j -= $e;
#print "Subtracao e atribuicao\: \$j \= $j\n";


exit;