[MacPerl-Modules] More Mac::Glue + PPC Fun

[Chris Nandor <pudge@pobox.com>]

Run MacPerl programs on other machines.  This won't work for anyone else,
of course, until I release a version of Mac::Glue that supports it (which
may be in the next week or two).

#!perl -w
use Mac::Glue ':glue';
use strict;
my($mp, $user, $pass, $script);

$mp   = new Mac::Glue 'MacPerl', targ => 'MacPerl' => 'Orr';
$user = 'Pudge';
$pass = 'foooo';
{ local $/;
  $script = <DATA>;
}

Mac::Glue->login($user, $pass);
print $mp->do_script($script, mode => enum('batch'));
die $^E if $^E;

__END__
use Mac::Processes;
use Mac::MoreFiles '%Application';

printf "%-20s %-8s  %-8s\n", "Process Name", "PSN", "Location";

while (($psn, $pi) = each %Process) {
    printf "%-20s %08X @%08X\n",
        $pi->processName, $pi->processNumber, $pi->processLocation;
}
EOS

__END__

-- 
Chris Nandor          mailto:pudge@pobox.com         http://pudge.net/
%PGPKey = ('B76E72AD', [1024, '0824090B CE73CA10  1FF77F13 8180B6B6'])

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