Result:
found more than 1307 distributions - search limited to the first 2001 files matching your query
( run in 3.567 )
BioX-Workflow-Plugin-FileDetails
view release on metacpan or search on metacpan
script/filedetails.pl view on Meta::CPAN
my $basename = basename($file);
my $details = File::Details->new($file);
my ( $hash, $size, $ctime, $actime, $mtime ) = (
$details->hash, $details->size,
ctime( stat($file)->ctime ),
ctime( stat($file)->atime ),
ctime( stat($file)->mtime )
);
my $hsize = $human->format($size);
my $info = <<EOF;
Bioinf
view release on metacpan or search on metacpan
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# Getting statistics
#_________________________________________
$evalue=$s;
$E_mult_factor1=1;
@output=@{&get_isearch_result_stat(\%stat2, \@pdbg_seqs, \$evalue,
\$base, \$E_mult_factor1, $leng_thresh, \%msp_00)};
%correct=%{$output[3]};
%final_stat_big_hash=(%final_stat_big_hash, %correct);
if($verbose){
@keys=sort keys %correct;
return(\%correcting_pairs);
}
#__________________________________________________________________
# Title : get_isearch_result_stat
# Usage : &get_self_isearch_stat(\%stat2, \@pdbg_seqs, \$evalue);
# Function :
# Example : Following input (hash eg: %stat2, input with the first word as key)
# will become columnar output.
#
# d1ash__ d1bam__ d1mba__ d2lhb__
elsif(-s $out_gz_name){ $existing_msp=$out_file_gz_name }
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# If the dates of files created are long ago, overwrite to refresh
#____________________________________________________________________
if( (localtime(time- (stat($existing_sso))[9]))[3] > $age_in_days_of_out_file ){
$over_write_sso_by_age='o';
}
if( (localtime(time- (stat($existing_msp))[9]))[3] > $age_in_days_of_out_file ){
$over_write_msp_by_age='o';
}
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# To check if the target seq DB is in ../
if(-s $out_sso_file){ $existing_sso=$out_sso_file }
elsif(-s $out_sso_gz_name){ $existing_sso=$out_sso_gz_name }
if(-s $out_msp_file){ $existing_msp=$out_msp_file }
elsif(-s $out_gz_name){ $existing_msp=$out_gz_name }
if( (localtime(time- (stat($existing_sso))[9]))[3] > $age_in_days_of_out_file ){
$over_write_sso_by_age='o';
}
if( (localtime(time- (stat($existing_msp))[9]))[3] > $age_in_days_of_out_file ){
$over_write_msp_by_age='o';
}
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# To check if the target seq DB is in ../
if(@_ < 2){ print "\n# if_file_older_than_x_days needs 2 args\n"; exit; }
my $file=${$_[0]} || $_[0];
$days=${$_[1]} || $_[1];
unless(-s $file){ print "\n# if_file_older_than_x_days: $file does NOT exist\n"; exit; }
if(lstat($file)){ # to handle Symbolyc link
print "\n# (i) if_file_older_than_x_days: running lstat\n";
$how_old_days=(localtime(time- (lstat($file))[9]))[3]; ## should be lstat not stat
}else{
print "\n# (i) if_file_older_than_x_days: running stat\n";
$how_old_days=(localtime(time- (stat($file))[9]))[3]; ## should be lstat not stat
}
if($how_old_days > $days and $how_old_days < 10000){
print "\n# if_file_older_than_x_days: $file is older than $days\n";
return(\$days);
}else{
$seq_file_msp_gz_name="$seq_name\.msp\.gz";
$first_char= substr("\U$seq_name", 0, 1);
if(-s "$first_char\/$seq_file_msp_name"){ $existing_msp_file="$first_char\/$seq_file_msp_name"; }
elsif(-s "$first_char\/$seq_file_msp_gz_name"){ $existing_msp_file="$first_char\/$seq_file_msp_gz_name"; }
if( (localtime(time- (stat($existing_msp_file))[9]))[3] > $age_in_days_of_out_file ) {
$overwrite_by_age='o';
print "\n# interm_lib_search: $seq_file_msp_name is older than $age_in_days_of_out_file days, ovrwrting\n";
}
if( !$over_write and (-s "$first_char\/$seq_file_msp_name" or -s "$first_char\/$seq_file_msp_gz_name")
$seq_file_msp_gz_name="$seq_name\.msp\.gz";
$first_char= substr("\U$seq_name", 0, 1);
if(-s "$first_char\/$seq_file_msp_name"){ $existing_msp_file="$first_char\/$seq_file_msp_name"; }
elsif(-s "$first_char\/$seq_file_msp_gz_name"){ $existing_msp_file="$first_char\/$seq_file_msp_gz_name"; }
if( (localtime(time- (stat($existing_msp_file))[9]))[3] > $age_in_days_of_out_file ) {
$overwrite_by_age='o';
print "\n# interm_lib_search : $seq_file_msp_name is older than $age_in_days_of_out_file days, ovrwrting\n";
}
if( !$over_write and (-s "$first_char\/$seq_file_msp_name" or -s "$first_char\/$seq_file_msp_gz_name")
return(\$final_dir);
}#~~~~~~~ End of sub ~~~~~~~~~~~
@read_files = @{&read_file_names_only(\$in_dir, \@target_file_names)};
for($i=0; $i < @read_files; $i ++){
@stat=stat($read_files[$i]);
$size_sum+=$stat[7];
if($stat[7] > 1000000){ $big_files{$stat[7]} = $read_files[$i]; }
if( ($read_files[$i]=~/^[\W]+$/)||($read_files[$i] =~ / +/)){
splice( @read_files, $i, 1 ); $i-- }
if( ($read_files[$i]=~/\.\.+/)||($read_files[$i] =~ /\#+/)||($read_files[$i]=~/\,+/)){
Bison
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
# then make will detect this and cause it to re-run over and over
# again. This is bad. Rather than taking action to touch it (which
# is unreliable on some platforms and requires write permissions)
# for now we should catch this and refuse to run.
if ( -f $0 ) {
my $s = (stat($0))[9];
# If the modification time is only slightly in the future,
# sleep briefly to remove the problem.
my $a = $s - time;
if ( $a > 0 and $a < 5 ) { sleep 5 }
Bitmask-Data
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
# then make will detect this and cause it to re-run over and over
# again. This is bad. Rather than taking action to touch it (which
# is unreliable on some platforms and requires write permissions)
# for now we should catch this and refuse to run.
if ( -f $0 ) {
my $s = (stat($0))[9];
# If the modification time is only slightly in the future,
# sleep briefly to remove the problem.
my $a = $s - time;
if ( $a > 0 and $a < 5 ) { sleep 5 }
Blikistan
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
# If the script that is loading Module::Install is from the future,
# then make will detect this and cause it to re-run over and over
# again. This is bad. Rather than taking action to touch it (which
# is unreliable on some platforms and requires write permissions)
# for now we should catch this and refuse to run.
if ( -f $0 and (stat($0))[9] > time ) {
die << "END_DIE";
Your installer $0 has a modification time in the future.
This is known to create infinite loops in make.
Blio
view release on metacpan or search on metacpan
t/Blio/run.t view on Meta::CPAN
file_exists_ok( $blio->output_dir->file('movies.html') );
file_exists_ok( $blio->output_dir->file('books.html') );
file_exists_ok( $blio->output_dir->file('books/un_lun_dun.html') );
file_exists_ok( $blio->output_dir->file('books/artemis_fowl.html') );
my $un_lun_dun_mtime = (stat($blio->output_dir->file('books/un_lun_dun.html')->stringify))[9];
my $books_mtime = (stat($blio->output_dir->file('books.html')->stringify))[9];
is($un_lun_dun_mtime,$books_mtime,'books.html mtime = books/un_lun_dun.html');
done_testing();
Blog-Blosxom
view release on metacpan or search on metacpan
lib/Blog/Blosxom.pm view on Meta::CPAN
my ($self, $fn) = @_;
my $dop;
return $dop if $dop = $self->_check_plugins("date_of_post", @_);
return stat($fn)->mtime;
}
=head2 filter (@entries)
This function returns only the desired entries from the array passed in. By
Blosxom-Debug
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
# If the script that is loading Module::Install is from the future,
# then make will detect this and cause it to re-run over and over
# again. This is bad. Rather than taking action to touch it (which
# is unreliable on some platforms and requires write permissions)
# for now we should catch this and refuse to run.
if ( -f $0 and (stat($0))[9] > time ) {
die << "END_DIE";
Your installer $0 has a modification time in the future.
This is known to create infinite loops in make.
Blosxom-Include
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
# If the script that is loading Module::Install is from the future,
# then make will detect this and cause it to re-run over and over
# again. This is bad. Rather than taking action to touch it (which
# is unreliable on some platforms and requires write permissions)
# for now we should catch this and refuse to run.
if ( -f $0 and (stat($0))[9] > time ) {
die << "END_DIE";
Your installer $0 has a modification time in the future.
This is known to create infinite loops in make.
Blosxom-Plugin
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
# then make will detect this and cause it to re-run over and over
# again. This is bad. Rather than taking action to touch it (which
# is unreliable on some platforms and requires write permissions)
# for now we should catch this and refuse to run.
if ( -f $0 ) {
my $s = (stat($0))[9];
# If the modification time is only slightly in the future,
# sleep briefly to remove the problem.
my $a = $s - time;
if ( $a > 0 and $a < 5 ) { sleep 5 }
BokkaKumiai
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
# then make will detect this and cause it to re-run over and over
# again. This is bad. Rather than taking action to touch it (which
# is unreliable on some platforms and requires write permissions)
# for now we should catch this and refuse to run.
if ( -f $0 ) {
my $s = (stat($0))[9];
# If the modification time is only slightly in the future,
# sleep briefly to remove the problem.
my $a = $s - time;
if ( $a > 0 and $a < 5 ) { sleep 5 }
Boost-Graph
view release on metacpan or search on metacpan
include/boost/spirit/iterator/impl/file_iterator.ipp view on Meta::CPAN
return;
// call fstat to find get information about the file just
// opened (size and file type)
struct stat stat_buf;
if ((fstat(fd, &stat_buf) != 0) || !S_ISREG(stat_buf.st_mode))
{ // if fstat returns an error or if the file isn't a
// regular file we give up.
close(fd);
return;
}
Bootylicious-Plugin-Gallery
view release on metacpan or search on metacpan
lib/Bootylicious/Plugin/Gallery.pm view on Meta::CPAN
sub _cache_image {
my ($self, $c, $opts) = @_;
return
if (-e $opts->{cached_file})
&& ((stat($opts->{source_file}))[9] < (stat($opts->{cached_file}))[9]);
return $self->_create_thubnail($c, $opts);
}
Bootylicious
view release on metacpan or search on metacpan
lib/Bootylicious/Comment.pm view on Meta::CPAN
return $self;
}
sub created {
Bootylicious::Timestamp->new(epoch => stat(shift->path)->mtime);
}
sub email { shift->metadata(email => @_) }
sub url { shift->metadata(url =>) }
sub content { shift->inner(content => @_) }
Bot-Applebot
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
# then make will detect this and cause it to re-run over and over
# again. This is bad. Rather than taking action to touch it (which
# is unreliable on some platforms and requires write permissions)
# for now we should catch this and refuse to run.
if ( -f $0 ) {
my $s = (stat($0))[9];
# If the modification time is only slightly in the future,
# sleep briefly to remove the problem.
my $a = $s - time;
if ( $a > 0 and $a < 5 ) { sleep 5 }
Bot-BasicBot-Pluggable-Module-Collection
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
# If the script that is loading Module::Install is from the future,
# then make will detect this and cause it to re-run over and over
# again. This is bad. Rather than taking action to touch it (which
# is unreliable on some platforms and requires write permissions)
# for now we should catch this and refuse to run.
if ( -f $0 and (stat($0))[9] > time ) { die <<"END_DIE" }
Your installer $0 has a modification time in the future.
This is known to create infinite loops in make.
Bot-BasicBot-Pluggable-Module-Crontab
view release on metacpan or search on metacpan
lib/Bot/BasicBot/Pluggable/Module/Crontab.pm view on Meta::CPAN
my $self = shift;
my $fn = $self->store->get( 'crontab', 'file' ) or return 0;
return 0 unless(-r $fn); # file must be readable
my $mod = (stat($fn))[9];
return 1 if($mod <= $load_time); # don't reload if not modified
@crontab = ();
my $fh = IO::File->new($fn,'r') or die "Cannot load file [$fn]: $!\n";
Bot-BasicBot-Pluggable-Module-Gitbot
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
# then make will detect this and cause it to re-run over and over
# again. This is bad. Rather than taking action to touch it (which
# is unreliable on some platforms and requires write permissions)
# for now we should catch this and refuse to run.
if ( -f $0 ) {
my $s = (stat($0))[9];
# If the modification time is only slightly in the future,
# sleep briefly to remove the problem.
my $a = $s - time;
if ( $a > 0 and $a < 5 ) { sleep 5 }
Bot-BasicBot-Pluggable-Module-Notify
view release on metacpan or search on metacpan
lib/Bot/BasicBot/Pluggable/Module/Notify.pm view on Meta::CPAN
my $self = shift;
my $fn = $self->store->get( 'notify', 'notifications' ) or return 0;
return 0 unless(-r $fn); # file must be readable
my $mod = (stat($fn))[9];
return 1 if($mod <= $load_time && keys %emails); # don't reload if not modified
my $fh = IO::File->new($fn,'r') or return 0;
(%settings,%emails) = ();
while(<$fh>) {
Bot-BasicBot-Pluggable-WithConfig
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
# If the script that is loading Module::Install is from the future,
# then make will detect this and cause it to re-run over and over
# again. This is bad. Rather than taking action to touch it (which
# is unreliable on some platforms and requires write permissions)
# for now we should catch this and refuse to run.
if ( -f $0 and (stat($0))[9] > time ) { die <<"END_DIE" }
Your installer $0 has a modification time in the future.
This is known to create infinite loops in make.
Bot-IKCBot-Pluggable
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
# If the script that is loading Module::Install is from the future,
# then make will detect this and cause it to re-run over and over
# again. This is bad. Rather than taking action to touch it (which
# is unreliable on some platforms and requires write permissions)
# for now we should catch this and refuse to run.
if ( -f $0 and (stat($0))[9] > time ) { die <<"END_DIE" }
Your installer $0 has a modification time in the future.
This is known to create infinite loops in make.
Bot-Net
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
# If the script that is loading Module::Install is from the future,
# then make will detect this and cause it to re-run over and over
# again. This is bad. Rather than taking action to touch it (which
# is unreliable on some platforms and requires write permissions)
# for now we should catch this and refuse to run.
if ( -f $0 and (stat($0))[9] > time ) {
die << "END_DIE";
Your installer $0 has a modification time in the future.
This is known to create infinite loops in make.
Boulder
view release on metacpan or search on metacpan
Boulder/Blast.pm view on Meta::CPAN
Blast_program_date => $date );
# the date isn't part of the file, so we use the creation date of the file
# for this purpose. If not available, then we are reading from a pipe
# (maybe) and we use the current time.
my $timestamp = -f $fh ? (stat(_))[9] : time;
$stone->insert(Blast_run_date => scalar localtime($timestamp));
if ($version =~ /WashU/) {
require Boulder::Blast::WU;
bless $self,'Boulder::Blast::WU';
Box-Limited
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
# then make will detect this and cause it to re-run over and over
# again. This is bad. Rather than taking action to touch it (which
# is unreliable on some platforms and requires write permissions)
# for now we should catch this and refuse to run.
if ( -f $0 ) {
my $s = (stat($0))[9];
# If the modification time is only slightly in the future,
# sleep briefly to remove the problem.
my $a = $s - time;
if ( $a > 0 and $a < 5 ) { sleep 5 }
Bracket
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
# then make will detect this and cause it to re-run over and over
# again. This is bad. Rather than taking action to touch it (which
# is unreliable on some platforms and requires write permissions)
# for now we should catch this and refuse to run.
if ( -f $0 ) {
my $s = (stat($0))[9];
# If the modification time is only slightly in the future,
# sleep briefly to remove the problem.
my $a = $s - time;
if ( $a > 0 and $a < 5 ) { sleep 5 }
Brackup
view release on metacpan or search on metacpan
lib/Brackup/File.pm view on Meta::CPAN
# returns File::stat object
sub stat {
my $self = shift;
return $self->{stat} if $self->{stat};
my $path = $self->fullpath;
my $stat = File::stat::lstat($path);
return $self->{stat} = $stat;
}
sub size {
my $self = shift;
Brat-Handler
view release on metacpan or search on metacpan
lib/Brat/Handler/File.pm view on Meta::CPAN
open FILE, $textFilename or die "no such file $textFilename\n";
while($line = <FILE>) {
$textSize += length($line);
}
close FILE;
# my @s = stat($textFilename);
# $textSize += $s[7];
push @annFiles, $annotationFilename;
push @textFiles, $textFilename;
}
my $bratfile = {
Bricklayer-Templater
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
# If the script that is loading Module::Install is from the future,
# then make will detect this and cause it to re-run over and over
# again. This is bad. Rather than taking action to touch it (which
# is unreliable on some platforms and requires write permissions)
# for now we should catch this and refuse to run.
if ( -f $0 and (stat($0))[9] > time ) {
die << "END_DIE";
Your installer $0 has a modification time in the future.
This is known to create infinite loops in make.
Brownie
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
# then make will detect this and cause it to re-run over and over
# again. This is bad. Rather than taking action to touch it (which
# is unreliable on some platforms and requires write permissions)
# for now we should catch this and refuse to run.
if ( -f $0 ) {
my $s = (stat($0))[9];
# If the modification time is only slightly in the future,
# sleep briefly to remove the problem.
my $a = $s - time;
if ( $a > 0 and $a < 5 ) { sleep 5 }
Bryar
view release on metacpan or search on metacpan
lib/Bryar/Renderer/SiteMap.pm view on Meta::CPAN
foreach my $file (@{$bryar->config->{sitemap_static_files}}) {
-e $bryar->config->{sitemap_static_basedir} . $file || next;
$map->add(WWW::Google::SiteMap::URL->new(
loc => $bryar->config->baseurl . '/' . $file,
lastmod => (stat(_))[9],
changefreq => 'monthly',
priority => 0.8,
));
}
( run in 3.567 seconds using v1.01-cache-2.11-cpan-8dfa8b56332 )