Re^5: $/ question

I understand what you are saying but that didn't solve it for some reason


           local $/ = "";   # put into paragraph mode (separated by one or more blank lines
#!/usr/bin/perl -w

use strict;

sub slurpie {
      local $/ = "";   # put into paragraph mode (separated by one or more blank lines
      while (<DATA>) {
           next unless /^\w\w.+(\w\w).+(\d+).+(\w\w)/sg;  #should only match first paragraph
           print "$_\n";
      }
}


slurpie();

__DATA__
hi
hi
234
hi

hoi
sdfsdfsdf23423
hi

hi
hi
1234

1

:!././././././././././perl_slurp.pl
hi
hi
234
hi


hoi
sdfsdfsdf23423
hi


hi
hi
1234

Comment on Re^5: $/ question

Replies are listed 'Best First'.
Re^6: $/ question by kyle (Abbot) on Jan 13, 2008 at 04:13 UTC
Your pattern (`/^\w\w.+(\w\w).+(\d+).+(\w\w)/sg`), which "should only match the first paragraph", actually matches them all (except the one that's only "1"). `/^\w\w.+(\w\w).+(\d+).+(\w\w)/sg h i\n h i \n 234 \n h i /^\w\w.+(\w\w).+ (\d+) .+(\w\w)/xsg h o i\ns d fsdfsdf 23423\n h i /^\w\w.+(\w\w).+(\d+).+(\w\w)/sg h i \n h i \n 1 2 3 4` [download] Try just enumerating the paragraphs: `sub slurpie { local $/ = ''; my $n = 1; while (<DATA>) { printf "* paragraph %d \n", $n++; print; } } slurpie(); __END__ paragraph 1 * hi hi 234 hi * paragraph 2 * hoi sdfsdfsdf23423 hi * paragraph 3 * hi hi 1234 * paragraph 4 * 1` [download]	[reply] [d/l] [select]
Re^7: $/ question by convenientstore (Pilgrim) on Jan 13, 2008 at 04:22 UTC
You are right thanks #!/usr/bin/perl -w use strict; sub slurpie { local $/ = ''; # put into paragraph mode (separated by one or more blank lines while (<DATA>) { next unless /^\w\w.+(\w\w).+(\b\d\d\d\b).+(\w\w)/sg; #should only match first paragraph print "$_\n"; } } slurpie(); __DATA__ hi hi 234 hi hoi sdfsdfsdf23423 hi hi hi 1234 1 :!././././././././././perl_slurp.pl hi hi 234 hi	[reply]