Lê a quantidade de linhas informada e as escreve alinhadas a direita na tela para visualização e grava em um arquivo com essa mesma formatação.

Esse era um dos exercícios de uma maratona de programação, não lembro de onde, mas na maratona era pra ser feito em C.

• Download hebraic_style.pl
• Enviar nova versão

Esconder código-fonte

#! /usr/bin/perl

my @a;
print "Escrever quantas linhas?: ";
$ln = <STDIN>;
chomp $ln;
system "clear";
open(A, ">>hebraic.txt");
for ($i = 0 ; $i < $ln ; $i++) {
   $x = <STDIN>;
   push(@a, $x);
   system "clear";
   foreach $y (@a) {
      my $c = length $y;
      print " " x (80 - $c) . $y;
   }
}
foreach (@a) {
   my $c = length $_;
   print A " " x (80 - $c) . $_;
}
close(A);
exit;

Calculadora com Perl com menos de 10 linhas de código

Gravar CDROM

Mega Sena

Check All Process

Índice (Logaritmo Discreto) em Perl

Nenhum comentário foi encontrado.