引き続きリハビリ

　ひどいもんですが、これが今の実力。仕方が無いのです。

#!c:\perl\bin;

use strict;
use warnings;

my $str = "string";
my $len = length($str);
my $ind = index($str,"tr");
my $plain = substr($str,1,1);
my $num = ord($plain);
$num++;
my $coded = chr($num);

print "$str\n";
print "$len\n";
print "$ind\n";
print "$plain\n";
print "$coded\n";

#!c:\perl\bin;

use strict;
use warnings;

open(my $fh,"< data\\plain")or die("Error:$!");

while(my $line = <$fh>){
	chomp($line);
	print "$line\n";
}