Re: Help with find text command
Re: Help with find text command
- Subject: Re: Help with find text command
- From: "Mark J. Reed" <email@hidden>
- Date: Sat, 4 Aug 2007 20:17:49 -0400
For the record, I think this is a silly exercise, but OK, Perl is attached.
Note that there are some weird artifacts in the HTML generated by your
Tcl (extraneous leading whitespace that comes from the formatting of
the Tcl code itself, for instance), but I managed to replicate all of
them in the Perl so the output file was exact. Times:
$ time perl perlisbn.pl
real 0m0.117s
user 0m0.110s
sys 0m0.006s
$ time tclsh tclisbn.tcl
real 0m0.609s
user 0m0.315s
sys 0m0.014s
$ diff ~/Desktop/ISBNTcl.html ~/Desktop/ISBNPerl.html
$
So the Perl is about 5x faster than the Tcl.
The attached has all the scripts plus two additional ones - isbn.pl
and isbn.tcl, which generate cleaner HTML.
Attachment:
TestISBN.zip
Description: Zip archive
_______________________________________________
Do not post admin requests to the list. They will be ignored.
AppleScript-Users mailing list (email@hidden)
Help/Unsubscribe/Update your Subscription:
Archives: http://lists.apple.com/archives/applescript-users
This email sent to email@hidden