Re: [MacPerl] helper script for novice users

[Kevin van Haaren <kevinv@hockey.net>]

You may want to investigate the print here methodology, instead of repeated
print statements.  something like:

print <<HEADER;
--------------------------
script author: $authorname
...rest of print statements...
--------------------------
HEADER

everything after <<HEADER; until HEADER on a line by itself is treated as
double quoted.

Page 105 of the MacPerl book covers this (my camel book is too far away to
grab easily 8-)

Kevin


At 12:36 PM -0400 1999/7/4, Paul Corr wrote:
>
>I'm open to comments on improving it, etc.
>
>Thanks in advance.
>
>Paul
>----
>	# Who and where are we?
>	print "---------------------------------------------------\n";
>	print "Script author:    $authorname\n";
>	print "Operating system: $thisOS\n";
>	print "EOF key sequence: $endInput\n";
>	print "Perl Version:     $PerlVersion\n";
>	print "Library Paths:    $libpathslist";
>	print "\n";
>	print "Date:             $todaysdate\n";
>	print "Project:          $project\n";
>	print "Description:      $description\n";
>	print "Full File Spec:   $currentscript\n";
>	print "Script Path:      $path\n"; #
>	print "Current Wkg Dir:  $curdir\n";
>	print "Current Script:   $script\n";
>	print "---------------------------------------------------\n\n";
>
>	### END ID Block -- gives name, assignment, OS, etc. ###
>}

===== Want to unsubscribe from this list?
===== Send mail with body "unsubscribe" to macperl-request@macperl.org