Re: Re: Re: Re: cross cluster read fails

--Boundary_(ID_HDBIpKP7HBB79jluGvYvuw)
Content-type: text/plain; charset=iso-8859-1
Content-transfer-encoding: 8BIT
Content-disposition: inline

 �Hi Alan

One more thing before we go further :)

I wrote a simple perl script that accepts a file name, prints it out, opens the file (dies if open unsuccessful or prints �open successful�)

1>I passed my local directory filename, it prints �open successful� 

2> Now I just add �abcd::� in front of it, and the perl script fails with Remote node is unknown
                                                                          Died
 at test.pl line 2.
%SYSTEM-F-NOSUCHNODE, remote node is unknown

So it looks like perl is not being able to understand the node name part. It is not a cross cluster error.

Note: When I say abcd::, internally we actually have Nodes abcd1, abcd2, abcd3. Usually when i do a dir, i would just say abcd::full path and it would go pick it up from whereever it is say abcd3::

Regards,
Samina



On Fri, 18 Aug 2006 Alan Winston - SSRL Central Computing wrote :
>(sorry for top posting)
>
>At this point I think we need to see your perl code.
>
>
>-- Alan
>
> >
> > Hi Alan
>
> > 1> DEFINE/PROCESS FILEA full pathname (without username/password)
> > $PERL TEST.PL FILEA
> > filea
> >      Fatal VMS error (status=2312) at PERLKIT:[SOURCE]VMS.C;1, line 5962 at test
> > .pl line 2.
> > %SYSTEM-W-NOSUCHDEV, no such device available
>
> > 2>DEFINE/PROCESS FILEA full pathname (with username/password)
> > $PERL TEST.PL FILEA
> > filea
> >      Died at test.pl line 2.
> > %SYSTEM-F-NOSUCHNODE, remote node is unknown
>
> > 3>$WRITE SYS$OUTPUT F$GETSYI("VERSION")
> > V7.2-1
>
> > 4>$PERL "-v"
> > This is perl, v5.6.1 built for VMS_AXP
>
> > 5>$show log decc*
>
> > (LNM$PROCESS_TABLE)
>
> > (LNM$JOB_8555B680)
>
> > (LNM$GROUP_000410)
>
> > (LNM$SYSTEM_TABLE)
>
> > (LNM$SYSCLUSTER_TABLE)
>
> > (DECW$LOGICAL_NAMES)
> > %SHOW-S-NOTRAN, no translation for logical name DECC*
>
> > Thanks Alan
>
> > Regards,
> > Samina
>
>
> > On Fri, 18 Aug 2006 Alan Winston - SSRL Central Computing wrote :
> > >Samina wrote:
> > >
> > > > I tried giving the username/password in the pathname and still the perl scipt
> > > > fails.
> > >
> > > > In my perl script I have a command
> > >
> > > > open file A or die;
> > >
> > > > So even now, with the username/password, it still dies when it tires to open
> > > > the file.
> > >
> > > > As I said eveything works fine from my VMS $promt.
> > >
> > >This is peculiar. Try
> > >
> > >$ DEFINE/PROCESS FILEA  (fullyqualifiedfilespec)
> > >
> > >and then run the PERL script using "FILEA" instead of the filespec.
> > >
> > >But at this point we'll be past my expertise, which is more VMS than PERL.
> > >
> > >Do these things and show us the results:
> > >
> > >$ write sys$output f$GETSYI("VERSION")
> > >$ PERL "-v"
> > >$ show log decc*
> > >
> > >and maybe one of the gurus here will be able to diagnose.
> > >
> > >-- Alan
> > >
> > >
> > >
> > > > On Thu, 17 Aug 2006 Alan Winston - SSRL Central Computing wrote :
> > > > >Samina wrote:
> > > > >
> > > > > > I am new to VMS and Perl.
> > > > >
> > > > > > I have a VMS command procedure that calls a PErl script with 2 parameters A-
> > > > > >filename of the input file B- Filename of the output file. The perl script
> > > > > >reads the input file A, processes it (removes spaces,etc) and puts this data in
> > > > > >file B in the CSV format.
> > > > >
> > > > > > When File A is on my local directory, the program works fine.
> > > > >
> > > > > > When file A is a file on another cluster, the program fails with the following error (these may not be the exact words)
> > > > > > "Fatal VMS error (status=2312), PERLKIT:[SOURCE]VMS.C;1 at line 5962 at t.perl line 5" No such device
> > > > > > I give the entire pathname for file A-XY12::XYZ1:[ABC.DEF.XYZ]ASDF.CSV
> > > > >
> > > > > > Line 5 in t.pl is the line which tries to open file A.
> > > > >
> > > > > > My question is
> > > > >
> > > > > > Is it not possible for PErl to read a file from another cluster (cross
> > > > > > cluster read)??
> > > > >
> > > > >Sure, it's possible provided that your process is able to read the file.
> > > > >
> > > > >Checking the returned status:
> > > > >
> > > > >$ exit 2312
> > > > >%SYSTEM-W-NOSUCHDEV, no such device available
> > > > >
> > > > >So I'd guess that if you did, for example,
> > > > >
> > > > >$ TYPE (fully specified filespec of file A)
> > > > >
> > > > >you'd get the same error.
> > > > >
> > > > >It doesn't really matter whether the nodename part of that file specification
> > > > >is in another cluster or just on another node in this cluster, provided DECnet
> > > > >proxies are set up correctly.
> > > > >
> > > > >(That is, if you're not going to use username/password in the fully-qualified
> > > > >filespec, there needs to be a proxy set up on the other node that gives
> > > > >yournode::Yourusername default access as remote-fileowner, and proxies have to
> > > > >be enabled, and both nodes have to be running DECnet.)
> > > > >
> > > > >The error suggests that you're using a real nodename but have put in a bogus
> > > > >device name (which, if it's really XYZ1, is probably wrong; device names tend
> > > > >to look like DKxn, DSxn, MKsn, etc, etc.
> > > > >
> > > > >Anyway, take PERL out of the equation, try
> > > > >
> > > > >$ TYPE filespec
> > > > >
> > > > >and if it doesn't work, debug it there.  Then try PERL again, but my sense is
> > > > >that this is not a PERL error.
> > > > >
> > > > >-- Alan
> > > > >
> > > > >--
> > > > >===============================================================================
> > > > >  Alan Winston --- WINSTON@SSRL.SLAC.STANFORD.EDU
> > > > >  Disclaimer: I speak only for myself, not SLAC or SSRL   Phone:  650/926-3056
> > > > >  Paper mail to: SSRL -- SLAC BIN 99, 2575 Sand Hill Rd, Menlo Park CA   94025
> > > > >===============================================================================
> > > > >
> > >
> > >--
> > >===============================================================================
> > >  Alan Winston --- WINSTON@SSRL.SLAC.STANFORD.EDU
> > >  Disclaimer: I speak only for myself, not SLAC or SSRL   Phone:  650/926-3056
> > >  Paper mail to: SSRL -- SLAC BIN 99, 2575 Sand Hill Rd, Menlo Park CA   94025
> > >===============================================================================
> > >
>
>--
>===============================================================================
>  Alan Winston --- WINSTON@SSRL.SLAC.STANFORD.EDU
>  Disclaimer: I speak only for myself, not SLAC or SSRL   Phone:  650/926-3056
>  Paper mail to: SSRL -- SLAC BIN 99, 2575 Sand Hill Rd, Menlo Park CA   94025
>===============================================================================
>

--Boundary_(ID_HDBIpKP7HBB79jluGvYvuw)
Content-type: text/html; charset=iso-8859-1
Content-transfer-encoding: 8BIT
Content-disposition: inline

<P>
&nbsp; Hi Alan<BR>
<BR>
One more thing before we go further :)<BR>
<BR>
I wrote a simple perl script that accepts a file name, prints it out, opens the file (dies if open unsuccessful or prints �open successful�)<BR>
<BR>
1&gt;I passed my local directory filename, it prints �open successful� <BR>
<BR>
2&gt; Now I just add �abcd::� in front of it, and the perl script fails with Remote node is unknown<BR>
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Died<BR>
 at test.pl line 2.<BR>
%SYSTEM-F-NOSUCHNODE, remote node is unknown<BR>
<BR>
So it looks like perl is not being able to understand the node name part. It is not a cross cluster error.<BR>
<BR>
Note: When I say abcd::, internally we actually have Nodes abcd1, abcd2, abcd3. Usually when i do a dir, i would just say abcd::full path and it would go pick it up from whereever it is say abcd3::<BR>
<BR>
Regards,<BR>
Samina<BR>
<BR>
<BR>
<BR>
On Fri, 18 Aug 2006 Alan Winston - SSRL Central Computing wrote :<BR>
&gt;(sorry for top posting)<BR>
&gt;<BR>
&gt;At this point I think we need to see your perl code.<BR>
&gt;<BR>
&gt;<BR>
&gt;-- Alan<BR>
&gt;<BR>
&gt; &gt;<BR>
&gt; &gt; Hi Alan<BR>
&gt;<BR>
&gt; &gt; 1&gt; DEFINE/PROCESS FILEA full pathname (without username/password)<BR>
&gt; &gt; $PERL TEST.PL FILEA<BR>
&gt; &gt; filea<BR>
&gt; &gt;&nbsp; &nbsp; &nbsp; Fatal VMS error (status=2312) at PERLKIT:[SOURCE]VMS.C;1, line 5962 at test<BR>
&gt; &gt; .pl line 2.<BR>
&gt; &gt; %SYSTEM-W-NOSUCHDEV, no such device available<BR>
&gt;<BR>
&gt; &gt; 2&gt;DEFINE/PROCESS FILEA full pathname (with username/password)<BR>
&gt; &gt; $PERL TEST.PL FILEA<BR>
&gt; &gt; filea<BR>
&gt; &gt;&nbsp; &nbsp; &nbsp; Died at test.pl line 2.<BR>
&gt; &gt; %SYSTEM-F-NOSUCHNODE, remote node is unknown<BR>
&gt;<BR>
&gt; &gt; 3&gt;$WRITE SYS$OUTPUT F$GETSYI(&quot;VERSION&quot;)<BR>
&gt; &gt; V7.2-1<BR>
&gt;<BR>
&gt; &gt; 4&gt;$PERL &quot;-v&quot;<BR>
&gt; &gt; This is perl, v5.6.1 built for VMS_AXP<BR>
&gt;<BR>
&gt; &gt; 5&gt;$show log decc*<BR>
&gt;<BR>
&gt; &gt; (LNM$PROCESS_TABLE)<BR>
&gt;<BR>
&gt; &gt; (LNM$JOB_8555B680)<BR>
&gt;<BR>
&gt; &gt; (LNM$GROUP_000410)<BR>
&gt;<BR>
&gt; &gt; (LNM$SYSTEM_TABLE)<BR>
&gt;<BR>
&gt; &gt; (LNM$SYSCLUSTER_TABLE)<BR>
&gt;<BR>
&gt; &gt; (DECW$LOGICAL_NAMES)<BR>
&gt; &gt; %SHOW-S-NOTRAN, no translation for logical name DECC*<BR>
&gt;<BR>
&gt; &gt; Thanks Alan<BR>
&gt;<BR>
&gt; &gt; Regards,<BR>
&gt; &gt; Samina<BR>
&gt;<BR>
&gt;<BR>
&gt; &gt; On Fri, 18 Aug 2006 Alan Winston - SSRL Central Computing wrote :<BR>
&gt; &gt; &gt;Samina wrote:<BR>
&gt; &gt; &gt;<BR>
&gt; &gt; &gt; &gt; I tried giving the username/password in the pathname and still the perl scipt<BR>
&gt; &gt; &gt; &gt; fails.<BR>
&gt; &gt; &gt;<BR>
&gt; &gt; &gt; &gt; In my perl script I have a command<BR>
&gt; &gt; &gt;<BR>
&gt; &gt; &gt; &gt; open file A or die;<BR>
&gt; &gt; &gt;<BR>
&gt; &gt; &gt; &gt; So even now, with the username/password, it still dies when it tires to open<BR>
&gt; &gt; &gt; &gt; the file.<BR>
&gt; &gt; &gt;<BR>
&gt; &gt; &gt; &gt; As I said eveything works fine from my VMS $promt.<BR>
&gt; &gt; &gt;<BR>
&gt; &gt; &gt;This is peculiar. Try<BR>
&gt; &gt; &gt;<BR>
&gt; &gt; &gt;$ DEFINE/PROCESS FILEA&nbsp; (fullyqualifiedfilespec)<BR>
&gt; &gt; &gt;<BR>
&gt; &gt; &gt;and then run the PERL script using &quot;FILEA&quot; instead of the filespec.<BR>
&gt; &gt; &gt;<BR>
&gt; &gt; &gt;But at this point we'll be past my expertise, which is more VMS than PERL.<BR>
&gt; &gt; &gt;<BR>
&gt; &gt; &gt;Do these things and show us the results:<BR>
&gt; &gt; &gt;<BR>
&gt; &gt; &gt;$ write sys$output f$GETSYI(&quot;VERSION&quot;)<BR>
&gt; &gt; &gt;$ PERL &quot;-v&quot;<BR>
&gt; &gt; &gt;$ show log decc*<BR>
&gt; &gt; &gt;<BR>
&gt; &gt; &gt;and maybe one of the gurus here will be able to diagnose.<BR>
&gt; &gt; &gt;<BR>
&gt; &gt; &gt;-- Alan<BR>
&gt; &gt; &gt;<BR>
&gt; &gt; &gt;<BR>
&gt; &gt; &gt;<BR>
&gt; &gt; &gt; &gt; On Thu, 17 Aug 2006 Alan Winston - SSRL Central Computing wrote :<BR>
&gt; &gt; &gt; &gt; &gt;Samina wrote:<BR>
&gt; &gt; &gt; &gt; &gt;<BR>
&gt; &gt; &gt; &gt; &gt; &gt; I am new to VMS and Perl.<BR>
&gt; &gt; &gt; &gt; &gt;<BR>
&gt; &gt; &gt; &gt; &gt; &gt; I have a VMS command procedure that calls a PErl script with 2 parameters A-<BR>
&gt; &gt; &gt; &gt; &gt; &gt;filename of the input file B- Filename of the output file. The perl script<BR>
&gt; &gt; &gt; &gt; &gt; &gt;reads the input file A, processes it (removes spaces,etc) and puts this data in<BR>
&gt; &gt; &gt; &gt; &gt; &gt;file B in the CSV format.<BR>
&gt; &gt; &gt; &gt; &gt;<BR>
&gt; &gt; &gt; &gt; &gt; &gt; When File A is on my local directory, the program works fine.<BR>
&gt; &gt; &gt; &gt; &gt;<BR>
&gt; &gt; &gt; &gt; &gt; &gt; When file A is a file on another cluster, the program fails with the following error (these may not be the exact words)<BR>
&gt; &gt; &gt; &gt; &gt; &gt; &quot;Fatal VMS error (status=2312), PERLKIT:[SOURCE]VMS.C;1 at line 5962 at t.perl line 5&quot; No such device<BR>
&gt; &gt; &gt; &gt; &gt; &gt; I give the entire pathname for file A-XY12::XYZ1:[ABC.DEF.XYZ]ASDF.CSV<BR>
&gt; &gt; &gt; &gt; &gt;<BR>
&gt; &gt; &gt; &gt; &gt; &gt; Line 5 in t.pl is the line which tries to open file A.<BR>
&gt; &gt; &gt; &gt; &gt;<BR>
&gt; &gt; &gt; &gt; &gt; &gt; My question is<BR>
&gt; &gt; &gt; &gt; &gt;<BR>
&gt; &gt; &gt; &gt; &gt; &gt; Is it not possible for PErl to read a file from another cluster (cross<BR>
&gt; &gt; &gt; &gt; &gt; &gt; cluster read)??<BR>
&gt; &gt; &gt; &gt; &gt;<BR>
&gt; &gt; &gt; &gt; &gt;Sure, it's possible provided that your process is able to read the file.<BR>
&gt; &gt; &gt; &gt; &gt;<BR>
&gt; &gt; &gt; &gt; &gt;Checking the returned status:<BR>
&gt; &gt; &gt; &gt; &gt;<BR>
&gt; &gt; &gt; &gt; &gt;$ exit 2312<BR>
&gt; &gt; &gt; &gt; &gt;%SYSTEM-W-NOSUCHDEV, no such device available<BR>
&gt; &gt; &gt; &gt; &gt;<BR>
&gt; &gt; &gt; &gt; &gt;So I'd guess that if you did, for example,<BR>
&gt; &gt; &gt; &gt; &gt;<BR>
&gt; &gt; &gt; &gt; &gt;$ TYPE (fully specified filespec of file A)<BR>
&gt; &gt; &gt; &gt; &gt;<BR>
&gt; &gt; &gt; &gt; &gt;you'd get the same error.<BR>
&gt; &gt; &gt; &gt; &gt;<BR>
&gt; &gt; &gt; &gt; &gt;It doesn't really matter whether the nodename part of that file specification<BR>
&gt; &gt; &gt; &gt; &gt;is in another cluster or just on another node in this cluster, provided DECnet<BR>
&gt; &gt; &gt; &gt; &gt;proxies are set up correctly.<BR>
&gt; &gt; &gt; &gt; &gt;<BR>
&gt; &gt; &gt; &gt; &gt;(That is, if you're not going to use username/password in the fully-qualified<BR>
&gt; &gt; &gt; &gt; &gt;filespec, there needs to be a proxy set up on the other node that gives<BR>
&gt; &gt; &gt; &gt; &gt;yournode::Yourusername default access as remote-fileowner, and proxies have to<BR>
&gt; &gt; &gt; &gt; &gt;be enabled, and both nodes have to be running DECnet.)<BR>
&gt; &gt; &gt; &gt; &gt;<BR>
&gt; &gt; &gt; &gt; &gt;The error suggests that you're using a real nodename but have put in a bogus<BR>
&gt; &gt; &gt; &gt; &gt;device name (which, if it's really XYZ1, is probably wrong; device names tend<BR>
&gt; &gt; &gt; &gt; &gt;to look like DKxn, DSxn, MKsn, etc, etc.<BR>
&gt; &gt; &gt; &gt; &gt;<BR>
&gt; &gt; &gt; &gt; &gt;Anyway, take PERL out of the equation, try<BR>
&gt; &gt; &gt; &gt; &gt;<BR>
&gt; &gt; &gt; &gt; &gt;$ TYPE filespec<BR>
&gt; &gt; &gt; &gt; &gt;<BR>
&gt; &gt; &gt; &gt; &gt;and if it doesn't work, debug it there.&nbsp; Then try PERL again, but my sense is<BR>
&gt; &gt; &gt; &gt; &gt;that this is not a PERL error.<BR>
&gt; &gt; &gt; &gt; &gt;<BR>
&gt; &gt; &gt; &gt; &gt;-- Alan<BR>
&gt; &gt; &gt; &gt; &gt;<BR>
&gt; &gt; &gt; &gt; &gt;--<BR>
&gt; &gt; &gt; &gt; &gt;===============================================================================<BR>
&gt; &gt; &gt; &gt; &gt;&nbsp; Alan Winston --- WINSTON@SSRL.SLAC.STANFORD.EDU<BR>
&gt; &gt; &gt; &gt; &gt;&nbsp; Disclaimer: I speak only for myself, not SLAC or SSRL&nbsp;  Phone:&nbsp; 650/926-3056<BR>
&gt; &gt; &gt; &gt; &gt;&nbsp; Paper mail to: SSRL -- SLAC BIN 99, 2575 Sand Hill Rd, Menlo Park CA&nbsp;  94025<BR>
&gt; &gt; &gt; &gt; &gt;===============================================================================<BR>
&gt; &gt; &gt; &gt; &gt;<BR>
&gt; &gt; &gt;<BR>
&gt; &gt; &gt;--<BR>
&gt; &gt; &gt;===============================================================================<BR>
&gt; &gt; &gt;&nbsp; Alan Winston --- WINSTON@SSRL.SLAC.STANFORD.EDU<BR>
&gt; &gt; &gt;&nbsp; Disclaimer: I speak only for myself, not SLAC or SSRL&nbsp;  Phone:&nbsp; 650/926-3056<BR>
&gt; &gt; &gt;&nbsp; Paper mail to: SSRL -- SLAC BIN 99, 2575 Sand Hill Rd, Menlo Park CA&nbsp;  94025<BR>
&gt; &gt; &gt;===============================================================================<BR>
&gt; &gt; &gt;<BR>
&gt;<BR>
&gt;--<BR>
&gt;===============================================================================<BR>
&gt;&nbsp; Alan Winston --- WINSTON@SSRL.SLAC.STANFORD.EDU<BR>
&gt;&nbsp; Disclaimer: I speak only for myself, not SLAC or SSRL&nbsp;  Phone:&nbsp; 650/926-3056<BR>
&gt;&nbsp; Paper mail to: SSRL -- SLAC BIN 99, 2575 Sand Hill Rd, Menlo Park CA&nbsp;  94025<BR>
&gt;===============================================================================<BR>
&gt;<BR>

</P>
<br><br>
<a href="http://adworks.rediff.com/cgi-bin/AdWorks/sigclick.cgi/www.rediff.com/signature-home.htm/1507191490@Middle5?PARTNER=3"><IMG SRC="http://adworks.rediff.com/cgi-bin/AdWorks/sigimpress.cgi/www.rediff.com/signature-home.htm/1963059423@Middle5?OAS_query=null&PARTNER=3" BORDER=0 VSPACE=0 HSPACE=0></a>

--Boundary_(ID_HDBIpKP7HBB79jluGvYvuw)--
0
saminakadri
8/18/2006 3:02:49 AM
perl.vmsperl 1645 articles. 0 followers. Follow

0 Replies
1344 Views

Similar Articles

[PageSpeed] 31
Get it on Google Play
Get it on Apple App Store

Reply:

Similar Artilces:

Re: Re: Re: cross cluster read fails
--Boundary_(ID_TNemUuI3nZgxg62mlKJALw) Content-type: text/plain; charset=iso-8859-1 Content-transfer-encoding: 8BIT Content-disposition: inline � Hi Alan 1> DEFINE/PROCESS FILEA full pathname (without username/password) $PERL TEST.PL FILEA filea Fatal VMS error (status=2312) at PERLKIT:[SOURCE]VMS.C;1, line 5962 at test ..pl line 2. %SYSTEM-W-NOSUCHDEV, no such device available 2>DEFINE/PROCESS FILEA full pathname (with username/password) $PERL TEST.PL FILEA filea Died at test.pl line 2. %SYSTEM-F-NOSUCHNODE, remote node is unknown 3>$WRITE SYS$OUTP...

RE : RE : RE : RE : Regular expressions
Here is a sample of what your piece of code returns on my Aix box. 44520 -> /prog/gena/8.1.1/bin/dispatch 44650 -> reproject 45176 -> aioserver 45432 -> aioserver 45724 -> -ksh 46002 -> /bin/bsh 46232 -> /usr/dt/bin/dtterm 46584 -> /usr/bin/ksh 46820 -> /usr/dt/bin/ttsession 47060 -> /bin/bsh 47304 -> /usr/dt/bin/dtlogin 47396 -> /usr/dt/bin/dtterm 47722 -> dtfile 47942 -> /usr/dt/bin/dtsession 48272 -> dtfile 48568 -> ora_cjq0_gist 48758 -> gxtrackd 49032 -> dtwm 49330 -> /usr/lib/lpd/pio/etc/piohpnpf 49592 -> b...

Re: Re:
Sorry about that, my mistake, the patched method goes like this: procedure DeallocateHWnd(Wnd: HWND); var Instance: Pointer; begin Instance := Pointer(GetWindowLong(Wnd, GWL_WNDPROC)); if Instance <> @DefWindowProc then begin { make sure we restore the default windows procedure before freeing memory } SetWindowLong(Wnd, GWL_WNDPROC, Longint(@DefWindowProc)); FreeObjectInstance(Instance); end; DestroyWindow(Wnd); end; "Andreas Hausladen" <AndreasDOTHausladen@gObviousToBeRemovedmx.de> wrote in message news:99620@f...

RE : RE : RE : RE : Regular expressions #2
No worries :-) It works now, thanks a lot :-) Best regards, Steve Hemond Programmeur Analyste / Analyst Programmer Smurfit-Stone, Ressources Foresti=E8res La Tuque, P.Q. Tel.: (819) 676-8100 X2833 shemond@smurfit.com=20 > -----Original Message----- > From: drieux [mailto:drieux@wetware.com]=20 > Sent: Wednesday, December 17, 2003 1:38 PM > To: Perl Perl > Subject: Re: RE : RE : RE : Regular expressions >=20 >=20 >=20 > On Dec 17, 2003, at 10:24 AM, drieux wrote: >=20 > > > > open(PS, "ps -efA|") or...

RE: Re: [wxperl-users] Re: Re: EVT_QUERY_END_SESSION
you putted the EVT_CLOSE to the wrong place... or do you have a reason why you need it to be there? $app ist not the window, but you could use EVT_CLOSE on $frame too. i changed your minimal sample that it works. hope it helps greeting Marco ---- use Wx; ########################### package MyApp; use strict; use vars qw(@ISA); @ISA=qw(Wx::App); sub OnInit { my( $this ) = @_; my( $frame ) = MyFrame->new( "Minimal wxPerl app", Wx::Point->new( 50, 50 ), Wx::Size->new( 450, 350 ) ); ...

Re: Re: Re: RE: capture a website and process its data
--Next_1077222091---0-202.54.124.153-17281 Content-type: text/plain; charset=iso-8859-1 Content-Transfer-Encoding: quoted-printable Content-Disposition: inline Hi Rob,=0AI implemented your code and it gave perfectly desired answers. Bu= t I couldn't understand most of it. So, currently I went ahead with Dan's t= ips on my code only and would try to understand your code later after I mee= t a deadline for a small project of mine in college for tomorrow! So, no qu= estions as of now. =0A=0Acheers.=0AK(ay).=0A=0A=0AOn Thu, 19 Feb 2004 Rob D= ixon wrote :=0A>Scott E Robinso...

RE : RE : RE : Regular expressions
I am issuing this command on an Aix box and running allright :-) Forgive my curiosity.. are you running Solaris on a x86 box?=20 Steve Hemond Programmeur Analyste / Analyst Programmer Smurfit-Stone, Ressources Foresti=E8res La Tuque, P.Q. Tel.: (819) 676-8100 X2833 shemond@smurfit.com=20 > -----Original Message----- > From: drieux [mailto:drieux@wetware.com]=20 > Sent: Wednesday, December 17, 2003 1:14 PM > To: Perl Perl > Subject: Re: RE : RE : Regular expressions >=20 >=20 >=20 > On Dec 17, 2003, at 8:47 AM, Hemond, Steve wrote: ...

RE: Re: Re: Sub not working as it should
You don't need to be sorry - it's the right choice ;-) Philipp > -----Original Message----- > > I am sorry I am migrating over to perl (love the built > in debugger) > --- Saadat Saeed <saadat_saeed@yahoo.com> wrote: > > Thanks for the quick reponse - looks like I confuse > > my > > vbscript skills a bit... I am new to perl and am > > migrating over to vbscript! > > > > Regards > > > > > > --- Jeff 'japhy' Pinyan <japhy@perlmonk.org> wrote: > > > On Jan 21, Saadat S...

RE: RE: Re: Tri-grams?
------_=_NextPart_001_01C6380E.13FCCC91 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable -----Original Message----- From: amit hetawal [mailto:amit_h123@rediffmail.com] Sent: Wednesday, February 22, 2006 16:00 To: Wagner, David --- Senior Programmer Analyst --- WGO Subject: Re: RE: Re: Tri-grams? hi there the sequnce with alpha _ _ is valid but not _ _ _ I replaced the 4 four lines in your program with the following four line= s. =20 next if ( $char !~ /[a-z]/i ); my $char2 =3D substr $_, $ii+1, 1; ...

RE: RE: RE: RE: [wxperl-users] wxTreeCtrl, edit an treeItem
>>Found a fix ( I hope ); download the modified wx22_9.dll from >>http://wwwstud.dsi.unive.it/~mbarbon/wx/wx22_9.dll.gz >>uncompress it and put it in $PERL/site/lib/auto/Wx >>( make a backup of the original one, of course ). >>This fixes your problem with tree control, but may introduce >>new ones ( it is a fix backported from wxWIndows 2.3 ). >> >>Regards >>Mattia > >hey thanks man! >i had no time to work on my application but i checked the wxwindows >mailinglist archive. you asked for a code change as workaround......

Re: Re-inventing the wheel [was RE: Why not gmp? [was Re: pdd14 -- bignums] ]
Simon Cozens <simon@netthink.c To: Shlomi Fish <shlomif@vipe.technion.ac.il> o.uk> cc: perl6-internals@perl.org ...

Re: Re: Re: @INC and cross-platform path usage
I wrote the following script that fits my needs; maybe someone finds it use= ful, maybe someone finds an error in it (if so, let me know - I tested it o= n OS X and Win XP):=0A=0Ause File::Spec;=0Amy ($volume,$softwaredir,$librar= ydir);=0A=0A($volume,$softwaredir) =3D File::Spec->splitpath(__FILE__);=0A$= librarydir =3D File::Spec->catpath($volume,$softwaredir,'libraries');=0A=0A= unshift (@INC,$librarydir);=0A=0A@Gunnar Hjalmarsson:=0A=0A> Sure, but note= that you need to put it in a BEGIN block if you want it =0A> to happen at = compile time.=0A> =0A> I'...

RE : RE : RE : Regular expressions #2
drieux is right about me being exploring Perl. In fact, that is a good = exercice to play with regular expressions and data types as I had to = build a hash of hashes to do the thing. However, I wouldn't let a script in that stat if I knew of a = better/quicker/shorter method. I will then have to improve my script soon. What would be the best way to put values returned by the ps command you = just mentionned in variables? Thanks again for your great help.=20 P.S : I look like the typical lazy guy who don`t even read and try by = himself. This is because I am at work, ...

Re: Re: Re: Re: counting tr thinks it's modifying
I was talking about the behavior of the operator, not how it is implemented =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D >De:Jarkko Hietaniemi <jhi@iki.fi> >Para:Daniel Ruoso <daniel@ruoso.com> >Assunto:Re: Re: Re: counting tr thinks it's modifying > >> so tr becomes a {if (r=3D=3Ds) {"COUNTING ONLY"} >else {"COUNTING AND REPLACEMENT"}} operator.=20 > >It's not like this is new behaviour: for example >5.004_05 has code >like this in doop.c: > > if (SvREADONLY(sv) && !(op->op_pri...