view release on metacpan or search on metacpan
t/Combine.t view on Meta::CPAN
cleanup();
link( 't/res/merge.head', 't/merge.head' );
link( 't/res/merge.raw', 't/merge.raw' );
combine( 't/merge' );
local $/ = '';
open( my $merge, '<', 't/merge' );
my $data = <$merge>;
is(
$data,
<<EOT,
view release on metacpan or search on metacpan
lib/Device/OUI.pm view on Meta::CPAN
my $cf = $self->cache_file;
if ( ! $cf ) { return }
my $fh = IO::File->new( $cf, 'r' );
if ( ! $fh ) { return }
local $/ = "";
while ( my $entry = $fh->getline ) {
if ( substr( $entry, 0, 8 ) eq $oui ) {
my $data = $self->parse_oui_entry( $entry );
$self->cache( $data );
lib/Device/OUI.pm view on Meta::CPAN
my $file = shift;
if ( ! $file ) { $file = $self->cache_file }
if ( ! $file ) { return }
my $fh = IO::File->new( $file );
local $/ = "";
$fh->getline; # dump the header
my $counter = 0;
while ( my $entry = $fh->getline ) {
my $data = $self->parse_oui_entry( $entry );
$self->cache( $data->{ 'oui' } => $data );
view release on metacpan or search on metacpan
lib/DocSet/Util.pm view on Meta::CPAN
sub read_file_paras {
my ($filename, $ra_content) = @_;
my $fh = Symbol::gensym;
open $fh, $filename or croak "Can't open $filename for reading: $!";
local $/ = "";
@$ra_content = <$fh>;
close $fh;
}
view release on metacpan or search on metacpan
lib/Document/eSign/Docusign/sendRequest.pm view on Meta::CPAN
for my $doc ( @{ $params->{documents} } ) {
open( my $fh, "<", $doc->{name} )
or
croak( "Unable to open file: " . $doc->{name} . " :: " . $! );
$doc->{name} =~ s/^.*(\\|\/)//;
local $/ = '';
my $pdf = <$fh>;
$multipart .= <<"EOF";
--snipsnip
Content-Type: application/pdf
Content-Disposition: file; filename="$doc->{name}"; documentid="$doc->{documentId}"
view release on metacpan or search on metacpan
lib/FAST/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
# xxx decide on good name for short form and long form ERC
# xxx make this File::ANVL::getpara
#
sub getpara { my( $filehandle )=@_;
local $/ = ""; # set "paragraph" input mode
# $/ == $INPUT_RECORD_SEPARATOR
$filehandle and return <$filehandle>;
# If no $filehandle, behave as if supporting "<>" aka "<ARGV>".
my $rec = <ARGV>; # (test print "$. ";)
view release on metacpan or search on metacpan
- Added ignore_line() to allow functions to filter lines.
- We die if the source and destination files are the same;
thanks to Uri Guttman <uri[[at]]stemsystems.com> for pointing out
the potential problem.
- Thanks to suggestions from Uri Guttman <uri[[at]]stemsystems.com>,
paragraph reading ($/ = '') and slurp mode ($/ = undef) are
now supported.
0.50 Thu Jan 18 20:43:29 CST 2007
- Included the main code and tests.
view release on metacpan or search on metacpan
lib/File/Kvpar.pm view on Meta::CPAN
}
sub _read_one {
my ($self) = @_;
my $fh = $self->{'fh'};
local $/ = '';
my $elems = $self->{'elements'};
if (my $par = <$fh>) {
$self->{'pos'}++;
my $hash = _par2hash($par);
push @{ $elems }, $hash;
view release on metacpan or search on metacpan
# ---------------------------------------------------------------------- #
sub usage {
# Extract description and usage information from this file's header.
my $thisfile = __FILE__;
local $/ = ''; # Read paragraphs
open(FILE, "<$thisfile") or die "Cannot open $thisfile\n";
while (<FILE>) {
# Paragraph _must_ contain `Description:' or `Usage:'
next unless /^\s*\#\s*(Description|Usage):/m;
# Drop `Author:', etc. (anything before `Description:' or `Usage:')
view release on metacpan or search on metacpan
bin/gbrowse_netinstall.pl view on Meta::CPAN
}
sub find_bioperl_ppm {
print STDERR "Finding most recent bioperl...";
open S,"ppm search bioperl |" or die "Couldn't open ppm for listing: $!";
local $/ = ''; # paragraph mode
my ($blessed_one,$blessed_version);
my $best = 0;
while (<S>) {
chomp;
my ($number) = /^(\d+): bioperl/m;
view release on metacpan or search on metacpan
t/Github-ReleaseFetcher.t view on Meta::CPAN
content => 'I already have a wristwatch',
reason => 'u dumb',
}
};
local $/ = "";
my $content = <DATA>;
my $good_listing_request = {
url => "$Github::ReleaseFetcher::BASE_URI/$user/$project/releases/expanded_assets/666",
method => 'GET',
view release on metacpan or search on metacpan
local $/ = undef;
my $cipher = <CIPHER>;
close CIPHER;
untie *CIPHER;
local $/ = "";
tie *TEST, 'GnuPG::Tie::Decrypt', homedir => "test", passphrase => PASSWD;
print TEST $cipher;
my @para = <TEST>;
close TEST;
view release on metacpan or search on metacpan
FormWizard/FileTemplate.pm view on Meta::CPAN
sub header {
my $self=shift;
my $fname= $self->{base_dir}.$self->{template}."_header.html";
open FH, $fname;
$/="";
my $header="";
while (<FH>) {
$header .= $_;
}
return $header;
FormWizard/FileTemplate.pm view on Meta::CPAN
sub footer {
my $self=shift;
my $fname= $self->{base_dir}.$self->{template}."_footer.html";
open FH,$fname;
$/ = "";
my $footer="";
while (<FH>) {
$footer .= $_;
}
return $footer;
view release on metacpan or search on metacpan
t/50-multiple-files.t view on Meta::CPAN
], @files );
# Read in a set of sets of lines, where each "file" is separated by a
# blank line in <DATA>
sub _get_paragraphed_files {
local $/ = '';
my @sets;
while ( my $paragraph = <DATA> ) {
my @lines = split /\n/, $paragraph;
view release on metacpan or search on metacpan
lib/HTML/Perlinfo/Modules.pm view on Meta::CPAN
}
}
unless ($mod_desc) {
if (/=head\d\s+NAME/) {
local $/ = '';
local $_;
chomp($_ = <MOD>);
($mod_desc) = /^.*?-+\s*(.*?)$/ism;
}
}
view release on metacpan or search on metacpan
WWWTheme.pm view on Meta::CPAN
while (@_)
{
$self->{configfile} = shift;
open (CONFIG, $self->{configfile}) || carp "couldn't open server config $self->{configfile}" && return 0;
local $/ = "";
while (<CONFIG>)
{
( /\@BLANKGIF\s*=\s*(.*?);/s ) && ($self->{blankgif} = $1);
( /\@NAVBAR\s*=\s*(.*?);/s ) && ($self->{usenavbar} = $1);
view release on metacpan or search on metacpan
t/lib/Hailo/Test/TimToady.trn view on Meta::CPAN
"The origins of this VM are lost (purposefully) in the mists of time."
gotta cross the Jordan first...
well, I know who gets left behind at the Jordon, and trying not to think about that... :)
ciao
std: undef $/
std: $/ = ""
necessary when replacing with a different $/
pugs: use v5; print "howdy\n"
heh
p5 == security breach to pugs :)
sjbot: p5eval: system 'rm -rf /'
view release on metacpan or search on metacpan
ok($line eq "and a single line.\n\n");
}
{
local $/ = ""; # paragraph mode
$io->setpos(0);
@lines = <$io>;
ok(@lines == 2 && $lines[1] eq "and a single line.\n\n");
}
view release on metacpan or search on metacpan
t/error-handling.t view on Meta::CPAN
# getline/getlines should fail if there's a read error before the first eol
my @readcode = (
'$ret = <$fh>',
'local $/; $ret = <$fh>',
'local $/=""; $ret = <$fh>',
'($ret) = <$fh>',
'local $/; ($ret) = <$fh>',
'local $/=""; ($ret) = <$fh>',
);
foreach my $readcode (@readcode) {
my $block = "x" x 10240;
my @ret = ($block, $block, $block, IO::Callback::Error, $block, $block);
my $fh = IO::Callback->new('<', sub { shift @{$_[0]} }, \@ret);
view release on metacpan or search on metacpan
t/compress/generic.pl view on Meta::CPAN
ok $line eq $str;
ok $io->eof;
}
{
local $/ = ""; # paragraph mode
my $io = $UncompressClass->new($name);
is $., 0;
is $io->input_line_number, 0;
ok ! $io->eof;
my @lines = $io->getlines();
t/compress/generic.pl view on Meta::CPAN
is $line, $str;
ok $io->eof;
}
{
local $/ = ""; # paragraph mode
my $io = $UncompressClass->new($name);
ok ! $io->eof;
my @lines = $io->getlines;
is $., 2;
is $io->input_line_number, 2;
view release on metacpan or search on metacpan
t/compress/generic.pl view on Meta::CPAN
ok $line eq $str;
ok $io->eof;
}
{
local $/ = ""; # paragraph mode
my $io = $UncompressClass->new($name);
is $., 0;
is $io->input_line_number, 0;
ok ! $io->eof;
my @lines = $io->getlines();
t/compress/generic.pl view on Meta::CPAN
is $line, $str;
ok $io->eof;
}
{
local $/ = ""; # paragraph mode
my $io = $UncompressClass->new($name);
ok ! $io->eof;
my @lines = $io->getlines;
is $., 2;
is $io->input_line_number, 2;
view release on metacpan or search on metacpan
t/compress/generic.pl view on Meta::CPAN
ok $line eq $str;
ok $io->eof;
}
{
local $/ = ""; # paragraph mode
my $io = $UncompressClass->new($name);
is $., 0;
is $io->input_line_number, 0;
ok ! $io->eof;
my @lines = $io->getlines();
t/compress/generic.pl view on Meta::CPAN
is $line, $str;
ok $io->eof;
}
{
local $/ = ""; # paragraph mode
my $io = $UncompressClass->new($name);
ok ! $io->eof;
my @lines = $io->getlines;
is $., 2;
is $io->input_line_number, 2;
view release on metacpan or search on metacpan
t/compress/generic.pl view on Meta::CPAN
ok $line eq $str;
ok $io->eof;
}
{
local $/ = ""; # paragraph mode
my $io = $UncompressClass->new($name);
is $., 0;
is $io->input_line_number, 0;
ok ! $io->eof;
my @lines = $io->getlines();
t/compress/generic.pl view on Meta::CPAN
is $line, $str;
ok $io->eof;
}
{
local $/ = ""; # paragraph mode
my $io = $UncompressClass->new($name);
ok ! $io->eof;
my @lines = $io->getlines;
is $., 2;
is $io->input_line_number, 2;
view release on metacpan or search on metacpan
t/compress/generic.pl view on Meta::CPAN
ok $line eq $str;
ok $io->eof;
}
{
local $/ = ""; # paragraph mode
my $io = $UncompressClass->new($name);
is $., 0;
is $io->input_line_number, 0;
ok ! $io->eof;
my @lines = $io->getlines();
t/compress/generic.pl view on Meta::CPAN
is $line, $str;
ok $io->eof;
}
{
local $/ = ""; # paragraph mode
my $io = $UncompressClass->new($name);
ok ! $io->eof;
my @lines = $io->getlines;
is $., 2;
is $io->input_line_number, 2;
view release on metacpan or search on metacpan
t/getline.tt view on Meta::CPAN
desc => 'copy 2x3 chars: print method & read filehandle',
},
{ #7
send => sub {
pusher()->print("a\nb\n\nc\n\n\nd\n\n\n\ne\n");
$/ = '';
},
acquire => sub {
my $p = puller();
return <$p>;
},
t/getline.tt view on Meta::CPAN
array => 1,
desc => 'copy 4 sets many lines: print method & array context <filehandle>',
},
{ #8
send => sub {
$/ = '';
pusher()->print("a\nb\n\nc\n\n\nd\n\n\n\ne\n");
},
acquire => sub {
my $p = puller();
my @l;
view release on metacpan or search on metacpan
t/06.readline.t view on Meta::CPAN
# rewind
seek $sfh, 0, SEEK_SET;
my @got_paragraphs;
lives_ok {
local $/ = '';
@got_paragraphs = readline $sfh;
}
'readline() for paragraphs lives';
my @expected_paragraphs = map { "$_\n" } split /\n\n+/, join '', @full;
is scalar(@got_paragraphs), scalar(@expected_paragraphs),
view release on metacpan or search on metacpan
t/readline.t view on Meta::CPAN
local $/ = "\n\n";
my $b;
($b=<$c>) eq "multi\nple\n\n" || die "LFLF failed ($b)";
$/ = \"10";
($b=<$c>) eq "1234567890" || die "\\size failed ($b)";
$/ = '';
($b=<$c>) eq "line\n\n\n\n" || die "'' failed ($b)";
my @c = <$c>;
die "'' @ failed: @c" unless $c[0] eq "bla\n\n" &&
$c[1] eq "blubb\n\n" &&
$c[2] eq "blip" && @c == 3;
view release on metacpan or search on metacpan
b
c
d
EOT
$/ = "";
ok(<$fh>, "a\n\n");
ok(<$fh>, "a\nb\n\n");
ok(<$fh>, "a\nb\nc\n\n");
ok(<$fh>, "a\nb\nc\nd\n");
view release on metacpan or search on metacpan
t/IO_Scalar.t view on Meta::CPAN
}
# Read paragraph by paragraph
{
my $ios = IO::Scalar->new(\$all);
local $/ = "";
is($ios->getline, join('', @lines[0..2]), "recordsep: empty - first par");
is($ios->getline, join('', @lines[6..7]), "recordsep: empty - second par");
is($ios->getline, join('', @lines[8..10]), "recordsep empty - third par");
}
view release on metacpan or search on metacpan
t/Common.pm view on Meta::CPAN
}
### Read paragraph by paragraph:
if ($seps =~ /empty/) {
$GH = &$opener(\@lines);
local $/ = "";
$T->ok_eq($GH->getline, join('', @lines[0..2]),
"RECORDSEP empty: first par");
$T->ok_eq($GH->getline, join('', @lines[6..7]),
"RECORDSEP empty: second par");
$T->ok_eq($GH->getline, join('', @lines[8..10]),