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

%evolution = ("Bulbasaur",  "Ivysaur",            
              "Charmander", "Charmeleon", 
              "Squirtle",   "Wartortle",
              "Pikachu",    "Raichu");

$pokemon = "Pikachu";

# usando for


# usando while


# usando foreach


# sem usar loops


exit;

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
# exemplo02

#!/usr/bin/perl

($E, $P, $M) = @ARGV;

$nota_final = ((2*$E)+(3*$P)+(5*$M))/10;

if ($nota_final >= 5) {
   print "Nota: $nota_final, Aluno aprovado.\n";
} else {
   print "Nota: $nota_final, Aluno reprovado.\n";
}

exit; 

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
#exemplo03 

#!usr/bin/perl

$output1 = $ARGV[0];
$output2 = $ARGV[1];

open(OUTPUT1, ">$output1");
open(OUTPUT2, ">>$output2");

print OUTPUT1 "Escrevendo no arquivo 1\n";
print OUTPUT2 "Escrevendo no arquivo 2\n";

close OUTPUT1; 
close OUTPUT2; 

exit;

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

#!usr/bin/perl

$output = $ARGV[0];
open(OUTPUT, ">$output");
print OUTPUT "Escrevendo no arquivo usando OUTPUT\n";

print "Onde estou escrevendo sem filehandle?\n";
print STDERR "Onde estou escrevendo com STDERR?\n";
print STDOUT "Onde estou escrevendo com STDOUT?\n";

close OUTPUT; 
exit;

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
#exemplo05

#!usr/bin/perl

$input  = $ARGV[0];
$output = $ARGV[1];

open(SEQ, "<$input")  || die "Nao foi possivel abrir o arquivo $input\n";
open(OUT, ">$output") || die "Nao foi possivel abrir o arquivo $output\n";

while (<SEQ>) {
   print OUT $_; 
}

close SEQ;

exit;