とても穏やかな一日。
それぞれにやるべきことを済ませ、年が明けるまでの数時間を過ごしている。
妻が云った、「今年は三人がそれぞれに頑張れた一年だったね」と…
僕もそう思う。とにかく、いっぱい歩いた一年だった。
そして、積み重ねる一年が、僕にもまたやって来る。
何とありがたいことか。
自分のいけるペースで精一杯行こうと思う。
Nikon D80
Voigtländer ULTRON 40mm F2 SL Aspherical
jpeg
foreach my $line (@comp){
chomp ($line);
$line =~ tr/A-Za-z0-9/A-Za-z0-9/;
$line =~ tr/()/()/;
$line =~ s/^[ ]+//g;
$line =~ s/(\d),(?=(\d\d\d))/$1,/g;
$line =~ s/(\d+).(?=(\d+))/$1./g;
$line =~ s/,/、/g;
$line = $line."\n";
}
#! /usr/local/bin/perl
# rexr
use strict;
use warnings;
use encoding 'utf8';
while (my $file = glob ("*.txt")){
open (FILE, "$file") or die "$!";
my @comp = <FILE>;
close (FILE);
foreach my $line (@comp){
chomp ($line);
$line =~ s/\(/(/g; #半角カッコ『(』を全角へ
$line =~ s/\)/)/g; #半角カッコ『)』を全角へ
$line =~ s/^[ ]+//g; #行頭の半角と全角のスペースを削除
$line =~ s/(\d),(?=(\d\d\d))/$1,/g; #桁記号を半角へ
$line =~ s/(\d+).(?=(\d+))/$1./g; #小数点を半角へ
$line =~ s/,/、/g; #受け点『,』を『、』に
$line = $line."\n";
}
open (NEWFILE, "> procs_$file") or die "$!";
print NEWFILE @comp;
close (NEWFILE);
}