#!/usr/bin/perl use strict; use warnings; foreach my $key(sort(keys %ENV)){ print "$key => $ENV{$key} \n"; } =pod while (my($key, $value)=each %ENV){ printf "%2s => %2s\n", $key, $value; } =cut BLOCKSIZE => K EDITOR => vi ENV => /home/vagr…

読み込んでいるファイルの先頭文字が大文字になっているものを表示する。 #!/usr/bin/perl use strict; use warnings; open (FILE, "<", "names.txt"); foreach my $name (<FILE>){ chomp($name); if ($name =~ /^[A-Z][a-z]+$/){ print $name . "\n"; } } 以下参</file>…

「．」がついている行を表示させる。 #!/usr/bin/perl use strict; use warnings; open (FILE, "<", "names.txt"); foreach my $name (<FILE>){ chomp($name); if ($name =~ /\./){ print $name . "\n"; } } 参照しているファイルになります。 fred flintstone fre</file>…

fred、alfred、frederickなど「fred」が含まれた行を、大文字小文字区別せず表示する。 #!/usr/bin/perl use strict; use warnings; use Data::Dumper; use 5.010; open (FILE, "<", "names.txt"); #<FILE>から1つづつ値を取り出して表示する foreach my $name (<FILE>){</file></file>…

fred、alfred、frederickなど「fred」が含まれた行を表示する。 #!/usr/bin/perl use strict; use warnings; use Data::Dumper; use 5.010; open (FILE, "<", "names.txt"); print Dumper @_; foreach my $name (<FILE>){ chomp($name); #print Dumper $name; #pri</file>…