[3.10] 練習問題1

初めてのPerl

1.文字列のリストを(1行に1個ずつ)入力の終わりになるまで読み込んで、そのリストを逆順に表示するプログラムを書いてください

あいわかった。

#! /usr/local/bin/perl
# ex3-1

use strict;
use warnings;

print "逆順に表\示したい文字列のリストを入力してください\n(WindowsではCtrlキー＋Zキーで入力を終了します)。\n";
my @strings = <STDIN>;
if (@strings == 0){
    print "文字列が入力されていません。\nプログラムの実行を終了します。";
}else{
    print "入力された文字列を逆順に表\示します。\n";
    print reverse @strings;
}

実行結果はこちら。



逆順に表示したい文字列のリストを入力してください

(WindowsではCtrlキー＋Zキーで入力を終了します)。

hoge

fuga

piyo

Larry

Randal

Tom

^Z

入力された文字列を逆順に表示します。

Tom

Randal

Larry

piyo

fuga

hoge
逆順に表示したい文字列のリストを入力してください

(WindowsではCtrlキー＋Zキーで入力を終了します)。

^Z

文字列が入力されていません。

プログラムの実行を終了します。