view release on metacpan or search on metacpan
lib/OBO/Parser/OBOParser.pm view on Meta::CPAN
croak 'You have to provide an OBO file as input';
}
open (OBO_FILE, $self->{OBO_FILE}) || croak 'The OBO file (', $self->{OBO_FILE}, ') cannot be opened: ', $!;
$/ = ""; # one paragraph at the time
chomp(my @chunks = <OBO_FILE>);
chomp(@chunks);
close OBO_FILE;
#
view release on metacpan or search on metacpan
lib/OpenAPI/Generator/From/Definitions.pm view on Meta::CPAN
my @defs = @{ $conf->{definitions} };
for my $file (@files) {
croak "$file is not readable" unless -r $file;
local $/ = '';
open my $fh, '<', $file or croak "can't open file $file";
my $content = <$fh>;
close $fh;
view release on metacpan or search on metacpan
lib/POD2/ES/perlfunc.pod view on Meta::CPAN
(también conocido como $INPUT_RECORD_SEPARATOR -separador de registros en
entrada- en el módulo L<C<English>|English>). Devuelve el número total de
caracteres eliminados de todos sus argumentos. Se utiliza a menudo para
eliminar el carácter de nueva lÃnea del final de un registro de entrada
cuando es importante que el registro al final le pueda faltar ese carácter. En
modo párrafo (C<$/ = ''>), elimina todos los caracteres de nueva lÃnea de la
cadena. En modo chupón (C<$/ = undef>) o en modo de registros de longitud fija
(L<C<$E<sol>>|perlvar/$E<sol>> es una referencia a un entero o algo parecido;
ver L<perlvar>), L<C<chomp>|/chomp VARIABLE> no elimina nada. Si se omite
VARIABLE, usa L<C<$_>|perlvar/$_>. Ejemplo:
view release on metacpan or search on metacpan
FR/perlfaq6.pod view on Meta::CPAN
pas que le circonflexe ou le dollar fasse une reconnaissance d'un
début ou d'une fin d'une nouvelle ligne. Mais il est impératif que $/
ait une autre valeur que la valeur par défaut, ou alors nous n'aurons
pas plusieurs lignes d'un coup à se mettre sous la dent.
$/ = ''; # lis au moins un paragraphe entier,
# pas qu'une seule ligne
while ( <> ) {
while ( /\b([\w'-]+)(\s+\1)+\b/gi ) { # les mots commencent par
# des caractères alphanumériques
print "$1 est répété dans le paragraphe $.\n";
FR/perlfaq6.pod view on Meta::CPAN
Voilà le code qui trouve les phrases commençant avec "From " (qui
devrait être transformés par la plupart des logiciels de courrier
électronique)E<nbsp>:
$/ = ''; # lis au moins un paragraphe entier, pas qu'une seule ligne
while ( <> ) {
while ( /^From /gm ) { # /m fait que ^ reconnaisse
# tous les débuts de ligne
print "from de départ dans le paragraphe $.\n";
}
FR/perlfaq6.pod view on Meta::CPAN
rarement, quand vous ne voulez pas que l'expression rationnelle
remarque qu'elles changent.
Par exemple, voici un programme S<"paragrep" :>
$/ = ''; # mode paragraphe
$pat = shift;
while (<>) {
print if /$pat/o;
}
view release on metacpan or search on metacpan
IT/perlfaq6.pod view on Meta::CPAN
dollaro effettuino il match in un qualsiasi punto all'interno del
record vicino ai ritorni a capo. Ma E<egrave> imperativo che $/ sia
impostato a qualcosa di diverso rispetto al valore predefinito, altrimenti
non riusciremo mai a leggere un record composto da piE<ugrave> linee.
$/ = ''; # memorizza piu` dell'intero paragrafo, non solo una linea
while ( <> ) {
while ( /\b([\w'-]+)(\s+\1)+\b/gi ) { # la parola inizia con un carattere alfanumerico
print "$1 e` un duplicato, al paragrafo $.\n";
}
}
Qui c'E<egrave> il codice che trova le frasi che iniziano con "From " ["da", NdT]
(che dovrebbe essere storpiato da molti programmi di posta):
$/ = ''; # memorizza piu` dell'intero paragrafo, non solo una linea
while ( <> ) {
while ( /^From /gm ) { # /m fa si` che ^ effettui un match vicino a \n
print "primo from nel paragrafo $.\n";
}
}
IT/perlfaq6.pod view on Meta::CPAN
non cambieranno), oppure, piE<ugrave> di rado, quando non volete che
la regex si accorga se le variabili cambiano.
Per esempio, ecco un programma "paragrep":
$/ = ''; # modalita` paragrafo
$pat = shift;
while (<>) {
print if /$pat/o;
}
view release on metacpan or search on metacpan
lib/POD2/RU/perlfunc.pod view on Meta::CPAN
that corresponds to the current value of C<$/> (also known as
$INPUT_RECORD_SEPARATOR in the C<English> module). It returns the total
number of characters removed from all its arguments. It's often used to
remove the newline from the end of an input record when you're worried
that the final record may be missing its newline. When in paragraph
mode (C<$/ = "">), it removes all trailing newlines from the string.
When in slurp mode (C<$/ = undef>) or fixed-length record mode (C<$/> is
a reference to an integer or the like; see L<perlvar>) chomp() won't
remove anything.
If VARIABLE is omitted, it chomps C<$_>. Example:
view release on metacpan or search on metacpan
t/compat/path.t view on Meta::CPAN
use Test::More;
use Test::Differences;
use JSON::PP;
use Parse::Distname;
local $/ ="";
unified_diff;
sub encode { JSON::PP->new->canonical->pretty->encode(shift) }
while(<DATA>) {
view release on metacpan or search on metacpan
demo/demo_matchrule.pl view on Meta::CPAN
unless( $parser = new Parse::RecDescent( $grammar ))
{
die "bad grammar; bailing\n";
}
$/ = "";
while (defined ($input = <DATA>))
{
$::animal = reverse 'cat';
print STDERR "parsing...\n";
view release on metacpan or search on metacpan
benchmarks/app/MyPodHtml.pm view on Meta::CPAN
$Htmlfileurl= "$Htmldir/" . substr( $Htmlfile, length( $Htmldir ) + 1);
}
# read the pod a paragraph at a time
warn "Scanning for sections in input file(s)\n" if $Verbose;
$/ = "";
my @poddata = <POD>;
close(POD);
# be eol agnostic
for (@poddata) {
view release on metacpan or search on metacpan
inc/BUNDLES/Math-VectorReal-1.02/test.pl view on Meta::CPAN
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/PerlPoint/Parser.pm view on Meta::CPAN
if ($parser->{USER}->{INPUT}=~/^<<(\w+)/)
{$/="\n$1";}
elsif ($parser->{USER}->{INPUT}=~/^(?<!\\)\\TABLE/i)
{$/="\n\\END_TABLE";}
else
{$/='';}
# store current position
my $lexerPosition=tell($inHandle);
# read *current* paragraph completely (take care - we may have read it completely yet!)
view release on metacpan or search on metacpan
$htmlfile = "-" unless $htmlfile; # stdout
$htmlroot = "" if $htmlroot eq "/"; # so we don't get a //
# read the pod a paragraph at a time
warn "Scanning for sections in input file(s)\n" if $verbose;
$/ = "";
my @poddata = <POD>;
close(POD);
# scan the pod for =head[1-6] directives and build an index
my $index = scan_headings(\%sections, @poddata);
view release on metacpan or search on metacpan
corpus/perlfunc.pod view on Meta::CPAN
that corresponds to the current value of C<$/> (also known as
$INPUT_RECORD_SEPARATOR in the C<English> module). It returns the total
number of characters removed from all its arguments. It's often used to
remove the newline from the end of an input record when you're worried
that the final record may be missing its newline. When in paragraph
mode (C<$/ = "">), it removes all trailing newlines from the string.
When in slurp mode (C<$/ = undef>) or fixed-length record mode (C<$/> is
a reference to an integer or the like; see L<perlvar>) chomp() won't
remove anything.
If VARIABLE is omitted, it chomps C<$_>. Example:
view release on metacpan or search on metacpan
$conn->close;
my $captured_response;
{
open(my $fh1, $testfile);
local $/ = '';
$captured_response = <$fh1>;
close $fh1;
unlink $testfile;
}
ok ($captured_response, qr/Pod::Simple/);
view release on metacpan or search on metacpan
$last_cmd = $hlp_level;
*OUTPUT = *STDOUT if @_<3;
$SCREEN = 72;
$/ = "";
$FANCY = 0;
$cutting = 1;
$DEF_INDENT = 4;
view release on metacpan or search on metacpan
# The preamble contains information about the archive. We slurp it in as a single
# paragraph
my $oldseparator = $/;
$/ = "";
my $data = <INPUT>;
$data =~ s/[\n\r\s]+/ /g;
my @tokens = split (/\s*;\s*/, $data);
view release on metacpan or search on metacpan
lib/Redis/CappedCollection.pm view on Meta::CPAN
} else {
$finish_str = $start_str = '';
}
{
local $/ = '';
$lua_script_body{ $_running_script_name } =~ s/\n+\s*__START_STEP__\n/$start_str/g;
$lua_script_body{ $_running_script_name } =~ s/\n+\s*__FINISH_STEP__/$finish_str/g;
}
$script_prepared{ $_running_script_name } = 1;
}
view release on metacpan or search on metacpan
t/archive.misc.t view on Meta::CPAN
my %askdebian;
if(
$ENV{RCD_ASK_DEBIAN} &&
($ENV{RCD_ASK_DEBIAN} eq q|all| ||
$ENV{RCD_ASK_DEBIAN} =~ m{\bbinary\b}) ) {
local $/ = '';
my $lists = q|/var/lib/apt/lists|;
opendir my $dh, $lists or
die
qq|(ASK_DEBIAN) was requested, however (opendir) ($lists) | .
qq|has failed ($!), most probably, that's not Debian at all|;
view release on metacpan or search on metacpan
<MATCH=( [+-]? \d++ (?: \. \d++ )?+ )>
}xms
};
local $/ = "";
while (my $input = <DATA>) {
chomp $input;
my ($text, $expected) = split /\s+/, $input, 2;
if ($text =~ $calculator) {
is $/{Answer}, $expected => "Input $.: $text";
view release on metacpan or search on metacpan
lib/Renard/API/MuPDF/mutool.pm view on Meta::CPAN
qw(trailer)
);
utf8::upgrade($trailer_text);
open my $trailer_fh, '<:crlf', \$trailer_text;
do { local $/ = ''; <$trailer_fh> };
}
fun get_mutool_get_object_raw($pdf_filename, $object_id) {
my $object_text = _call_mutool(
qw(show),
lib/Renard/API/MuPDF/mutool.pm view on Meta::CPAN
$object_id,
);
utf8::upgrade($object_text);
open my $object_fh, '<:crlf', \$object_text;
do { local $/ = ''; <$object_fh> };
}
fun get_mutool_get_info_object_parsed( $pdf_filename ) {
my $trailer = Renard::API::MuPDF::mutool::ObjectParser->new(
filename => $pdf_filename,
view release on metacpan or search on metacpan
lib/Renard/Incunabula/MuPDF/mutool.pm view on Meta::CPAN
$pdf_filename,
qw(trailer)
);
open my $trailer_fh, '<:encoding(UTF-8):crlf', \$trailer_text;
do { local $/ = ''; <$trailer_fh> };
}
fun get_mutool_get_object_raw($pdf_filename, $object_id) {
my $object_text = _call_mutool(
qw(show),
$pdf_filename,
$object_id,
);
open my $object_fh, '<:encoding(UTF-8):crlf', \$object_text;
do { local $/ = ''; <$object_fh> };
}
fun get_mutool_get_info_object_parsed( $pdf_filename ) {
my $trailer = Renard::Incunabula::MuPDF::mutool::ObjectParser->new(
filename => $pdf_filename,
view release on metacpan or search on metacpan
use ExtUtils::testlib;
use Rx;
use strict;
my ($TESTS, $SUCCEED, $FAIL);
$/ = "";
while (<DATA>) {
chomp;
s/^#.*$//smg;
my ($regex, @test_strings) = split /\n/;
view release on metacpan or search on metacpan
lib/SVK/Patch.pm view on Meta::CPAN
# We need the \nVersion: to not trip over inlined block makers.
# This is safe because unidiff can't have lines beginning with 'V'.
local $/ = "==== BEGIN SVK PATCH BLOCK ====\nVersion:"; <$fh>;
# Now we ignore header paragraph.
$/ = ""; <$fh>;
# Slurp everything up to the '=' of the end marker.
$/ = "\n="; <$fh>;
};
die loc("Cannot find a patch block in %1.\n", $file) unless $content;
view release on metacpan or search on metacpan
examples/build_IR_database.pl view on Meta::CPAN
my $file = shift || "slinke.irdb";
# read in database
my ( %COMMANDS, %COMPONENT_LOOKUP, %COMPONENTS, %COMMAND_LOOKUP );
{
local $/ = "";
open FILE, $file;
my $string = <FILE>;
close FILE;
eval $string;
view release on metacpan or search on metacpan
xs/sc_ssl/openssl/source/util/extract-names.pl view on Meta::CPAN
#!/usr/bin/perl
$/ = ""; # Eat a paragraph at once.
while(<STDIN>) {
chop;
s/\n/ /gm;
if (/^=head1 /) {
$name = 0;
view release on metacpan or search on metacpan
[4 ,sub{}, ["abc" ,"abc" ],[undef,1,3],],
[5 ,sub{}, ["abc\ndefg" ,"abc\ndxy" ],[5,2,1], ],
[6 ,sub{}, ["abc\n\ndefg" ,"abc\n\ndxy" ],[6,3,1], ],
[7 ,sub{}, ["abc\ndef\n" ,"abc\ndef\n" ],[undef,3,0],],
[8 ,sub{$/="x"}, ["abcxdefg" ,"abcxdefy" ],[7,2,3], ],
[9 ,sub{$/=""} , ["abc\n\n\ndefg","abc\n\n\nxy" ],[6,2,0], ],
[10,sub{$/="121"},["1212121def" ,"1212121dex" ],[9,3,2], ],
[11,sub{$/="112"},["11121112de" ,"11121112df" ],[9,3,1], ],
[12,sub{$/="112"},["112112x" ,"112112ab" ],[6,3,0], ],
);
view release on metacpan or search on metacpan
lib/Stump/Heavy.pm view on Meta::CPAN
my $text;
my @para;
{
open IN, '<:utf8', $input or die "Can't open $input: $!";
local $/ = "";
chomp(@para = <IN>);
close IN;
}
print CONTENT <<'END';
view release on metacpan or search on metacpan
t/01_fillin.t view on Meta::CPAN
use Template;
my $query = CGI->new({ foo => 'bar', bar => 'baz' });
my $tt = Template->new;
local $/ = '';
while (<DATA>) {
my($test, $expect) = /^--test--\n(.*?)\n--expect--\n(.*?)\n$/s;
my @expect = split /\n/, $expect;
$tt->process(\$test, { query => $query }, \my $out);
like $out, qr/$_/ for @expect;
view release on metacpan or search on metacpan
lib/Test/Group.pm view on Meta::CPAN
no warnings "once";
local $Data::Dumper::Indent = 1;
local $Data::Dumper::Terse = 1;
Data::Dumper::Dumper($exn) } :
"$exn" ? "$exn" : "a blank exception" );
{ local $/ = ""; chomp($exntext); }
my $message = <<"MESSAGE";
Test ``$name'' died:
$exntext
MESSAGE
if ($classstate_logfd) {
view release on metacpan or search on metacpan
lib/Test/LectroTest/FailureRecorder.pm view on Meta::CPAN
sub _store {
my ($self) = @_;
my $file = $self->{file};
$self->{cache} ||= do {
open my $fh, $file or die "could not open $file: $!";
local $/ = ""; # paragraph slurp mode
my @recs = map eval($_), <$fh>;
close $fh;
\@recs;
};
}