ファイルの更新日時とかデータサイズとか取得したくなるときってありますよね #! /usr/bin/perl use strict; my $f = "file.txt"; my $time = localtime( (stat $f)[9] ); my $size = (stat $f)[7]; print "file:".$f.", size:".$size.", time:".$time."\n";…

毎回忘れて過去のソースコード漁るのが大変となり書きだすaとoで挟まれた奴を取り出すだけ $a = "aiueo"; $a =~ s/a(.*?)o/$1/; print $1;