Hebraic Style
Publicado por Danillo Souza (última atualização em 03/11/2009)
[ Hits: 3.815 ]
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.
#! /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;
Diminuir ou aumentar o brilho de notebook
Nenhum comentário foi encontrado.
Como extrair chaves TOTP 2FA a partir de QRCODE (Google Authenticator)
Linux em 2025: Segurança prática para o usuário
Desktop Linux em alta: novos apps, distros e privacidade marcam o sábado
IA chega ao desktop e impulsiona produtividade no mundo Linux
Novos apps de produtividade, avanços em IA e distros em ebulição agitam o universo Linux
Como instalar o repositório do DBeaver no Ubuntu
Como instalar o Plex Media Server no Ubuntu
Digitando underscore com "shift" + "barra de espaços"
Como ativar a lixeira e recuperar aquivos deletados em um servidor Linux
Como mudar o nome de dispositivos Bluetooth via linha de comando
Programa fora de escala na tela do pc (1)
Fedora KDE plasma 42 X Módulo de segurança BB (Warsaw-2) (1)
O programa assinador digital (1)









