Created by sironekotoro 2018-05-27 View revision File hello_stdin.pl Added Side-by-side diff More Ignore whitespace Hide word diff +#!/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";