view release on metacpan or  search on metacpan

lib/perlfaq6.pod  view on Meta::CPAN

want caret or dollar to match at any point inside the record next
to newlines. But it's imperative that $/ be set to something other
than the default, or else we won't actually ever have a multiline
record read in.

    $/ = '';          # read in whole paragraph, not just one line
    while ( <> ) {
        while ( /\b([\w'-]+)(\s+\g1)+\b/gi ) {     # word starts alpha
            print "Duplicate $1 at paragraph $.\n";
        }
    }

Here's some code that finds sentences that begin with "From " (which would
be mangled by many mailers):

    $/ = '';          # read in whole paragraph, not just one line
    while ( <> ) {
        while ( /^From /gm ) { # /m makes ^ match next to \n
        print "leading From in paragraph $.\n";
        }
    }

 view release on metacpan or  search on metacpan

bin/pmall  view on Meta::CPAN

my $Module;

if ($opt_s) {
    if (open(ME, "-|")) {
	$/ = '';
	while (<ME>) {
	    chomp;
	    print join("\n", sort split /\n/), "\n";
	} 
	exit;

bin/pmall  view on Meta::CPAN

	return 0;
    } 

    $: = " -:";

    local $/ = '';
    local $_;
    while (<POD>) {
	if (/=head\d\s+NAME/) {
	    chomp($_ = <POD>);
	    s/^.*?-\s+//s; 

 view release on metacpan or  search on metacpan

lib/POP/Schema_parser.pm  view on Meta::CPAN

  return bless {}, $type;
}

sub parse {
  my($this, $fh) = @_;
  local $/ = ""; # Paragraph mode
  while (<$fh>) {
    s/^--([A-Z]+)(?:\s+CLASS=\[([^\]]+)\])?\n// or croak "Syntax error [$_]";
    my($type, $class) = ($1, $2);
    $class ||= 'GLOBAL';
    push(@{$this->{$class}}, {'type' => $type, 'sql' => $_});

 view release on metacpan or  search on metacpan

bin/grep  view on Meta::CPAN

    if ($opt{p} || $opt{P}) {
	@patterns = map {"(?m)$_"} @patterns;
    }

    $opt{p}   && ($/ = '');
    $opt{P}   && ($/ = eval(qq("$opt{P}")));     # for -P '%%\n'
    $opt{w}   && (@patterns = map {'\b' . $_ . '\b'} @patterns);
    $opt{'x'} && (@patterns = map {"^$_\$"} @patterns);
    $Mult = 1 if ($opt{r} || @ARGV > 1 || @ARGV > 0 && -d $ARGV[0]) && !$opt{h};
    $opt{1}   += $opt{l};                   # that's a one and an ell

 view release on metacpan or  search on metacpan

etc/perlsh  view on Meta::CPAN

#!/usr/bin/perl
 $/ = '';        # set paragraph mode
 $SHlinesep = "\n";
 while ($SHcmd = <>) {
     $/ = $SHlinesep;
     eval $SHcmd; print $@ || "\n";
     $SHlinesep = $/; $/ = ''; 
 }

 view release on metacpan or  search on metacpan

lib/HTML/TextToHTML.pm  view on Meta::CPAN

          || die "Error: unable to open ", $self->{outfile}, ": $!\n";
        $outhandle_needs_closing = 1;
    }

    # slurp up a paragraph at a time, a file at a time
    local $/ = "";
    my $para        = '';
    my $count       = 0;
    my $print_count = 0;
    my @sources     = ();
    my $source_type;