Re^5: Here documents in blocks

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]

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^5: Here documents in blocks Download Code

Replies are listed 'Best First'.
Re^6: Here documents in blocks [Updated] by jo37 (Curate) 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]

Replies are listed 'Best First'.

Re^6: Here documents in blocks [Updated]
by jo37 (Curate) 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]