gt;Thank you.
--
------
Axel Rose, Springer & Jacoby Digital GmbH & Co. KG, mailto:[EMAIL PROTECTED]
pub PGP key 1024/A21CB825 E0E4 BC69 E001 96E9 2EFD 86CA 9CA1 AAC5
"... denn alles, was entsteht, ist wert, daß es zugrunde geht ..."
At 10:40 Uhr -0700 26.07.2001, Alex wrote:
>Can I compile it under MPW?
There is no need for compilation. The library file is included.
Axel
>--- Axel Rose <[EMAIL PROTECTED]> wrote:
> > http://www.pdflib.com/
>>
>> works under MacPerl but needs careful
> > installation
Hello,
currently I build a little Mac auto downloader using Net::FTP.
First - an extreme acceleration happened after using MacPerl 5.6.1a5
compared to 5.20r4.
There is a problem though in Net::Cmd.pm. SIGPIPE must be commented.
This is scheduled in the MacPerl Bug list.
Another problem arises
Um 10:41 Uhr -0400 06.09.2001, schrieb Chris Nandor:
>You mean MacPerl 5.6.1a5 is much faster with Net::FTP than 5.2.0r4 is?
Very much indeed!
I'll check whether a simple substition open -> sysopen O_CREAT | O_TRUNC
will resolve the leading space issue. I already contacted Graham.
Axel
First - Congratulations!!
Many thanks for this huge effort.
The installer replaced the 5.20 version located in the
"MacPerl " folder without asking. This is not so nice.
It respected the already existing modules in "site_perl".
Fine. Now I need to find duplicate modules sitting in the
new lib
Try this:
#!perl -w
use strict;
use File::Find;
my $startfolder = $ARGV[0];
die "no input, no output" unless -d $startfolder;
find( \&myfinder, $startfolder );
sub myfinder {
next if -d $_;
my $statfield = (stat( $File::Find::name ))[9];
print "stat[9] shows $statfield for file '$File::
et
>
>Eelco
>
>[EMAIL PROTECTED]
--
--
Axel Rose, Springer & Jacoby Digital GmbH & Co. KG, mailto:[EMAIL PROTECTED]
pub PGP key 1024/A21CB825 E0E4 BC69 E001 96E9 2EFD 86CA 9CA1 AAC5
"... denn alles, was entsteht, ist wert, daß es zugrunde geht ..."
timeBuilder utility for MacPerl.
First the source script itself is scanned. Lines containing a "use" statement
are evaluated. Lines containing a "require" statement are changed so that
they become a "use" statement and then evaluated. The global hash %INC will
be fill
>If you don't like my version, please ignore this message.
Oh no, really, I like it!! A nice cleanup indeed.
I was thinking about an OO version but have not enough
experience in OO design. (Using it in Perl is easy)
I'll test it later.
Direct talks to friends here triggered also new ideas.
I wo
Hello Phil,
can you check what your Perl startup file contains?
I set
Set PERL5LIB "Festplatte:Programme:MacPerl :lib"
Export PERL5LIB # The path to the MacPerl libraries
there.
When in MPW Shell check a successfull setting with
echo {PERL5LIB}
and whether this is really accessi
Hello Detlef,
>Till now, nobody depicted the necessity to me to
>upgrade to MacPerl 5.6.1.
Performance boost is one reason.
I experience 10 times faster ftp transfers!
Does this convince you?
Axel
Even Oracle doesn't provide an ODBC driver for classic MacOS. (!)
A choice would be to use DBI-proxy.
I have no idea whether this works but remember quite a lot
of traffic regarding this topic on this list. Just browse
the archive or test it yourself.
Kind regards,
Axel
Hello,
is this the proper way to disable MacPerl menus (here the
File menu) of MacPerl itself during runtime?
use Mac::Menus;
use Mac::Events;
my $menu = GetMenu 129;
DisableItem $menu;
pause( 10 );
EnableItem $menu;
exit;
sub pause {
my ($time) = @_;
my $start = time;
WaitNextEvent
thanks for the info, it wouldn't matter much
but
DisableItem $menu;
sleep( 5 );
behaves strange to me.
The menu is only disabled after the sleep() returns.
Is this correct?
Axel
Hello all,
I think that nobody in the moment is willing to invest programming
effort to improve the editor. This is understandable because it
can become a neverending job. You would need to have good C
and Toolbox understanding I presume. To speak about myself
I forgot all I knew about this afte
Hello Bart,
well - your solution is of course very compact. I like it, really.
But on the other hand it is not very robust.
Just think of three files
### file t1.pm
package t1;
require "t2.pm";
1;
### file t2.pm
package t2;
require "t3.pm";
1;
### file t3.pm
package t3;
use Socket;
prin
Hello all,
here comes the next incarnation of the ModuleFinder I'm trying to build.
I'd love to hear your comments and bug reports.
For those who didn't got the last messages:
ModuleFinder collects all possible modules a script/module will need
at runtime. This is done by searching "use" and "re
sms Sherlock can use for a volume search.
Thanks for your time
Axel
---
Axel Rose, Springer & Jacoby Digital GmbH & Co. KG, mailto:[EMAIL PROTECTED]
"Ach, daß der Mensch so häufig irrt, und nie recht weiss, was kommen wird."
Hello all,
to avoid hundreds of MacPerl installations I'd like to utilize the
RuntimeBuilder mechanism.
(This is an old 1998 topic BTW)
It doesn't make a difference whether I use 5.20r4 or 5.6.1b1
The result of dropping a simple script onto RuntimeBuilder.dp
use Text::Wrap;
print "Hello W
Hello Keitarou,
I fixed RuntimeBuilder as well and sent a changed version to Chris.
Your attachement didn't get through the list.
Perhaps it's best if you send it directly to me.
All what's necessary is to merge them and find a common place
for accessing this.
Chris?
Axel
>If people have feelings about it one way or another, I'm all ears.
Make it 'R*ch' so I double-click and use the 'View POD' button in BBEdit...
No - seriously, keep it as it is. Most people I believe don't want to
see the .pm code but the module documentation.
Axel
:)
P.S.: What do you think
Hello all,
do you know a short way to check for a localized system?
I could of course check the 'vers' resource of the System file
but try to avoid the effort in the moment.
This:
#!perl
use Mac::Gestalt;
my $version = join '.', split //, sprintf "%x"
$Gestalt{gestaltSystemVersion()}
otherwise would involve manually bringing Macperl to front
# I use it here to enter @ARGV with MacPerl::Ask
# the results from a script are ouput in BBEdit
#
# Author: Axel Rose, December 2001
# inspired by the helpful team of Bare Bones, John Gruber
use Mac::Processes;
use Mac::Events;
my $bbedit
I experienced similar problems with smaller scripts.
Perhaps I can compile something for easy debugging.
Axel
The following program gives different results depending on whether
I save the source with Unix or Mac linebreaks.
I could well be the reason is a logic error of mine. I haven't checked
thoroughly.
BTW: I found the program very useful as a replacement for Unix "find".
Axel
---
#!/usr/local/bi
Unix:
>open(MAKE,">$dir/test.file");
Mac:
open( MAKE, ">$dir:test.file" )
better though:
use File::Spec;
my $testfile = File::Spec->catfile( $dir, "test.file" )
which is portable.
HTH
Axel.
Perhaps somebody knows this - how can I disable a menu completely?
With the following code I disable all entries within the "File" menu
but "File" itself remains active.
use Mac::Menus;
use Mac::Events;
my $menu = GetMenu 129;
print "disabling ...\n";
DisableItem $menu;
pause( 10 );
EnableIt
Um 11:03 Uhr -0500 19.12.2001, schrieb Morbus Iff:
>"Completely"? Will the menu *ever* be used
Never.
It's for standalone applications. The menu is MacPerl's File menu
and by disabling it I want to avoid a user quitting.
It works ok. with disabling all items. Just for clarity I'd like
to let the
A perfect solution for the moment I have just found is to
disable the menu with ResEdit.
Thanks for your time!
Axel
Hello menu controllers,
thanks for the hints. I found a solution now to disable
the MacPerl menus at runtime.
Your menu id checker doesn't give me the needed results though:
>use Mac::Menus;
>
> $~="OUT1";
> for $id (128..66000) {
> $menuHandle = GetMenuHandle($id);
> if($menuHandle) {
Hello Louis,
>my $a = /^dat.*\n #match 1st line
> (?s)#turn on . matching any char
> (.*?3)/x; #should match data 2 and 3
>print 'result: ',$a,', $1=',$1||'no match',"\n";
>1;
>__END__
>
>result: 1, $1=head 3
>
>I thought that '^dat.*\n' would match only the 1st
Hello,
I tried several ways to disable MacPerl's menus at runtime
which were already discussed in this list.
With the following script I'm partially successful.
File|New and File|Open is disabled. I cannot deactivate
Print and Save.
Edit is disabled completely. The "MacPerl" Window menu item
is
I think it has nothing to do with MacPerl directly.
It might be the installer program which doesn't run on your machine.
NavigationLib isn't usually installed as a seperate file but is
part of System. I don't know exactly but from 8.6 on it should
be integrated.
Search for "NavigationLib" and "in
You don't need to configure MacPerl. Just download the latest
installer. All modules you mention should be accessible with
MacPerl 5.6.1bx
For more help you need to provide more info. (MacOS version,
MacPerl version, your Perl script, error messages).
good luck,
Axel.
New 5.6 syntax
our $foo;
could work as well. I haven't tested it.
Regards,
Axel
rent working directory
examples:
-f pl\$ -p (?i)example /tmp
-f pl\$ Macintosh HD:my projects:
eom
exit 1;
}
__END__
=head1 NAME
walktree-finder.pl - portable find replacement
=head1 SYNOPSIS
all arguments are optional
default filter is undef
default prune is undef
defaults search directory is current working directory
examples:
-f pl$ -p (?i)example /tmp
on Macs:
-f pl$ Macintosh HD:my projects:
or build a droplet and drop a folder onto it
=head1 DESCRIPTION
Demonstration of OO techniques, replacement of File::Find for shortness and
flexibility.
WalkTree was taken from "The Idendity Function" slides provided by Mark-Jason Dominus
at
http://www.plover.com/~mjd/
=head1 BUGS/TODO
=head1 AUTHOR
Axel Rose, Winter 2001
=head1 VERSION
$Id$
=cut
Hello all,
I finished a tool I often need - find files or dirs with Perl regexp
filters.
If you're interested see http://perlmonks.org/index.pl?node_id=141931
You can run it directly from MacPerl, BBEdit or build your own
droplet.
I'd love to hear comments because it is my first OO design.
B
Hello Keary,
depending on the class structure you use
http://search.cpan.org/doc/DCONWAY/NEXT-0.50/lib/NEXT.pm
might be the best solution.
Axel
Um 19:35 Uhr -0700 04.02.2002, schrieb Keary Suska:
>Does anyone know, with perl's garbage collection, is there any order that
>DESTROY is called wh
> Thanks, but I need something that destroys in reverse order, i.e.
> child-first.
Hello Keary,
I read up a bit in (the most brilliant) OO Perl book
You could
1) call the base class' destructor yourself
package subsubclass;
sub DESTROY {
my $self = shift;
$self->subclass::DESTROY();
$self
Um 17:03 Uhr -0700 05.02.2002, schrieb Keary Suska:
>In general, what is the needd for the additional subclass
You don't need an additional subclass. I just assumed you had one.
>and how would it be constructed such that its destructor is always called first?
I think this is up to your program
Timothy wrote:
>"padnum" is a routine I created to put in initial zeroes. (Yes, I'm sure that there
>is a more efficient way to do it.)
>
>sub padnum {
> # pad number with initial zeroes if less than specified digits (default 2)
> my ($num,$digits) = @_;
> $num += 0;
> if ( $digits == 0 )
;
}
elsif ( !$inparam and !$fileparam ) {
$return[$param] .= $_;
$fileparam = 1;
}
else {
warn "internal logic error\n";
}
}
$return[-1] =~ s/^\s+//;
return \@return;
}
__END__
--
---
I just found out that my command line extra to perltidy failes
if there is more than one switch. Please don't complain.
I'm happy about corrections to my code :)
Axel
I can give you only a short sketch.
Say you have an URL which when requested returns HTML code containing
25 other links. This could be done with LWP. If you have MacPerl 5.6.1b_
then open the file "lwpcook.pod" with Shuck and learn the basics.
I would then extract links and store them in an arr
Hello all,
Steve Hancock, author of perltidy, was very nice and incorporated as well
as improved my suggestions to make perltidy work under MacPerl.
For those who don't know it is an ideal tool to reformat your Perl
source code, html-ify it, all with flexible user settings. It can
be very helpfu
the file is opened from MacPerl.
I'm back at work at the end of next week - perhaps I can reproduce
your special problem then.
Best regards,
Axel
--
------
Axel Rose, Springer & Jacoby Digital GmbH & Co. KG, mailto:[EMAIL
cess, including with RuntimeBuilder, but no complete solution
>has been completed at this time.
--
--
Axel Rose, Springer & Jacoby Digital GmbH & Co. KG, mailto:[EMAIL PROTECTED]
pub PGP key 1024/A21CB825 E0E4 BC69
Sorry for the really late response.
I checked this problem again running from a Mac hard disk and
from an EtherShare volume, no difference.
Um 10:37 Uhr +0100 04.03.2002, schrieb Beat Pfister:
>I tried to edit postscript files with perl, but no I reconiced that perl
>changes the line ending char
Hello Katherine,
I guess you have to configure WebSTAR to not touch incoming files.
Net::FTP works perfectly. I do this very often but to different
servers.
Contact me privately and I can give you a login to my WebSTAR
server to check.
Axel
At 14:37 Uhr +0100 06.05.2002, Alan Fry wrote:
>open(IN, $f);
Problem 1:
open() failes if a filename contains spaces. This is a very
common problem. Even Net::FTP didn't work.
Everybody opening files from the Desktop has to make this
experience.
>my $info_start = index($str, "$info_block 0 obj"
Hello Morbus,
I will see if I can build amphetadesk with my latest version
of standalone builder and report here.
I fear the lot of questions users might have because of dynamic
module loading like
require $module
Those situations cannot be solved.
For the moment I'm happy to help everybody d
Can anybody confirm this:
within the debugger (520r1, 561r1)
x $1
p $1
print $1
don't show the value of $1 after a match in debugger.
main::(Dev:Pseudo:1): 1;
DB<1> $x = "blah"
DB<2> $x =~ /([la])/
DB<3> x $1
0 undef
DB<4> p $1
DB<5> if( $x =~ /([la])/ ) { print "matched: $
Hi Ronalds,
thanks for the quick answer.
Is there any workaround?
I would simply love to have the ability to debug regular expressions
interactively.
I tried:
DB<10> ;{$x="blah"; $x =~ /(a)/; print $1}
but this also doesn't seem to work.
Thanks,
Axel
>The special regex variables are always
Hello,
has anyone a script ready which kills the resource fork from a
file?
I work with MacCVS and wanted to commit a Photoshop TIFF but
because of the preview in the resource fork it was added binhex
encoded.
A small MacPerl droplet would be perfect for this task.
Thanks,
Axel
Um 7:07 Uhr -0400 31.05.2002, schrieb Morbus Iff:
>Would a file copy do it?
Yes, it would do it.
I didn't know that File::Copy::copy() ignores the Mac resource fork. (??)
Axel
>That works for me...
>...
>What result did you get?
The same result. I meant I don't get the output within the
debug window but in the normal MacPerl window. This forces
me to use the mouse which I don't like in debugging sessions.
Would the "readline" support you mentions also work in the
MacP
Um 11:29 Uhr -0500 31.05.2002, schrieb Alex Harper:
>Does it have to be Perl?
Certainly :)
ResFork Killer is only a demo.
I'll try a solution myself as soon as the need arises again.
Thanks for your reply,
Axel
I wrote myself:
>ResFork Killer is only a demo.
Oh dear, I can't read. It is not a demo, but a wonderful
little utility.
Sorry for the noise but the list is anyway a bit quite :)
Over now
Axel
Please find attached a character set conversion module.
It works like this:
use trans_charset;
my $t = trans_charset->new;
my $data = "äöüÄÖÜß and more funny chars";
my $output = $t->fromto(
from => "mac", to => "latin1" );
Optionally you can supply a single replacement character or a
>Eh... so where does $data fit in?
Oops, the module documentation shows it ...
my $output = $t->fromto( $data, from => "mac" ...
I simply mixed up 1250 with 1252. The advantage of my module
is to easily add further Unicode map files.
I'll send an update to anybody interested.
Axel
Second try ...
I changed CP1250 to CP1252. (My mistake because I'm more used to
ISO-8859-1/15, rather than MS "codepages")
Usage summary:
use trans_charset;
my $data = "äöüÄÖÜß and more funny chars: Þ ";
my $output = $t->fromto(
$data,
from => "mac", to => "cp1252",
replacement => { chr(
I experience error 2 crashes with my downloader program.
Excerpts from MacsBug StdLog:
PowerPC unmapped memory exception at 33026678 Perl_free_tmps+00030
11-Sep-2002 4:29:28 PM (since boot = 21 hours, 28 minutes)
Current application is "Downloader"
Machine = #406 (NewWorldMac), System $0
Um 11:00 Uhr -0400 11.09.2002, schrieb Chris Nandor:
>What downloader program?
We had some disussion about this program before. Essentially it
gets files through ftp.
I need some more time to isolate the problem but presumably it is
the same alarm/timeout problem I suffered from under 561b1..3.
Hello all,
in March there was a discussion here about MacPerl runtimes under MacOS X.
MacPerl starts but the TEXT resource 128 script won't be run.
The conclusion was to either have some patch for a dummy event (?)
or wait for AppleScript 1.8.2 and MacOS X.
The problem gets worse the faster the
> Mac OS 9.2.2 and Mac OS X 10.2. What version of MacPerl?
I tested with 5.6.1r1 and r2prerelease.
This is what happens:
I boot into 10.2 and double click the droplet.
Nothing is run, MacPerl r2pre is just ready for editing and starting
of scripts. Selecting a script and running works as expec
>Is MacPerl running before you open the droplet?
No. If it was run before all works well.
>What about Classic itself?
It is prestarted.
>And did you run the same test in 9.2.2?
Yes -- no hassle there.
Axel
> in the meantime I've sent you a copy of our modified MacPerl
>built with the patch. If it works for you then at least we know its
>the same problem.
Thanks a lot for the overwhelming speed here.
Yes!
It seems to be the very same problem. The patched version from Alex
works at once. It make
>I was thinking that 10.2 has AppleScript 1.9, but 9.2.2
>for Classic needs 1.8.3. Axel, can you check that too?
"AppleScript" get info dialog shows:
Classic Compatibility Environment 1.7
Build: 10th of Sep (my first start of MacOS X 10.2 here?)
Version: D1-1.8.3
Axel
my $test = <
$ perl -le 'print STDERR ~~ localtime time' 2>&1 | tee stderr.log
Sun Oct 20 15:32:52 2002
$ cat stderr.log
Sun Oct 20 15:32:52 2002
(using a bash)
HTH,
Axel.
Hello all,
I found some time to experiment with ToolServer and found
some difficulties with Mac chars.
Starting with this little test script under MacPerl:
#!perl -lw
use strict;
print `Echo {MPW}`;
print `Echo {Shuck}`;
print grep {/This is perl/} qx{perl -v};
print qx{perl -e "print 22/7"
>print qx{perl -e "print \@INC"};
Thanks for your help. I couldn't see the simple ...
Another question arose for spitting out newlines. Is
the following the only solution?
print qx{perl -e "print join( \xb6"\\n\xb6", \@INC )"};
(copy MPW:Startup Items:Perl to MPW:TS Startup Items: to have
a
>I've seen it happen in the MacOS Classic environment in System X.1.2, too.
That is reproducible and known to me for a long time.
Droplets or runtimes won't start their work if launched under MacOS X.
A few threads discussed this here. Alex Harper has sent a patched version
of 5.6.1r1 which remedi
>Also note the single quotes around $file in the method call. Could that
>be it, or is this a case of badly typed over code?
Mea culpa. Only for experiments I used the extra single quotes.
Chris suggestion to patch momentarily to open( $file, O_RDONLY )
works perfectly though I had to change it i
Just a general advice:
Remove MacPerl Preferences, watch out for different MacPerl
versions. Rebuild the desktop. Check AppleScript version.
Axel
a skeleton solution for your problem might be:
#!perl
use warnings;
use strict;
use File::Find;
my $startfolder = $ARGV[0] or die "no startfolder\n";
my @files;
find( \&macfind, $startfolder );
print "found: $_\n" for ( @files );
sub macfind {
my $file = $File::Find::name;
push( @files, $fil
> It would be very helpful at this stage to compile a 'wish list'.
> Contributions would be most welcome.
as a minimum
- DEL key should work
- TAB should be better visible
but overall
The BBEdit integration of MacPerl is really superb.
If this is available in the free light version I don't see
>#!/usr/bin/perl
>
>use strict
>
>my $owner = 'Elizabeth';
>my $dog = 'Rex';
>my $amount = '12.5';
>my $what = 'dog food';
>
>print "${owner}'s dog, $dog, ate $amount pounds of $what.\n";
The semicolon ";" is missing right after "use strict".
BTW, always run with warnings, i.e.
#!/usr/bin/perl -
Have look at
http://www.pdflib.com/
Its a general library which has bindings for C, C++, Java, ... and
Perl.
I tested under MacPerl and it works fine.
A sample of mine follows below.
Note that a new version is arriving which has the very nice feature
to have a PDF template file where you can ju
I think you have to manually copy the library file "pdflib_pl"
into lib:MacPPC or site_lib:MacPPC. The file "pdflib.upr"
should be there as well.
Don't hesitate to contact the author though :)
Axel
> > Have look at
>> http://www.pdflib.com/
>>
>> Its a general library which has bindings for C
Hello,
I'm a bit desperate while trying to change the 'SIZE' resource
from a MacPerl script.
The problem is more MacOS specific I assume than MacPerlish.
I can sucessfully get the resource values and manipulate them
but in the end the Finder Info does sometimes and sometimes
doesn't reflect thos
Hi Charles,
thank you for answering.
You are right, IM exactly says so about SIZE -1.
But the 'SIZE' resource there just gives a way to
set mininum and preferred memory sizes, doesn't it.
I thought I could set maximum size as well.
I suppose the next try will be to set it via Finder
Apple Events
82 matches
Mail list logo
