Found VMS::DCLsym at CPAN, but can't get it to work!
tie %allsyms, VMS::DCLsym; tie %cgisyms, VMS::DCLsym, 'GLOBAL'; $handle = new VMS::DCLsyms; $value = $handle->getsym($name); $handle->setsym($name,$value,'GLOBAL') or die "Can't create symbol: $!\n"; $handle->delsym($name,'LOCAL') or die "Can't delete symbol: $!\n"; $handle->clearcache(); ALPHA_ROB$ PERL ROB2.TMP WEBREPORT$STORE:DAYCNV_20040518_0C7D.PDF Can't locate object method "TIEHASH" via package "VMS::DCLsym" at rob2.tmp line 2. %SYSTEM-F-ABORT, abort -----Original Message----- From: "Vorl�nder, Martin" [mailto:[EMAIL PROTECTED] Sent: 19 May 2004 11:32 To: [EMAIL PROTECTED] Cc: Atkinson, Robert Subject: RE: Counting PDF Pages Atkinson, Robert <[EMAIL PROTECTED]> wrote: > Any chance you can also give the code to create a DCL global > symbol with this info in, e.g. PDFPAGES == "34"? IIRC, perl's system() function spawns on VMS, so the easiest way probably is (untested!) $pages = $pdf->Pages; system("PDFPAGES == $pages"); I guess there also is the possibility to access the LIB$SET_SYMBOL routine. cu, Martin -- | Martin Vorlaender | OpenVMS rules! Smiert Spamionem | work: [EMAIL PROTECTED] | http://www.pdv-systeme.de/users/martinv/ | home: [EMAIL PROTECTED] *********************************************************************************** Any opinions expressed in email are those of the individual and not necessarily those of the company. This email and any files transmitted with it are confidential and solely for the use of the intended recipient or entity to who they are addressed. It may contain material protected by attorney-client privilege. If you are not the intended recipient, or a person responsible for delivering to the intended recipient, be advised that you have received this email in error and that any use is strictly prohibited. Random House Group IT Department helpdesk +44 (0) 1206 255900. http://www.randomhouse.co.uk http://www.booksattransworld.co.uk http://www.kidsatrandom.co.uk ***********************************************************************************
