http://memo.hirosiki.jp/article/33577109.html 「mod_perlで動いてる」なんて書いてたが、まっとうに動いてなかったよ岬くん。 if ( ( -r $rdffile ) && ( ( ( -M $rdffile ) * 24 * 60 ) < 15 ) ) { RedirectTo( $rdffile ); } -M演算子は、指定したファイルがperlプロセスが起動した時点から見てどのくらい前に修正されたかを返すので、mod_perlで使うとほぼ無意味な動作をする。 したがって、ここは(スクリプトがキレイでスマートかどうかはぼくが書くものなのでともかくとして) my( $m ) = ( stat( $rdffile ) )[9]; $m = time() - $m; if ( ( -r $rdffile ) && ( ( $m / 60 )
![mod_perlではファイルテスト演算子は不用意に使えない : ひろ式めもちょう](https://cdn-ak-scissors.b.st-hatena.com/image/square/126e9c63960837b5815901e11e1f6c1303c17f2b/height=288;version=1;width=512/https%3A%2F%2Fblog.seesaa.jp%2Fimg%2Fogp_logo.png)