2015-08-30 はい。perlです。STDINを使った場合について まずはperl復習。だいぶ忘れている。。 [root@gochamaze Perl]# cat stdin.pl#!/usr/bin/perl use strict;use warnings; print "What are your name ?\n"; my $box = <STDIN>; chomp($box); if ($box eq "yoshida"){ print "yoshida";}else { print "No yoshida";}