Re: Module Aspell::Text does not install
On Tue, Dec 12, 2006 at 10:46:46PM +0100, Marek Stepanek wrote: > t/05-coreNOK 4/17 > # Failed test 'Make sure word "test" is in dictionary' > # at t/05-core.t line 37. > # > > # * Error: No word lists can be found for the language "en_US". > # * > # * Are you sure you have the Aspell en_US dictionary installed? This is your hint. You have aspell installed but no dictionaries. since you are refering to /sw, i assume you have used fink to install aspell. From the fink website: Package aspell ... Description: Spell checker better than ispell No dictionaries are installed - you'll need to install the aspell-en package or another aspell dictionary. Dictionaries that were used on previous versions of aspell must be updated to work with this version. You need to install the package aspell-en. rick
Re: psync backup problems: suggestions?
On Sun, Jul 10, 2005 at 09:39:03PM -0700, Randal L. Schwartz wrote: > >>>>> "Christopher" == Christopher D Lewis <[EMAIL PROTECTED]> writes: > > Christopher> Dear psync users, > > This may not help, but I'm about to be a former psync user, because > Tiger's "rsync" now understands the HFS fork, if you include -E. This > presumably also includes the extended-access lists which psync won't > handle. Note that there is a known problem with rsync on tiger and large files. I tries switching my backup regimen to rsync but had to switch back to psync due to the crashes. rick
Re: ANN: ShuX 3.0-beta2
On Fri, Mar 25, 2005 at 03:10:29PM -0500, Sherm Pendley wrote: > On Mar 25, 2005, at 3:05 PM, Sherm Pendley wrote: > >The latest release of ShuX, 3.0.beta2, is available for download at: The new perl... button works much better. One new problem though: If any field in a Document Set is left blank, that top-level node in the DocSet Browser becomes a file system browser anchored at '/'! I think it would be better if the top-level entries either did nothing or (my preference) removed from the browser entirely if not set. rick
Re: New to list, greetings and a (newbie)problem
On Dec 22, 2004, at 12:53 PM, Isaac Sherman wrote: I'm new to this list, and I am new to Perl as well. Isaac, just judging from your problem, it appears that you're probably a bit new to all things Unix as well (not trying to sound condescending, just an observation.) I got on OS X for the first time two years ago and that's about where I was so I can relate to what you're going through. I had lots of programming experience, had perl experience (via MacPerl), was a long time user of the classic Mac OS, and had a faint smattering of Unix know-how, but I kept running into odd frustrations like what you describe too because I didn't totally understand the whole Unix thing. Now I do and it's like a whole other world (well... it is, but anyway.) My advice--if my assumption is correct--would be to seek out a few Unix books. I bought a couple of old Unix beginner books from secondhand stores and they proved to be worth every penny. Even outdated books on the topic are fine, anything to get your head around the whole concept of what's going on and how things like perl interact with the command line and whatnot. I'm still amazed at how powerful it all is and how I literally could not do my current job without the sort of understanding that I have now. It pays off in ways you simply cannot imagine. --Rick Anderson "The only difference between me and a madman, is that I am not mad." -- Salvador Dali
Re: BBEdit 8.0
On Sep 9, 2004, at 5:41 PM, Ian Ragsdale wrote: Effortless & transparent handling & switching of line endings. It's the little things that matter, isn't it? You'd almost be able to write-off this feature as trivial until you start dealing with the hassles that line endings from different platforms can cause. Developing in a mixed platform environment can be a real nightmare. I do all my Perl scripting in BBEdit on OS X, almost exclusively, primarily to avoid issues with line endings. My boss works on a Windows machine and occasionally has to alter my scripts there (or data files associated with them) forgetting sometimes that Notepad will change the line breaks to DOS style which causes the script to fail online. He occasionally comments that he wishes there were something on Windows like BBEdit. I've done a lot of searching and a lot of asking around, but have yet to find such a thing. Is there a text editor (preferably something simple) on Windows that allows you to deal with line breaks the way BBEdit does? --Rick Anderson "The only difference between me and a madman, is that I am not mad." -- Salvador Dali
Re: Mac::Glue finder physical size
On 31 Aug 2004, at 12:12 PM, Paul McCann wrote: You need to add a ->get after the prop(). Strangely enough I saw this by googling on "Mac::Glue physical_size", and the only thing whacked (modulo "close relatives") was your post of 18th March, containing the vital "get". So you want... LOL .. thanks Paul! Senior Developer PrintSupply - Print Procurement & Supply Management 18 Greenaway Street VIC 3105 Tel: (03) 9850 3255 Fx: (03) 9850 3277 http://www.printsupply.com.au/
Re: Time::Local problem
On 31 Aug 2004, at 12:09 PM, Sherm Pendley wrote: Great - so now our ancestors have to deal with the Y4G bug? ;-) LOL .. no .. unless you continue to abbreviate. The dates will range from 1-01-01 to 1-12-31 and 2004 will mean 2004 not 12004. Cheers! Rick (They're your decedents by the way, your ancestors have stopped counting) Senior Developer PrintSupply - Print Procurement & Supply Management 18 Greenaway Street VIC 3105 Tel: (03) 9850 3255 Fx: (03) 9850 3277 http://www.printsupply.com.au/
Mac::Glue finder physical size
From previous posts (ages ago) I thought the following code should return the physical size of the folder in question. However getting ->prop() just returns the $obj for some reason. What am I doing wrong? Cheers! Rick use Data::Dumper; use Mac::Glue; my $finder = new Mac::Glue 'Finder'; my $obj = $finder->obj(folder => "/Volumes/2004-07\ July/Some\ Folder"); my $size = $obj->prop('physical_size'); print Dumper $size; __END__ Senior Developer PrintSupply - Print Procurement & Supply Management 18 Greenaway Street VIC 3105 Tel: (03) 9850 3255 Fx: (03) 9850 3277 http://www.printsupply.com.au/
Re: Time::Local problem
On 30 Aug 2004, at 8:15 PM, David Ledger wrote: Can anyone explain the following? (the difference in commands is the year spec.) [EMAIL PROTECTED]: perl -e 'use Time::Local;print ( (localtime(timelocal(0, 0, 0, 1, 1, 55)))[6], "\n");' 2 [EMAIL PROTECTED]: perl -e 'use Time::Local;print ( (localtime(timelocal(0, 0, 0, 1, 1, 54)))[6], "\n");' Cannot handle date (0, 0, 0, 1, 1, 2054) at -e line 1 [EMAIL PROTECTED]: All years I've tried > 55 are Ok; all years I've tried < 54 fail. As Sherm has pointed out, it's due to the two-digit year wrap around. (Remember the so-called Millennium bug? That's what you're perpetuating in the above code) Your best bet for anything to do with dates and times is to use the DateTime modules. They work on all platforms and comprehensively handle any date and time you can throw at it (right up to $MAXINT-12-31). They handle localization and know all current and historic DST rules back to 1972. Cheers! Rick Measham (disclaimer: I have developed some of the DateTime modules) Senior Developer PrintSupply - Print Procurement & Supply Management 18 Greenaway Street VIC 3105 Tel: (03) 9850 3255 Fx: (03) 9850 3277 http://www.printsupply.com.au/
Re: PerlObjects and OutlineView problems
On Tue, Aug 24, 2004 at 07:03:30AM -0400, Sherm Pendley wrote: > On Aug 23, 2004, at 5:15 PM, Rick Frankel wrote: > Short answer: Perl objects can't be used as outline objects. > > Long answer: When you pass a Perl object to a Cocoa method, a ObjC > stand-in is created, but not retained. Ordinarily, if the receiving > object needs access to it later, it retains the passed-in object. > NSOutlineView doesn't follow this "cardinal rule" of Cocoa memory > management - it needs to access the same objects at a later time, but > it doesn't retain them itself. > Thanks. The long answer is what I was looking for. Is it possible to instantiate proxy objects (of type NSObject?) in perl and assign them references to the perl objects which can be dereferenced in the callbacks, or do I have to either use an NSDictionary as in the OutlineView example or use e.g, NSStrings containing a key (path) to the perl object stored in an instance variable? It's funny that everything but the deferencing the current row (including the edit callbacks) "seem" to work properly. rick
Re: Non-modal NSOpenPanel
On Tue, Aug 24, 2004 at 06:35:09AM -0400, Sherm Pendley wrote: > On Aug 22, 2004, at 11:16 AM, Rick Frankel wrote: > > >I am trying to open a non-modal NSOpenPanel. As a simple test, I > >modified the CamelBones FileViewer: > > > >$openPanel- > >>beginForDirectory_file_types_modelessDelegate_didEndSelector_contextIn > >fo( > >$self->{'_openPath'}, '', $fileTypes, $self, > >'openPanelDidEnd:returnCode:contextInfo:', undef > >); > > Have you tried passing undef as the 'file' argument? The docs say that > it should either be the filename that is selected by default, or nil. > An empty string is passed as exactly that, an NSString object with a > length of zero; to pass nil, pass undef from Perl. Yes, same results. The empty string is how the FileViewer example is written and I was trying to make as few changes as possible. However, I have found a solution: $openPanel->runModalForTypes($fileTypes); print STDERR "open: ",$openPanel->filename,"\n"; works. thanx, rick
PerlObjects and OutlineView problems
I have created an outline field w/ perl objects as the items. Everything works ok until I dereference the items in either a doubleClick (as in the OutlineView example) or via itemAtRow, at which point the item is corrupted (the objectForItem value is blanked out and a "Bizarre copy of CODE" error is thrown the next time the item is requested in the objectValeForTableColumn selector. If I do a $sender->reloadData in the selector everything is fine, but of course this collapses the outline and looses the selection. Is this a bug or is there a fundamental reason why perl objects can't be used as outline items? tia, rick
Non-modal NSOpenPanel
Sherm- I managed to send this message to the list buried in a reply to a previous message (forgot to change the subject), so to avoid looking like a complete noobie I'm sending it to you directly. I am trying to open a non-modal NSOpenPanel. As a simple test, I modified the CamelBones FileViewer: $openPanel->beginForDirectory_file_types_modelessDelegate_didEndSelector_contextInfo( $self->{'_openPath'}, '', $fileTypes, $self, 'openPanelDidEnd:returnCode:contextInfo:', undef ); When invoked, the panel flashes on screen and disappears. It does not invoke the end selector. Is this a bug in my understanding/implementation or camelbones? or is something else broken? (FWIW, OSX 1.3.5) tia, rick
Re: Windows and Camelbones
This is probably for Sherm- I am trying to open a non-modal NSOpenPanel. As a simple test, I modified the CamelBones FileViewer: $openPanel->beginForDirectory_file_types_modelessDelegate_didEndSelector_contextInfo( $self->{'_openPath'}, '', $fileTypes, $self, 'openPanelDidEnd:returnCode:contextInfo:', undef ); When invoked, the panel flashes on screen and disappears. It does not invoke the end selector. Is this a bug in my understanding/implementation or camelbones? or is something else broken (FWIW, OSX 1.3.5) tia, rick
Re: PDF::API
Nelius, This post belongs on the [EMAIL PROTECTED] list rather than the Mac OS-X Perl list. I've cross posted it there and would suggest that you subscribe to that list for all your PDF::API2 help. It's an active and helpful list. You need to be calling the methods on objects and not on their class. Once you open the PDF, you need to add the page to it rather than just adding a page to ... a class. The following code (from my head so it could be wrong) demonstrates how you'd do it: my $pdf = PDF::API2->open( $path_to_pdf ); # Open a PDF my $page = $pdf->page( $pdf->pages ); # Add a page at the end $page->do_something() # Do stuff to the page If there's any PDF::API2ers reading this, feel free to correct my code. Cheers! Rick On 15 Jun 2004, at 7:08 AM, Nelius Bresnan wrote: I'm a Perl novice using the PDF::API package to add stuff to the end of a PDF file. I've RTFMed, I've googled this and I even tried emailing the author but I'm totally stuck. I want to use the method PDF::API2::PDF::Page->add($str). At first I tried PDF::API2->page($index). This inserts-and-returns a new page at $index and it works fine. However an attempt to use $page->add($str) gets the error message: Can't locate object method "add" via package "PDF::API2::Page" So it seems that the scalar returned by PDF::API2->page is not the same kind of object that PDF::API2::PDF::Page->add is supposed to be called on. This surprised me - I expected both 'page' objects to be the same type. But I checked and there is a file /Library/Perl/5.8.1/PDF/API2/Page.pm and also a file /Library/Perl/5.8.1/PDF/API2/pdf/Page.pm so it would appear there are in fact two different kind of page objects. And AFAICT I need the other one. So I tried to create a scalar of type PDF::API2::PDF::Page using its constructor. But to create that I need an object of type PDF::API2::PDF::Pages to base it on. The constructor for Pages is PDF::API2::PDF::Pages->new($pdfs,$parent). But the explanation (http://cpan.uwinnipeg.ca/htdocs/PDF-API2/PDF/API2/PDF/Pages.html) of the parameters needed for $pdfs and $parent aren't explicit enough for a Perl novice like myself. It says that $parent should point at the file context if we're trying to create a root node. And I think thats what I need to do to add pages onto the end of the PDF file. I know enough Perl to know that contexts are very important in Perl. So I looked it up in three different manuals but none of them make any reference to a file context. So I'm assuming that context isn't being using in the canonical sense here and that the author simply means a file pointer of some kind. So I've supplied the $pdf scalar that was returned from PDF::API2->open('aPDFfile.pdf'). The pod says that "$pdfs is the file object (or objects) in which to create the new Pages object." I'm not sure precisely what it means by that but I think its that this is the file that it'll output to. I want it to output to the same file so I've provided the same $pdf value again. So my attempted construction of a 'pages' object looks like this: my $pages = PDF::API2::PDF::Pages->new($pdf, $pdf); when I run it it craps out giving the message: Can't locate object method "new_obj" via package "PDF::API2" at /Library/Perl/5.8.1/PDF/API2/PDF/Pages.pm line 68. I had a look at the line in question and its pretty hairy stuff. I think its doing something about creating a file outputstream or something like that. It's expecting that there will be a pointer to an object in $_ and I think its the wrong kind of object and consequently it can't find the method. But I'm (way) out of my depth. I think my problem is that my providing the wrong parameters to PDF::API2::PDF::Pages->new. But I just can't understand what I should be giving it. The POD comments are too vague for me. I don't get what I should be providing to it. thank you. Nelius Bresnan. Senior Developer PrintSupply - Print Procurement & Supply Management 18 Greenaway Street VIC 3105 Tel: (03) 9850 3255 Fx: (03) 9850 3277 http://www.printsupply.com.au/
Re: CPAN Question
G'day Timothy, You're missing the perl headers. These are installed when you install the developers tools (which came with your OS or are available freely from Apple's website) I can't remember which package in particular you need, if you can't work it out and don't want to just install everything off the disk, I'm sure someone else will chip in shortly with exactly which package it is. Cheers! Rick Measham On 28 May 2004, at 11:55 AM, Timothy Bailey wrote: I've been playing around with CPAN, to get some modules installed. Unfortunately, something seems to be not working. Perhaps it was because I tried to install LWP before its dependencies. Or it could be that the CPAN update failed. But anyway, the "make" section is failing. Any ideas how I can fix it? Here is an excerpt: Error: Unable to locate installed Perl libraries or Perl source code. It is recommended that you install perl in a standard location before building extensions. Some precompiled versions of perl do not contain these header files, so you cannot build extensions. In such a case, please build and install your perl from a fresh perl distribution. It usually solves this kind of problem. (You get this message, because MakeMaker could not find "/System/Library/Perl/darwin/CORE/perl.h") That particular file does not seem to exist. So maybe there's some setting I need to change. And make returns status 512 often. Whatever that means. ;) -- Tim Bailey |\/ "Of all tyrannies, a tyranny exercised for the [EMAIL PROTECTED]|\/ good of its victims may be the most oppressive. [EMAIL PROTECTED] | It may be better to live under robber barons http://www.moonrise.org than under omnipotent moral busybodies. --'--,--<@ The robber baron's cruelty may sometimes sleep, his cupidity may at some point be satiated; but those who torment us for our own good will torment us without end, for they do so with the approval of their own conscience." -- C.S. Lewis Senior Developer PrintSupply - Print Procurement & Supply Management 18 Greenaway Street VIC 3105 Tel: (03) 9850 3255 Fx: (03) 9850 3277 http://www.printsupply.com.au/
Re: Off topic posts (was Re: passing a function and then calling the function with parameters)
On 20 May 2004, at 1:57 AM, Joseph Alotta wrote: Yeah, I remember helping you with something to do with making backups of files. I guess that had a lot to do with OSX. From the archives, it was you who asked about backing up files- 2004-05-01 - backing up system The threads I've initiated are: 2004-03-05 - Urgent: Turning a script into a droplet 2004-03-16 - Getting the size of a folder with Mac::Glue 2004-04-01 - Mac::Glue and OmniGraffle All of which are directly OS-X related. The reason I ask you to post your non perl-on-OS-X questions to a forum better suited to them (such as PerlMonks) is not so I don't have to read them. I read most posts to PerlMonks. The main reason is that if we put general perl questions in this list then finding answers becomes harder still without asking again. If I'm looking for answers to a perl question, I'll search PerlMonks. If I have an issue with perl on OS-X then I search this list's archive. When a post arrives in this list's inbox then I assume I'll be reading and learning about something related directly to perl on OS-X. Sorry to get your back up. I hope my explanation helps. Cheers! Rick Measham Senior Developer PrintSupply - Print Procurement & Supply Management 18 Greenaway Street VIC 3105 Tel: (03) 9850 3255 Fx: (03) 9850 3277 http://www.printsupply.com.au/
Re: passing a function and then calling the function with parameters
On 19 May 2004, at 4:58 AM, Joseph Alotta wrote: I am writing a solving function. You pass it the name of a function and it calls the functions many times until it finds the value that returns zero. How would this be set up? Excuse me for being a party pooper, but this really has nothing to do with Perl on OS-X. There are better forums for this, including PerlMonks.org where you will find a lot more experts and perl gurus than read this list. (Not to say noone reading this is such a person, just that this is the OS-X list) Cheers! Rick Measham Senior Developer PrintSupply - Print Procurement & Supply Management 18 Greenaway Street VIC 3105 Tel: (03) 9850 3255 Fx: (03) 9850 3277 http://www.printsupply.com.au/
Re: seperate file
On 30 Apr 2004, at 12:20 AM, zunsheng Jiao wrote: Hi all, I'm new on perl. I need to separate a huge file to small files. It has three columns. If first column is a number , use this number as a file name (i. e., 260.dat and 300.dat for following sample), and then writing column 2 and columns 3 to this file. Following is a sample such file: 26005000 205300 405500 806000 1005500 300 05100 205200 405500 805600 1005800 Please help. John If your data is tab delimited the following will work. If not the split line needs to be changed depending on how your data is arranged. # Go through each line of the data foreach $line() { # Split the line at whitespace my ($file, $col1, $col2) = split(/\s+/,$line); # If there's something in the $file column, it's a new file if ($file) { # close the current file (but don't die if there is none) eval{ close(FILE) }; # open the new file or die if we can't open(FILE, ">/Users/rickm/Desktop/test/$file.dat") or die("I can't open $file.dat: $!"); } # Write the data to the file print FILE $col1 . "\t" . $col2 . "\n"; } # close the latest file: eval{ close(FILE) }; __DATA__ 260 0 5000 205300 405500 806000 1005500 300 05100 205200 405500 805600 1005800 Senior Developer PrintSupply - Print Procurement & Supply Management 18 Greenaway Street VIC 3105 Tel: (03) 9850 3255 Fx: (03) 9850 3277 http://www.printsupply.com.au/
macosx@perl.org
unsubscribe
Re: Merging into Address Book
On Tue, Apr 20, 2004 at 10:50:01PM -0500, Ken Williams wrote: > Say, I built the Address_Book glue and looked through its docs, but I > don't see methods to search the database for entries that have certain > properties. Do you know of any way to use the "Find" functionality, or > specify required properties, using the applescript/glue interface? Here's the script I use for querying my addressbook from mutt. The output format is specific to the mutt interface, but the commented out section shows how to get the address info. rick cut here --- #!/usr/local/bin/perl use Mac::Glue qw(:glue); use Mac::Apps::Launch; my $glue=Mac::Glue->new('Address Book',bundle=>'com.apple.AddressBook'); my $id=$glue->{ID}; if(!IsRunning($id)) { LaunchApps($glue->{ID}) or die $^E; $glue->close($glue->prop('window')) or warn $^E; } my $q=shift; print "Querying AddressBook...\n"; my @people=$glue->obj('people')->get; foreach my $entry (@people) { my @emails=$entry->prop('email')->get; next unless @emails; foreach my $email (@emails) { my $addr=$email->prop('value')->get; my $name=$entry->prop('name')->get; print "$addr\t$name\t",$email->prop('label')->get,"\n" if $name =~ /$q/ || $addr =~ /$q/; } #my($addr)=$entry->prop('address')->get; #next unless $addr; #print $addr->prop('street')->get,"\n"; #print $addr->prop('city')->get," "; #print $addr->prop('state')->get," "; #print $addr->prop('zip')->get,"\n"; } exit 0;
Mac::Glue and OmniGraffle
1. Product plug (sorry Merlyn) - OmniGraffle is by far the best development-planning tool I've ever seen. Love it. 2. I'm trying to perl + Mac::Glue it, but after reading through the OmniGraffle.pod and Mac::Glue I'm still lost. The following applescript works: tell front document of application "OmniGraffl" tell page 1 make new shape at beginning of graphics with properties {text:{alignment:left, text:field}, origin:{20, ypos}, size:{150, 20}, magnets:{{-1, 0}, {1, 0}}} end tell end tell However, I can't work out the Mac::Glue for the same. I've tried many variation on the following but I'm still lost. I've also looked through the archives for an example of a $obj->make but all the examples appear to be aimed at retrieving data rather than creating 'things'. use Mac::Glue; my $OmniGraffle = new Mac::Glue 'OmniGraffle'; my $chart = $OmniGraffle->obj(document => 1, page => 1); $chart->make( new => 'shape', # $chart->obj('shape')) at => Mac::Glue::location(before => $chart->obj('graphics')), with_properties => { origin => [20,20], size => [150, 20], text => { text=> 'Square' } }, ERRORS => \&error_handler, # error handler from the perl website article ); __END__ unfortunately, the error message isn't that helpful .. OSA's fault I figure: they never make any sense! OmniGraffle->make(DOBJ, Mac::AEObjDesc=HASH(0xaf398c), new, shape, with_properties, HASH(0xaf3878), at, AEDesc=SCALAR(0xaf39bc)) event failed: dsLineFErr (10) line trap error
Re: Getting the size of a folder with Mac::Glue
On 18 Mar 2004, at 6:06 AM, Chris Nandor wrote: This works: my $obj = $finder->obj(folder => '/Users/pudge/Movies'); my $size = $finder->data_size($obj); Chris, what is the data_size? The correct size of the folder is (from Finder info) 8.6MB on disk (4,001,454 bytes) rickm% perl -e 'use Mac::Glue; $finder=new Mac::Glue "Finder"; print $finder->data_size( $finder->obj( folder => $ARGV[0] ) )' /path/to/folder 442 rickm% perl -e 'use Mac::Glue; $finder=new Mac::Glue "Finder"; $obj=$finder->obj( folder => $ARGV[0] ); print $obj->prop("physical_size")->get' /path/to/folder 9088512 Which is 8.667MB, the size I'm looking for. Cheers! Rick Senior Developer PrintSupply - Print Procurement & Supply Management 18 Greenaway Street VIC 3105 Tel: (03) 9850 3255 Fx: (03) 9850 3277 http://www.printsupply.com.au/
Getting the size of a folder with Mac::Glue
I'm trying to get the size of a folder and figure Mac::Glue would be the way to go. However I'm getting back a 0: use Mac::Glue; my $finder = new Mac::Glue 'Finder'; die("No such file: $monthdir/$folder/") unless -e "$monthdir/$folder/"; my $size = $finder->data_size("$monthdir/$folder/"); print $size; # 0 print $MacError # Now surely if the file doesn't work (like if I'm supposed to put some object there) I should be getting some sort of error? (If there's a better way to get the size of a folder, please let me know!) Cheers! Rick Senior Developer PrintSupply - Print Procurement & Supply Management 18 Greenaway Street VIC 3105 Tel: (03) 9850 3255 Fx: (03) 9850 3277 http://www.printsupply.com.au/
Re: Urgent: Turning a script into a droplet
On 16 Mar 2004, at 4:34 PM, Sherm Pendley wrote: DropScript. <http://www.wsanchez.net/software/> On 16 Mar 2004, at 4:16 PM, Andrew M. Langmead wrote: One suggestion would be DropScript <http://www.wsanchez.net/software/> It can turn any script or program into a droplet. (by dropping the script or program onto it. It itself is a droplet) Thanks for the suggestion .. looks good. Cheers Rick Senior Developer PrintSupply - Print Procurement & Supply Management 18 Greenaway Street VIC 3105 Tel: (03) 9850 3255 Fx: (03) 9850 3277 http://www.printsupply.com.au/
Urgent: Turning a script into a droplet
Need some quick help ... how do I turn a perl script into a droplet (and when I do, do the dropped files appear in @ARGV still?) Cheers! Rick Senior Developer PrintSupply - Print Procurement & Supply Management 18 Greenaway Street VIC 3105 Tel: (03) 9850 3255 Fx: (03) 9850 3277 http://www.printsupply.com.au/
Re: ANNOUNCE: Affrus 1.0 - a Perl Debugger
Mark, thanks for this announcement. There is no other place on the net that would have let me know about this tool. I'll go and check it out now. Randal said: I will stand by my statement that the posting is wrong until one or both of those entities have declared contrary ground rules, and continue to object to such postings until being told otherwise by someone with authority. Randal: They have already declared such a post to be allowable. Where did they do that? When Ask set up spam filters on the machine in the TPF owned domain: On 12 Mar 2004, at 4:40 AM, Mark Alldritt wrote: X-Spam-Checker-Version: SpamAssassin 2.63 (2004-01-11) on x1.develooper.com X-Spam-Status: No, hits=-4.9 required=8.0 tests=BAYES_00 autolearn=ham version=2.63 So, if they didn't want this, surely it would have scored at least in the positives! Get over it Randall, this is the best place to post it. Cheers! Rick Measham Senior Developer PrintSupply - Print Procurement & Supply Management 18 Greenaway Street VIC 3105 Tel: (03) 9850 3255 Fx: (03) 9850 3277 http://www.printsupply.com.au/
Re: Mac::Carbon install problem (Processes.t)
There are others who will certainly know better than I do, however let me ask, are you running CPAN with: sudo /full/path/to/perl -MCPAN -e shell If you don't use sudo (or su to root if you have it enabled) then there will be problems with installs, and if you have your own perl installed you'll need the full path to it. That's just my thoughts, given the 'super-user' related errors. Cheers! Rick On 17 Feb 2004, at 1:54 PM, Salvatore Denaro wrote: The only thing in the system log that looks like there may be a problem is: aped[185]: Attach denied: super-user process, for UserNotification[5049] aped[185]: Attach denied: super-user process, for perl[5050] aped[185]: Attach denied: super-user process, for perl[5058] Anyone know what's wrong? Thanks.
Re: [OT] XML in SQL (was: MySQL for Web Apps)
On 6 Feb 2004, at 02:37 pm, Chris Devers wrote: Anyway, it was pointed out to me in a different offlist response that I was probably answering the wrong question. Oh well -- it still seems like a useful (and under-publicized?) capability of the standard MySQL client, so maybe bringing it up will still be of use to someone... Very true .. I'm a PostGreSQLer rather than a MySQLer, and looking through the mailing lists there it looks like theres been talk of accessing the XML as data rather than as text ... h.. Feb 2003 .. I might poke some people! Rick Measham Senior Designer and Developer Printaform Pty Ltd Tel: (03) 9850 3255 Fax: (03) 9850 3277 http://www.printaform.com.au http://www.printsupply.com.au vcard: http://www.printaform.com.au/staff/rickm.vcf
Re: [OT] XML in SQL (was: MySQL for Web Apps)
On 6 Feb 2004, at 01:47 pm, Rick Measham wrote: Thanks Christ, erm .. sorry .. chris .. Rick Measham Senior Designer and Developer Printaform Pty Ltd Tel: (03) 9850 3255 Fax: (03) 9850 3277 http://www.printaform.com.au http://www.printsupply.com.au vcard: http://www.printaform.com.au/staff/rickm.vcf
Re: [OT] XML in SQL (was: MySQL for Web Apps)
On Wed, 4 Feb 2004, Rick Measham wrote: I'd love to see an XML parser embedded into SQL so that I can have: CREATE TABLE aTable (id serial, data XML); On 5 Feb 2004, at 05:21 pm, Chris Devers replied: Does this help? snip Is this along the lines of what you were hoping for? Thanks Christ, but not really at all. What I want is the ability to use XML as a data type so that I can have a field full of XML that is searchable. The output would be the'zactly the same as current output. The input would be XML as a string: > INSERT INTO data (id, user, data) VALUES (1, 'rick','RickMeasham'); > INSERT INTO data (id, user, data) VALUES (2, 'rick02','RickSmith'); # And then I could retrieve it: > SELECT * FROM data WHERE data:user:name='Rick' id | user | data --- 1 | rick | RickMeasham 2 | rick02 | RickSmith (2 rows returned) Cheers! Rick Measham Senior Designer and Developer Printaform Pty Ltd Tel: (03) 9850 3255 Fax: (03) 9850 3277 http://www.printaform.com.au http://www.printsupply.com.au vcard: http://www.printaform.com.au/staff/rickm.vcf
Re: [OT] MySQL for Web Apps
On 4 Feb 2004, at 03:39 pm, kynan wrote: The idea of having XML in the DB is sound though, if you do it thoughtfully. So long as you're not planning on searching on it or indexing it or ... I once used XML to store information about a webpage as a PostGreSQL field ... but later down the track I wanted to search on some of that data and had to retrieve all records that contained 'bob' and then parse the XML and check that 'bob' was in the byline rather than just having his name in the content. I'd love to see an XML parser embedded into SQL so that I can have: CREATE TABLE aTable (id serial, data XML); Then I can: SELECT id FROM aTable WHERE data:story:byline = 'Bob'; Which would return the id of any record whose data field looked something like: BobContentBobContent of another story But wouldn't return the id where the data looked like: NoraBob is a dudeBillContent of another story even though 'bob' is in the text. Basically the SQL engine would recognise that 'data' is an XML field and could search it according to requirements. Rick Measham Senior Designer and Developer Printaform Pty Ltd Tel: (03) 9850 3255 Fax: (03) 9850 3277 http://www.printaform.com.au http://www.printsupply.com.au vcard: http://www.printaform.com.au/staff/rickm.vcf
Re: [OT] MySQL for Web Apps
On 4 Feb 2004, at 03:16 pm, Bill Stephenson wrote: As computers keep getting faster, and memory and storage cheaper, isn't it beneficial to program in the most simple, human readable, least learning required, method? Never. You're not going to ever read each 2500 user's 2000 x 40kb records thus it's better to store it in a way that the computer can access it. In short, I'm lazy. I'd rather code this all in perl. Do I really need to learn about and use MySQL or will computers get fast enough that it won't matter anyway. Once again, no. Especially with where you're starting. 3 users and you might be OK. Have a think about this: You have a file: 1Bob2Nancy The first thing you're going to do with XML::Parser is turn the XML into a perl data structure: @data = ( { id => 1, name => 'Bob' }, { id => 2, name => 'Nancy' } ); Then you'll look through each element of the list looking for name eq 'Bob'. All you'll do all that in perl. Multiply the files by 2500 users then multiply by 40k of information. Perl wouldn't even be able to start to store it all. On the other hand if you store the data directly in a database which has been optimised for quick searching and already has all the methods you'll ever require to store and retrieve data, you'll be running it as a compiled program. It will run a LOT faster and it will do it's job a LOT better. It will also handle data-locking so you and I can't both be writing to a file at the same time. In short there's no question about which is the better option. Databases are quicker and safer. Cheers! Rick Rick Measham Senior Designer and Developer Printaform Pty Ltd Tel: (03) 9850 3255 Fax: (03) 9850 3277 http://www.printaform.com.au http://www.printsupply.com.au vcard: http://www.printaform.com.au/staff/rickm.vcf
Re: permission denied during open
OK, I'm a git. I didn't scroll down so I didn't realise this had already been answered half a dozen times. Sorry! On 2 Feb 2004, at 10:32 am, Rick Measham wrote: On 2 Feb 2004, at 12:59 am, timothy driscoll wrote: this fails with an error 'Permission denied' when the target dir 'temp' looks like this: drwxrwxr-x 3 nobodynobody 102 1 Feb 08:44 temp but it works if I make the dir writeable by everyone: drwxrwxrwx 3 nobodynobody 102 1 Feb 08:44 temp I thought perl ran as nobody, so giving r/w access to 'nobody' should work. but obviously it doesn't - so what did I do wrong? G'day Tim, perl itself will run as whoever calls it. In the case of CGI it will be run by Apache or whichever http server you're running. By default apache used to run as 'nobody.nobody', then on some installs it runs as 'apache.apache'. However, on MacOS-X it runs as 'www.www'. Check the httpd.conf file to see (It's the 'user' and 'group' directives). Assuming you're on OS-X, set your file's owner.group to www.www and you should be fine with a 744. Cheers! Rick Rick Measham Senior Designer and Developer Printaform Pty Ltd Tel: (03) 9850 3255 Fax: (03) 9850 3277 http://www.printaform.com.au http://www.printsupply.com.au vcard: http://www.printaform.com.au/staff/rickm.vcf Rick Measham Senior Designer and Developer Printaform Pty Ltd Tel: (03) 9850 3255 Fax: (03) 9850 3277 http://www.printaform.com.au http://www.printsupply.com.au vcard: http://www.printaform.com.au/staff/rickm.vcf
Re: permission denied during open
On 2 Feb 2004, at 12:59 am, timothy driscoll wrote: this fails with an error 'Permission denied' when the target dir 'temp' looks like this: drwxrwxr-x 3 nobodynobody 102 1 Feb 08:44 temp but it works if I make the dir writeable by everyone: drwxrwxrwx 3 nobodynobody 102 1 Feb 08:44 temp I thought perl ran as nobody, so giving r/w access to 'nobody' should work. but obviously it doesn't - so what did I do wrong? G'day Tim, perl itself will run as whoever calls it. In the case of CGI it will be run by Apache or whichever http server you're running. By default apache used to run as 'nobody.nobody', then on some installs it runs as 'apache.apache'. However, on MacOS-X it runs as 'www.www'. Check the httpd.conf file to see (It's the 'user' and 'group' directives). Assuming you're on OS-X, set your file's owner.group to www.www and you should be fine with a 744. Cheers! Rick Rick Measham Senior Designer and Developer Printaform Pty Ltd Tel: (03) 9850 3255 Fax: (03) 9850 3277 http://www.printaform.com.au http://www.printsupply.com.au vcard: http://www.printaform.com.au/staff/rickm.vcf
Re: tricky parsing question
On 23 Jan 2004, at 01:21 pm, wren argetlahm wrote: I'm working on a linguistic module and I'm trying to find a good way to split a string up into "segments". I can't assume single charecter strings and want to assume maximal segments. As an example, the word "church" would be rendered as the list ('ch', 'u', 'r', 'ch') and wouldn't break the "ch" up smaller even though both "c" and "h" are valid segments in English. I have all the valid segments for a given language stored as keys in a hash, now I just need an algorithm to chop up a string into a list. Any ideas? Wren, when you say 'segments' it appears you mean phonemes or phonetics. CPAN has several modules that may help you: Lingua::Phoneme uses the Moby Pronounciation Dictionery to find the phonemes. Text::Metaphone also deals with phonemes and will return 'Church' as 'XRX' meaning 'ch', 'r', 'ch'. Unfortunately it returns the 'ch' in 'Character' as an 'X' also. And that, of course, is the most difficult part. English is such a hodge-podge of hacks from other languages the understanding it via algorithms is very very hard. Cheers! Rick Rick Measham Senior Designer and Developer Printaform Pty Ltd Tel: (03) 9850 3255 Fax: (03) 9850 3277 http://www.printaform.com.au http://www.printsupply.com.au vcard: http://www.printaform.com.au/staff/rickm.vcf
Re: ***regular expression*** weird
I should apologize for the response I sent. For some reason, the original post was showing in my mailbox as "today" so I responded. Now it's showing up as having shown up "Nov. 14, 2003" and I see several responses from back then! Bizarre. My apologies for any confusion that may have caused. --Rick Anderson "The only difference between me and a madman, is that I am not mad." -- Salvador Dali
Re: ***regular expression***
On Friday, November 14, 2003, at 07:25 AM, xweb wrote: Can someone help me about a regular ? In which way i can substitute string with $val1. I'm not sure I understand exactly what you're asking. Do you mean you want to take the value of $url and place it where $val1 occurs in the substitution string? If that's what you mean, then surround the part of the regex that you want to retain in parentheses and recall it using the $1 ... $9 variables. Like this: $test = "http://www.google.com\";>Google"; $test =~ s/Google<\/a>/\1/; print $test; # test = "http://www.google.com"; --Rick Anderson "The only difference between me and a madman, is that I am not mad." -- Salvador Dali
Re: Getting a 'Save As' dialog box
Thanks John, Works a treat! On 12 Jan 2004, at 03:47 pm, John Delacour wrote: At 2:51 pm +1100 12/1/04, Rick Measham wrote: I used CPAN module Mac::AppleScript and I don't get any reply at all: RunAppleScript Further to my last posting, I discover that some applications will not behave properly if the tell target is themselves. Eudora and BBEdit 6.5 are two examples of apps that hang, but you can run this from the Terminal or you can run it from the Terminal with Terminal as the target. It will also work fine with tell self in certain other apps. #!/usr/bin/perl use Mac::AppleScript qw(RunAppleScript); my $asresult = RunAppleScript < Rick Measham Senior Designer and Developer Printaform Pty Ltd Tel: (03) 9850 3255 Fax: (03) 9850 3277 http://www.printaform.com.au http://www.printsupply.com.au vcard: http://www.printaform.com.au/staff/rickm.vcf
Getting a 'Save As' dialog box
Hello People, I need some help with a perl on OS-X problem. I need to pop up a 'Save As' dialog. Basically the same as the one AppleScript gives you when you: choose file name with prompt "Select a location to save this file" default name "Name" but I need to do this from perl. At first I thought it might be simple: $file = `osascript -e 'choose file name with prompt "test1" default name "test2"'`; but that gives me: 0:57: execution error: No user interaction allowed. (-1713) So next I used CPAN module Mac::AppleScript and I don't get any reply at all: RunAppleScript(qq(choose file name with prompt "test1" default name "test2")); But I figure that somewhere in all this there must be a way to pop up such a dialog directly from perl. How? Thanks and Cheers! Rick Rick Measham Senior Designer and Developer Printaform Pty Ltd Tel: (03) 9850 3255 Fax: (03) 9850 3277 http://www.printaform.com.au http://www.printsupply.com.au vcard: http://www.printaform.com.au/staff/rickm.vcf
Re: Getting my WAN IP address from ppp0
>Hi Zach, > >Well, this almost works for me. > >> #!perl >> my $ifconfig = `ifconfig`; # the ifconfig command gives the current >> network information >> $ifconfig =~ /inet (\d+\.\d+\.\d+\.\d+)/; # extract the ip address >> with a regular expression >This does extract my IP address, but the one for the loopback device >lo0. The ifconfig output looks like this: > >lo0: flags=8049 mtu 16384 > inet6 ::1 prefixlen 128 > inet6 fe80::1 prefixlen 64 scopeid 0x1 > inet 127.0.0.1 netmask 0xff00 >gif0: flags=8010 mtu 1280 >stf0: flags=0<> mtu 1280 >en0: flags=8863 mtu 1500 > tunnel inet --> > ether 00:30:65:ef:a8:f0 > media: autoselect (10baseT/UTP ) status: active > supported media: none autoselect 10baseT/UTP >10baseT/UTP 10baseT/UTP >100baseTX 100baseTX 100baseTX > 1000baseTX 1000baseTX > 1000baseTX >1000baseTX >fw0: flags=8822 mtu 2030 > tunnel inet --> > lladdr 00:30:65:ff:fe:ef:a8:f0 > media: autoselect status: inactive > supported media: autoselect >ppp0: flags=8051 mtu 1492 > inet 212.212.2.212 --> 212.128.128.12 netmask 0xff00 > If you want the ip address of PPPoE connection, change the first line of the script to my $ifconfig = `ifconfig ppp0`; HTH, Rick Smith
Re: DYLD_ALLOW_MULTISYMS
Quoting Kevin Michael Vail <[EMAIL PROTECTED]>: > OK, I know I had this working once before. Trying to install Tk. I've > > got the DYLD_ALLOW_MULTISYMS environment variable set but I'm still > getting the note about duplicate definitions of _LangExit in Tk.bundle > > and the other one (Event, I think). > > This is under 10.2.2. Am I correct that you don't need to (and should > > not!) download the hacked version of 'dyld' under Jaguar? > > Tk800.024, Perl 5.8.0. > Funny, I just went through this yesterday. After some googling, I discovered that DYLD_ALLOW_MULTISYMS is out under jagauar. The dynloader has been fixed. The problem is the usual flat_namespace issue. Quoting http://www.lehigh.edu/~sol0/Macintosh/X/ptk/ : 7) Make the following changes to Tk/MMutil.pm in the const_config subroutine: if ($^O eq 'MSWin32' && $Config{'ccflags'} =~ /-DPERL_OBJECT/) { $self->{'LDFLAGS'} =~ s/-(debug|pdb:\w+)\s+//g; $self->{'LDDLFLAGS'} =~ s/-(debug|pdb:\w+)\s+//g; } elsif ($^O eq 'darwin' ) { $self->{'LDDLFLAGS'} =~ s/-flat_namespace//; $self->{'LDDLFLAGS'} =~ s/-undefined\s+suppress//; if ( -e "$Config{'archlib'}/CORE/$Config{'libperl'}" ) { $self->{'LDDLFLAGS'} .= " -L\${PERL_ARCHLIB}/CORE -lperl "; } elsif ( -e "/System/Library/Perl/darwin/CORE/libperl.dylib" ) { $self->{'LDDLFLAGS'} .= " -L/System/Library/Perl/darwin/CORE -lperl "; } else { warn "Can't find libperl.dylib"; } $self->{'LDFLAGS'} =~ s/-flat_namespace//; $self->{'LDFLAGS'} =~ s/-undefined\s+suppress//; } elsif ($^O =~ /(openbsd)/i) 8) While running XDarwin and your favorite terminal app (xterm,rxvt, etc.) do the usual from the Tk800.024 directory: rick
Re: segmentation fault when searching for repeated text
On Wed, Nov 13, 2002 at 02:31:03PM +0800, Peter N Lewis wrote: > >The following code ends up with an error (segmentation fault): > > > > $_ = 'x' x 1000; > > /(a.|.){2,}/o; > > > >The segmentation fault seems to happen only when the searched text > >($_ in this example) is longer than 855 characters. > Yep, the same thing happens in perl 5.8.0 under Mac OS X 10.2.1, > except it happens when it is longer than 927 characters. > > Looks like quite a robust bug. I wonder if it is even Mac OS X specific. Nope. Happens at different lengths on 2 debian linux boxes: unstable w/perl 5.8.0, @ 4502 stable w/perl 5.6.1 @ 30830 Quite a difference there! rick
Re: FYI: Successful Install of Perl 5.8.0 RC 1 + Apache 2.0.36 + ModPerl-2.0 on OSX 10.1.4
On Fri, Jun 07, 2002 at 09:29:40AM -0400, Chris Nandor wrote: > In article <p05111a37b9248135ce12@[203.47.34.3]>, > [EMAIL PROTECTED] (Peter N Lewis) wrote: > > > At 18:57 -0400 5/6/02, Rick Frankel wrote: > > > > >so, adding: > > > .PHONY: install > > > > > >at the top of the (gnu)makefile will force the install target to > > >execute. > .PHONY is not just a GNU make thing anyway; I know dmake uses it (we use > it in the MacPerl Makefile, which uses dmake), so that makes it even > less likely. There are also multiple .PHONY declarations in perl's FWIW, i think it was first used in gnu make. I know it's not in the old Feldman make or /usr/ccs/bin/make on solaris. > Makefile.SH already, including one for the "install" target, so I > imagine it is used on other *make, too. From my generated Makefile on > Linux: > > .PHONY: install install-strip install-all install-verbose install-silent > \ > no-install install.perl install.man install.html > > > So I dunno what the deal is ... maybe the problem is that .PHONY is a > no-op on Mac OS X's make? Curious. I just tried a test on OSX w/ /usr/bin/make (linked to /usr/bin/gnumake) AND /usr/bin/bsdmake and .PHONY: install works. rick
Re: FYI: Successful Install of Perl 5.8.0 RC 1 + Apache 2.0.36 + ModPerl-2.0 on OSX 10.1.4
On Wed, Jun 05, 2002 at 08:14:00AM +0800, Peter N Lewis wrote: > At 14:05 -0700 4/6/02, Alex S wrote: > If you want a more general solution than Perl changing the name of > the files to *.txt (which would mnake sense anyway as someone else > pointed out), then i think changing make is far more likely than > changing Apple's file system. What about updating make to deal with > the difference between a file called INSTALL and a tag install rather > than just blindly using the file system. > > Heck, even a special case for install/INSTALL would resolve a lot of > problems - perhaps even just a special build for Mac OS X that dealt > with the issue. Another approach (for gnu make). From make.info: Phony Targets = A phony target is one that is not really the name of a file. It is just a name for some commands to be executed when you make an explicit request. There are two reasons to use a phony target: to avoid a conflict with a file of the same name, and to improve performance. If you write a rule whose commands will not create the target file, the commands will be executed every time the target comes up for remaking. Here is an example: clean: rm *.o temp Because the `rm' command does not create a file named `clean', probably no such file will ever exist. Therefore, the `rm' command will be executed every time you say `make clean'. The phony target will cease to work if anything ever does create a file named `clean' in this directory. Since it has no prerequisites, the file `clean' would inevitably be considered up to date, and its commands would not be executed. To avoid this problem, you can explicitly declare the target to be phony, using the special target `.PHONY' (*note Special Built-in Target Names: Special Targets.) as follows: .PHONY : clean Once this is done, `make clean' will run the commands regardless of whether there is a file named `clean'. Since it knows that phony targets do not name actual files that could be remade from other files, `make' skips the implicit rule search for phony targets (*note Implicit Rules::). This is why declaring a target phony is good for performance, even if you are not worried about the actual file existing. Thus, you first write the line that states that `clean' is a phony target, then you write the rule, like this: .PHONY: clean clean: rm *.o temp -- so, adding: .PHONY: install at the top of the (gnu)makefile will force the install target to execute. rick
Re: Permanently add INC directory?
On Mon, Apr 22, 2002 at 10:26:49AM +0800, Peter N Lewis wrote: > Is there any way to globally add an INC directory to Perl after compilation? > > I know about setenv PERLLIB5 and do that in my .cshrc. > > But it doesn't get set when I run Perl from within BBEdit or cron. > Is there any way to do this so it is truly global (it can just be > across me as the user or for all users, since I'm the only user > anyway, as long as that will work with things like BBEdit and cron). Apps launched from the GUI (i.e., bbedit) don't inherit from your login shell, so they don't get setting from your .cshrc. You can use setting in your ~/.MacOSX/environment.plist to set variables which will be inherited in the finder. e.g: PERL5LIB /home/rick/lib/perl:/usr/local/perl5/lib As for cron, I'm not sure if it will inherit the same variable so, quoting from crontab(5): An active line in a crontab will be either an environment setting or a cron command. An environment setting is of the form, name = value where the spaces around the equal-sign (=) are optional, and any subse- quent non-leading spaces in value will be part of the value assigned to name. The value string may be placed in quotes (single or double, but matching) to preserve leading or trailing blanks. The name string may also be placed in quote (single or double, but matching) to preserve leading, traling or inner blanks. Several environment variables are set up automatically by the cron(8) daemon. SHELL is set to /bin/sh, and LOGNAME and HOME are set from the /etc/passwd line of the crontab's owner. HOME and SHELL may be overrid- den by settings in the crontab; LOGNAME may not. So, yu can either put "SHELL=/bin/csh" in your crontab to get it to read the ..cshrc file (a VERY BAD idea btw, as many thinks may break if your default shell is csh.), or you can set PERL5LIB directly in the crontab. rick
Re: Upgrade to cgi 2.57 or beyond?
On Fri, Apr 12, 2002 at 11:41:53AM -0700, drieux wrote: > > Just found out that the webServer and the OSX box are running 2.56 > while my linux and solaris boxes I thwacked over to 2.752 > > so should I just pull the source over and do the > > make *.PL > make > make test > make install > > or. Since the current version is 2.81, i would suggest: sudo perl -MCPAN -e 'install CGI' rick
Re: About testing cgi at command line
On Fri, Apr 12, 2002 at 10:59:19AM -0700, Alex S wrote: > Just press Control-D to skip that. I believe there's a way to disable > I've never been clear as to what toggles this to be on or off, but I'm > guessing it's some flag in CGI.pm. It's related to the installed version of CGI.pm, from the changelog: Version 2.57 1. Added -debug pragma and turned off auto reading of STDIN. BTW, you can pass args on the command line, e.g.: perl cgitest.pl x=y z=a so, my customary approach (prior to the current CGI.pm releases) was to simply pass a dummy param assignment on the command line. rick
more security update woes
Tangential to the mod_perl issue, has anyone else noticed that ~/.MacOSX/environment.plist is no longer being parsed on login after the security update? rick
Re: Perl/Tk on Mac os X
On Wed, Apr 03, 2002 at 09:57:48AM -0500, aaron wrote: > Hi All, > Does anyone have any updated information on perl/Tk for OS X? Most of my > stuff at work uses perl/Tk and I was over-joyed to install Tk on my Mac. To > my chagrin it crashes exactly like described below. Is there an OS X > -compatible version available now? Does anyone know what causes this > problem? I'm assuming it's a C thing... > Whoops. I guess I should have followed up on this... Anyway, via macintouch comes this link: http://www.lehigh.edu/~sol0/Macintosh/X/ptk/ the short of it is that -03 optimization breaks perl/tk. Here's the relevant excerpt from the above on the solution: * Install the modified dynamic loader per http://www.lehigh.edu/Macintosh/X/ptk/dyld-tk. * Now compile Tk800.023. The caveat: you cannot use -O3, which is the default, determined from how Perl itself was compiled. Here's the trick as described by Michael Doster (who made the dyld mods described above): Under the pTk source directory edit the file Tk/MMutil.pm. In the subroutine cflags make the following change at the end: $_ .= "\nOPTIMIZE=\n"; $_; } # end subroutine cflags. BTW, personally tested and used (I can't live w/o -d:ptkdb :) rick
Re: mod_perl & Chart.pm
On Wed, Feb 27, 2002 at 08:51:26AM -0900, hcir wrote: > i have mod_perl working with a number of scripts and Apache. i have a > script using Chart.pm to return a graphic which works when using perl > but when i use it under mod_perl my browser displays the text > representation of the graphic (using $g->cgi_jpeg(\@data);) > > any ideas on what i need to do differently? I'm not familiar w/ Chart.pm, but my guess would be that the content-type is not getting set to image/jpeg under mod_perl, and is defaulting to text/html. rick
Re: psync fails with 5.7.2
On Tuesday, February 5, 2002, at 12:39 PM, Randal L. Schwartz wrote: > > So what is everyone using that they can actually *use* it here? Curious. > 5.6.1 perhaps? > Running 5.6.1 here, but I think it may be a permission problem in the distrib directory, The test scripts should probably copy, etc. in /tmp instead of the current tree. transcript below I did something like: sudo 'perl -MCPAN -eshell' >install MacOSX::File OK > quit Now, as verfied sudo -s # cd ~/.cpan/build/MacOSX-File-0.61 # ls -l -rw-r--r--1 root 1000 1689 Jan 28 02:44 File.pm # make test PERL_DL_NONLAZY=1 /usr/local/bin/perl -Iblib/arch -Iblib/lib -I/System/Library/Perl/darwin -I/System/Library/Perl -e 'use Test::Harness qw(&runtests $verbose); $verbose=0; runtests @ARGV;' t/*.t t/catalogok t/copy...ok t/file...ok t/info...ok t/spec...ok All tests successful. # exit $ make test PERL_DL_NONLAZY=1 /usr/local/bin/perl -Iblib/arch -Iblib/lib -I/System/Library/Perl/darwin -I/System/Library/Perl -e 'use Test::Harness qw(&runtests $verbose); $verbose=0; runtests @ARGV;' t/*.t t/catalogdubious Test returned status 0 (wstat 11, 0xb) DIED. FAILED tests 3-7 Failed 5/7 tests, 28.57% okay t/copy...NOK 2-5000 at t/copy.t line 20. t/copy...NOK 3-5000 at t/copy.t line 21. Use of uninitialized value in numeric eq (==) at blib/lib/MacOSX/File/Copy.pm line 146. t/copy...NOK 4-43 at t/copy.t line 22. Use of uninitialized value in numeric eq (==) at blib/lib/MacOSX/File/Copy.pm line 146. t/copy...NOK 5-43 at t/copy.t line 23. t/copy...FAILED tests 2-5 Failed 4/5 tests, 20.00% okay t/file...ok t/info...NOK 6/Developer/Tools/GetFileInfo: could not refer to file (-43) Use of uninitialized value in string eq at t/info.t line 37. t/info...FAILED tests 6-7, 9-10 Failed 4/10 tests, 60.00% okay t/spec...ok Failed Test Stat Wstat Total Fail Failed List of Failed --- t/catalog.t011 75 71.43% 3-7 t/copy.t 54 80.00% 2-5 t/info.t 104 40.00% 6-7 9-10 Failed 3/5 test scripts, 40.00% okay. 13/29 subtests failed, 55.17% okay. $ sudo chown -R rick . $ make test PERL_DL_NONLAZY=1 /usr/local/bin/perl -Iblib/arch -Iblib/lib -I/System/Library/Perl/darwin -I/System/Library/Perl -e 'use Test::Harness qw(&runtests $verbose); $verbose=0; runtests @ARGV;' t/*.t t/catalogok t/copy...ok t/file...ok t/info...ok t/spec...ok All tests successful.
Re: MacOSX Requests and Cookies
On Fri, Feb 01, 2002 at 10:39:02PM -0500, Joe Schaefer wrote: > Great - thanks a ton! Not so great. I'm half asleep. You need to do patch -r or, apply the forward patch included below... rick --- http_main.c~ Mon Jan 28 04:07:46 2002 +++ http_main.cFri Feb 1 19:22:51 2002 @@ -7805,5 +7805,12 @@ { return ApacheRequest_new(r); } +/*RAF*/ +#include "apache_cookie.h" +ApacheCookie *suck_in_apcookie(request_rec *r); +ApacheCookie *suck_in_apcookie(request_rec *r) +{ +return ApacheCookie_new(r); +} #endif /* USE_APREQ */
MacOSX Requests and Cookies
Ok. Here's the output of localhost/perl-status?inc (elided) Embedded Perl version v5.6.1 for Apache/1.3.23 (Darwin) mod_perl/1.26 process 2729, running since Fri Feb 1 19:25:53 2002 Package Version Modified File Apache 1.27 Tue May 1 13:11:20 2001 /usr/local/apache/perl/darwin/Apache.pm Apache::Cookie 1.0 Sun Jan 20 12:19:24 2002 /usr/local/apache/perl/darwin/Apache/Cookie.pm Apache::Request 1.0 Sun Jan 20 12:19:02 2002 /usr/local/apache/perl/darwin/Apache/Request.pm This is with a statically linked mod_perl. It doesn't crash, but in my (minimal) testing, it seems that Apache::Cookie is a no-op. I can't seem to get it to set or retrieve any cookies, it fails silently. Joe- ApacheCookie_* was not being boostrapped into the executable, so it was being optimized of the linkage. The following patch, while probably not correct (and probably the cause of the silent failure), covers it. --- http_main.c Fri Feb 1 19:22:51 2002 +++ http_main.c~Mon Jan 28 04:07:46 2002 @@ -7805,12 +7805,5 @@ { return ApacheRequest_new(r); } -/*RAF*/ -#include "apache_cookie.h" -ApacheCookie *suck_in_apcookie(request_rec *r); -ApacheCookie *suck_in_apcookie(request_rec *r) -{ -return ApacheCookie_new(r); -} #endif /* USE_APREQ */ -END PATCH Also, the "all-in-one" compile method doesn't setup apache correctly, so the steps taken were: unpack everthing in the same root directory mod_perl: $ perl Makefile.PL APACHE_PREFIX=/usr/local/apache DO_HTTP=1 \ PREP_HTTP=1 USE_APACI=1 EVERYTHING=1 $ make $ make install http_apreq: $ perl Makefile.PL $ make $ make install apache: $ CFLAGS='-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64' ./configure --prefix=local/apache \ --enable-shared=max --disable-rule=EXPAT --with-layout=Apache \ --activate-module=src/modules/perl/libperl.a --disable-shared=perl $ make $ make install rick
Re: Apache::args vs Apache::Request speed
On Fri, Feb 01, 2002 at 03:23:19PM -0500, Joe Schaefer wrote: > Ian Ragsdale <[EMAIL PROTECTED]> writes: > > > >> I hope a new release will be just around the corner, but if you want > > >> to test out some of the latest stuff, have a look at > > >> > > >> http://www.apache.org/~joes/ > > > Would someone PLEASE volunteer to try to compile and test > apache+mod_perl & libapreq on OS/X using the experimental > code I posted there? Even if you can't get it working, > ANY feedback about what happened when you tried would be > VERY helpful. Compiling as i write this :^}. If anyone else would like to send me a small handler which demonstrates the problem, it would be appreciated. BTW, does anyone know if the expat conflict is (no-longer) a problem on osx? just in case I'm using --disable-rule=EXPAT. rick
Data::UUID
Hi- Someone just posted w/ a problem installing Data::UUID due to the use of lockf(2). Here's a patch to UUID.h which should solve the problem. (Well, make test succeeds :). rick --- UUID.h Tue Dec 11 12:01:00 2001 +++ ../UUID.h Thu Jan 31 22:11:29 2002 @@ -41,6 +41,9 @@ #if defined __CYGWIN__ #define LOCK(f) #define UNLOCK(f) +#elif defined(__APPLE__) && defined(__MACH__) /* MacOSX i hope */ +#define LOCK(f)flock(fileno(f),LOCK_EX) +#define UNLOCK(f) flock(fileno(f),LOCK_UN) #else #define LOCK(f)lockf(fileno(f),F_LOCK,0); #define UNLOCK(f) lockf(fileno(f),F_ULOCK,0);
Re: Perl/Tk on Mac os X
On Wed, Jan 30, 2002 at 10:33:21AM -0500, aaron wrote: > I have followed the same procedure as you and I also get a bus error with > menus. In fact, the widget demo that comes with perl/Tk gives a bus error > for almost every part of its interface. Are we the only two people having > this problem? If so, is there something we can do to fix this? Most of my Nope, you're not. I think this thread has passed this list before. It's not just menus, hovering over any gui component causes a crash. Haven't had time to try and track down the problem though... rick