tomcha

#!/usr/bin/env ruby
# coding:utf-8

class MyApp
  attr_accessor :foo

  def initialize(*foo)
    @foo = foo
  end

tomcha

#!/usr/bin/env perl

use strict;
use warnings;

sub barusu{
  die
}

open my $fh, '<', 'nofile.txt' or barusu $!;

tomcha

#!/usr/bin/env perl

use strict;
use warnings;
use utf8;

use open qw/:encoding(utf-8) :std/;
use v5.12;

use Data::Dumper;

tomcha

#!/usr/bin/env perl

use strict;
use warnings;

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

tomcha

#!/usr/bin/env perl

use strict;
use warnings;

my $num;
my @prime;

print "2より大きい数字を１つ入力して下さい。>>";
$num = <STDIN>;

tomcha

#!/usr/bin/env perl

use strict;
use warnings;

print "１つ遅れて返事する君（終わる時は、'END'と入力しましょう。）\n";
my $str = 'こんにちは。';
my $str_next = 'あなたの名前はなんですか？';
for (;;){
  print "com>> $str\n";

tomcha

#!/usr/bin/env perl

use strict;
use warnings;

my @foods;

print "時間電卓です。時間と分を別々に入力して下さい。終わる時は、ENDを入力して下さい。\n";

my $total_hour = 0;

tomcha

#!/usr/bin/env perl

use strict;
use warnings;

my @foods;

print "好きな食べ物を入力して下さい。入力を終える時は END と入力して下さい。\n";

for (;;){

tomcha

#!/usr/bin/env perl

use strict;
use warnings;

my @foods;

print "好きな食べ物を入力して下さい。入力を終える時は END と入力して下さい。\n";

for (;;){

tomcha

#!/usr/bin/env perl

use strict;
use warnings;

my @numbers;

print "5つの数字を入力して下さい。\n";
for my $i (1..5){
  print "$iつ目の数字>>>";