Result:
found more than 1001 distributions - search limited to the first 2001 files matching your query
( run in 0.710 )
Data-Rebuilder
view release on metacpan or search on metacpan
# --- MakeMaker tool_xsubpp section:
# --- MakeMaker tools_other section:
SHELL = /bin/sh
CHMOD = chmod
CP = cp
MV = mv
NOOP = $(SHELL) -c true
NOECHO = @
RM_F = rm -f
Data-Record-Serialize-Encode-csv
view release on metacpan or search on metacpan
CONTRIBUTING.md view on Meta::CPAN
Dependencies for this module are recorded in the `META.json` file.
Installation is most easily done with `cpanminus`[1], which can be
made available locally via:
$ curl -L https://cpanmin.us/ -o cpanm
$ chmod +x cpanm
To install the dependencies into a local directory (to avoid polluting
your Perl distribution),
$ export PERL5LIB=${PERL5LIB}:$PWD/local
Data-Record-Serialize-Encode-dbi
view release on metacpan or search on metacpan
CONTRIBUTING.md view on Meta::CPAN
Dependencies for this module are recorded in the `META.json` file.
Installation is most easily done with `cpanminus`[1], which can be
made available locally via:
$ curl -L https://cpanmin.us/ -o cpanm
$ chmod +x cpanm
To install the dependencies into a local directory (to avoid polluting
your Perl distribution),
$ export PERL5LIB=${PERL5LIB}:$PWD/local
Data-Record-Serialize-Encode-html
view release on metacpan or search on metacpan
CONTRIBUTING.md view on Meta::CPAN
Dependencies for this module are recorded in the `META.json` file.
Installation is most easily done with `cpanminus`[1], which can be
made available locally via:
$ curl -L https://cpanmin.us/ -o cpanm
$ chmod +x cpanm
To install the dependencies into a local directory (to avoid polluting
your Perl distribution),
$ export PERL5LIB=${PERL5LIB}:$PWD/local
Data-Record-Serialize
view release on metacpan or search on metacpan
CONTRIBUTING.md view on Meta::CPAN
Dependencies for this module are recorded in the `META.json` file.
Installation is most easily done with `cpanminus`[1], which can be
made available locally via:
$ curl -L https://cpanmin.us/ -o cpanm
$ chmod +x cpanm
To install the dependencies into a local directory (to avoid polluting
your Perl distribution),
$ export PERL5LIB=${PERL5LIB}:$PWD/local
Data-RecordStore
view release on metacpan or search on metacpan
3 directories : source, destination, working
Added Data::RecordStore->detect_version function.
4.06 - updating tests for windows. Windows tests seem to be
failing because chmod is having no effect.
4.05 - allow silos to be opened read only
4.04 - update the convert program to call a module rather than have the logic
just in the program.
Data-Sah-Resolve
view release on metacpan or search on metacpan
lib/Data/Sah/Resolve.pm view on Meta::CPAN
}
die "Cannot resolve Sah schema: can't check whether $type is a builtin Sah type: $err"
unless $err =~ /\ACan't locate/;
# not a type, try a schema under Sah::Schema
my $schmod = "Sah::Schema::$type";
(my $schmod_pm = "$schmod.pm") =~ s!::!/!g;
eval { require $schmod_pm; 1 };
die "Cannot resolve Sah schema: not a known built-in Sah type '$type' (can't locate ".
"Data::Sah::Type::$type) and not a known schema name '$type' ($@)"
if $@;
no strict 'refs';
my $sch2 = ${"$schmod\::schema"};
die "Cannot resolve Sah schema: BUG: Schema module $schmod doesn't contain \$schema"
unless $sch2;
$res->{type} = $sch2->[0];
unshift @{ $res->{clsets_after_type} }, $sch2->[1];
_resolve($opts, $res);
}
Data-SimpleKV
view release on metacpan or search on metacpan
lib/Data/SimpleKV.pm view on Meta::CPAN
# ç¡®ä¿æ•°æ®å†™å…¥ç£ç›˜
$fh->flush();
close $fh or die "Cannot close data file: $!";
chmod 0644, $self->{data_file};
$self->{dirty} = 0;
};
if ($@) {
croak "Failed to save data: $@";
Data-Smile-XS
view release on metacpan or search on metacpan
check_type_and_open|5.009003||Viu
check_uni|5.003007||Viu
check_utf8|5.008000||Viu
check_utf8_print|5.013009||Viu
child_offset_bits|5.009003||Viu
chmod|5.005000||Viu
chsize|5.005000||Viu
ckDEAD|5.006000||Viu
ck_entersub_args_core|||iu
ck_entersub_args_list|5.013006|5.013006|
ck_entersub_args_proto|5.013006|5.013006|
KEY_break|5.027008||Viu
KEY_caller|5.003007||Viu
KEY_catch|5.033007||Viu
KEY_chdir|5.003007||Viu
KEY_CHECK|5.006000||Viu
KEY_chmod|5.003007||Viu
KEY_chomp|5.003007||Viu
KEY_chop|5.003007||Viu
KEY_chown|5.003007||Viu
KEY_chr|5.003007||Viu
KEY_chroot|5.003007||Viu
Perl_langinfo|5.027004|5.027004|n
PERL_LANGINFO_H|5.027004||Viu
PERL_LAST_5_18_0_INTERP_MEMBER|5.017009||Viu
Perl_ldexp|5.021003|5.021003|n
PerlLIO_access|5.005000||Viu
PerlLIO_chmod|5.005000||Viu
PerlLIO_chown|5.005000||Viu
PerlLIO_chsize|5.005000||Viu
PerlLIO_close|5.005000||Viu
PerlLIO_dup2|5.005000||Viu
PerlLIO_dup2_cloexec|5.027008||Viu
Perl_pp_aelemfast_lex|5.015000||Viu
Perl_pp_andassign|5.013009||Viu
Perl_pp_avalues|5.013009||Viu
Perl_pp_bind|5.013009||Viu
Perl_pp_bit_xor|5.013009||Viu
Perl_pp_chmod|5.013009||Viu
Perl_pp_chomp|5.013009||Viu
Perl_pp_connect|5.013009||Viu
Perl_pp_cos|5.013009||Viu
Perl_pp_custom|5.013009||Viu
Perl_pp_dbmclose|5.013009||Viu
Data-Stack-Shared
view release on metacpan or search on metacpan
eg/str_undo.pl view on Meta::CPAN
$| = 1;
my $undo = Data::Stack::Shared::Str->new(undef, 50, 128);
# simulate operations
for my $op ("create file.txt", "write 100 bytes", "chmod 644", "rename to file.bak") {
$undo->push($op);
printf "do: %s\n", $op;
}
printf "\nstack size: %d\n\n", $undo->size;
Data-Storage
view release on metacpan or search on metacpan
lib/Data/Storage/Filesystem.pm view on Meta::CPAN
print $handle $rec->data;
close($handle) || do {
++$failed;
last;
};
chmod $rec->mode, $rec->filename;
$rec->stored(1);
}
if ($failed) {
unlink $_->filename for (grep { $_->stored } $self->cache_lst);
$self->rollback;
Data-StreamDeserializer
view release on metacpan or search on metacpan
benchmark/tests/02_1000x10 view on Meta::CPAN
"qjftqd" => 849576,
"hqfrvwrjaehslrw" => 591159,
"ucgpbuqbkloqhmabt" => "fjfganyqeunyzz",
"dmbxltxmnmtbmjvysr" => 673461,
"ijqharddytpblz" => "ualflyzzesfs",
"itywtfi" => "plbvhxeztchmodd",
"ctwzwlphysbkck" => "wbkmhyvm",
"mtpvngzawmwirlnfiow" => "xqemcftnmtilpm",
"mltpnaco" => 295625
},
{
Data-StreamSerializer
view release on metacpan or search on metacpan
benchmark/tests/02_1000x10 view on Meta::CPAN
"qjftqd" => 849576,
"hqfrvwrjaehslrw" => 591159,
"ucgpbuqbkloqhmabt" => "fjfganyqeunyzz",
"dmbxltxmnmtbmjvysr" => 673461,
"ijqharddytpblz" => "ualflyzzesfs",
"itywtfi" => "plbvhxeztchmodd",
"ctwzwlphysbkck" => "wbkmhyvm",
"mtpvngzawmwirlnfiow" => "xqemcftnmtilpm",
"mltpnaco" => 295625
},
{
Data-Table-Text
view release on metacpan or search on metacpan
lib/Data/Table/Text.pm view on Meta::CPAN
sub binModeAllUtf8 #P Set STDOUT and STDERR to accept utf8 without complaint.
{binmode $_, ":utf8" for *STDOUT, *STDERR;
}
sub setPermissionsForFile($$) # Apply L<chmod> to a B<$file> to set its B<$permissions>.
{my ($file, $permissions) = @_; # File, permissions settings per chmod
return undef unless confirmHasCommandLineCommand(q(chmod)); # Confirm we have chmod
qx(chmod $permissions $file); # Use chmod to set permissions
}
sub numberOfLinesInFile($) # Return the number of lines in a file.
{my ($file) = @_; # File
scalar split /\n/, readFile($file); # Number of lines
lib/Data/Table/Text.pm view on Meta::CPAN
sub overWriteHtmlFile($$) # Write an L<html> file to /var/www/html and make it readable.
{my ($file, $data) = @_; # Target file relative to /var/www/html, data to write
my $s = writeTempFile($data);
my $t = fpf(q(/var/www/html/), $file);
xxx qq(sudo mv $s $t; chmod o+r $t);
unlink $s;
}
sub overWritePerlCgiFile($$) # Write a L<Perl> file to /usr/lib/cgi-bin and make it executable after checking it for syntax errors.
{my ($file, $data) = @_; # Target file relative to /var/www/html, data to write
my $s = writeTempFile($data);
my $r = qx(perl -c $s 2>&1);
if ($r =~ m(syntax OK)si)
{my $t = fpf(q(/usr/lib/cgi-bin/), $file);
say STDERR qx(sudo mv $s $t; chmod o+rx $t);
}
else
{my @data = map {[$_]} split m/\n/, $data;
say STDERR formatTable([@data]);
confess "Perl error:\n$r\n";
lib/Data/Table/Text.pm view on Meta::CPAN
return 0;
}
END
my $C = &getCCompiler; # Get C compiler
my $c = owf(q(zzzTemporary.c), join "\n", @code); # Write and run a program to get the values
my $r = eval qx($C $c; chmod ugo+x a.out; ./a.out; rm a.out);
unlink $c;
for my $c(sort keys %$r) # Update known constants
{$o{$c} = $getSystemConstantsFromIncludeFile{$c} = $$r{$c}
}
lib/Data/Table/Text.pm view on Meta::CPAN
}
END
my $C = &getCCompiler; # Get C compiler
my $c = owf(q(zzzTemporary.c), join "\n", @code); # Write and run a program to get the values
my $r = eval qx($C $c; chmod ugo+x a.out; ./a.out; rm a.out);
$getStructureSizeFromIncludeFile{$c} = $r;
}
my %getFieldOffsetInStructureFromIncludeFile; # Cache system field offsets
lib/Data/Table/Text.pm view on Meta::CPAN
}
END
my $C = &getCCompiler; # Get C compiler
my $c = owf(q(zzzTemporary.c), join "\n", @code); # Write and run a program to get the values
my $r = eval qx($C $c; chmod ugo+x a.out; ./a.out; rm a.out);
$getFieldOffsetInStructureFromIncludeFile{$c} = $r;
}
#D1 Unix domain communications # Send messages between processes via a unix domain socket.
lib/Data/Table/Text.pm view on Meta::CPAN
{my (@parms) = @_; # Attributes per L<Udsr Definition|/Udsr Definition>
my $u = newUdsr(@_);
my $f = $u->socketPath;
unlink $f;
my $s = IO::Socket::UNIX->new(Type=>SOCK_STREAM(), Local=>$f, Listen=>1); # Create socket
xxx(qq(chmod ugo=rwx $f)); # Ensure that www-data can read and write to the socket
# lll "Created unix domain socket as user:", qx(/usr/bin/whoami);
if (my $pid = fork) # Run the server in a process by itself
{$u->serverPid = $pid; # Record server pid so it can be killed
return $u;
}
lib/Data/Table/Text.pm view on Meta::CPAN
chartjs => [q(Chart.js), "https://www.chartjs.org/" ],
chatgpt => [q(Chat GPT), "https://platform.openai.com/docs/guides/text-generation" ],
china => [q(Made In China), "https://www.made-in-china.com/" ],
siliconChip => [q(chip), "https://en.wikipedia.org/wiki/Integrated_circuit" ],
chips => [q(chips), "https://en.wikipedia.org/wiki/Integrated_circuit" ],
chmod => [q(chmod), "https://linux.die.net/man/1/chmod" ],
chown => [q(chown), "https://linux.die.net/man/1/chown" ],
cicd => [q(CI/CD), "https://en.wikipedia.org/wiki/Continuous_integration" ],
CICS => [q(CICS), "https://en.wikipedia.org/wiki/CICS" ],
cicero => [q("The sinews of war are an infinite supply of money"), "https://en.wikipedia.org/wiki/Cicero#Legacy" ],
cloudComputing => [q(Cloud Computing), "https://en.wikipedia.org/wiki/Cloud_computing" ],
lib/Data/Table/Text.pm view on Meta::CPAN
ok onWindows ? 1 : !-d $D;
=head3 setPermissionsForFile   ($file, $permissions)
Apply L<chmod|https://linux.die.net/man/1/chmod> to a B<$file> to set its B<$permissions>.
Parameter Description
1 $file File
2 $permissions Permissions settings per chmod
B<Example:>
if (1)
lib/Data/Table/Text.pm view on Meta::CPAN
365 L<setPartitionOnIntersectionOverUnionOfSetsOfWords|/setPartitionOnIntersectionOverUnionOfSetsOfWords> - Partition, at a level of B<$confidence> between 0 and 1, a set of sets B<@sets> of words so that within each partition the L<setIntersectionOv...
366 L<setPartitionOnIntersectionOverUnionOfStringSets|/setPartitionOnIntersectionOverUnionOfStringSets> - Partition, at a level of B<$confidence> between 0 and 1, a set of sets B<@strings>, each set represented by a string containing words and punctu...
367 L<setPermissionsForFile|/setPermissionsForFile> - Apply L<chmod|https://linux.die.net/man/1/chmod> to a B<$file> to set its B<$permissions>.
368 L<setUnion|/setUnion> - Union of sets B<@s> represented as arrays of strings and/or the keys of hashes.
369 L<showGotVersusWanted|/showGotVersusWanted> - Show the difference between the wanted string and the wanted string.
Data-Table
view release on metacpan or search on metacpan
Makefile.old view on Meta::CPAN
# --- MakeMaker tool_xsubpp section:
# --- MakeMaker tools_other section:
SHELL = /bin/sh
CHMOD = chmod
CP = cp
MV = mv
NOOP = $(TRUE)
NOECHO = @
RM_F = rm -f
Data-Transit
view release on metacpan or search on metacpan
# --- MakeMaker tool_xsubpp section:
# --- MakeMaker tools_other section:
SHELL = /bin/sh
CHMOD = chmod
CP = cp
MV = mv
NOOP = $(TRUE)
NOECHO = @
RM_F = rm -f
Data-Tubes
view release on metacpan or search on metacpan
script/tubergen view on Meta::CPAN
['Writer::to_files', filename => $config{output}],
{tap => 'sink'},
)->({structured => \%config});
my $mode = ((stat $config{output})[2] | 0111) & (~umask());
chmod $mode, $config{output};
########################################################################
#
# You should not need to fiddle any more beyond this point
#
Data-Type
view release on metacpan or search on metacpan
# --- MakeMaker tool_xsubpp section:
# --- MakeMaker tools_other section:
SHELL = /bin/sh
CHMOD = chmod
CP = cp
MV = mv
NOOP = $(TRUE)
NOECHO = @
RM_F = rm -f
Data-ULID-XS
view release on metacpan or search on metacpan
check_type_and_open|5.009003||Viu
check_uni|5.003007||Viu
check_utf8|5.008000||Viu
check_utf8_print|5.013009||Viu
child_offset_bits|5.009003||Viu
chmod|5.005000||Viu
chsize|5.005000||Viu
ckDEAD|5.006000||Viu
ck_entersub_args_core|||iu
ck_entersub_args_list|5.013006|5.013006|
ck_entersub_args_proto|5.013006|5.013006|
KEY_break|5.027008||Viu
KEY_caller|5.003007||Viu
KEY_catch|5.033007||Viu
KEY_chdir|5.003007||Viu
KEY_CHECK|5.006000||Viu
KEY_chmod|5.003007||Viu
KEY_chomp|5.003007||Viu
KEY_chop|5.003007||Viu
KEY_chown|5.003007||Viu
KEY_chr|5.003007||Viu
KEY_chroot|5.003007||Viu
Perl_langinfo|5.027004|5.027004|n
PERL_LANGINFO_H|5.027004||Viu
PERL_LAST_5_18_0_INTERP_MEMBER|5.017009||Viu
Perl_ldexp|5.021003|5.021003|n
PerlLIO_access|5.005000||Viu
PerlLIO_chmod|5.005000||Viu
PerlLIO_chown|5.005000||Viu
PerlLIO_chsize|5.005000||Viu
PerlLIO_close|5.005000||Viu
PerlLIO_dup2|5.005000||Viu
PerlLIO_dup2_cloexec|5.027008||Viu
Perl_pp_aelemfast_lex|5.015000||Viu
Perl_pp_andassign|5.013009||Viu
Perl_pp_avalues|5.013009||Viu
Perl_pp_bind|5.013009||Viu
Perl_pp_bit_xor|5.013009||Viu
Perl_pp_chmod|5.013009||Viu
Perl_pp_chomp|5.013009||Viu
Perl_pp_connect|5.013009||Viu
Perl_pp_cos|5.013009||Viu
Perl_pp_custom|5.013009||Viu
Perl_pp_dbmclose|5.013009||Viu
Data-UUID-Base64URLSafe
view release on metacpan or search on metacpan
# --- MakeMaker tool_xsubpp section:
# --- MakeMaker tools_other section:
SHELL = /bin/sh
CHMOD = chmod
CP = cp
MV = mv
NOOP = $(TRUE)
NOECHO = @
RM_F = rm -f
Data-Visitor-Encode
view release on metacpan or search on metacpan
0.08 - 07 May 2007
- Add h2z() and z2h()
0.07 - 03 May 2007
- Add decode_utf8() and encode_utf8()
- chmod a-x Makefile.PL for kwalitee
0.06 - 17 Apr 2007
- No code change, just kwalitee related fixes
0.05 - 16 Apr 2007
DataExtract-FixedWidth
view release on metacpan or search on metacpan
# --- MakeMaker tool_xsubpp section:
# --- MakeMaker tools_other section:
SHELL = /bin/sh
CHMOD = chmod
CP = cp
MV = mv
NOOP = $(SHELL) -c true
NOECHO = @
RM_F = rm -f
DataFax-StudyDB
view release on metacpan or search on metacpan
# --- MakeMaker tool_xsubpp section:
# --- MakeMaker tools_other section:
SHELL = /bin/sh
CHMOD = chmod
CP = cp
MV = mv
NOOP = $(SHELL) -c true
NOECHO = @
RM_F = rm -f
DataFax-StudySubs
view release on metacpan or search on metacpan
# --- MakeMaker tool_xsubpp section:
# --- MakeMaker tools_other section:
SHELL = /bin/sh
CHMOD = chmod
CP = cp
MV = mv
NOOP = $(SHELL) -c true
NOECHO = @
RM_F = rm -f
DataFax
view release on metacpan or search on metacpan
# --- MakeMaker tool_xsubpp section:
# --- MakeMaker tools_other section:
SHELL = /bin/sh
CHMOD = chmod
CP = cp
MV = mv
NOOP = $(SHELL) -c true
NOECHO = @
RM_F = rm -f
DataStore-CAS-FS
view release on metacpan or search on metacpan
lib/DataStore/CAS/FS/Exporter.pm view on Meta::CPAN
}
sub _apply_metadata {
my ($self, $entry, $path)= @_;
if (defined (my $mode= $entry->unix_mode)) {
chmod($mode & ~Fcntl::S_IFMT(), $path)
or $self->_handle_metadata_error("chmod($path): $!");
}
my ($uid, $gid)= ($entry->unix_uid, $entry->unix_gid);
if (defined (my $u= $entry->unix_user)) {
my $cache= $self->unix_user_cache;
Database-Async-Engine-PostgreSQL
view release on metacpan or search on metacpan
t/password.t view on Meta::CPAN
unless ($^O eq 'MSWin32') {
$log->clear;
$eng->database_password;
$log->contains_ok(qr/permissions should be u=rw \(0600\) or less/, 'permission warning');
chmod 0600, $fh->filename;
}
is($eng->database_password, 'pgpass', 'PGPASSFILE wins over ~/.pgpass');
done_testing;
};
t/password.t view on Meta::CPAN
$dir
});
path($dir.'/.pgpass')->spew_utf8([
"*:*:*:*:val\\id:\n"
]);
chmod 0600, $dir.'/.pgpass' unless $^O eq 'MSWin32';
is($eng->database_password, 'valid', 'backslash');
for (my $i=1; $i<16; $i++) {
path($dir.'/.pgpass')->spew_utf8([
join(':', ($i & 8 ? 'HOST' : '*',
t/password.t view on Meta::CPAN
$i & 1 ? 'USER' : '*',
"valid\n")),
"HOST:9876:DB:USER:invalid\n",
"*:*:*:*:invalid\n",
]);
chmod 0600, $dir.'/.pgpass' unless $^O eq 'MSWin32';
is($eng->database_password, 'valid', "first match $i wins");
}
done_testing;
};
Database-Migrator
view release on metacpan or search on metacpan
lib/Test/Database/Migrator.pm view on Meta::CPAN
$self->_write_ddl_file(
$file,
$migration,
);
chmod 0755, $file->stringify;
return;
}
sub _new_migrator {
Datafile-Array
view release on metacpan or search on metacpan
lib/Datafile/Array.pm view on Meta::CPAN
or push @messages,
"WARNING: backup to ${filename}.bak failed: $!";
}
rename( $tmp, $filename )
or return ( 0, ["ERROR: failed to rename '$tmp' to '$filename': $!"] );
chmod $prot, $filename;
push @messages,
"- renamed $tmp to $filename\n",
"- $record_count data records written to $filename\n"
if $verbose;
Datafile-Hash
view release on metacpan or search on metacpan
lib/Datafile/Hash.pm view on Meta::CPAN
or push @messages,
"WARNING: backup to ${filename}.bak failed: $!";
}
rename( $tmp, $filename )
or return ( 0, ["ERROR: failed to rename '$tmp' to '$filename': $!"] );
chmod $prot, $filename;
push @messages, "- $entry_count entries written to $filename\n"
if $verbose;
return ( $entry_count, \@messages );
}
( run in 0.710 second using v1.01-cache-2.11-cpan-39bf76dae61 )