Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling
 
PerlMonks  

Re: How to make an ascii flower variable

by Perlbotics (Abbot)
on Oct 18, 2011 at 19:47 UTC ( #932231=note: print w/ replies, xml ) Need Help??


in reply to How to make an ascii flower variable

Easy ;-) Just

  • open Gimp,
  • draw flower,
  • save as ASCII-art (as flower.txt),
  • open editor, insert flower.txt and
  • read into variable using here doc (or read via DATA),
  • run,
  • enjoy!

use strict; use warnings; my $flower = <<'EARTH'; _ajQQQ6 jQQQQQQQ6/ _aaaaa ]QQQQQQQQQQ6/ _QQQQWQQ6 ]QQQQQQQQQQQQ jQQQQQQQQfQQQQ? 4QQQQQf jQQQQQQQQQfQQQQ/ )4QQQf QQQQP?QQQQfWQQQQQQaayQQQf QQQQ ]QQQQf"QQQQQQQWQQQQQQ6/ QQQQ_QQQQQajQQQQQQQQQQQQQQQQQQ/ QQQQQQQQQQQQQQQQQQQQQQQQQQQQQQf QQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQ 4QQQQQQQQQQQQQQQQQQQQQQf )WQQQ aaajQQQQQQQQQQQQQQQQQQQQQQf _QQQQ ]QQQQQQQQQQQQQQQQQQQQQQQQQQQaaQQQQQ QQQQQQQQQQQQQQ?????QQQQQQQQQQWQQQQ' jQQQQQQQQQQQQQP )WQQQQQQQQQQQQf QQQQQQQQQQQQQQQaaaaaajQQQQQQQQQQQQQ/ QQQQajQQQQQQQQQQWQWWWQQQQQQQQQQQQQQQ/ QQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQ 4QQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQ 4QQQQQQQQQQQQQQQQQQQQQQQQQQ QQQQ )4QQQf4QQQQQQQQQQQQQQQQQQa/ QQQQ ]QQQ6 QQQQQQQQQQQQQQQQQQQQQQQQQQf ]QQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQf )WQQQQQQQQQQQQQQQaaaaWQQQQQQQQQQ' QQQQQQQQQQQQQQQWWWWQQQQQQQQQP' )4QQP?4QQP4QQQQQQQQQQQP ]QQf ?QQQQQQQQQ' _QQQf QQQ )?????? ]QQQQ/ QQQ ]QQQQQ ]QQf jQQ/ ]QQQQQ/ QQQf jQQQf ]QQQQQQ/ _QQQ _QQQQf ]QQPQQQ6 ]QQP _QQQQQf ]QQf]QQQQ/ ]QQf _QQQQQQf ]QQf 4QQQ6 ]QQf _jQQQQQQQf )WQ6 ?QQQf ]QQf _QQQQQ']QQf QQQf 4QQQ/ ]QQf _QQQQP' QQQf 4QQQ QQQQ ]QQfjQQQQf ]QQQ' )QQQ/ )WQQ6]QQQQQQQ' _jQQf 4QQQa ]QQQjQQQQQP' jQQQ' )QQQQ6/ 4QQQQQQQQ jQQQP )WQQQQ/)QQQQQ??? _QQQQP 4QQQQWPQQQQ _jQQQQP ]QQQQQQQQQaaaQQQQQ? )?QQQQ4QQQQWQQQQ? ?QQQQQQQQQQQf QQQ)???' QQQ QQQ QQQ QQQ QQQ QQQ QQQ6 4QQQ QQQ ]QQ ]QQ EARTH print $flower;
Update:Or read it from the file, e.g. using File::Slurp: my $flower = read_file("flower.txt");.
.oO( ... rather SOIL than EARTH ...)


Comment on Re: How to make an ascii flower variable
Select or Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://932231]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (14)
As of 2014-07-10 21:07 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    When choosing user names for websites, I prefer to use:








    Results (216 votes), past polls