[Dresden-pm] Re: framify.pl

[Thomas Washeim]

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

| Klar, schon schick, aber es muss jetzt natürlich
| auch meine subtilen runden Ränder verwenden. :-)
,---. ,-----. ,-----. ,------. ,------. ,---------.
| # | | Das | | ist | | auch | | kein | | Problem |
`---' `-----' `-----' `------' `------' `---------'
,-----------------.
| #!/usr/bin/perl |
`-----------------'
,-----. ,---------.
| use | | strict; |
`-----' `---------'
,--.
|  |
`--'
,------. ,-------. ,-------------. ,----. ,-----------. ,----. ,------.
| open | | FILE, | | "<$ARGV[0]" | | if | | ($ARGV[0] | | != | | ""); |
`------' `-------' `-------------' `----' `-----------' `----' `------'
,-------. ,------. ,---.
| while | | (<>) | | { |
`-------' `------' `---'
,----. ,---------.
| my | | $D1=""; |
`----' `---------'
,----. ,---------.
| my | | $D2=""; |
`----' `---------'
,----. ,----. ,------.
| my | | $L | | =""; |
`----' `----' `------'
,-----. ,---.
| map | | { |
`-----' `---'
,----. ,---. ,----. ,----. ,--------------------. ,---. ,---.
| if | | ( | | 75 | | <= | | (length($_.$D1)+5) | | ) | | { |
`----' `---' `----' `----' `--------------------' `---' `---'
,-------. ,----------------------.
| print | | "$D1>\n$L>\n$D2>\n"; |
`-------' `----------------------'
,--------------. ,-----.
| $D1=$D2=$L=" | | >"; |
`--------------' `-----'
,---.
| } |
`---'
,--------------------------------. ,----.
| $D1.=","."-"x(length($_)+2).". | | "; |
`--------------------------------' `----'
,--------------------------------. ,----.
| $D2.="`"."-"x(length($_)+2)."' | | "; |
`--------------------------------' `----'
,--------. ,----. ,---. ,----.
| $L.="| | | $_ | | | | | "; |
`--------' `----' `---' `----'
,---. ,----------.
| } | | (split); |
`---' `----------'
,-------. ,---------------. ,---. ,------------------. ,---. ,----------. >
| print | | ((length($L)) | | ? | | "$D1\n$L\n$D2\n" | | : | | ",--.\n| | >
`-------' `---------------' `---' `------------------' `---' `----------' >
~ >,--------------.
~ >| |\n`--'\n"); |
~ >`--------------'
,---.
| } |
`---'
,-------. ,-------.
| close | | FILE; |
`-------' `-------'

- --
Find my public key here: http://www.htw-dresden.de/~s50954/
Please note, that you will never receive an unsigned mail from me.
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.2.4 (MingW32)
Comment: Using GnuPG with Thunderbird - http://enigmail.mozdev.org

iD8DBQFBo3ob2/ggQBUI/skRAvtLAKCenlUUR8TBWsXcOokXa8ztZGYFkwCgoFtV
G239tHGF3Vf5NVimzjWLFho=
=Zdi6
-----END PGP SIGNATURE-----