[Date Prev][Date Next][Thread Prev][Thread Next] [Search] [Date Index] [Thread Index]

Re: [MacPerl] Converting From Unix to Mac



Hello to all,

I develop on the Mac, but most of my clients are on either Unix or NT.
I have to keep my scripts cross-platform, and very flexible to meet
changing needs quickly. Though I use the MacPerl mods when I need
a simple droplet for my own purposes, I generally stay away from
anything that won't run under NT, Unix, or Mac. Actually, the NT
people are aghast that I can even develop Perl scripts on the Mac, and
have them work out of the box so to speak on NT and Unix. I use BBEdit
to convert line breaks when transferring to NT, and the following 
header to convert the rest of the scripts to make them cross-platform.
The following example is for Unix <-> Mac and works fine...

...EXCEPT for two items which I would appreciate some help with:
1) What about changing the she-bang line? (for NT scripts)
2) What about FLOCK, which needs to be "searched and replaced"

I am asking these questions in a general sense for all scripts when
considering cross-platform issues. 

Thanks for all the help and have a wonderful day,

Jon


#!/usr2/bin/perl5

&thrucgi; #parses form farther down

if ($^O eq "MacOS") {&mac_vars}
else {&unix_vars};
&common_vars;
## DONT FORGET TO S&R FLOCK

sub mac_vars {
   $head_ct = "Content-Type: text/html\n\n"; 
   $ip = '192.0.2.1';           #home/local
   $cgipl = ".cgi";
   $cgibin = "/cgi-bin/";
   $plat_whdir = ":".$whdir.":";
   $im_dir = "../hrc";
   $href = "../".$whdir;
}

sub unix_vars { 
   $head_ct = "Content-Type: text/html\n\n"; 
   $ip = 'www.somewhere.com/jcl';           #a particular server
   $cgipl = ".pl";
   $cgibin = "/cgi-bin/~jcl/";
   $plat_whdir = $whdir."/";
   $im_dir = "../../../~jcl/hrc";
   $href = "../../../~jcl/".$whdir;
}

sub common_vars {
   $indetxt = $plat_whdir."indextxt.txt";
   $prile = $plat_whdir."profile.txt";
   $quest = $plat_whdir."quest.txt";

   $userchek = "userchek".$cgipl;
   $promod = "promod".$cgipl;
   $dexcang = "dexcang".$cgipl;
   $nabuild = "nabuild".$cgipl;
   $debuild = "debuild".$cgipl;
   $grind = "grind".$cgipl;
 }



------------------------------------------------------------------
Jon Lucenius
MultiMedia Director

JCL Associates - Quality Dynamic Technology
 - Custom Progamming
  - Graphic Design
   - Interface Development


JCL Associates
PO Box 5996
Newark DE 19714-5996
302-369-3016 (work /fax)
302-369-2989 (home)
mailto:jonl@magpage.com
http://www.jagunet.com/~jcl/




***** Want to unsubscribe from this list?
***** Send mail with body "unsubscribe" to mac-perl-request@iis.ee.ethz.ch