Re^5: Here documents in blocks


Problems? Is your data what you think it is?
	PerlMonks

Re^5: Here documents in blocks

by Discipulus (Canon)

on Dec 19, 2020 at 17:21 UTC ( [id://11125459]=note: print w/replies, xml )

Need Help??

in reply to Re^4: Here documents in blocks
in thread 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 (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]

In Section Seekers of Perl Wisdom