use strict;
use utf8;
my $fin = "input.txt";
my @file;
open( IN, "<:utf8", $fin ) || die( "can't open '" . $fin . "'.\n" );
@file = <IN>;
close( IN );
$file[ 0 ] =~ /(\s+)$/;
$/ = $1;
chomp( @file );
# 実際の処理
# EOF
This version of the page was edited by TakeAsh at . View the most recent version.