Beefy Boxes and Bandwidth Generously Provided by pair Networks
"be consistent"
 
PerlMonks  

Re: Unindenting here-docs (Re: My day with Damian Conway)

by tachyon (Chancellor)
on Jan 31, 2002 at 12:43 UTC ( #142404=note: print w/replies, xml ) Need Help??


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; }

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
    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")

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://142404]
help
Chatterbox?
[marto]: finding bugs, either in the CPU layer or hypervisor, finding undocumented instructions
[zentara]: are you talikng about perf?
[Discipulus]: i miss what an undocumented instructions can be, and how can be used
[zentara]: perf
[marto]: X86_instruction_li stings
[marto]: Illegal_opcode
[zentara]: marto arn't those NSA secrets? :-)

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (10)
As of 2017-07-28 12:02 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    I came, I saw, I ...
























    Results (428 votes). Check out past polls.