view release on metacpan or search on metacpan
lib/Bio/GeneDesign/RestrictionEnzymes.pm view on Meta::CPAN
{
my ($path) = @_;
open (my $REFILE, '<', $path) || croak ("Can't read $path!\n");
my $ref = do { local $/ = <$REFILE> };
close $REFILE;
my @list = split m{\s}x, $ref;
return \@list;
}
1;
view release on metacpan or search on metacpan
lib/Bio/Graphics/FeatureFile.pm view on Meta::CPAN
sub parse_text {
my $self = shift;
my $text = shift;
foreach (split m/\015?\012|\015\012?/,$text) {
$self->parse_line($_);
}
}
sub parse_line {
view release on metacpan or search on metacpan
lib/Bio/MUST/Apps/OmpaPa/Roles/Parsable.pm view on Meta::CPAN
# use the directory of entry file
my @finalsort;
FINALSORT:
for my $f (@sorted) {
my @parts = split m{/}xms, $f;
if ("$parts[0]/" eq $dir) {
push @finalsort, $f;
next FINALSORT;
}
push @finalsort, $f if @parts < 2;
lib/Bio/MUST/Apps/OmpaPa/Roles/Parsable.pm view on Meta::CPAN
my %count_for;
my %coeffs_for;
for my $hit ($self->all_hits) {
# TODO: use SeqId methods: $_->$method // $_->taxon_id
my $org = (split m{\|}xms, $hit->{acc})[0];
$count_for{$org}++;
my $coeff_len = $hit->{len} / $hit->{qlen};
my $coeff_hmm
= ( $hit->{hmm_to} - $hit->{hmm_from} + 1 ) / $hit->{qlen};
lib/Bio/MUST/Apps/OmpaPa/Roles/Parsable.pm view on Meta::CPAN
sub _org_col {
my $self = shift;
my @ids = map { $_->{acc} } $self->all_hits;
my @orgs = map { (split m{\|}xms, $_)[0] } @ids;
my %count_orgs;
for my $org (@orgs) {
$count_orgs{$org}++;
}
view release on metacpan or search on metacpan
bin/physeter.pl view on Meta::CPAN
next HIT if $hit->percent_identity < $ARGV_tax_min_ident;
next HIT if $hit->bit_score < $ARGV_tax_min_score;
# fetch hit taxonomy and org
# optimized code (requires taxon_id|accession seq_ids)
my $taxon_id = ( split m{\|}xms, $hit->hit_id )[0];
# k-folds mode (skip hits from current database subset)
next HIT if $ARGV_kfold && $unwanted{$taxon_id};
my @taxonomy = $tax->get_taxonomy($taxon_id);
view release on metacpan or search on metacpan
lib/Bio/MUST/Core/GeneticCode/Factory.pm view on Meta::CPAN
# get all names and id for current code
my ($id) = $code =~ m/ id \s* (\d+) /xms;
my @names = $code =~ m/ name \s* \"(.*?)\" /xmsg;
@names = map { s{\n}{}xmsgr } @names; # remove newline chars
@names = map { split m{;\s*}xms } @names; # demultiplex names
# retrieve the amino acid line
my ($aa_line) = $code =~ m/ ncbieaa \s* \"(.*?)\" /xms;
$aa_line =~ s{\*}{x}xmsg; # make STOPs MUST-compliant
view release on metacpan or search on metacpan
lib/Bio/ToolBox/utility.pm view on Meta::CPAN
$c =~ s/IV/4/;
$c =~ s/IX/9/;
$c =~ s/V/5/;
$c =~ s/I/1/g;
my $n = 0;
foreach ( split m//, $c ) {
if ( $_ eq 'X' ) {
$n += 10;
}
else {
$n += $_;
view release on metacpan or search on metacpan
Bio/DB/Expression/geo.pm view on Meta::CPAN
my $doc = $self->_get_url( URL_PLATFORMS );
$doc =~ s!^.+?>Release date<.+?</tr>(.+)</table>!$1!gs;
my @platforms = ();
my @records = split m!</tr>\s+<tr>!, $doc;
foreach my $record ( @records ) {
my ($platform_acc,$name,$tax_acc,$contact_acc,$contact_name) =
$record =~ m!acc\.cgi\?acc=(.+?)".+?<td.+?>(.+?)<.+?<td.+?>.+?<.+?<td.+?>.+?href=".+?id=(.+?)".+?<td.+?OpenSubmitter\((\d+?)\).+?>(.+?)<!s;
next unless $platform_acc;
view release on metacpan or search on metacpan
src/boost/serialization/split_member.hpp view on Meta::CPAN
}
} // namespace serialization
} // namespace boost
// split member function serialize funcition into save/load
#define BOOST_SERIALIZATION_SPLIT_MEMBER() \
template<class Archive> \
void serialize( \
Archive &ar, \
const unsigned int file_version \
view release on metacpan or search on metacpan
include/boost/serialization/split_member.hpp view on Meta::CPAN
}
} // namespace serialization
} // namespace boost
// split member function serialize funcition into save/load
#define BOOST_SERIALIZATION_SPLIT_MEMBER() \
template<class Archive> \
void serialize( \
Archive &ar, \
const unsigned int file_version \
view release on metacpan or search on metacpan
lib/Bot/BasicBot/Pluggable/Module/MetaSyntactic.pm view on Meta::CPAN
( $command, my @args ) = split /\s+/, $command;
return if !$command || !length $command;
# it's a theme
if ( $command =~ /^[-\w\/]+$/ ) {
my ( $theme, $category ) = split m'/', $command, 2;
$self->{meta}{theme}{$command} //= _load_theme($theme, $category);
return "No such theme: $theme"
if !$META->has_theme($theme);
if ( $category && $self->{meta}{theme}{$command}
->isa('Acme::MetaSyntactic::MultiList')
view release on metacpan or search on metacpan
lib/Bread/Board/LazyLoader/Obj.pm view on Meta::CPAN
sub _normalize_path {
my ($path) = @_;
return
defined $path
? join( '/', grep { length($_) > 0 } split m{/}, $path )
: '';
}
sub _sub_path {
my ($parent, $name) = @_;
view release on metacpan or search on metacpan
lib/Bryar/Frontend/Base.pm view on Meta::CPAN
}
sub parse_path {
my ($self, $config) = @_;
my $pi = $self->obtain_path_info();
my @pi = split m{/}, $pi;
shift @pi while @pi and not$pi[0];
#...
my %args;
if ($pi[-1] and $pi[-1] eq "xml") { $args{format} = "xml"; pop @pi; }
view release on metacpan or search on metacpan
lib/Bubblegum/Object/String.pm view on Meta::CPAN
$string->split(', '); # ['name', 'age', 'dob', 'email']
$string->split(', ', 2); # ['name', 'age, dob, email']
$string->split(qr/\,\s*/); # ['name', 'age', 'dob', 'email']
$string->split(qr/\,\s*/, 2); # ['name', 'age, dob, email']
The split method splits the subject into a list of strings, separating each
chunk by the argument (string or regexp object), and returns that list as an
array reference. This method optionally takes a second argument which would be
the limit (number of matches to capture). Note, this operation expects the 1st
argument to be a Regexp object or a String.
view release on metacpan or search on metacpan
0.09 2014-12-10 (PERLANCAR)
- No functional changes.
- Use new name of renamed/split module SHARYANTO::String::Util ->
String::Trim::More.
0.08 2014-05-17 (SHARYANTO)
view release on metacpan or search on metacpan
or die "Cannnot open file $file_name";
local $/ = ();
my $text = <$file>;
# repair last line without \n
$text =~ s{([^\x0D\x0A]) \z}{$1\x0D\x0A}xms;
@lines = split m{\x0A}, $text;
}
my $find_line_numbers = sub {
my ($test_description, $test_reason, $regex, $regex_negation) = @_;
my $line_number = 0;
view release on metacpan or search on metacpan
bin/fillpdffields.pl view on Meta::CPAN
my $outfile = shift;
if ($opts{background} =~ m/\s/xms)
{
# Separate r,g,b
$opts{background} = [split m/\s+/xms, $opts{background}];
}
my $doc = CAM::PDF->new($infile) || die "$CAM::PDF::errstr\n";
my @list = (@ARGV);
view release on metacpan or search on metacpan
lib/CAM/PDFTaxforms.pm view on Meta::CPAN
if ($propdict->{Ff})
{
# Just decode the ones we actually care about
# PDF ref, 3rd ed pp 532,543
my $ff = $self->getValue($propdict->{Ff});
my @flags = split m//xms, unpack 'b*', pack 'V', $ff;
$flags{ReadOnly} = $flags[0];
$flags{Required} = $flags[1];
$flags{NoExport} = $flags[2];
$flags{Multiline} = $flags[12];
$flags{Password} = $flags[13];
view release on metacpan or search on metacpan
local/lib/perl5/Module/Build/Base.pm view on Meta::CPAN
@{ $self->rscan_dir($dir, $self->file_qr("\\.$type\$")) } };
}
sub localize_file_path {
my ($self, $path) = @_;
return File::Spec->catfile( split m{/}, $path );
}
sub localize_dir_path {
my ($self, $path) = @_;
return File::Spec->catdir( split m{/}, $path );
}
sub fix_shebang_line { # Adapted from fixin() in ExtUtils::MM_Unix 1.35
my ($self, @files) = @_;
my $c = ref($self) ? $self->{config} : 'Module::Build::Config';
view release on metacpan or search on metacpan
}
sub msgs_match {
my ($got, $expected, $message) = @_;
## no critic (RegularExpressions::RequireLineBoundaryMatching)
my ($got_head, $got_body) = split m/\015\012\015\012/xs, $got, 2;
my ($exp_head, $exp_body) = split m/\015\012\015\012/xs, $expected, 2;
my %exp = map {lc($_) => 1} split m/\015\012/xs, $exp_head;
for my $got_head_line (split m/\015\012/xs, $got_head) {
if (!delete $exp{lc $got_head_line}) {
return is($got, $expected, $message . ' -- extra header: ' . $got_head_line); # fail
}
}
if (scalar keys %exp) {
view release on metacpan or search on metacpan
scripts/generate_index.pl view on Meta::CPAN
=cut
my ($github_user, $github_repo);
if (my $repo = $ENV{GITHUB_REPOSITORY}) {
($github_user, $github_repo) = split m{/}, $repo, 2;
} else {
die 'What repo are you?';
}
my $package_name = $github_repo;
view release on metacpan or search on metacpan
lib/CGI/Kwiki/Formatter.pm view on Meta::CPAN
}
$_ = $self->lists_format($text);
}
$_;
}
split m!(^[0\*]+ .*?\n)(?=(?:[^0\*]|$))!ms, $text;
}
sub lists_format {
my ($self, $text) = @_;
return $text;
lib/CGI/Kwiki/Formatter.pm view on Meta::CPAN
unless ($switch++ % 2) {
$_ = $self->paragraph_format($_);
}
$_;
}
split m!(\n\s*\n)!ms, $text;
}
sub paragraph_format {
my ($self, $text) = @_;
return '' if $text =~ /^[\s\n]*$/;
view release on metacpan or search on metacpan
lib/CGI/PathParam.pm view on Meta::CPAN
if ( !$self->path_info ) {
return;
}
return map { $self->unescape($_) }
split m{/}msx, substr $self->path_info, 1;
}
*CGI::path_param = \&path_param;
=head1 DIAGNOSTICS
view release on metacpan or search on metacpan
CGI/SHTML.pm view on Meta::CPAN
=cut
sub parse_shtml {
my ($self, @lines) = @_;
map { chomp } @lines; my $line = join("\n", @lines);
my @parts = split m/(<!--#.*?-->)/s, $line;
my @return;
while (@parts) {
my @ssi = ();
my $text = shift @parts || "";
view release on metacpan or search on metacpan
lib/CGI/Snapp.pm view on Meta::CPAN
if ($index && $path_info)
{
$index -= 1 if ($index > 0);
$path_info =~ s!^/!!;
$path_info = (split m|/|, $path_info)[$index] || '';
$mode_source = length $index ? {run_mode => $path_info} : $mode_source;
}
}
$self -> _run_mode_source($mode_source);
view release on metacpan or search on metacpan
lib/CPAN/InGit/MutableTree.pm view on Meta::CPAN
sub set_path($self, $path, $data, %opts) {
# Two modes: we can be writing to the working directory and index, or be building a new tree
# (which may or may not be connected to a branch)
my $repo= $self->git_repo;
my $mode= $opts{mode} // 0100644;
my @path= split m{/+}, $path;
my $basename= pop @path;
if ($self->use_workdir) {
my $fullpath= $self->git_repo->workdir;
# create missing directories
for (@path) {
view release on metacpan or search on metacpan
t/lib/Local/localserver.pm view on Meta::CPAN
require HTTP::Status;
my $d = HTTP::Daemon->new( LocalPort => $port ) or exit;
CONNECTION: while (my $c = $d->accept) {
REQUEST: while (my $r = $c->get_request) {
my $file = (split m|/|, $r->uri->path)[-1] // 'index.html';
my $path = catfile 't', 'html', $file;
if ($r->method eq 'GET') {
if( -e $path ) {
$c->send_file_response( catfile 't', 'html', $file);
view release on metacpan or search on metacpan
lib/CPAN/Mini/Live.pm view on Meta::CPAN
my ($uri) = $body =~ /href="(.+?)"/;
my $path = $uri;
my $remote = $self->{remote};
$path =~ s/^$remote//;
my $local_file
= File::Spec->catfile( $self->{local}, split m{/}, $path );
$self->trace("live [$action] [$path]\n");
if ( $action eq 'mirror_file' ) {
$self->mirror_file($path);
} elsif ( $action eq 'clean_file' ) {
view release on metacpan or search on metacpan
lib/CPAN/Mini.pm view on Meta::CPAN
my $self = shift;
$self->_make_index_dirs($self->_scratch_dir);
for my $path ($self->_fixed_mirrors) {
my $local_file = File::Spec->catfile($self->{local}, split m{/}, $path);
my $scratch_file = File::Spec->catfile(
$self->_scratch_dir,
split(m{/}, $path),
);
lib/CPAN/Mini.pm view on Meta::CPAN
$self->{dirmode},
$self->{log_level} eq 'debug',
);
for my $file ($self->_fixed_mirrors) {
my $local_file = File::Spec->catfile($self->{local}, split m{/}, $file);
unlink $local_file;
File::Copy::copy(
File::Spec->catfile($self->_scratch_dir, split m{/}, $file),
$local_file,
);
$self->{mirrored}{$local_file} = 1;
}
lib/CPAN/Mini.pm view on Meta::CPAN
: URI->new_abs($path, $self->{remote})->as_string;
# native absolute file
my $local_file = File::Spec->catfile(
$arg->{to_scratch} ? $self->_scratch_dir : $self->{local},
split m{/}, $path
);
my $checksum_might_be_up_to_date = 1;
if ($skip_if_present and -f $local_file) {
view release on metacpan or search on metacpan
lib/CPAN/Mirror/Server/HTTP.pm view on Meta::CPAN
}
my $parent;
{
my @segs = split m#/#, $uri->path;
if ( scalar @segs ) {
pop @segs;
if ( grep { $_ } @segs ) {
$parent = join('/', @segs);
}