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 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 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 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 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 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 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 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 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 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 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 release on metacpan or  search on metacpan

walk.c  view on Meta::CPAN

	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 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 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 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 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 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 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 release on metacpan or  search on metacpan

t/20emit.t  view on Meta::CPAN

	$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 release on metacpan or  search on metacpan

t/path.t  view on Meta::CPAN

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 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 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 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 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 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 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 release on metacpan or  search on metacpan

RAM.pm  view on Meta::CPAN

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 release on metacpan or  search on metacpan

t/01.xxd.t  view on Meta::CPAN

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 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, $_;
    }
}