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 {