Result:
found more than 1303 distributions - search limited to the first 2001 files matching your query
( run in 0.906 )
CfgTie
view release on metacpan or search on metacpan
lib/CfgTie/TieRCService.pm view on Meta::CPAN
}
$F->close;
return $pid;
}
sub _stat($)
{
my $self=shift;
if (!defined $self) {return undef;}
return stat("/var/run/".$self->{'name'}.".pid");
}
sub EXISTS ($$)
{
my ($self,$key)=@_;
lib/CfgTie/TieRCService.pm view on Meta::CPAN
scan_rcscript($self);
return exists $self->{$lkey};
}
elsif ($lkey eq 'stat')
{
my @A= _stat($self);
if (scalar @A) {$self->{'stat'}=[@A]; return 1;}
}
return 0;
}
ChainMake
view release on metacpan or search on metacpan
lib/ChainMake.pm view on Meta::CPAN
last REQUIREMENTS unless ($insistent);
}
}
# oder der Name einer Datei?
elsif (-e $dep) {
$age=(stat($dep))[9];
}
# Requirement nicht auffindbar
else {
$self->_diag(1,"Missing requirement '$dep'.\n");
$cannot_make=1;
lib/ChainMake.pm view on Meta::CPAN
sub _check_file_timestamps {
my ($self,$ver)=@_;
my ($oldest,$youngest,$missing);
for my $timestamps (@{$ver}) {
if (-e $timestamps) {
my $mtime = (stat($timestamps))[9];
$youngest=$mtime unless (($youngest) && ($youngest >= $mtime));
$oldest=$mtime unless (($oldest) && ($oldest <= $mtime));
}
else {
$missing=$timestamps;
Char-Arabic
view release on metacpan or search on metacpan
lib/Arabic.pm view on Meta::CPAN
# Filter >>>
# Source >
# Escape >>>>> executable without re-escape
#----------------------------------------------------
my $mtime_filter = (stat(__FILE__ ))[9];
my $mtime_source = (stat($filename ))[9];
my $mtime_escape = (stat("$filename.e"))[9];
if (($mtime_escape < $mtime_source) or ($mtime_escape < $mtime_filter)) {
unlink "$filename.e";
}
}
}
lib/Arabic.pm view on Meta::CPAN
seek($fh, 0, 0) or die __FILE__, ": Can't seek file: $filename.e\n";
my $e_script = Arabic::escape_script($filename);
print {$fh} $e_script;
my $mode = (stat($filename))[2] & 0777;
chmod $mode, "$filename.e";
close($fh) or die "Can't close file: $filename.e: $!";
}
Char-Big5HKSCS
view release on metacpan or search on metacpan
lib/Big5HKSCS.pm view on Meta::CPAN
# Filter >>>
# Source >
# Escape >>>>> executable without re-escape
#----------------------------------------------------
my $mtime_filter = (Ebig5hkscs::stat(__FILE__ ))[9];
my $mtime_source = (Ebig5hkscs::stat($filename ))[9];
my $mtime_escape = (Ebig5hkscs::stat("$filename.e"))[9];
if (($mtime_escape < $mtime_source) or ($mtime_escape < $mtime_filter)) {
Ebig5hkscs::unlink "$filename.e";
}
}
}
lib/Big5HKSCS.pm view on Meta::CPAN
seek($fh, 0, 0) or die __FILE__, ": Can't seek file: $filename.e\n";
my $e_script = Big5HKSCS::escape_script($filename);
print {$fh} $e_script;
my $mode = (Ebig5hkscs::stat($filename))[2] & 0777;
chmod $mode, "$filename.e";
close($fh) or die "Can't close file: $filename.e: $!";
}
lib/Big5HKSCS.pm view on Meta::CPAN
support these.
=item * ${^WIN32_SLOPPY_STAT} is ignored
Even if ${^WIN32_SLOPPY_STAT} is set to a true value, file test functions Ebig5hkscs::*(),
Ebig5hkscs::lstat(), and Ebig5hkscs::stat() on Microsoft Windows open the file for the path
which has chr(0x5c) at end.
=item * Delimiter of String and Regexp
qq//, q//, qw//, qx//, qr//, m//, s///, tr///, and y/// can't use a wide character
Char-Big5Plus
view release on metacpan or search on metacpan
lib/Big5Plus.pm view on Meta::CPAN
# Filter >>>
# Source >
# Escape >>>>> executable without re-escape
#----------------------------------------------------
my $mtime_filter = (Ebig5plus::stat(__FILE__ ))[9];
my $mtime_source = (Ebig5plus::stat($filename ))[9];
my $mtime_escape = (Ebig5plus::stat("$filename.e"))[9];
if (($mtime_escape < $mtime_source) or ($mtime_escape < $mtime_filter)) {
Ebig5plus::unlink "$filename.e";
}
}
}
lib/Big5Plus.pm view on Meta::CPAN
seek($fh, 0, 0) or die __FILE__, ": Can't seek file: $filename.e\n";
my $e_script = Big5Plus::escape_script($filename);
print {$fh} $e_script;
my $mode = (Ebig5plus::stat($filename))[2] & 0777;
chmod $mode, "$filename.e";
close($fh) or die "Can't close file: $filename.e: $!";
}
lib/Big5Plus.pm view on Meta::CPAN
support these.
=item * ${^WIN32_SLOPPY_STAT} is ignored
Even if ${^WIN32_SLOPPY_STAT} is set to a true value, file test functions Ebig5plus::*(),
Ebig5plus::lstat(), and Ebig5plus::stat() on Microsoft Windows open the file for the path
which has chr(0x5c) at end.
=item * Delimiter of String and Regexp
qq//, q//, qw//, qx//, qr//, m//, s///, tr///, and y/// can't use a wide character
Char-Cyrillic
view release on metacpan or search on metacpan
lib/Cyrillic.pm view on Meta::CPAN
# Filter >>>
# Source >
# Escape >>>>> executable without re-escape
#----------------------------------------------------
my $mtime_filter = (stat(__FILE__ ))[9];
my $mtime_source = (stat($filename ))[9];
my $mtime_escape = (stat("$filename.e"))[9];
if (($mtime_escape < $mtime_source) or ($mtime_escape < $mtime_filter)) {
unlink "$filename.e";
}
}
}
lib/Cyrillic.pm view on Meta::CPAN
seek($fh, 0, 0) or die __FILE__, ": Can't seek file: $filename.e\n";
my $e_script = Cyrillic::escape_script($filename);
print {$fh} $e_script;
my $mode = (stat($filename))[2] & 0777;
chmod $mode, "$filename.e";
close($fh) or die "Can't close file: $filename.e: $!";
}
Char-EUCJP
view release on metacpan or search on metacpan
lib/EUCJP.pm view on Meta::CPAN
# Filter >>>
# Source >
# Escape >>>>> executable without re-escape
#----------------------------------------------------
my $mtime_filter = (stat(__FILE__ ))[9];
my $mtime_source = (stat($filename ))[9];
my $mtime_escape = (stat("$filename.e"))[9];
if (($mtime_escape < $mtime_source) or ($mtime_escape < $mtime_filter)) {
unlink "$filename.e";
}
}
}
lib/EUCJP.pm view on Meta::CPAN
seek($fh, 0, 0) or die __FILE__, ": Can't seek file: $filename.e\n";
my $e_script = EUCJP::escape_script($filename);
print {$fh} $e_script;
my $mode = (stat($filename))[2] & 0777;
chmod $mode, "$filename.e";
close($fh) or die "Can't close file: $filename.e: $!";
}
Char-EUCTW
view release on metacpan or search on metacpan
lib/EUCTW.pm view on Meta::CPAN
# Filter >>>
# Source >
# Escape >>>>> executable without re-escape
#----------------------------------------------------
my $mtime_filter = (stat(__FILE__ ))[9];
my $mtime_source = (stat($filename ))[9];
my $mtime_escape = (stat("$filename.e"))[9];
if (($mtime_escape < $mtime_source) or ($mtime_escape < $mtime_filter)) {
unlink "$filename.e";
}
}
}
lib/EUCTW.pm view on Meta::CPAN
seek($fh, 0, 0) or die __FILE__, ": Can't seek file: $filename.e\n";
my $e_script = EUCTW::escape_script($filename);
print {$fh} $e_script;
my $mode = (stat($filename))[2] & 0777;
chmod $mode, "$filename.e";
close($fh) or die "Can't close file: $filename.e: $!";
}
Char-GB18030
view release on metacpan or search on metacpan
lib/Egb18030.pm view on Meta::CPAN
sub Egb18030::M_();
sub Egb18030::A_();
sub Egb18030::C_();
sub Egb18030::glob($);
sub Egb18030::glob_();
sub Egb18030::lstat(*);
sub Egb18030::lstat_();
sub Egb18030::opendir(*$);
sub Egb18030::stat(*);
sub Egb18030::stat_();
sub Egb18030::unlink(@);
sub Egb18030::chdir(;$);
sub Egb18030::do($);
sub Egb18030::require(;$);
lib/Egb18030.pm view on Meta::CPAN
}
#
# GB18030 file lstat (with parameter)
#
sub Egb18030::lstat(*) {
local $_ = shift if @_;
if (-e $_) {
return CORE::lstat _;
}
elsif (_MSWin32_5Cended_path($_)) {
# Even if ${^WIN32_SLOPPY_STAT} is set to a true value, Egb18030::lstat()
# on Windows opens the file for the path which has 5c at end.
# (and so on)
local *MUST_BE_BAREWORD_AT_HERE;
if (CORE::open(MUST_BE_BAREWORD_AT_HERE, $_)) {
lib/Egb18030.pm view on Meta::CPAN
}
#
# GB18030 file stat (with parameter)
#
sub Egb18030::stat(*) {
local $_ = shift if @_;
my $fh = qualify_to_ref $_;
if (defined fileno $fh) {
lib/Egb18030.pm view on Meta::CPAN
elsif (-e $_) {
return CORE::stat _;
}
elsif (_MSWin32_5Cended_path($_)) {
# Even if ${^WIN32_SLOPPY_STAT} is set to a true value, Egb18030::stat()
# on Windows opens the file for the path which has 5c at end.
# (and so on)
local *MUST_BE_BAREWORD_AT_HERE;
if (CORE::open(MUST_BE_BAREWORD_AT_HERE, $_)) {
lib/Egb18030.pm view on Meta::CPAN
if (Egb18030::f($realfilename)) {
my $script = '';
if (Egb18030::e("$realfilename.e")) {
my $e_mtime = (Egb18030::stat("$realfilename.e"))[9];
my $mtime = (Egb18030::stat($realfilename))[9];
my $module_mtime = (Egb18030::stat(__FILE__))[9];
if (($e_mtime < $mtime) or ($mtime < $module_mtime)) {
Egb18030::unlink "$realfilename.e";
}
}
lib/Egb18030.pm view on Meta::CPAN
$INC{$_} = $realfilename;
my $script = '';
if (Egb18030::e("$realfilename.e")) {
my $e_mtime = (Egb18030::stat("$realfilename.e"))[9];
my $mtime = (Egb18030::stat($realfilename))[9];
my $module_mtime = (Egb18030::stat(__FILE__))[9];
if (($e_mtime < $mtime) or ($mtime < $module_mtime)) {
Egb18030::unlink "$realfilename.e";
}
}
lib/Egb18030.pm view on Meta::CPAN
Egb18030::chr_;
Egb18030::X ...;
Egb18030::X_;
Egb18030::glob(...);
Egb18030::glob_;
Egb18030::lstat(...);
Egb18030::lstat_;
Egb18030::opendir(...);
Egb18030::stat(...);
Egb18030::stat_;
Egb18030::unlink(...);
Egb18030::chdir(...);
Egb18030::do(...);
Egb18030::require(...);
lib/Egb18030.pm view on Meta::CPAN
@relpath_file = split(/\n/,`dir /b wildcard\\here*.txt`);
@abspath_file = split(/\n/,`dir /s /b wildcard\\here*.txt`);
=item * Statistics about link
@lstat = Egb18030::lstat($file);
@lstat = Egb18030::lstat_;
Like Egb18030::stat, returns information on file, except that if file is a symbolic
link, Egb18030::lstat returns information about the link; Egb18030::stat returns
information about the file pointed to by the link. If symbolic links are
lib/Egb18030.pm view on Meta::CPAN
Directory handles have their own namespace from filehandles.
This subroutine function when the directory name ends with chr(0x5C) on MSWin32.
=item * Statistics about file
$stat = Egb18030::stat(FILEHANDLE);
$stat = Egb18030::stat(DIRHANDLE);
$stat = Egb18030::stat($expr);
$stat = Egb18030::stat_;
@stat = Egb18030::stat(FILEHANDLE);
@stat = Egb18030::stat(DIRHANDLE);
@stat = Egb18030::stat($expr);
@stat = Egb18030::stat_;
In scalar context, this subroutine returns a Boolean value that indicates whether
the call succeeded. In list context, it returns a 13-element list giving the
statistics for a file, either the file opened via FILEHANDLE or DIRHANDLE, or
named by $expr. It's typically used as followes:
($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
$atime,$mtime,$ctime,$blksize,$blocks) = Egb18030::stat($expr);
Not all fields are supported on all filesystem types; unsupported fields return
0. Here are the meanings of the fields:
-------------------------------------------------------------------------
lib/Egb18030.pm view on Meta::CPAN
The $blocks field (if defined) is reported in 512-byte blocks. The value of
$blocks * 512 can differ greatly from $size for files containing unallocated
blocks, or "hole", which aren't counted in $blocks.
If Egb18030::stat is passed the special filehandle consisting of an underline, no
actual stat(2) is done, but the current contents of the stat structure from
the last Egb18030::stat, Egb18030::lstat, or Egb18030::stat-based file test subroutine
(such as Egb18030::r, Egb18030::w, and Egb18030::x) are returned.
Because the mode contains both the file type and its permissions, you should
mask off the file type portion and printf or sprintf using a "%o" if you want
to see the real permissions:
$mode = (Egb18030::stat($expr))[2];
printf "Permissions are %04o\n", $mode & 07777;
If $expr is omitted, returns information on file given in $_.
This subroutine function when the filename ends with chr(0x5C) on MSWin32.
Char-GBK
view release on metacpan or search on metacpan
lib/Egbk.pm view on Meta::CPAN
sub Egbk::M_();
sub Egbk::A_();
sub Egbk::C_();
sub Egbk::glob($);
sub Egbk::glob_();
sub Egbk::lstat(*);
sub Egbk::lstat_();
sub Egbk::opendir(*$);
sub Egbk::stat(*);
sub Egbk::stat_();
sub Egbk::unlink(@);
sub Egbk::chdir(;$);
sub Egbk::do($);
sub Egbk::require(;$);
lib/Egbk.pm view on Meta::CPAN
}
#
# GBK file lstat (with parameter)
#
sub Egbk::lstat(*) {
local $_ = shift if @_;
if (-e $_) {
return CORE::lstat _;
}
elsif (_MSWin32_5Cended_path($_)) {
# Even if ${^WIN32_SLOPPY_STAT} is set to a true value, Egbk::lstat()
# on Windows opens the file for the path which has 5c at end.
# (and so on)
local *MUST_BE_BAREWORD_AT_HERE;
if (CORE::open(MUST_BE_BAREWORD_AT_HERE, $_)) {
lib/Egbk.pm view on Meta::CPAN
}
#
# GBK file stat (with parameter)
#
sub Egbk::stat(*) {
local $_ = shift if @_;
my $fh = qualify_to_ref $_;
if (defined fileno $fh) {
lib/Egbk.pm view on Meta::CPAN
elsif (-e $_) {
return CORE::stat _;
}
elsif (_MSWin32_5Cended_path($_)) {
# Even if ${^WIN32_SLOPPY_STAT} is set to a true value, Egbk::stat()
# on Windows opens the file for the path which has 5c at end.
# (and so on)
local *MUST_BE_BAREWORD_AT_HERE;
if (CORE::open(MUST_BE_BAREWORD_AT_HERE, $_)) {
lib/Egbk.pm view on Meta::CPAN
if (Egbk::f($realfilename)) {
my $script = '';
if (Egbk::e("$realfilename.e")) {
my $e_mtime = (Egbk::stat("$realfilename.e"))[9];
my $mtime = (Egbk::stat($realfilename))[9];
my $module_mtime = (Egbk::stat(__FILE__))[9];
if (($e_mtime < $mtime) or ($mtime < $module_mtime)) {
Egbk::unlink "$realfilename.e";
}
}
lib/Egbk.pm view on Meta::CPAN
$INC{$_} = $realfilename;
my $script = '';
if (Egbk::e("$realfilename.e")) {
my $e_mtime = (Egbk::stat("$realfilename.e"))[9];
my $mtime = (Egbk::stat($realfilename))[9];
my $module_mtime = (Egbk::stat(__FILE__))[9];
if (($e_mtime < $mtime) or ($mtime < $module_mtime)) {
Egbk::unlink "$realfilename.e";
}
}
lib/Egbk.pm view on Meta::CPAN
Egbk::chr_;
Egbk::X ...;
Egbk::X_;
Egbk::glob(...);
Egbk::glob_;
Egbk::lstat(...);
Egbk::lstat_;
Egbk::opendir(...);
Egbk::stat(...);
Egbk::stat_;
Egbk::unlink(...);
Egbk::chdir(...);
Egbk::do(...);
Egbk::require(...);
lib/Egbk.pm view on Meta::CPAN
@relpath_file = split(/\n/,`dir /b wildcard\\here*.txt`);
@abspath_file = split(/\n/,`dir /s /b wildcard\\here*.txt`);
=item * Statistics about link
@lstat = Egbk::lstat($file);
@lstat = Egbk::lstat_;
Like Egbk::stat, returns information on file, except that if file is a symbolic
link, Egbk::lstat returns information about the link; Egbk::stat returns
information about the file pointed to by the link. If symbolic links are
lib/Egbk.pm view on Meta::CPAN
Directory handles have their own namespace from filehandles.
This subroutine function when the directory name ends with chr(0x5C) on MSWin32.
=item * Statistics about file
$stat = Egbk::stat(FILEHANDLE);
$stat = Egbk::stat(DIRHANDLE);
$stat = Egbk::stat($expr);
$stat = Egbk::stat_;
@stat = Egbk::stat(FILEHANDLE);
@stat = Egbk::stat(DIRHANDLE);
@stat = Egbk::stat($expr);
@stat = Egbk::stat_;
In scalar context, this subroutine returns a Boolean value that indicates whether
the call succeeded. In list context, it returns a 13-element list giving the
statistics for a file, either the file opened via FILEHANDLE or DIRHANDLE, or
named by $expr. It's typically used as followes:
($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
$atime,$mtime,$ctime,$blksize,$blocks) = Egbk::stat($expr);
Not all fields are supported on all filesystem types; unsupported fields return
0. Here are the meanings of the fields:
-------------------------------------------------------------------------
lib/Egbk.pm view on Meta::CPAN
The $blocks field (if defined) is reported in 512-byte blocks. The value of
$blocks * 512 can differ greatly from $size for files containing unallocated
blocks, or "hole", which aren't counted in $blocks.
If Egbk::stat is passed the special filehandle consisting of an underline, no
actual stat(2) is done, but the current contents of the stat structure from
the last Egbk::stat, Egbk::lstat, or Egbk::stat-based file test subroutine
(such as Egbk::r, Egbk::w, and Egbk::x) are returned.
Because the mode contains both the file type and its permissions, you should
mask off the file type portion and printf or sprintf using a "%o" if you want
to see the real permissions:
$mode = (Egbk::stat($expr))[2];
printf "Permissions are %04o\n", $mode & 07777;
If $expr is omitted, returns information on file given in $_.
This subroutine function when the filename ends with chr(0x5C) on MSWin32.
Char-Greek
view release on metacpan or search on metacpan
lib/Greek.pm view on Meta::CPAN
# Filter >>>
# Source >
# Escape >>>>> executable without re-escape
#----------------------------------------------------
my $mtime_filter = (stat(__FILE__ ))[9];
my $mtime_source = (stat($filename ))[9];
my $mtime_escape = (stat("$filename.e"))[9];
if (($mtime_escape < $mtime_source) or ($mtime_escape < $mtime_filter)) {
unlink "$filename.e";
}
}
}
lib/Greek.pm view on Meta::CPAN
seek($fh, 0, 0) or die __FILE__, ": Can't seek file: $filename.e\n";
my $e_script = Greek::escape_script($filename);
print {$fh} $e_script;
my $mode = (stat($filename))[2] & 0777;
chmod $mode, "$filename.e";
close($fh) or die "Can't close file: $filename.e: $!";
}
Char-HP15
view release on metacpan or search on metacpan
lib/Ehp15.pm view on Meta::CPAN
sub Ehp15::M_();
sub Ehp15::A_();
sub Ehp15::C_();
sub Ehp15::glob($);
sub Ehp15::glob_();
sub Ehp15::lstat(*);
sub Ehp15::lstat_();
sub Ehp15::opendir(*$);
sub Ehp15::stat(*);
sub Ehp15::stat_();
sub Ehp15::unlink(@);
sub Ehp15::chdir(;$);
sub Ehp15::do($);
sub Ehp15::require(;$);
lib/Ehp15.pm view on Meta::CPAN
}
#
# HP-15 file lstat (with parameter)
#
sub Ehp15::lstat(*) {
local $_ = shift if @_;
if (-e $_) {
return CORE::lstat _;
}
elsif (_MSWin32_5Cended_path($_)) {
# Even if ${^WIN32_SLOPPY_STAT} is set to a true value, Ehp15::lstat()
# on Windows opens the file for the path which has 5c at end.
# (and so on)
local *MUST_BE_BAREWORD_AT_HERE;
if (CORE::open(MUST_BE_BAREWORD_AT_HERE, $_)) {
lib/Ehp15.pm view on Meta::CPAN
}
#
# HP-15 file stat (with parameter)
#
sub Ehp15::stat(*) {
local $_ = shift if @_;
my $fh = qualify_to_ref $_;
if (defined fileno $fh) {
lib/Ehp15.pm view on Meta::CPAN
elsif (-e $_) {
return CORE::stat _;
}
elsif (_MSWin32_5Cended_path($_)) {
# Even if ${^WIN32_SLOPPY_STAT} is set to a true value, Ehp15::stat()
# on Windows opens the file for the path which has 5c at end.
# (and so on)
local *MUST_BE_BAREWORD_AT_HERE;
if (CORE::open(MUST_BE_BAREWORD_AT_HERE, $_)) {
lib/Ehp15.pm view on Meta::CPAN
if (Ehp15::f($realfilename)) {
my $script = '';
if (Ehp15::e("$realfilename.e")) {
my $e_mtime = (Ehp15::stat("$realfilename.e"))[9];
my $mtime = (Ehp15::stat($realfilename))[9];
my $module_mtime = (Ehp15::stat(__FILE__))[9];
if (($e_mtime < $mtime) or ($mtime < $module_mtime)) {
Ehp15::unlink "$realfilename.e";
}
}
lib/Ehp15.pm view on Meta::CPAN
$INC{$_} = $realfilename;
my $script = '';
if (Ehp15::e("$realfilename.e")) {
my $e_mtime = (Ehp15::stat("$realfilename.e"))[9];
my $mtime = (Ehp15::stat($realfilename))[9];
my $module_mtime = (Ehp15::stat(__FILE__))[9];
if (($e_mtime < $mtime) or ($mtime < $module_mtime)) {
Ehp15::unlink "$realfilename.e";
}
}
lib/Ehp15.pm view on Meta::CPAN
Ehp15::chr_;
Ehp15::X ...;
Ehp15::X_;
Ehp15::glob(...);
Ehp15::glob_;
Ehp15::lstat(...);
Ehp15::lstat_;
Ehp15::opendir(...);
Ehp15::stat(...);
Ehp15::stat_;
Ehp15::unlink(...);
Ehp15::chdir(...);
Ehp15::do(...);
Ehp15::require(...);
lib/Ehp15.pm view on Meta::CPAN
@relpath_file = split(/\n/,`dir /b wildcard\\here*.txt`);
@abspath_file = split(/\n/,`dir /s /b wildcard\\here*.txt`);
=item * Statistics about link
@lstat = Ehp15::lstat($file);
@lstat = Ehp15::lstat_;
Like Ehp15::stat, returns information on file, except that if file is a symbolic
link, Ehp15::lstat returns information about the link; Ehp15::stat returns
information about the file pointed to by the link. If symbolic links are
lib/Ehp15.pm view on Meta::CPAN
Directory handles have their own namespace from filehandles.
This subroutine function when the directory name ends with chr(0x5C) on MSWin32.
=item * Statistics about file
$stat = Ehp15::stat(FILEHANDLE);
$stat = Ehp15::stat(DIRHANDLE);
$stat = Ehp15::stat($expr);
$stat = Ehp15::stat_;
@stat = Ehp15::stat(FILEHANDLE);
@stat = Ehp15::stat(DIRHANDLE);
@stat = Ehp15::stat($expr);
@stat = Ehp15::stat_;
In scalar context, this subroutine returns a Boolean value that indicates whether
the call succeeded. In list context, it returns a 13-element list giving the
statistics for a file, either the file opened via FILEHANDLE or DIRHANDLE, or
named by $expr. It's typically used as followes:
($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
$atime,$mtime,$ctime,$blksize,$blocks) = Ehp15::stat($expr);
Not all fields are supported on all filesystem types; unsupported fields return
0. Here are the meanings of the fields:
-------------------------------------------------------------------------
lib/Ehp15.pm view on Meta::CPAN
The $blocks field (if defined) is reported in 512-byte blocks. The value of
$blocks * 512 can differ greatly from $size for files containing unallocated
blocks, or "hole", which aren't counted in $blocks.
If Ehp15::stat is passed the special filehandle consisting of an underline, no
actual stat(2) is done, but the current contents of the stat structure from
the last Ehp15::stat, Ehp15::lstat, or Ehp15::stat-based file test subroutine
(such as Ehp15::r, Ehp15::w, and Ehp15::x) are returned.
Because the mode contains both the file type and its permissions, you should
mask off the file type portion and printf or sprintf using a "%o" if you want
to see the real permissions:
$mode = (Ehp15::stat($expr))[2];
printf "Permissions are %04o\n", $mode & 07777;
If $expr is omitted, returns information on file given in $_.
This subroutine function when the filename ends with chr(0x5C) on MSWin32.
Char-Hebrew
view release on metacpan or search on metacpan
lib/Hebrew.pm view on Meta::CPAN
# Filter >>>
# Source >
# Escape >>>>> executable without re-escape
#----------------------------------------------------
my $mtime_filter = (stat(__FILE__ ))[9];
my $mtime_source = (stat($filename ))[9];
my $mtime_escape = (stat("$filename.e"))[9];
if (($mtime_escape < $mtime_source) or ($mtime_escape < $mtime_filter)) {
unlink "$filename.e";
}
}
}
lib/Hebrew.pm view on Meta::CPAN
seek($fh, 0, 0) or die __FILE__, ": Can't seek file: $filename.e\n";
my $e_script = Hebrew::escape_script($filename);
print {$fh} $e_script;
my $mode = (stat($filename))[2] & 0777;
chmod $mode, "$filename.e";
close($fh) or die "Can't close file: $filename.e: $!";
}
Char-INFORMIXV6ALS
view release on metacpan or search on metacpan
lib/Einformixv6als.pm view on Meta::CPAN
sub Einformixv6als::M_();
sub Einformixv6als::A_();
sub Einformixv6als::C_();
sub Einformixv6als::glob($);
sub Einformixv6als::glob_();
sub Einformixv6als::lstat(*);
sub Einformixv6als::lstat_();
sub Einformixv6als::opendir(*$);
sub Einformixv6als::stat(*);
sub Einformixv6als::stat_();
sub Einformixv6als::unlink(@);
sub Einformixv6als::chdir(;$);
sub Einformixv6als::do($);
sub Einformixv6als::require(;$);
lib/Einformixv6als.pm view on Meta::CPAN
}
#
# INFORMIX V6 ALS file lstat (with parameter)
#
sub Einformixv6als::lstat(*) {
local $_ = shift if @_;
if (-e $_) {
return CORE::lstat _;
}
elsif (_MSWin32_5Cended_path($_)) {
# Even if ${^WIN32_SLOPPY_STAT} is set to a true value, Einformixv6als::lstat()
# on Windows opens the file for the path which has 5c at end.
# (and so on)
local *MUST_BE_BAREWORD_AT_HERE;
if (CORE::open(MUST_BE_BAREWORD_AT_HERE, $_)) {
lib/Einformixv6als.pm view on Meta::CPAN
}
#
# INFORMIX V6 ALS file stat (with parameter)
#
sub Einformixv6als::stat(*) {
local $_ = shift if @_;
my $fh = qualify_to_ref $_;
if (defined fileno $fh) {
lib/Einformixv6als.pm view on Meta::CPAN
elsif (-e $_) {
return CORE::stat _;
}
elsif (_MSWin32_5Cended_path($_)) {
# Even if ${^WIN32_SLOPPY_STAT} is set to a true value, Einformixv6als::stat()
# on Windows opens the file for the path which has 5c at end.
# (and so on)
local *MUST_BE_BAREWORD_AT_HERE;
if (CORE::open(MUST_BE_BAREWORD_AT_HERE, $_)) {
lib/Einformixv6als.pm view on Meta::CPAN
if (Einformixv6als::f($realfilename)) {
my $script = '';
if (Einformixv6als::e("$realfilename.e")) {
my $e_mtime = (Einformixv6als::stat("$realfilename.e"))[9];
my $mtime = (Einformixv6als::stat($realfilename))[9];
my $module_mtime = (Einformixv6als::stat(__FILE__))[9];
if (($e_mtime < $mtime) or ($mtime < $module_mtime)) {
Einformixv6als::unlink "$realfilename.e";
}
}
lib/Einformixv6als.pm view on Meta::CPAN
$INC{$_} = $realfilename;
my $script = '';
if (Einformixv6als::e("$realfilename.e")) {
my $e_mtime = (Einformixv6als::stat("$realfilename.e"))[9];
my $mtime = (Einformixv6als::stat($realfilename))[9];
my $module_mtime = (Einformixv6als::stat(__FILE__))[9];
if (($e_mtime < $mtime) or ($mtime < $module_mtime)) {
Einformixv6als::unlink "$realfilename.e";
}
}
lib/Einformixv6als.pm view on Meta::CPAN
Einformixv6als::chr_;
Einformixv6als::X ...;
Einformixv6als::X_;
Einformixv6als::glob(...);
Einformixv6als::glob_;
Einformixv6als::lstat(...);
Einformixv6als::lstat_;
Einformixv6als::opendir(...);
Einformixv6als::stat(...);
Einformixv6als::stat_;
Einformixv6als::unlink(...);
Einformixv6als::chdir(...);
Einformixv6als::do(...);
Einformixv6als::require(...);
lib/Einformixv6als.pm view on Meta::CPAN
@relpath_file = split(/\n/,`dir /b wildcard\\here*.txt`);
@abspath_file = split(/\n/,`dir /s /b wildcard\\here*.txt`);
=item * Statistics about link
@lstat = Einformixv6als::lstat($file);
@lstat = Einformixv6als::lstat_;
Like Einformixv6als::stat, returns information on file, except that if file is a symbolic
link, Einformixv6als::lstat returns information about the link; Einformixv6als::stat returns
information about the file pointed to by the link. If symbolic links are
lib/Einformixv6als.pm view on Meta::CPAN
Directory handles have their own namespace from filehandles.
This subroutine function when the directory name ends with chr(0x5C) on MSWin32.
=item * Statistics about file
$stat = Einformixv6als::stat(FILEHANDLE);
$stat = Einformixv6als::stat(DIRHANDLE);
$stat = Einformixv6als::stat($expr);
$stat = Einformixv6als::stat_;
@stat = Einformixv6als::stat(FILEHANDLE);
@stat = Einformixv6als::stat(DIRHANDLE);
@stat = Einformixv6als::stat($expr);
@stat = Einformixv6als::stat_;
In scalar context, this subroutine returns a Boolean value that indicates whether
the call succeeded. In list context, it returns a 13-element list giving the
statistics for a file, either the file opened via FILEHANDLE or DIRHANDLE, or
named by $expr. It's typically used as followes:
($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
$atime,$mtime,$ctime,$blksize,$blocks) = Einformixv6als::stat($expr);
Not all fields are supported on all filesystem types; unsupported fields return
0. Here are the meanings of the fields:
-------------------------------------------------------------------------
lib/Einformixv6als.pm view on Meta::CPAN
The $blocks field (if defined) is reported in 512-byte blocks. The value of
$blocks * 512 can differ greatly from $size for files containing unallocated
blocks, or "hole", which aren't counted in $blocks.
If Einformixv6als::stat is passed the special filehandle consisting of an underline, no
actual stat(2) is done, but the current contents of the stat structure from
the last Einformixv6als::stat, Einformixv6als::lstat, or Einformixv6als::stat-based file test subroutine
(such as Einformixv6als::r, Einformixv6als::w, and Einformixv6als::x) are returned.
Because the mode contains both the file type and its permissions, you should
mask off the file type portion and printf or sprintf using a "%o" if you want
to see the real permissions:
$mode = (Einformixv6als::stat($expr))[2];
printf "Permissions are %04o\n", $mode & 07777;
If $expr is omitted, returns information on file given in $_.
This subroutine function when the filename ends with chr(0x5C) on MSWin32.
Char-JIS8
view release on metacpan or search on metacpan
lib/JIS8.pm view on Meta::CPAN
# Filter >>>
# Source >
# Escape >>>>> executable without re-escape
#----------------------------------------------------
my $mtime_filter = (stat(__FILE__ ))[9];
my $mtime_source = (stat($filename ))[9];
my $mtime_escape = (stat("$filename.e"))[9];
if (($mtime_escape < $mtime_source) or ($mtime_escape < $mtime_filter)) {
unlink "$filename.e";
}
}
}
lib/JIS8.pm view on Meta::CPAN
seek($fh, 0, 0) or die __FILE__, ": Can't seek file: $filename.e\n";
my $e_script = JIS8::escape_script($filename);
print {$fh} $e_script;
my $mode = (stat($filename))[2] & 0777;
chmod $mode, "$filename.e";
close($fh) or die "Can't close file: $filename.e: $!";
}
Char-KOI8R
view release on metacpan or search on metacpan
lib/KOI8R.pm view on Meta::CPAN
# Filter >>>
# Source >
# Escape >>>>> executable without re-escape
#----------------------------------------------------
my $mtime_filter = (stat(__FILE__ ))[9];
my $mtime_source = (stat($filename ))[9];
my $mtime_escape = (stat("$filename.e"))[9];
if (($mtime_escape < $mtime_source) or ($mtime_escape < $mtime_filter)) {
unlink "$filename.e";
}
}
}
lib/KOI8R.pm view on Meta::CPAN
seek($fh, 0, 0) or die __FILE__, ": Can't seek file: $filename.e\n";
my $e_script = KOI8R::escape_script($filename);
print {$fh} $e_script;
my $mode = (stat($filename))[2] & 0777;
chmod $mode, "$filename.e";
close($fh) or die "Can't close file: $filename.e: $!";
}
Char-KOI8U
view release on metacpan or search on metacpan
lib/KOI8U.pm view on Meta::CPAN
# Filter >>>
# Source >
# Escape >>>>> executable without re-escape
#----------------------------------------------------
my $mtime_filter = (stat(__FILE__ ))[9];
my $mtime_source = (stat($filename ))[9];
my $mtime_escape = (stat("$filename.e"))[9];
if (($mtime_escape < $mtime_source) or ($mtime_escape < $mtime_filter)) {
unlink "$filename.e";
}
}
}
lib/KOI8U.pm view on Meta::CPAN
seek($fh, 0, 0) or die __FILE__, ": Can't seek file: $filename.e\n";
my $e_script = KOI8U::escape_script($filename);
print {$fh} $e_script;
my $mode = (stat($filename))[2] & 0777;
chmod $mode, "$filename.e";
close($fh) or die "Can't close file: $filename.e: $!";
}
Char-KPS9566
view release on metacpan or search on metacpan
lib/Ekps9566.pm view on Meta::CPAN
sub Ekps9566::M_();
sub Ekps9566::A_();
sub Ekps9566::C_();
sub Ekps9566::glob($);
sub Ekps9566::glob_();
sub Ekps9566::lstat(*);
sub Ekps9566::lstat_();
sub Ekps9566::opendir(*$);
sub Ekps9566::stat(*);
sub Ekps9566::stat_();
sub Ekps9566::unlink(@);
sub Ekps9566::chdir(;$);
sub Ekps9566::do($);
sub Ekps9566::require(;$);
lib/Ekps9566.pm view on Meta::CPAN
}
#
# KPS9566 file lstat (with parameter)
#
sub Ekps9566::lstat(*) {
local $_ = shift if @_;
if (-e $_) {
return CORE::lstat _;
}
elsif (_MSWin32_5Cended_path($_)) {
# Even if ${^WIN32_SLOPPY_STAT} is set to a true value, Ekps9566::lstat()
# on Windows opens the file for the path which has 5c at end.
# (and so on)
local *MUST_BE_BAREWORD_AT_HERE;
if (CORE::open(MUST_BE_BAREWORD_AT_HERE, $_)) {
lib/Ekps9566.pm view on Meta::CPAN
}
#
# KPS9566 file stat (with parameter)
#
sub Ekps9566::stat(*) {
local $_ = shift if @_;
my $fh = qualify_to_ref $_;
if (defined fileno $fh) {
lib/Ekps9566.pm view on Meta::CPAN
elsif (-e $_) {
return CORE::stat _;
}
elsif (_MSWin32_5Cended_path($_)) {
# Even if ${^WIN32_SLOPPY_STAT} is set to a true value, Ekps9566::stat()
# on Windows opens the file for the path which has 5c at end.
# (and so on)
local *MUST_BE_BAREWORD_AT_HERE;
if (CORE::open(MUST_BE_BAREWORD_AT_HERE, $_)) {
lib/Ekps9566.pm view on Meta::CPAN
if (Ekps9566::f($realfilename)) {
my $script = '';
if (Ekps9566::e("$realfilename.e")) {
my $e_mtime = (Ekps9566::stat("$realfilename.e"))[9];
my $mtime = (Ekps9566::stat($realfilename))[9];
my $module_mtime = (Ekps9566::stat(__FILE__))[9];
if (($e_mtime < $mtime) or ($mtime < $module_mtime)) {
Ekps9566::unlink "$realfilename.e";
}
}
lib/Ekps9566.pm view on Meta::CPAN
$INC{$_} = $realfilename;
my $script = '';
if (Ekps9566::e("$realfilename.e")) {
my $e_mtime = (Ekps9566::stat("$realfilename.e"))[9];
my $mtime = (Ekps9566::stat($realfilename))[9];
my $module_mtime = (Ekps9566::stat(__FILE__))[9];
if (($e_mtime < $mtime) or ($mtime < $module_mtime)) {
Ekps9566::unlink "$realfilename.e";
}
}
lib/Ekps9566.pm view on Meta::CPAN
Ekps9566::chr_;
Ekps9566::X ...;
Ekps9566::X_;
Ekps9566::glob(...);
Ekps9566::glob_;
Ekps9566::lstat(...);
Ekps9566::lstat_;
Ekps9566::opendir(...);
Ekps9566::stat(...);
Ekps9566::stat_;
Ekps9566::unlink(...);
Ekps9566::chdir(...);
Ekps9566::do(...);
Ekps9566::require(...);
lib/Ekps9566.pm view on Meta::CPAN
@relpath_file = split(/\n/,`dir /b wildcard\\here*.txt`);
@abspath_file = split(/\n/,`dir /s /b wildcard\\here*.txt`);
=item * Statistics about link
@lstat = Ekps9566::lstat($file);
@lstat = Ekps9566::lstat_;
Like Ekps9566::stat, returns information on file, except that if file is a symbolic
link, Ekps9566::lstat returns information about the link; Ekps9566::stat returns
information about the file pointed to by the link. If symbolic links are
lib/Ekps9566.pm view on Meta::CPAN
Directory handles have their own namespace from filehandles.
This subroutine function when the directory name ends with chr(0x5C) on MSWin32.
=item * Statistics about file
$stat = Ekps9566::stat(FILEHANDLE);
$stat = Ekps9566::stat(DIRHANDLE);
$stat = Ekps9566::stat($expr);
$stat = Ekps9566::stat_;
@stat = Ekps9566::stat(FILEHANDLE);
@stat = Ekps9566::stat(DIRHANDLE);
@stat = Ekps9566::stat($expr);
@stat = Ekps9566::stat_;
In scalar context, this subroutine returns a Boolean value that indicates whether
the call succeeded. In list context, it returns a 13-element list giving the
statistics for a file, either the file opened via FILEHANDLE or DIRHANDLE, or
named by $expr. It's typically used as followes:
($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
$atime,$mtime,$ctime,$blksize,$blocks) = Ekps9566::stat($expr);
Not all fields are supported on all filesystem types; unsupported fields return
0. Here are the meanings of the fields:
-------------------------------------------------------------------------
lib/Ekps9566.pm view on Meta::CPAN
The $blocks field (if defined) is reported in 512-byte blocks. The value of
$blocks * 512 can differ greatly from $size for files containing unallocated
blocks, or "hole", which aren't counted in $blocks.
If Ekps9566::stat is passed the special filehandle consisting of an underline, no
actual stat(2) is done, but the current contents of the stat structure from
the last Ekps9566::stat, Ekps9566::lstat, or Ekps9566::stat-based file test subroutine
(such as Ekps9566::r, Ekps9566::w, and Ekps9566::x) are returned.
Because the mode contains both the file type and its permissions, you should
mask off the file type portion and printf or sprintf using a "%o" if you want
to see the real permissions:
$mode = (Ekps9566::stat($expr))[2];
printf "Permissions are %04o\n", $mode & 07777;
If $expr is omitted, returns information on file given in $_.
This subroutine function when the filename ends with chr(0x5C) on MSWin32.
Char-Latin1
view release on metacpan or search on metacpan
lib/Latin1.pm view on Meta::CPAN
# Filter >>>
# Source >
# Escape >>>>> executable without re-escape
#----------------------------------------------------
my $mtime_filter = (stat(__FILE__ ))[9];
my $mtime_source = (stat($filename ))[9];
my $mtime_escape = (stat("$filename.e"))[9];
if (($mtime_escape < $mtime_source) or ($mtime_escape < $mtime_filter)) {
unlink "$filename.e";
}
}
}
lib/Latin1.pm view on Meta::CPAN
seek($fh, 0, 0) or die __FILE__, ": Can't seek file: $filename.e\n";
my $e_script = Latin1::escape_script($filename);
print {$fh} $e_script;
my $mode = (stat($filename))[2] & 0777;
chmod $mode, "$filename.e";
close($fh) or die "Can't close file: $filename.e: $!";
}
Char-Latin10
view release on metacpan or search on metacpan
lib/Latin10.pm view on Meta::CPAN
# Filter >>>
# Source >
# Escape >>>>> executable without re-escape
#----------------------------------------------------
my $mtime_filter = (stat(__FILE__ ))[9];
my $mtime_source = (stat($filename ))[9];
my $mtime_escape = (stat("$filename.e"))[9];
if (($mtime_escape < $mtime_source) or ($mtime_escape < $mtime_filter)) {
unlink "$filename.e";
}
}
}
lib/Latin10.pm view on Meta::CPAN
seek($fh, 0, 0) or die __FILE__, ": Can't seek file: $filename.e\n";
my $e_script = Latin10::escape_script($filename);
print {$fh} $e_script;
my $mode = (stat($filename))[2] & 0777;
chmod $mode, "$filename.e";
close($fh) or die "Can't close file: $filename.e: $!";
}
Char-Latin2
view release on metacpan or search on metacpan
lib/Latin2.pm view on Meta::CPAN
# Filter >>>
# Source >
# Escape >>>>> executable without re-escape
#----------------------------------------------------
my $mtime_filter = (stat(__FILE__ ))[9];
my $mtime_source = (stat($filename ))[9];
my $mtime_escape = (stat("$filename.e"))[9];
if (($mtime_escape < $mtime_source) or ($mtime_escape < $mtime_filter)) {
unlink "$filename.e";
}
}
}
lib/Latin2.pm view on Meta::CPAN
seek($fh, 0, 0) or die __FILE__, ": Can't seek file: $filename.e\n";
my $e_script = Latin2::escape_script($filename);
print {$fh} $e_script;
my $mode = (stat($filename))[2] & 0777;
chmod $mode, "$filename.e";
close($fh) or die "Can't close file: $filename.e: $!";
}
Char-Latin3
view release on metacpan or search on metacpan
lib/Latin3.pm view on Meta::CPAN
# Filter >>>
# Source >
# Escape >>>>> executable without re-escape
#----------------------------------------------------
my $mtime_filter = (stat(__FILE__ ))[9];
my $mtime_source = (stat($filename ))[9];
my $mtime_escape = (stat("$filename.e"))[9];
if (($mtime_escape < $mtime_source) or ($mtime_escape < $mtime_filter)) {
unlink "$filename.e";
}
}
}
lib/Latin3.pm view on Meta::CPAN
seek($fh, 0, 0) or die __FILE__, ": Can't seek file: $filename.e\n";
my $e_script = Latin3::escape_script($filename);
print {$fh} $e_script;
my $mode = (stat($filename))[2] & 0777;
chmod $mode, "$filename.e";
close($fh) or die "Can't close file: $filename.e: $!";
}
Char-Latin4
view release on metacpan or search on metacpan
lib/Latin4.pm view on Meta::CPAN
# Filter >>>
# Source >
# Escape >>>>> executable without re-escape
#----------------------------------------------------
my $mtime_filter = (stat(__FILE__ ))[9];
my $mtime_source = (stat($filename ))[9];
my $mtime_escape = (stat("$filename.e"))[9];
if (($mtime_escape < $mtime_source) or ($mtime_escape < $mtime_filter)) {
unlink "$filename.e";
}
}
}
lib/Latin4.pm view on Meta::CPAN
seek($fh, 0, 0) or die __FILE__, ": Can't seek file: $filename.e\n";
my $e_script = Latin4::escape_script($filename);
print {$fh} $e_script;
my $mode = (stat($filename))[2] & 0777;
chmod $mode, "$filename.e";
close($fh) or die "Can't close file: $filename.e: $!";
}
Char-Latin5
view release on metacpan or search on metacpan
lib/Latin5.pm view on Meta::CPAN
# Filter >>>
# Source >
# Escape >>>>> executable without re-escape
#----------------------------------------------------
my $mtime_filter = (stat(__FILE__ ))[9];
my $mtime_source = (stat($filename ))[9];
my $mtime_escape = (stat("$filename.e"))[9];
if (($mtime_escape < $mtime_source) or ($mtime_escape < $mtime_filter)) {
unlink "$filename.e";
}
}
}
lib/Latin5.pm view on Meta::CPAN
seek($fh, 0, 0) or die __FILE__, ": Can't seek file: $filename.e\n";
my $e_script = Latin5::escape_script($filename);
print {$fh} $e_script;
my $mode = (stat($filename))[2] & 0777;
chmod $mode, "$filename.e";
close($fh) or die "Can't close file: $filename.e: $!";
}
Char-Latin6
view release on metacpan or search on metacpan
lib/Latin6.pm view on Meta::CPAN
# Filter >>>
# Source >
# Escape >>>>> executable without re-escape
#----------------------------------------------------
my $mtime_filter = (stat(__FILE__ ))[9];
my $mtime_source = (stat($filename ))[9];
my $mtime_escape = (stat("$filename.e"))[9];
if (($mtime_escape < $mtime_source) or ($mtime_escape < $mtime_filter)) {
unlink "$filename.e";
}
}
}
lib/Latin6.pm view on Meta::CPAN
seek($fh, 0, 0) or die __FILE__, ": Can't seek file: $filename.e\n";
my $e_script = Latin6::escape_script($filename);
print {$fh} $e_script;
my $mode = (stat($filename))[2] & 0777;
chmod $mode, "$filename.e";
close($fh) or die "Can't close file: $filename.e: $!";
}
Char-Latin7
view release on metacpan or search on metacpan
lib/Latin7.pm view on Meta::CPAN
# Filter >>>
# Source >
# Escape >>>>> executable without re-escape
#----------------------------------------------------
my $mtime_filter = (stat(__FILE__ ))[9];
my $mtime_source = (stat($filename ))[9];
my $mtime_escape = (stat("$filename.e"))[9];
if (($mtime_escape < $mtime_source) or ($mtime_escape < $mtime_filter)) {
unlink "$filename.e";
}
}
}
lib/Latin7.pm view on Meta::CPAN
seek($fh, 0, 0) or die __FILE__, ": Can't seek file: $filename.e\n";
my $e_script = Latin7::escape_script($filename);
print {$fh} $e_script;
my $mode = (stat($filename))[2] & 0777;
chmod $mode, "$filename.e";
close($fh) or die "Can't close file: $filename.e: $!";
}
Char-Latin8
view release on metacpan or search on metacpan
lib/Latin8.pm view on Meta::CPAN
# Filter >>>
# Source >
# Escape >>>>> executable without re-escape
#----------------------------------------------------
my $mtime_filter = (stat(__FILE__ ))[9];
my $mtime_source = (stat($filename ))[9];
my $mtime_escape = (stat("$filename.e"))[9];
if (($mtime_escape < $mtime_source) or ($mtime_escape < $mtime_filter)) {
unlink "$filename.e";
}
}
}
lib/Latin8.pm view on Meta::CPAN
seek($fh, 0, 0) or die __FILE__, ": Can't seek file: $filename.e\n";
my $e_script = Latin8::escape_script($filename);
print {$fh} $e_script;
my $mode = (stat($filename))[2] & 0777;
chmod $mode, "$filename.e";
close($fh) or die "Can't close file: $filename.e: $!";
}
Char-Latin9
view release on metacpan or search on metacpan
lib/Latin9.pm view on Meta::CPAN
# Filter >>>
# Source >
# Escape >>>>> executable without re-escape
#----------------------------------------------------
my $mtime_filter = (stat(__FILE__ ))[9];
my $mtime_source = (stat($filename ))[9];
my $mtime_escape = (stat("$filename.e"))[9];
if (($mtime_escape < $mtime_source) or ($mtime_escape < $mtime_filter)) {
unlink "$filename.e";
}
}
}
lib/Latin9.pm view on Meta::CPAN
seek($fh, 0, 0) or die __FILE__, ": Can't seek file: $filename.e\n";
my $e_script = Latin9::escape_script($filename);
print {$fh} $e_script;
my $mode = (stat($filename))[2] & 0777;
chmod $mode, "$filename.e";
close($fh) or die "Can't close file: $filename.e: $!";
}
Char-OldUTF8
view release on metacpan or search on metacpan
lib/OldUTF8.pm view on Meta::CPAN
# Filter >>>
# Source >
# Escape >>>>> executable without re-escape
#----------------------------------------------------
my $mtime_filter = (stat(__FILE__ ))[9];
my $mtime_source = (stat($filename ))[9];
my $mtime_escape = (stat("$filename.e"))[9];
if (($mtime_escape < $mtime_source) or ($mtime_escape < $mtime_filter)) {
unlink "$filename.e";
}
}
}
lib/OldUTF8.pm view on Meta::CPAN
seek($fh, 0, 0) or die __FILE__, ": Can't seek file: $filename.e\n";
my $e_script = OldUTF8::escape_script($filename);
print {$fh} $e_script;
my $mode = (stat($filename))[2] & 0777;
chmod $mode, "$filename.e";
close($fh) or die "Can't close file: $filename.e: $!";
}
Char-Sjis
view release on metacpan or search on metacpan
lib/Esjis.pm view on Meta::CPAN
sub Esjis::M_();
sub Esjis::A_();
sub Esjis::C_();
sub Esjis::glob($);
sub Esjis::glob_();
sub Esjis::lstat(*);
sub Esjis::lstat_();
sub Esjis::opendir(*$);
sub Esjis::stat(*);
sub Esjis::stat_();
sub Esjis::unlink(@);
sub Esjis::chdir(;$);
sub Esjis::do($);
sub Esjis::require(;$);
lib/Esjis.pm view on Meta::CPAN
}
#
# ShiftJIS file lstat (with parameter)
#
sub Esjis::lstat(*) {
local $_ = shift if @_;
if (-e $_) {
return CORE::lstat _;
}
elsif (_MSWin32_5Cended_path($_)) {
# Even if ${^WIN32_SLOPPY_STAT} is set to a true value, Esjis::lstat()
# on Windows opens the file for the path which has 5c at end.
# (and so on)
local *MUST_BE_BAREWORD_AT_HERE;
if (CORE::open(MUST_BE_BAREWORD_AT_HERE, $_)) {
lib/Esjis.pm view on Meta::CPAN
}
#
# ShiftJIS file stat (with parameter)
#
sub Esjis::stat(*) {
local $_ = shift if @_;
my $fh = qualify_to_ref $_;
if (defined fileno $fh) {
lib/Esjis.pm view on Meta::CPAN
elsif (-e $_) {
return CORE::stat _;
}
elsif (_MSWin32_5Cended_path($_)) {
# Even if ${^WIN32_SLOPPY_STAT} is set to a true value, Esjis::stat()
# on Windows opens the file for the path which has 5c at end.
# (and so on)
local *MUST_BE_BAREWORD_AT_HERE;
if (CORE::open(MUST_BE_BAREWORD_AT_HERE, $_)) {
lib/Esjis.pm view on Meta::CPAN
if (Esjis::f($realfilename)) {
my $script = '';
if (Esjis::e("$realfilename.e")) {
my $e_mtime = (Esjis::stat("$realfilename.e"))[9];
my $mtime = (Esjis::stat($realfilename))[9];
my $module_mtime = (Esjis::stat(__FILE__))[9];
if (($e_mtime < $mtime) or ($mtime < $module_mtime)) {
Esjis::unlink "$realfilename.e";
}
}
lib/Esjis.pm view on Meta::CPAN
$INC{$_} = $realfilename;
my $script = '';
if (Esjis::e("$realfilename.e")) {
my $e_mtime = (Esjis::stat("$realfilename.e"))[9];
my $mtime = (Esjis::stat($realfilename))[9];
my $module_mtime = (Esjis::stat(__FILE__))[9];
if (($e_mtime < $mtime) or ($mtime < $module_mtime)) {
Esjis::unlink "$realfilename.e";
}
}
lib/Esjis.pm view on Meta::CPAN
Esjis::chr_;
Esjis::X ...;
Esjis::X_;
Esjis::glob(...);
Esjis::glob_;
Esjis::lstat(...);
Esjis::lstat_;
Esjis::opendir(...);
Esjis::stat(...);
Esjis::stat_;
Esjis::unlink(...);
Esjis::chdir(...);
Esjis::do(...);
Esjis::require(...);
lib/Esjis.pm view on Meta::CPAN
@relpath_file = split(/\n/,`dir /b wildcard\\here*.txt`);
@abspath_file = split(/\n/,`dir /s /b wildcard\\here*.txt`);
=item * Statistics about link
@lstat = Esjis::lstat($file);
@lstat = Esjis::lstat_;
Like Esjis::stat, returns information on file, except that if file is a symbolic
link, Esjis::lstat returns information about the link; Esjis::stat returns
information about the file pointed to by the link. If symbolic links are
lib/Esjis.pm view on Meta::CPAN
Directory handles have their own namespace from filehandles.
This subroutine function when the directory name ends with chr(0x5C) on MSWin32.
=item * Statistics about file
$stat = Esjis::stat(FILEHANDLE);
$stat = Esjis::stat(DIRHANDLE);
$stat = Esjis::stat($expr);
$stat = Esjis::stat_;
@stat = Esjis::stat(FILEHANDLE);
@stat = Esjis::stat(DIRHANDLE);
@stat = Esjis::stat($expr);
@stat = Esjis::stat_;
In scalar context, this subroutine returns a Boolean value that indicates whether
the call succeeded. In list context, it returns a 13-element list giving the
statistics for a file, either the file opened via FILEHANDLE or DIRHANDLE, or
named by $expr. It's typically used as followes:
($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
$atime,$mtime,$ctime,$blksize,$blocks) = Esjis::stat($expr);
Not all fields are supported on all filesystem types; unsupported fields return
0. Here are the meanings of the fields:
-------------------------------------------------------------------------
lib/Esjis.pm view on Meta::CPAN
The $blocks field (if defined) is reported in 512-byte blocks. The value of
$blocks * 512 can differ greatly from $size for files containing unallocated
blocks, or "hole", which aren't counted in $blocks.
If Esjis::stat is passed the special filehandle consisting of an underline, no
actual stat(2) is done, but the current contents of the stat structure from
the last Esjis::stat, Esjis::lstat, or Esjis::stat-based file test subroutine
(such as Esjis::r, Esjis::w, and Esjis::x) are returned.
Because the mode contains both the file type and its permissions, you should
mask off the file type portion and printf or sprintf using a "%o" if you want
to see the real permissions:
$mode = (Esjis::stat($expr))[2];
printf "Permissions are %04o\n", $mode & 07777;
If $expr is omitted, returns information on file given in $_.
This subroutine function when the filename ends with chr(0x5C) on MSWin32.
( run in 0.906 second using v1.01-cache-2.11-cpan-49f99fa48dc )