Hebraic Style
Publicado por Danillo Souza (última atualização em 03/11/2009)
[ Hits: 3.524 ]
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;
Nenhum comentário foi encontrado.
Como escolher o melhor escalonador de CPU para melhorar o desempenho da máquina
Curiosidade sobre DOOM Guy e Isabelle de Animal Crossing
Inicializando servidor Ubuntu na AWS e rodando apache em Container
Conheça o Octopi, outro frontend para o Pacman com acesso ao ARU (Arch Linux e derivados)
Terminal transparente no Debian 12 com interface i3wm usando Xfce4-Terminal e Compton
Como compilar o DOOM RETRO no Linux
Stacer - um otimizador gráfico básico de Linux
Corrigindo o erro de "WARNING: Possibly missing firmware for module" no Arch Linux
Notebook com Ubuntu 22.04.4 se reinicia após curtos períodos. (0)
Não consigo iniciar o Linux normalmente (0)
no kubuntu 24.04 apaga monitor e não acende mais (1)
Após atualização do Ubuntu 22.04.4 LTS perdi a instalação da placa de ... (1)
Como colocar uma assinatura digital em um código compilado ! (0)