Next refresh should show more results. ( run in 2.408 )
view release on metacpan or search on metacpan
lib/Acme/EyeDrops.pm view on Meta::CPAN
use Acme::EyeDrops qw(sightly);
my $s = sightly( { Regex => 1,
Shape => 'naw',
Indent => 1,
SourceString => <<'NAKED_ARM_WRESTLING' } );
$/='';open$%;$x=<0>;$y=<0>;
substr($y,428,$%)=' AAAAARRRGGGHHH!!!';
map{system$^O=~Win?CLS:'clear';
print$_&1?$y:$x;sleep!$%+($_&1)}$%..9
NAKED_ARM_WRESTLING
$s =~ s/ +$//m;
view all matches for this distribution
view release on metacpan or search on metacpan
src/subversion/tools/dist/backport.pl view on Meta::CPAN
last if /^Approved changes/;
}
while (<STATUS>) {
last unless /^=+$/;
}
$/ = ""; # paragraph mode
while (<STATUS>) {
my @lines = split /\n/;
given ($lines[0]) {
view all matches for this distribution
view release on metacpan or search on metacpan
t/2-tokenisation.t view on Meta::CPAN
eval { use Data::Dumper; };
eval { (%config = Alvis::NLPPlatform::load_config("etc/alvis-nlpplatform/nlpplatform-test.rc")) && ($def_config=1) };
ok(defined $def_config);
eval {
*STDERR=*STDOUT;
local $/ ="";
open DATAFILE, "lib/Alvis/NLPPlatform/data/pmid10788508-v2-3.xml";
$doc_xml = <DATAFILE>;
close DATAFILE;
print STDERR "\n";
};
view all matches for this distribution
view release on metacpan or search on metacpan
lib/AnyData/Format/Mp3.pm view on Meta::CPAN
sub get_mp3_tag {
my($file) = shift;
my $adf = AnyData::Storage::File->new;
my(undef,$fh,undef) = $adf->open_local_file($file,'r');
local $/ = '';
$fh->seek(-128,2);
my $str = <$fh> || '';
$fh->close;
return undef if !($str =~ /^TAG/);
#$file = sprintf("%-255s",$file);
view all matches for this distribution
view release on metacpan or search on metacpan
NavBarDD.pm view on Meta::CPAN
my $vassal_padding = $self->vassal_padding;
my $after = $self->after;
my $navbar = $self->make_bar($r, $bar);
local $/ = "";
while (<$fh>) {
s:(</HEAD>):$style$1:oi;
s:(<BODY.*?>):$1$before$navbar$after:osi;
s:(</BODY.*?>):$navbar$1:osi if $self->bottom;
} continue {
view all matches for this distribution
view release on metacpan or search on metacpan
ModProxyPerlHtml.pm view on Meta::CPAN
my ($data, $pattern, $replacement, $uri, $rot13elements) = @_;
return if (!$$data);
my $old_terminator = $/;
$/ = '';
my %TODOS = ();
my %ROT13TODOS = ();
my $i = 0;
# Detect parts that need to be deobfuscated before replacement
view all matches for this distribution
view release on metacpan or search on metacpan
lib/App/CSVUtils/paras2csv.pm view on Meta::CPAN
} else {
open $fh, "<", $r->{util_args}{input_file}
or die [500, "Can't read file '$r->{util_args}{input_file}: $!"];
}
local $/ = "";
my $i = 0;
while (my $para = <$fh>) {
$para =~ s/\R{2}\z//;
#say "D:para=<$para>";
my @h = _parse_para($r, $para, $i);
view all matches for this distribution
view release on metacpan or search on metacpan
bin/piglatin view on Meta::CPAN
use strict;
use warnings;
use App::PigLatin qw(translate);
$/="";
my $text = <>;
print translate(\$text);
view all matches for this distribution
view release on metacpan or search on metacpan
lib/App/Rakubrew/Tools.pm view on Meta::CPAN
}
sub slurp {
my $file = shift;
open(my $fh, '<', $file);
local $/ = '';
my $ret = <$fh>;
close($fh);
return $ret // '';
}
view all matches for this distribution
view release on metacpan or search on metacpan
t/no-email.t view on Meta::CPAN
= defined $item->{error}
? (join "\n", @{$item->{error}})
: '';
my ($out, $got_error) = run_command( @{$item->{cmd}} );
{
local $/ = ""; # chomp paragraph mode
chomp $got_error;
chomp $exp_error;
}
is( $got_error, $exp_error, $item->{comment} );
}
view all matches for this distribution
view release on metacpan or search on metacpan
script/vtt2srt view on Meta::CPAN
my $str = shift;
$str =~ s/<.+?>//g;
$str;
}
$/ = "";
my $num = 1;
while (my $para = <>) {
unless ($para =~ /\A([0-9][^\n]+)(.+)/s) {
log_trace "Paragraph does not begin with a digit, skipping";
next;
view all matches for this distribution
view release on metacpan or search on metacpan
str_free(tmpstr);
str_cat(str," ");
str_scat(str,fstr=walk(1,level,ops[node+3].ival,&numarg,prec));
str_free(fstr);
numeric |= numarg;
if (strEQ(str->str_ptr,"$/ = ''"))
str_set(str, "$/ = \"\\n\\n\"");
break;
case OADD:
prec = P_ADD;
str = walk(1,level,ops[node+1].ival,&numarg,prec);
view all matches for this distribution
view release on metacpan or search on metacpan
t/002-main.t view on Meta::CPAN
my @records ;
my %results;
{
local $/ = ""; # paragraph mode
open my $fh, '<', $filename
or die "Cannot open '$filename': $!\n";
@records = map { [ split "\n", $_ ] }
view all matches for this distribution
view release on metacpan or search on metacpan
t/roundtrip/5.014/base/rs.t view on Meta::CPAN
# Eat the line terminator
$/ = "\n";
$bar = <FH>;
# Does paragraph mode work?
$/ = '';
$bar = <FH>;
if ($bar ne "1234\n12345\n\n") {print "not ";}
print "ok $test_count # \$/ = ''\n";
$test_count++;
# Try slurping the rest of the file
$/ = undef;
$bar = <FH>;
view all matches for this distribution
view release on metacpan or search on metacpan
eg/make_save.pl view on Meta::CPAN
# Btrieve handles its indices well, but sometimes the indices should
# be defined outside the typical c programmers budget. Let's make an
# index that allows sort by location and title.
open F, $ARGV[0];
$/="";
while (<F>) {
my $rhfixed;
my ($fixed,$var)= split(/\n/);
my @fvals = split(/\t/,$fixed);
print $fvals[-1]." ";
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Biblio/Thesaurus.pm view on Meta::CPAN
}
}
# Redefine the record separator
my $old_sep = $/;
$/ = "";
# The last line wasn't a comment, a command or an empty line, so use it!
$_ .= <ISO>;
my $ncommands = $.-1;
view all matches for this distribution
view release on metacpan or search on metacpan
scripts/wc-l view on Meta::CPAN
sub sigint ( ) ; # Ctrl-C ãæ¼ä¸ãããæã®å¦ç
sub hhmmss ( ) ; # ç¾å¨æå»ã yyyy-mm-dd HH:MM:SS ã®å½¢ã§è¿ãã
sub cyc_rep ( ) ;
$/ = "\r\n" if $o{r} ;
#$/ = "" ;
$| = 1 if $o{'!'} ;
* CYAN = * BRIGHT_CYAN = * BLUE = * BRIGHT_BLUE = sub { @_ } if $o{b} ; # <-- TRICKY A LITTLE.
my ($time0, $time00) = (time) x 2 ;
my $cyc_sec = $o{'"'} // 10 ; # ä½è¡æ¯ã«ã¬ãã¼ããçºçããããã
view all matches for this distribution
view release on metacpan or search on metacpan
Bio/SeqIO/ace.pm view on Meta::CPAN
'peptide' => 'protein',
);
sub next_seq {
my( $self ) = @_;
local $/ = ""; # Split input on blank lines
my $fh = $self->_filehandle;
my( $type, $id );
while (<$fh>) {
if (($type, $id) = /^(DNA|Peptide)[\s:]+(.+?)\s*\n/si) {
view all matches for this distribution
view release on metacpan or search on metacpan
$txn->test_transaction(delete $_->{_test});
$txn->content(%$_);
my $data = do {
# Work around bug #17687
local $/ = '';
scalar <DATA>;
};
is_deeply(
xml_in($txn->to_xml),
view all matches for this distribution
view release on metacpan or search on metacpan
use Test::More tests => 269;
use Data::Dumper;
use CPAN::DistnameInfo;
local $/ ="";
while(<DATA>) {
chomp;
my($file,%exp) = split(/[\t\n]+/, $_);
$exp{pathname} = $file;
view all matches for this distribution
view release on metacpan or search on metacpan
examples/sql/bootstrap_sqlite.pl view on Meta::CPAN
if (-e $dbfile) { unlink $dbfile or die "Failed to unlink $dbfile: $!"; }
my $dbh = DBI->connect("dbi:SQLite:dbname=$dbfile",'','',{ sqlite_unicode => 1 });
open my $sql_fh, "$name.sql" or die "Can't read SQL file: $!";
local $/ = ""; ## empty line(s) are delimeters
while (my $sql = <$sql_fh>) {
print $sql;
$dbh->do($sql);
}
view all matches for this distribution
view release on metacpan or search on metacpan
t/lib/TestApp/Controller/Root.pm view on Meta::CPAN
my $dbfile = "/tmp/__listframework_testapp.sqlite";
if (-e $dbfile) { unlink $dbfile or die "Failed to unlink $dbfile: $!"; }
my $dbh = DBI->connect("dbi:SQLite2:dbname=$dbfile","","");
open my $sql_fh, $c->config()->{'sql_path'}.'/test_app.sql' or die "Can't read SQL file: $!";
local $/ = ""; ## empty line(s) are delimeters
while (my $sql = <$sql_fh>) {
$dbh->do($sql);
}
$dbh->disconnect;
close $sql_fh;
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Catmandu/Importer/MARC/Line.pm view on Meta::CPAN
sub {
state $fh = $self->fh;
state $count = 0;
# set input record separator to paragraph mode
local $/ = '';
# get next record
while (defined(my $data = $fh->getline)) {
$count++;
my @record;
view all matches for this distribution
view release on metacpan or search on metacpan
examples/CCreport view on Meta::CPAN
# Get the comment and format it correctly.
my $cmt = $ct->desc([qw(-fmt %c)], $version)->qx;
next if $?;
# "Paragraph mode" - causes chomp to remove multiple trailing \n
{ local $/ = ''; chomp $cmt; }
# If the comment contains a line ending with ~p we
# consider it to be intentionally private.
# Useful when testing triggers etc.
next if $cmt =~ /~p$/mi;
view all matches for this distribution
view release on metacpan or search on metacpan
tools/mkctbl.pl view on Meta::CPAN
use integer;
my $tblpath = 'tbl';
open(CTBL, "<$tblpath") || die "opening $tblpath\n";
$/ = '';
my @e2a_tbl = unpack("C256", <CTBL>);
my @a2e_tbl = ();
my $nul_str = "";
my $a2e_str = "";
my $e2a_str = "";
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Convert/Pheno/IO/CSVHandler.pm view on Meta::CPAN
# Before resorting to writting this subroutine I performed an exhaustive search on CPAN:
# - Tested MySQL::Dump::Parser::XS but I could not make it work...
# - App-MysqlUtils-0.022 has a CLI utility (mysql-sql-dump-extract-tables)
# - Of course one can always use *nix tools (sed, grep, awk, etc) or other programming languages....
# Anyway, I ended up writting the parser myself...
# The parser is based in reading COPY paragraphs from PostgreSQL dump by using Perl's paragraph mode $/ = "";
# NB: Each paragraph (TABLE) is loaded into memory. Not great for large files.
# Define variables that modify what we load
my $max_lines_sql = $self->{max_lines_sql};
my @omop_tables = @{ $self->{omop_tables} };
# Set record separator to paragraph
local $/ = "";
#COPY "OMOP_cdm_eunomia".attribute_definition (attribute_definition_id, attribute_name, attribute_description, attribute_type_concept_id, attribute_syntax) FROM stdin;
# ......
# \.
view all matches for this distribution
view release on metacpan or search on metacpan
sub get_mp3_tag {
my($file) = shift;
open(I,$file) || return '';
binmode I;
local $/ = '';
seek I, -128, 2;
my $str = <I> || '';
return '' if !($str =~ /^TAG/);
$file = sprintf("%-255s",$file);
$str =~ s/^TAG(.*)/$file$1/;
view all matches for this distribution
view release on metacpan or search on metacpan
use Test::More 'no_plan'; # substitute with previous line when done
BEGIN {
use_ok('Data::HexDump::XXD');
}
local $/ = '';
{
my $input = join '', map { chr $_ } 0 .. 255;
(my $expected = <DATA>) =~ s/\s*\z//mxs;
is(Data::HexDump::XXD::xxd($input), $expected, 'dump as expected');
view all matches for this distribution
view release on metacpan or search on metacpan
t/01_undump.t view on Meta::CPAN
use Test::LongString;
use Data::Undump qw(undump);
use Data::Dumper;
our @dump;
{
local $/="";
while (<DATA>) {
chomp;
push @dump, $_;
}
}
view all matches for this distribution