view release on metacpan or search on metacpan
infobrief.PL view on Meta::CPAN
if ($OPT{packed}) {
$/="\r\n";
chomp($_ = <>);
@fld = split /;/, $_;
} else {
$/="";
}
while (<>) {
if ($OPT{packed}) {
chomp;
view release on metacpan or search on metacpan
lib/Lemonldap/Handlers/LoginCASLDAPFake.pm view on Meta::CPAN
##############################################
if ( !$html ) {
my $file;
open( $file, "<$page_html" );
local $/;
$/ = '';
$html = <$file>;
close $file;
}
$Ldap_Server = $Conf_Domain->{ldap_server};
view release on metacpan or search on metacpan
lib/Lemonldap/NG/Common/Conf/Backends/File.pm view on Meta::CPAN
}
elsif ( -e "$self->{dirName}/lmConf-$cfgNum.js" ) {
$filename = "$self->{dirName}/lmConf-$cfgNum.js";
}
if ($filename) {
local $/ = '';
my $ret;
unless ( open FILE, '<', $filename ) {
$Lemonldap::NG::Common::Conf::msg .= "Read error: $!$@";
return undef;
}
lib/Lemonldap/NG/Common/Conf/Backends/File.pm view on Meta::CPAN
}
# Old format
elsif ( -e "$self->{dirName}/lmConf-$cfgNum" ) {
open FILE, '<', "$self->{dirName}/lmConf-$cfgNum" or die "$!$@";
local $/ = "";
unless ( open FILE, '<', $self->{dirName} . "/lmConf-$cfgNum" ) {
$Lemonldap::NG::Common::Conf::msg .= "Open file failed: $! \n";
return undef;
}
while (<FILE>) {
view release on metacpan or search on metacpan
lib/Lemonldap/Portal/LoginFake.pm view on Meta::CPAN
##############################################
if (! $html) {
my $file ;
open($file ,"<$page_html");
local $/;
$/ ='';
$html = <$file>;
close $file;
}
$Ldap_Server = $Conf_Domain->{ldap_server};
view release on metacpan or search on metacpan
my $variations=3;
my $loops=2;
print "1..",$tests*$variations*$loops,"\n";
$/ = "";
my $i = 1;
my $DATA_start=tell DATA;
foreach my $case (qw(upper lower)) {
Lingua::EN::Nums2Words::set_case($case);
seek DATA, $DATA_start, 0;
view release on metacpan or search on metacpan
t/titlecase.t view on Meta::CPAN
binmode DATA, TEXTMODE;
my @testcase =
map [ split /\n/ ],
do { local $/ = ""; <DATA> }; # $/ = "" is paragraph mode
plan tests => 0+@testcase;
my @result = titlecase( map $_->[0], @testcase );
view release on metacpan or search on metacpan
examples/ex1 view on Meta::CPAN
#!/usr/bin/perl
use strict;
#undef $/;
#$/='';
use Lingua::Jspell::DictManager;
my $dict = Lingua::Jspell::DictManager::init("microdic");
view release on metacpan or search on metacpan
lib/Lingua/PT/PLN.pm view on Meta::CPAN
}
### syllabs, and accents
sub accent {
local $/ = ""; # input record separator=1 or more empty lines
my $p=shift;
$p =~ s/(\w+)/ wordaccent($1) /ge;
$p
}
view release on metacpan or search on metacpan
lib/Lingua/PT/ProperNames.pm view on Meta::CPAN
=head2 getPN
=cut
sub getPN {
local $/ = ""; # input record separator=1 or more empty lines
my %opt;
@opt{@_} = @_;
my (%profissao, %names, %namesduv, %gnames);
lib/Lingua/PT/ProperNames.pm view on Meta::CPAN
=cut
sub printPN{
local $/ = ""; # input record separator=1 or more empty lines
my %opt;
@opt{@_} = @_;
my (%profissao, %names, %namesduv, %gnames);
view release on metacpan or search on metacpan
lib/Lingua/PT/Speaker.pm view on Meta::CPAN
Lingua::PT::speaker::debug() if $debug;
my $tmp="/tmp/_$$";
$/="" if $l;
while($line = <>){
speak({output => "$tmp.pho"}, $line);
system("mbrola -t $t $pt1 $tmp.pho $tmp.wav; play $tmp.wav");
}
view release on metacpan or search on metacpan
lib/Lingua/StarDict/Gen.pm view on Meta::CPAN
my %opt =(type=> "default");
local $/;
if(ref($_[0]) eq "HASH") {%opt = (%opt , %{shift(@_)}) } ;
if ($opt{type} eq "default"){ $/ = "\n"; }
if ($opt{type} eq "term") { $/ = ""; }
my $file = shift;
my %dic;
open IN,"<$file" or die "Can load $file\n";
while (<IN>) {
view release on metacpan or search on metacpan
lib/Lingua/TreeTagger/Installer.pm view on Meta::CPAN
our $data;
{
local $/ = "";
$data = Load( <DATA> );
}
sub custom_install {
my ($self, $from, $to) = @_;
lib/Lingua/TreeTagger/Installer.pm view on Meta::CPAN
}
sub new {
my $class = shift;
my %ops = @_;
local $/ = "";
open R, "<", "$ENV{HOME}/.treetagger" or die "Can't find .treetagger config file\n";
my $data = Load( <R> );
close R;
my $self = { data => $data };
view release on metacpan or search on metacpan
lib/Linux/Cpuinfo.pm view on Meta::CPAN
if ( open( CPUINFO, $file ) )
{
$self = {};
local $/ = '';
$self->{_private}->{num_cpus} = 0;
$self->{_cpuinfo} = [];
view release on metacpan or search on metacpan
lib/MARC/Lint.pm view on Meta::CPAN
sub _read_rules {
my $self = shift;
my $tell = tell(DATA); # Stash the position so we can reset it for next time
local $/ = "";
while ( my $tagblock = <DATA> ) {
my @lines = split( /\n/, $tagblock );
s/\s+$// for @lines;
next unless @lines >= 4; # Some of our entries are tag-only
view release on metacpan or search on metacpan
t/version.t view on Meta::CPAN
use_ok('MIME::Signature');
ok MIME::Signature::__test_version(), 'version mismatch in POD';
ok open( my $changes, '<', 'Changes' ), 'open Changes';
$/ = '';
( undef, my $newest ) = <$changes>;
like $newest, qr/^\Q$MIME::Signature::VERSION\E\s/,
'Changes file is up to date';
done_testing;
view release on metacpan or search on metacpan
t/9_direct_invok.t view on Meta::CPAN
use Mail::MboxParser::Mail;
ok(1);
my ($header, $body, $all) =
do { local $/ = ""; my $hd = <DATA>;
local $/; my $bd = <DATA>;
my $al = "$hd\n$bd";
("$hd\n", $bd, $al) };
view release on metacpan or search on metacpan
bin/qqtool.pl view on Meta::CPAN
# a better way to read in the headers
# from http://perl.plover.com/lp/Spam.html
if ( open $FILE, '<', "$qdir/mess/$tree/$id" )
{
local $/ = ""; # enable localized slurp mode
$header = <$FILE>; # read in the message headers
undef $/; # reset it back to normal
#$body = <STDIN>;
};
view release on metacpan or search on metacpan
t/extract.t view on Meta::CPAN
# Test the address/name extraction
#
require Mail::Address;
$/ = "";
chomp(@line = <DATA>);
print "1..",scalar(@line),"\n";
$i = 1;
view release on metacpan or search on metacpan
libPARI/gphelp view on Meta::CPAN
open(DOC,"$pipe $parifile |") ||
die "Cannot open pipe $pipe from $parifile: $!, stopped";
} else {
open(DOC,$parifile) || die "Cannot find file $parifile: $!, stopped";
}
$/=''; # Paragraph mode
while (<DOC>) {
&TeXprint_topod();
}
if ($pipe) {
close(DOC) || die "Cannot close pipe `$pipe $parifile': $!, stopped";
view release on metacpan or search on metacpan
bin/drawsoothist view on Meta::CPAN
use strict;
use warnings;
use SOOT qw/:all/;
use Math::SimpleHisto::XS;
local $/ = "";
my @h;
while (<STDIN>) {
my $hist;
foreach my $type (qw(json yaml simple native_pack)) {
#binmode(STDIN) if $type eq 'native_pack';
view release on metacpan or search on metacpan
t/71dumpoldversions.t view on Meta::CPAN
foreach my $version_file (@vers_files) {
my ($version, $file) = @$version_file;
$file = File::Spec->catfile($dumpdir, $file);
open my $fh, "<", $file or die "Cannot open file for reading: $!";
binmode $fh;
local $/ = ""; # paragraph mode
my $dumps = $dump_data{$version} = {};
while (<$fh>) {
my ($type, $data) = split /:/, $_, 2;
chomp $data;
$data .= "\n" if $type =~ /^yaml$/i;
view release on metacpan or search on metacpan
print "ok ", $testnum++, "\t--- $script script ----\n";
open(OUT, "$script.out") || die;
open(TEST, "- |") or exec('perl', $script.'.pl') or exit 0;
$/=''; # read sections by paragraph
while( $t = <TEST> ) {
$o = <OUT>;
($testname) = split(/\n/,$t);
# ignore any white space funny busness
view release on metacpan or search on metacpan
lib/Media/Convert/FfmpegInfo.pm view on Meta::CPAN
lazy => 1,
builder => '_build_codecs',
);
sub _build_codecs {
local $/ = "";
open my $ffmpeg, "-|", "ffmpeg -codecs 2>/dev/null";
my $codeclist = <$ffmpeg>;
close $ffmpeg;
my $parsing = 0;
my $rv = {};
view release on metacpan or search on metacpan
) or die "Usage: $0 ...\n";
my $cf = new IO::File "<$conf";
die "Could not read '$conf': $!\n" unless $cf;
$/ = ''; # read paragraph mode
my %date = read_dates($date);
my %new_date; # we append anyway
my %key; # pid -> from;to
my %start; # pid -> start time
view release on metacpan or search on metacpan
t/lib/Test/Net/Async/Webservice/DHL/NoNetwork.pm view on Meta::CPAN
sub prepare_test_from_file {
my ($self,$file,$comment) = @_;
my ($req_line,$request,$response) = do {
open my $fh,'<',$file;
local $/="";
<$fh>;
};
$req_line =~ s{^POST }{}; # remove HTTP verb, we know it's a POST
$request = XMLin(
$request,
view release on metacpan or search on metacpan
t/lib/Test/Net/Async/Webservice/UPS/NoNetwork.pm view on Meta::CPAN
sub file_for_next_test {
my ($self,$file,$comment) = @_;
my ($req_line,$request,$response) = do {
open my $fh,'<',$file;
local $/="";
<$fh>;
};
$req_line =~ s{^POST }{}; # remove HTTP verb, we know it's a POST
$request = XMLin(
$request,
view release on metacpan or search on metacpan
t/10.filter.t view on Meta::CPAN
my $at = "cn";
my $vl = "Bunny";
diag( " " );
diag( "Testing Net::DSML::Filter $Net::DSML::Filter::VERSION" );
my @tests = do { local $/=""; <DATA> };
my $filter = Net::DSML::Filter->new();
ok( defined $filter);
ok( $filter->isa('Net::DSML::Filter'));
ok( $filter->subString( { type =>"initial", attribute => "cn", value => "jay" } ));
view release on metacpan or search on metacpan
t/lib/Test/Net/UPS/NoNetwork.pm view on Meta::CPAN
sub prepare_test_from_file {
my ($self,$file,$comment) = @_;
my ($req_line,$request,$response) = do {
open my $fh,'<:utf8',$file;
local $/="";
<$fh>;
};
$req_line =~ s{^POST }{}; # remove HTTP verb, we know it's a POST
$request = XMLin(
$request,
view release on metacpan or search on metacpan
GnusFilter.pm view on Meta::CPAN
$msg = bless {}, ref $_[0] || $_[0];
# header
local $/ = '';
$msg->{HEADER_STRING} = <>;
chomp $msg->{HEADER_STRING};
for (split /\n(?!\s)/, $msg->{HEADER_STRING}) {
my($tag, $value) = /^([^\s:]+):\s*(.*)\s*\Z/s;
push @{ $msg->{HEADERS}{$tag} }, $value;
view release on metacpan or search on metacpan
eg/empty-old view on Meta::CPAN
opendir DIR, $dir or die "$0: opendir $dir: $!\n";
open SEEN, ">>$dir/.seen" or die "$0: open >>$dir/.seen: $!\n";
$/ = "";
my $file;
my $hdr;
my $path;
while ($file = readdir DIR) {
next if $file eq ".seen";