in reply to Re^2: Here documents in blocks
in thread Here documents in blocks

Hello Bod,

this works

use strict;
use warnings;

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

[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.

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]
      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]

        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