rotina.pl

#!/usr/bin/perl

use open ':std', ':encoding(cp850)';
use strict;
use warnings;

my $env;
my @cont;

sub ler
{
 print "* Conteúdo da array (" . @cont . " linhas)\n";
 print @cont;
 &com;
}

sub acrecentar
{
 push(@cont, $env . "\n");
 print "@_ acrescentado!\n\n";
 &com;
}

sub verificar
{
 if (-e $env) {
 print "Já existe arquivo com o mesmo nome!!\n\n";
 & com;
 } else {
 &salvar($env);
 }
}

sub salvar
{
 open (ARQ, ">@_.txt");
 print ARQ @cont;
 close(ARQ);
}

sub com
{
 print "* Digite + para acrecentar algo na array\n* Digite = para ler o conteúdo da array\n* Digite S para salvar e fechar\n\n";
 chomp($env = <>);

 if ($env eq '+'){
  print "\n\nDigite o conteúdo que será acrescentando à array\n";
  chomp($env = <>);
  &acrecentar($env);
 } elsif ($env eq '=') {
  &ler;
 } elsif ($env eq 'S') {
  print "\n\nDigite o nome do arquivo. Não precisa incluir a extensão.\n";
  chomp($env = <>);
  &verificar;
 }
}

&com;