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