Re^3: Here documents in blocks

Hello Bod,

this works

use strict;
use warnings;

print $_=<<"   EOT";
   indented
   as
   intended
   EOT
    
exit;
[download]

There are no rules, there are no thumbs..
Reinvent the wheel, then learn The Wheel; may be one day you reinvent one of THE WHEELS.

Comment on Re^3: Here documents in blocks Download Code

Replies are listed 'Best First'.
Re^4: Here documents in blocks by Bod (Parson) on Dec 19, 2020 at 17:11 UTC
this works But this doesn't... `use strict; if (1) { print<<" END"; Here is some text which needs to be flush to the left margin END }` [download] It works in the sense it compiles and runs but doesn't do as intended.	[reply] [d/l]
Re^5: Here documents in blocks by Discipulus (Canon) on Dec 19, 2020 at 17:21 UTC
This one? `use strict; if (1) { $_=<<" END"; Here is some text which needs to be flush to the left margin END s/^\s+//gm; print; }` [download] L* There are no rules, there are no thumbs.. Reinvent the wheel, then learn The Wheel; may be one day you reinvent one of THE WHEELS.	[reply] [d/l]
Re^6: Here documents in blocks [Updated] by jo37 (Deacon) on Dec 19, 2020 at 18:26 UTC
Adding another bit: `if (1) { $_= <<" END"; Here is some text which needs to be flush to the left margin and has indented parts END /^(\s)/; print s/^$1//gmr; }` [download] Update:* Here is another one: `if (1) { print <<" EOT" =~ s/^(\s*)//r =~ s/^$1//gmr; Here is some text which needs to be flush to the left margin and has indented parts EOT }` [download] Greetings, -jo `$gryYup$d0ylprbpriprrYpkJl2xyl~rzg??P~5lp2hyl0p$`	[reply] [d/l] [select]