Re: Running a Perl program countinuously
Octavian Rasnita wrote: Thank you. Please tell me how can I verify if the process is running. Teddy, sorry, was OOO yesterday so i didnt get this, but zentara beat me to the punch :) Basically just scanned the system processes for my process. If it was not running, I would restart it. Of course, zentara's solution is a lot more cleaner and more efficient than mine, so I wont bother posting my example. chris btw the proc:processtable mod is pretty neat, i didnt realize it existed till that post :) -- --- Just Your Friendly Neighborhood _SPIDEY_ -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
Non-caching META-tags
When writing HTML, the trick I normally use to ensure that images etc are definitely the latest version, and not the cached version, is the following: META http-equiv=Cache-Control content=no-cache, must-revalidate META http-equiv=Pragma: no-cache I want to do the same thing in a page generated by perl/cgi, i.e something like: print $q-header, $q-start_html(-title='My new page', -meta={'http-equiv'='Cache-Control' 'content'='no-cache,must-revalidate'}) -meta={'http-equiv'='Pragma: no-cache'}); but this gives String found where operator expected at test.pl line 20, near 'Cache-Control' 'content' How does one get perl produce the equivalent of the META tags above? Nick _ Nick Malden, Manchester Gruppe, DESY, Notkestrasse 85, 22607 Hamburg. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
Re: Non-caching META-tags
On Wed, 20 Nov 2002 at 14:02, Nick Malden opined: NM:print $q-header, NM: $q-start_html(-title='My new page', NM:-meta={'http-equiv'='Cache-Control' 'content'='no-cache,must-revalidate'}) NM:-meta={'http-equiv'='Pragma: no-cache'}); NM: NM:but this gives NM: NM:String found where operator expected at test.pl line 20, near NM:'Cache-Control' 'content' are you missing a comma and a greater than sign there? -meta={'http-equiv'='Cache-Control', ^ 'content'='no-cache,...' } ^ -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
Re: Non-caching META-tags
On Wed, Nov 20, 2002 at 02:02:05PM +, Nick Malden wrote: Hi Nick, When writing HTML, the trick I normally use to ensure that images etc are definitely the latest version, and not the cached version, is the following: META http-equiv=Cache-Control content=no-cache, must-revalidate META http-equiv=Pragma: no-cache [snip] How does one get perl produce the equivalent of the META tags above? CGI.pm doesn't support http-equiv meta-tags, according to the documentation. What about something as simple as: print _META_TAGS_; META http-equiv=Cache-Control content=no-cache, must-revalidate META http-equiv=Pragma: no-cache _META_TAGS_ IMNSHO, CGI.pm shines when you're getting form input, printing forms or tables dynamically, or messing with cookies. With something as straight-forward as printing out meta-tags and headers, though, I personally feel it's drastic overkill. Hope that helps somewhat, -- Michael -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
console window
when i ran perl programs using windows 98 operating system, i double clicked on the program name in windows explorer. i kept the program files right in the C:\Perl directory. the programs would open a command prompt type console window and execute. the console window remained open until i clicked on the X to close it. now i have a new hp pavilion pc running windows xp. everything else being the same, when i run the perl programs from windows explorer, the console window opens, executes and closes before i can see anything in it. i realize that if i open the command prompt, i can see the program results but i would like to be able to run the programs directly from windows. i have tried changing the suffix from .pl to .bat(using pl2.bat). the results are the same either way. thank you gary rocco [EMAIL PROTECTED]
Variable method invocation
Not sure if this is the correct place to ask, partly because I'm not sure where the problem lies. Environ: Winnt, ActiveState Perl, ImageMagick, Apache. Script uses CGI standard. I am attempting to access various methods from Image::Magick, some of which require no arguments, 1 argument, several args, and I want to access methods with arguments as follows: $method = param(meth); # works, grabs 'Rotate', 'Convolve' etc.. $method_args = param(margs); # works also - to a degree $result = $image- $method ($method_args); When 'method' requires 1 argument (like Rotate - requires a numeric value in degrees), passing the method name and 'simple' argument (like $method is 'Rotate' and $method_args is 90) the form: $result = $image- $method ($method_args); works without a hitch (and I must admit I am delighted...). When the method can accept more than one argument (like Border which requires a 'geometry' string like '2x2' and -should- accept a second argument for color in the form color='red' the second argument is ignored. Can anybody tell me what is happening, why the 'supplemental' arguments are being ignored? TIA and any feedback including RTFM itsat (one word meaning it {the FM} is at ) is appreciated. David -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
Re: Variable method invocation
Just a hunch Dave K wrote: Not sure if this is the correct place to ask, partly because I'm not sure where the problem lies. Environ: Winnt, ActiveState Perl, ImageMagick, Apache. Script uses CGI standard. I am attempting to access various methods from Image::Magick, some of which require no arguments, 1 argument, several args, and I want to access methods with arguments as follows: $method = param(meth); # works, grabs 'Rotate', 'Convolve' etc.. $method_args = param(margs); # works also - to a degree Here can you use @method_args = param(margs); instead? that will get your multiple values into a list that could then be passed into your method call all at once, and should then work. This should be ok with single argument methods as well as the list will just be one method long. Give that a shot $result = $image- $method ($method_args); so this becomes: $result = $image-$method(@method_args); http://danconia.org -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
Re: Variable method invocation
Wiggins, Tried it, no joy! Even tried a reference to the array, no workie! Because this -looks like- a hash $image-Border(geometry='5x5', fill='red'); (and works) I will try to approach it as a hash. This is one of those 'exercises' where I am trying to replicate functionality I have seen on the web (specifically Image Magick Studio). If this leads to a compact, functioning program I will make it available to all interested. Thanks for your response! David Wiggins D'Anconia [EMAIL PROTECTED] wrote in message [EMAIL PROTECTED]">news:[EMAIL PROTECTED]... Just a hunch Dave K wrote: Not sure if this is the correct place to ask, partly because I'm not sure where the problem lies. Environ: Winnt, ActiveState Perl, ImageMagick, Apache. Script uses CGI standard. I am attempting to access various methods from Image::Magick, some of which require no arguments, 1 argument, several args, and I want to access methods with arguments as follows: $method = param(meth); # works, grabs 'Rotate', 'Convolve' etc.. $method_args = param(margs); # works also - to a degree Here can you use @method_args = param(margs); instead? that will get your multiple values into a list that could then be passed into your method call all at once, and should then work. This should be ok with single argument methods as well as the list will just be one method long. Give that a shot $result = $image- $method ($method_args); so this becomes: $result = $image-$method(@method_args); http://danconia.org -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
listing perl modues on system
Hello there, I was wondering if there is an easy way to list the perl modules that are installed on a system? -- Jerry M. Howell II -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
Re: listing perl modues on system
Jerry, I use this to track the modules I have installed for an ActiveState perl install on WinNt. #!E:/Perl/bin/perl -w use ExtUtils::Installed; my $instmod = ExtUtils::Installed-new(); foreach my $module ($instmod-modules()) { my $version = $instmod-version($module) || ???; print $module -- $version\n; } HTH Jerry M . Howell II [EMAIL PROTECTED] wrote in message [EMAIL PROTECTED]">news:[EMAIL PROTECTED]... Hello there, I was wondering if there is an easy way to list the perl modules that are installed on a system? -- Jerry M. Howell II -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]