Snippets

sironekotoro Perl入学式 2018 第2回 練習問題 hello_stdin.pl

Created by sironekotoro
#!/usr/bin/env perl
use strict;
use warnings;

# Perl入学式 2018 第2回 練習問題
# hello_stdin.pl

print "INPUT YOUR NAME > ";
my $name = <STDIN>;
chomp $name;
print "Hello $name !\n";

print "INPUT YOUR OS > ";
my $os = <STDIN>;
chomp $os;
print "$os is useful OS!\n";

Comments (0)