view release on metacpan or  search on metacpan

timestamp  view on Meta::CPAN

  and do { my $t = sysseek $FH , -1 , SEEK_CUR ; $t ? do { sysread $FH , my $c , 1 ; $c eq "\n" } : 1 }
  ) { sysseek $FH , -$LEN , SEEK_END } else { sysseek $FH , 0, SEEK_END } 

#my $flg = ! $o{a} && sysseek $FH , -2 * $LEN , 2  ; 
#$flg = 0 unless do { my $t = sysseek $FH , -1 , 1 ; $t ? do { sysread $FH , my $c , 1 ; say "\$c='$c'" ;$c eq "\n" } : 1 } ; 
#sysread $FH , my $s1 , 2 * $LEN ; 
#my $s2 = substr $s1 , $LEN , $LEN , '' ;
#$flg = 0 unless $s1 =~ m/^\Q$H\E.*:.*\n$/ && $s2 =~ m/^\Q$H\E.*:.*\n$/ ; 
#$flg ? sysseek $FH , -$LEN , 1 : sysseek $FH , 0, 2 ;

#my $fp = (stat($FH))[2] ; say $fp ;chmod 000, $FH ; $FH->flush ;
print $FH "$DTSTR\n" ; # flock $FH , LOCK_UN ; 
#$FH->flush ;chmod $fp, $FH ; 
#sleep 5 ;

close $FH ; 


## ヘルプの扱い
sub VERSION_MESSAGE {}
sub HELP_MESSAGE {
  use FindBin qw[ $Script ] ; 
  $ARGV[1] //= '' ; # options という文字列の任意の先頭部分が含まれているかどうかを後で判定する。