FW: [MacPerl] MacPerl not waiting for AS?... and etiquette breach

["John-Michael Keyes" <jk@syndicatedmedia.com>]

Email client (or user) neglected to mail reply to list too. 

As an aside, macperl performance is wicked fast. 'bout a year ago was
talking to quark with applescript and it was painfully slow. Benchmarking a
pure applescript text extraction from quark was interesting. Pre 8.?
(Whichever made more applescript native) a 32 page tabloid was taking about
an hour and a half to crunch on a 7500. ('net-found scripts) Same script ran
in 53 minutes after the OS upgrade. Moved the processing and the sorting to
Macperl, and called just enough AS to get the data, and the script ran in
less than 11 minutes. (And does better headline to story matching and full
regex data scrub...  BTW The G3 does it in less than 3.)
----------

Dan,

Ran into issues while collecting quark text... Solved many by collecting
text one chunk at a time (May also help with text flow stuff)

$getstorycount=<<EOT;
tell front document of application "QuarkXPress®"
return count of stories
end tell
EOT

This one gives the "story" (text box) count... Then run through loop getting
each textbox, one at a time.

while (++$i < MacPerl::DoAppleScript($getstorycount))
 {
  my $getstory=<<EOT;
tell front document of application "QuarkXPress®"
 return story $i as text
end tell
EOT
 $story=MacPerl::DoAppleScript($getstory);
#then I assign $story to a hash and later print to file... or just print
story.
}

This is all snipped from an extraction gizmo that needed lots of tweaking...
associating headline text elements with corresponding stories, losing short
boxes, changing entities to html, etc.

If you're htmling, mail back and I'll send the character to entity regex and
sub routine that will save you thirty minutes of hell.

JMK


----------
>From: "Dan Gjøske Petersen" <webmaster@continental.dk>
>To: macperl@macperl.org
>Subject: [MacPerl] MacPerl not waiting for AS?
>Date: Dec 10, 1999, 2:29 AM
>

> I have a script that is supposed to analyse text from a Quark document. In
> order to get my hands (or rather MacPerls hands) on the text in the first
> place, I run a little AppleScript right from the start of the script. It
> simply collects the combined stories of the Quark document and returns them
> to a scalar in MacPerl.
> This works fine for smaller docs, but when I tried it on a 64 page doc with
> some 15.000 words, MacPerl dropped dead in the middle of the process.
>
> Later I tested the AS from the Script Editor and it turned out that it
> needed about 80 seconds to collect the stories.
> Could this be the problem? And is there a way to deal with it?
>
> Regards,
> dan
> _____________________________________________________________________
> Dan Gjøske Petersen
> webmaster@continental.dk
>
> # ===== Want to unsubscribe from this list?
> # ===== Send mail with body "unsubscribe" to macperl-request@macperl.org
>

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