[copying to the list for the record] on Wed, 20 Nov 2002 01:01:03AM -0500, Stephen Gran insinuated: > perl is making my head hurt right about now. I've poked at what you > suggested, and it doesn't quite work.
right, too bad i forgot to check it out before i sent it ... here's the correct version: #!/usr/bin/perl -w # formatted_sig.perl # Thu Nov 21 13:44:29 EST 2002 # to make stephen gran's sig thing work $name = "Nori Heikkinen"; $email = "<nori\@maenad.net>"; # don't forget to escape the '@' $url = "http://www.maenad.net/";; $fortune = `fortune`; print "here's a fortune:\n$fortune\n"; write; format STDOUT = +---------------------------------------------------------------------+ ~ | @<<<<<<<<<<<<<<<<<<<<< | ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< | $name, $fortune ~ | @<<<<<<<<<<<<<<<<<<<<< | ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< | $email, $fortune ~ | @<<<<<<<<<<<<<<<<<<<<< | ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< | $url, $fortune ~~| | ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< | $fortune +---------------------------------------------------------------------+ . # you need this final dot!! the tildes should be before the @<<<<<<< lines, not the variable lines. the sigle tildes mean "don't print if all the fields are empty"; the double ones mean "repeat until blank." the ^s at the fortune formatting lines just mean to wrap the words around in paragraphs. hth, </nori> -- .~. nori @ sccs.swarthmore.edu /V\ http://www.sccs.swarthmore.edu/~nori/jnl/ // \\ @ maenad.net /( )\ www.maenad.net ^`~'^
msg14440/pgp00000.pgp
Description: PGP signature
