in reply to Re^5: using Path::Tiny and reformating result
in thread using Path::Tiny and reformating result

Thank you, AM.anomylous. All the words were there in perlvar, but I couldn't put it together without your well-contrived example. It was certainly a teachable moment for me, and I'd like to be able to show it precisely, so I worked up a bash script for the output and layout with monastery-conforming tags. The first script is 1.irs.pl and sets the irs (not the taxers) to the null string. Output, then source listing:

[[line 1 line 2 line 8 line 9 line 14 ]] block 1 <<line 1 line 2 >>block 2 <<line 8 line 9 >>block 3 <<line 14 >>#!/usr/bin/perl -w use strict; my $data = qq{line 1 \n} . qq{line 2 \n} . qq{\n} . qq{\n} . qq{\n} . qq{\n} . qq{\n} . qq{line 8 \n} . qq{line 9 \n} . qq{\n} . qq{\n} . qq{\n} . qq{\n} . qq{line 14 \n} . qq{\n} . qq{\n} . qq{\n} ; print qq{[[$data]] \n}; ;; open my $dfh, '<', \$data or die $!; ;; local $/ = ''; my $counter = 0; while (<$dfh>) { ++$counter; print qq{block $counter <<$_>>}; } __END__

2.irs.pl sets the irs to /n/n. Output, then source:

[[line 1 line 2 line 8 line 9 line 14 ]] block 1 <<line 1 line 2 >>block 2 << >>block 3 << >>block 4 <<line 8 line 9 >>block 5 << >>block 6 << line 14 >>block 7 << >>#!/usr/bin/perl -w use strict; my $data = qq{line 1 \n} . qq{line 2 \n} . qq{\n} . qq{\n} . qq{\n} . qq{\n} . qq{\n} . qq{line 8 \n} . qq{line 9 \n} . qq{\n} . qq{\n} . qq{\n} . qq{\n} . qq{line 14 \n} . qq{\n} . qq{\n} . qq{\n} ; print qq{[[$data]] \n}; ;; open my $dfh, '<', \$data or die $!; ;; local $/ = "\n\n"; my $counter = 0; while (<$dfh>) { ++$counter; print qq{block $counter <<$_>>}; } __END__

I agree, local $/ = ''; sets what you might call "indulgent" or "greedy" paragraph mode.