http://qs321.pair.com?node_id=142404


in reply to Unindenting here-docs (Re: My day with Damian Conway)
in thread My day with Damian Conway

sub unindent {
    my $str = shift;
    (my $s) = $str =~ m/^(\s+)/;
    $str =~ s/^$s//gm;
  return $str;
}

[download]

This will look at the first line and extract that much leading whitespace from every line so does what you want without the .

cheers

tachyon

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print

Replies are listed 'Best First'.
(tye)Re: Unindenting here-docs (Re: My day with Damian Conway)
by tye (Sage) on Jan 31, 2002 at 16:41 UTC

    Um, no, you missed the whole point. 

    print unquote( <<"    TEST" );
    First line
    Second line
        Third line
        Fourth line
    TEST

    [download]
    Tell me what that should produce and I'll tell you what my tab stops were set to and that you were wrong. :) (And don't be fooled by how your browser happens to display that code.)

            - tye (but my friends call me "Tye")
[reply]
[d/l]

In Section Meditations