Descrição
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;
Scripts recomendados
Gravar CDROM
Eterm sem bordas
Audacious X-Chat Plugin
Relatórios do Sarg por grupo
Muda o wallpaper do X-Windows
Comentários
| Nenhum comentário foi encontrado. |
Indicar para um amigo
Escrever um script