ouyou8

ouyou8.pl

#!/usr/bin/env perl

use strict;
use warnings;

my $acount;
my @domain = ('foo.net', 'bar.net', 'baz.net');
my @mailadd;
for (;;){
  print "アカウント名を入力して下さい。（終了はEND） >";
  my $acount = <STDIN>;
  chomp $acount;
  last if $acount eq 'END';

  print "ドメインを入力して下さい。\n";
  for (my $i = 0; $i <= (@domain -1); $i++){
    print "$i : $domain[$i]\n";
  }
  print "No? >";
  my $domain_no = <STDIN>;
  chomp $domain_no;
  push @mailadd, $acount.'@'.$domain[$domain_no];
}

print join ' ', @mailadd;
print "\n";