Hebraic Style

Publicado por Danillo Souza (última atualização em 03/11/2009)

[ Hits: 3.171 ]

Download hebraic_style.pl




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.

  



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

Configurar ADB no linux

Eterm sem bordas

Randomize MP3

Check All Process

Viva o Linux for Torsmo


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário