Created by sironekotoro 2018-05-27 View revision File stdin.pl Added Side-by-side diff More Ignore whitespace Hide word diff +#!/usr/bin/env perl +use strict; +use warnings; + +# Perl入学式 2018 第2回 復習問題 +# https://github.com/perl-entrance-org/workshop-2018/blob/master/2nd/practice.md +# 復習問題(stdin.pl) + +print "INPUT some word > "; +my $input = <STDIN>; +chomp $input; +print "Your input word is > $input\n";