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 ...)
Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
Read Where should I post X? if you're not absolutely sure you're posting in the right place.
Please read these before you post! —
Posts may use any of the Perl Monks Approved HTML tags:
- a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
Outside of code tags, you may need to use entities for some characters:
| |
For: |
|
Use: |
| & | | & |
| < | | < |
| > | | > |
| [ | | [ |
| ] | | ] |
Link using PerlMonks shortcuts! What shortcuts can I use for linking?
See Writeup Formatting Tips and other pages linked from there for more info.
|
|
