[31430] in Perl-Users-Digest
Perl-Users Digest, Issue: 2682 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Nov 18 21:09:46 2009
Date: Wed, 18 Nov 2009 18:09:12 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Wed, 18 Nov 2009 Volume: 11 Number: 2682
Today's topics:
Re: How link it takes when line protocol drops and rout <uri@StemSystems.com>
How link it takes when line protocol drops and route to <cyrusgreats@gmail.com>
Perl to use and create PHP sessions? <sysadmin@example.com>
Re: Perl to use and create PHP sessions? <sysadmin@example.com>
Re: Perl to use and create PHP sessions? <sysadmin@example.com>
Re: Perl to use and create PHP sessions? <ben@morrow.me.uk>
regexp that seems not to work since 5.10 <scottalorda@libello.com>
Re: regexp that seems not to work since 5.10 <scottalorda@libello.com>
Re: regexp that seems not to work since 5.10 <derykus@gmail.com>
Re: regexp that seems not to work since 5.10 <scottalorda@libello.com>
Re: regexp that seems not to work since 5.10 <rvtol+usenet@xs4all.nl>
Re: regexp that seems not to work since 5.10 <ben@morrow.me.uk>
Re: regexp that seems not to work since 5.10 <rvtol+usenet@xs4all.nl>
Re: regexp that seems not to work since 5.10 sln@netherlands.com
Reverse engineering d'un code Perl <nabil.baklouti@gmail.com>
Reverse engineering of Perl Code <nabil.baklouti@gmail.com>
Re: Reverse engineering of Perl Code <jurgenex@hotmail.com>
Re: Reverse engineering of Perl Code <sysadmin@example.com>
Re: Reverse engineering of Perl Code <ben@morrow.me.uk>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 18 Nov 2009 18:29:50 -0500
From: "Uri Guttman" <uri@StemSystems.com>
Subject: Re: How link it takes when line protocol drops and route to be removed from route table
Message-Id: <87ws1nh0nl.fsf@quad.sysarch.com>
>>>>> "O" == Obama <cyrusgreats@gmail.com> writes:
O> Does anyone know how long it takes for PBR in Cisco to switch route
O> when line protocol is down.
and your perl question is?
and why did you put the same question in the subject and in the body?
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.sysarch.com --
----- Perl Code Review , Architecture, Development, Training, Support ------
--------- Gourmet Hot Cocoa Mix ---- http://bestfriendscocoa.com ---------
------------------------------
Date: Wed, 18 Nov 2009 15:27:53 -0800 (PST)
From: Obama <cyrusgreats@gmail.com>
Subject: How link it takes when line protocol drops and route to be removed from route table
Message-Id: <71763ae5-d648-41a5-9d77-461ea35575e9@t11g2000prh.googlegroups.com>
Does anyone know how long it takes for PBR in Cisco to switch route
when line protocol is down.
------------------------------
Date: Wed, 18 Nov 2009 16:41:53 -0800
From: Wanna-Be Sys Admin <sysadmin@example.com>
Subject: Perl to use and create PHP sessions?
Message-Id: <mv0Nm.35643$Wd1.9305@newsfe15.iad>
Hi,
I'm as familiar with PHP as I am with Perl (which I've been using for a
decade), and I prefer to code in Perl over PHP in every instance. The
problem is other developers at my job code in PHP and want my code to
work with their PHP scripts for a few things where variables can't just
be passed back and forth (regarding sessions).
To put it plainly, it's a centralized login, and once someone logs into
the main area (PHP driven), they should be able to use my contributed
scripts without logging in again by just following a link normally, and
then go back to a PHP driven area once they are done (if they choose
to). Ideally, if they hit my scripts first and log in there, they
should be able to not have to log into the PHP area either.
I've rolled out my own custom sessions for the Perl scripts, and it's
doing everything it should, but I need to tie into the main company
area scripts seamlessly, really, only for this particular task of
logging in (from my scripts or theirs) and using all areas (PHP or Perl
driven).
I've looked at the PHP::Session module, but it only mentions working
with PHP 4 sessions (not PHP 5). Perl is running in CGI with the
SuEXEC wrapper and PHP is currently running as DOS (mod_perl). Does
anyone have any advice or experience with this? I have to figure out
how to have this user Perl will run as read the global user file (owned
by nobody) as a first hurdle (since it's only set to the nobody user
with permissions of 600).
Secondly, is reading/writing and using the sessions from Perl, but I
don't want the session to be created with world read/write, but I don't
know how else their PHP scripts can use the session or remove it when
needed.
In the end, I can force people to just log in with the same credentials
for my area, but I'd like to be company friendly with the other
developers and not have to recode this in PHP, if I can help it (though
it's not the end of the world if I do have to). Any ideas, suggestions
or experience by anyone of how to get around this would be greatly
appreciated. Thanks.
--
Not really a wanna-be, but I don't know everything.
------------------------------
Date: Wed, 18 Nov 2009 16:46:22 -0800
From: Wanna-Be Sys Admin <sysadmin@example.com>
Subject: Re: Perl to use and create PHP sessions?
Message-Id: <zz0Nm.42152$Wf2.1583@newsfe23.iad>
geez, major typos here:
> I'm as familiar with PHP as I am with Perl
I'm NOT as familiar with PHP as I am with Perl
...
> with PHP 4 sessions (not PHP 5).  Perl is running in CGI with the
> SuEXEC wrapper and PHP is currently running as DOS (mod_perl).
Should say PHP is currently running as a DSO (Apahe module) for mod_php
(NOT mod_perl -- that would make the problem easier to deal with them,
ironically. Perl is CGI/SuEXEC, PHP is mod_php, to be clear).
Anyway, please let me know if this seems possible (and remember, I can't
change how Perl runs as CGU w/ SuEXEC or change any of their PHP
scripts).
--
Not really a wanna-be, but I don't know everything.
------------------------------
Date: Wed, 18 Nov 2009 16:47:52 -0800
From: Wanna-Be Sys Admin <sysadmin@example.com>
Subject: Re: Perl to use and create PHP sessions?
Message-Id: <YA0Nm.42164$Wf2.30045@newsfe23.iad>
Wanna-Be Sys Admin wrote:
>
> Anyway, please let me know if this seems possible (and remember, I
> can't change how Perl runs as CGU w/ SuEXEC or change any of their
^^^
CGI, not CGU. Also, above, was Apache (but that was likely obvious).
Man, I'm just going to stop typing for a while today!
--
Not really a wanna-be, but I don't know everything.
------------------------------
Date: Thu, 19 Nov 2009 01:33:54 +0000
From: Ben Morrow <ben@morrow.me.uk>
Subject: Re: Perl to use and create PHP sessions?
Message-Id: <2tjet6-phc2.ln1@osiris.mauzo.dyndns.org>
Quoth Wanna-Be Sys Admin <sysadmin@example.com>:
>
> To put it plainly, it's a centralized login, and once someone logs into
> the main area (PHP driven), they should be able to use my contributed
> scripts without logging in again by just following a link normally, and
> then go back to a PHP driven area once they are done (if they choose
> to). Ideally, if they hit my scripts first and log in there, they
> should be able to not have to log into the PHP area either.
>
> I've rolled out my own custom sessions for the Perl scripts, and it's
> doing everything it should, but I need to tie into the main company
> area scripts seamlessly, really, only for this particular task of
> logging in (from my scripts or theirs) and using all areas (PHP or Perl
> driven).
>
> I've looked at the PHP::Session module, but it only mentions working
> with PHP 4 sessions (not PHP 5). Perl is running in CGI with the
> SuEXEC wrapper and PHP is currently running as DOS (mod_perl). Does
> anyone have any advice or experience with this? I have to figure out
> how to have this user Perl will run as read the global user file (owned
> by nobody) as a first hurdle (since it's only set to the nobody user
> with permissions of 600).
One rather crude approach would be to write a minimal PHP script that
just dumps all the session variables (as plain text, or JSON, or
something) and then invoke that script using LWP from your perl scripts,
passing along all the appropriate cookie headers. If you are able to it
would probably be a good idea to disallow access to that URL from
outside your site.
Any other approach is going to have to start by giving Perl some sort of
access to the php sessions file. Whether that means changing its
permissions, running perl as the appropriate user, or writing some sort
of daemon running as the right user that will read the file for you is
up to you. All have their upside and downsides, and all would need
careful consideration of any possible security implications.
Ben
------------------------------
Date: Wed, 18 Nov 2009 03:05:40 -0800 (PST)
From: =?ISO-8859-1?Q?S=E9bastien_Cottalorda?= <scottalorda@libello.com>
Subject: regexp that seems not to work since 5.10
Message-Id: <360e2021-cb67-4fd6-b9ef-8b30ffa16df6@f16g2000yqm.googlegroups.com>
Hi all,
I use a regexp to split a network frame protocol like this.
#-------------------------------------------------------------------
#!/usr/bin/perl -w
use strict;
use constant ETX => chr( hex('03'));
use constant ACK => chr( hex('06'));
use constant NACK => chr( hex('15'));
my $endcar = ACK.'|'.NACK.'|'.ETX.'.{1}',
my $line = 'hello World'.ETX.'XHow are you today ?'.ETX.'XWell, not so
bad.'.ETX.'X';
while ($line =~ s/([^$endcar]*$endcar)//){
my $buf = $1;
print $buf."\n";
}
print "$line\n";
exit;
#--------------------------------------------------------------------
With 5.8.X version, I use to have:
hello World
How are you today ?
Well, not so bad.
Now I have :
X
X
X
hello WorldHow are you today ?Well, not so bad.
Could someone help me to solve that problem.
Thanks in advance for any help.
Cheers.
Sebastien
------------------------------
Date: Wed, 18 Nov 2009 03:20:20 -0800 (PST)
From: =?ISO-8859-1?Q?S=E9bastien_Cottalorda?= <scottalorda@libello.com>
Subject: Re: regexp that seems not to work since 5.10
Message-Id: <ec8f7777-fd96-422e-91b4-fd9c3868d996@x31g2000yqx.googlegroups.com>
Sorry,
With 5.8.X version, I use to have:
hello World{ETX}X
How are you today ?{ETX}X
Well, not so bad.{ETX}X
------------------------------
Date: Wed, 18 Nov 2009 06:41:08 -0800 (PST)
From: "C.DeRykus" <derykus@gmail.com>
Subject: Re: regexp that seems not to work since 5.10
Message-Id: <c10dc2cc-3b9b-43cf-abec-dc803e01aedd@k13g2000prh.googlegroups.com>
On Nov 18, 3:05=A0am, S=E9bastien Cottalorda <scottalo...@libello.com>
wrote:
> Hi all,
> I use a regexp to split a network frame protocol like this.
>
> #-------------------------------------------------------------------
> #!/usr/bin/perl -w
> use strict;
> use constant ETX =A0=3D> chr( hex('03'));
> use constant ACK =A0=3D> chr( hex('06'));
> use constant NACK =3D> chr( hex('15'));
> my $endcar =3D ACK.'|'.NACK.'|'.ETX.'.{1}',
^
^
typo - trailing , instead of ;
> my $line =3D 'hello World'.ETX.'XHow are you today ?'.ETX.'XWell, not so
> bad.'.ETX.'X';
> while ($line =3D~ s/([^$endcar]*$endcar)//){
^
^
Did you know that alternation and quantifiers
aren't special in a character class..? The
| and {1} in $endcar aren't doing what you
might think at first glance. See perlrequick
or perlretut.
> =A0 =A0 =A0 =A0 my $buf =3D $1;
> =A0 =A0 =A0 =A0 print $buf."\n";}
>
> print "$line\n";
> exit;
> ...
--
Charles DeRykus
------------------------------
Date: Wed, 18 Nov 2009 08:37:50 -0800 (PST)
From: =?ISO-8859-1?Q?S=E9bastien_Cottalorda?= <scottalorda@libello.com>
Subject: Re: regexp that seems not to work since 5.10
Message-Id: <799a7af8-ed10-4f2f-9370-506b04aa2665@j19g2000yqk.googlegroups.com>
On 18 nov, 15:41, "C.DeRykus" <dery...@gmail.com> wrote:
> On Nov 18, 3:05=A0am, S=E9bastien Cottalorda <scottalo...@libello.com>
> wrote:> Hi all,
> > I use a regexp to split a network frame protocol like this.
>
> > #-------------------------------------------------------------------
> > #!/usr/bin/perl -w
> > use strict;
> > use constant ETX =A0=3D> chr( hex('03'));
> > use constant ACK =A0=3D> chr( hex('06'));
> > use constant NACK =3D> chr( hex('15'));
> > my $endcar =3D ACK.'|'.NACK.'|'.ETX.'.{1}';
> > my $line =3D 'hello World'.ETX.'XHow are you today ?'.ETX.'XWell, not s=
o
> > bad.'.ETX.'X';
> > while ($line =3D~ s/([^$endcar]*$endcar)//){
>
> =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 ^
> =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 ^
> =A0 =A0 =A0 =A0 =A0 =A0 =A0 Did you know that alternation and quantifiers
> =A0 =A0 =A0 =A0 =A0 =A0 =A0 aren't special in a character class..? The
> =A0 =A0 =A0 =A0 =A0 =A0 =A0 | and {1} in $endcar aren't doing what you
> =A0 =A0 =A0 =A0 =A0 =A0 =A0 might think at first glance. See perlrequick
> =A0 =A0 =A0 =A0 =A0 =A0 =A0 or perlretut.
>
> > =A0 =A0 =A0 =A0 my $buf =3D $1;
> > =A0 =A0 =A0 =A0 print $buf."\n";}
>
> > print "$line\n";
> > exit;
> > ...
>
> --
> Charles DeRykus
I've tried those modifications :
with
my $endcar =3D ACK.'|'.NACK.'|'.ETX;
my $line =3D 'hello World'.ETX.'How are you today ?'.ETX.'Well, not so
bad.'.ETX;
while ($line =3D~ s/([^($endcar)]*($endcar))//){
it works pretty good but I cannot manage to make it works with ACK,
NACK and ETX.'.'
I even tried this:
my $endcar =3D ACK.'|'.NACK.'|'.ETX.'.';
my $line =3D 'hello World'.ETX.'XHow are you today ?'.ETX.'XWell, not so
bad.'.ETX.'X';
while ($line =3D~ s/([[:^cntrl:]]*($endcar))//){
and it works perfectly but it's a particular case : I suppose that
split caracters are controls.
but this regexp didn't work with :
my $endcar =3D ACK.'|'.NACK.'|'.ETX.'.';
my $line =3D STX.'hello World'.ETX.'X'.ACK.NACK.STX.'How are you
today ?'.ETX.'X'.ACK.STX.'Well, not so bad.'.ETX.NACK;
Unfortunately I need to make that last sample to work.
If someone as a clue ?
Thanks in advance.
Sebastien
------------------------------
Date: Wed, 18 Nov 2009 18:53:04 +0100
From: "Dr.Ruud" <rvtol+usenet@xs4all.nl>
Subject: Re: regexp that seems not to work since 5.10
Message-Id: <4b043480$0$22945$e4fe514c@news.xs4all.nl>
Sébastien Cottalorda wrote:
> I use a regexp to split a network frame protocol like this.
>
> #-------------------------------------------------------------------
> #!/usr/bin/perl -w
> use strict;
> use constant ETX => chr( hex('03'));
Alternative:
use constant ETX => "\x{03}";
> use constant ACK => chr( hex('06'));
> use constant NACK => chr( hex('15'));
> my $endcar = ACK.'|'.NACK.'|'.ETX.'.{1}',
Why does that line end in a comma?
my ($ETX, $ACK, $NACK) = ("\x{03}", "\x{06}", "\x{15}");
my $endcar = "(?:$ETX|$ACK|$NACK)"; # alternation
Alternative:
my $endcar= "[$ETX$ACK$NACK]"; # charset
> while ($line =~ s/([^$endcar]*$endcar)//){
You are messing up character class and alternation there.
With your $endcar, this would work:
while ($line =~ s/(.*?(?:$endcar))//s){
--
Ruud
------------------------------
Date: Wed, 18 Nov 2009 18:30:18 +0000
From: Ben Morrow <ben@morrow.me.uk>
Subject: Re: regexp that seems not to work since 5.10
Message-Id: <q2rdt6-q9n2.ln1@osiris.mauzo.dyndns.org>
Quoth "Dr.Ruud" <rvtol+usenet@xs4all.nl>:
> Sébastien Cottalorda wrote:
>
> > I use a regexp to split a network frame protocol like this.
> >
> > #-------------------------------------------------------------------
> > #!/usr/bin/perl -w
> > use strict;
> > use constant ETX => chr( hex('03'));
>
> Alternative:
>
> use constant ETX => "\x{03}";
>
>
> > use constant ACK => chr( hex('06'));
> > use constant NACK => chr( hex('15'));
> > my $endcar = ACK.'|'.NACK.'|'.ETX.'.{1}',
>
> Why does that line end in a comma?
>
> my ($ETX, $ACK, $NACK) = ("\x{03}", "\x{06}", "\x{15}");
>
> my $endcar = "(?:$ETX|$ACK|$NACK)"; # alternation
You've omitted the trailing '.{1}' (which is equivalent to just '.').
my $endcar = "(?:$ETX|$ACK|$NACK).";
> Alternative:
>
> my $endcar= "[$ETX$ACK$NACK]"; # charset
As above.
> > while ($line =~ s/([^$endcar]*$endcar)//){
>
> You are messing up character class and alternation there.
>
>
> With your $endcar, this would work:
>
> while ($line =~ s/(.*?(?:$endcar))//s){
That depends. /.*?/ is not always equivalent to a negated end condition,
for instance /.*?>x/ will match all of ">>x" whereas /[^>]*>x/ will only
match the last two characters. I suspect what the OP wants here is
my $endcar = "\x3\x6\x15";
while ($line =~ s/([^$endcar]*[$endcar].//) {
possibly with a /s modifier, since this is a binary protocol so random
newlines seem likely.
Ben
------------------------------
Date: Wed, 18 Nov 2009 21:00:31 +0100
From: "Dr.Ruud" <rvtol+usenet@xs4all.nl>
Subject: Re: regexp that seems not to work since 5.10
Message-Id: <4b04525f$0$22917$e4fe514c@news.xs4all.nl>
Ben Morrow wrote:
> I suspect what the OP wants here is
>
> my $endcar = "\x3\x6\x15";
>
> while ($line =~ s/([^$endcar]*[$endcar].//) {
That is more or less (count the half captures :) what I assumed,
and I also assumed that he would find out the rest himself.
--
Ruud
------------------------------
Date: Wed, 18 Nov 2009 12:41:41 -0800
From: sln@netherlands.com
Subject: Re: regexp that seems not to work since 5.10
Message-Id: <44j8g5p90if28jl5jhva3b85fomb7uka8q@4ax.com>
On Wed, 18 Nov 2009 18:30:18 +0000, Ben Morrow <ben@morrow.me.uk> wrote:
>
>Quoth "Dr.Ruud" <rvtol+usenet@xs4all.nl>:
>> Sébastien Cottalorda wrote:
>>
>> > I use a regexp to split a network frame protocol like this.
>> >
>> > #-------------------------------------------------------------------
>> > #!/usr/bin/perl -w
>> > use strict;
>> > use constant ETX => chr( hex('03'));
>>
>> Alternative:
>>
>> use constant ETX => "\x{03}";
>>
>>
>> > use constant ACK => chr( hex('06'));
>> > use constant NACK => chr( hex('15'));
>> > my $endcar = ACK.'|'.NACK.'|'.ETX.'.{1}',
>>
>> Why does that line end in a comma?
>>
>> my ($ETX, $ACK, $NACK) = ("\x{03}", "\x{06}", "\x{15}");
>>
>> my $endcar = "(?:$ETX|$ACK|$NACK)"; # alternation
>
>You've omitted the trailing '.{1}' (which is equivalent to just '.').
>
> my $endcar = "(?:$ETX|$ACK|$NACK).";
^
Seems reasonable the op meant a single char in the alternation
given his: my $endcar = ACK.'|'.NACK.'|'.ETX.'.{1}',
Otherwise if a group its catenated like:
ACK|NACK|ETX.{1} or
(?:$ACK|$NACK|$ETX.)
where an alternation is ETX plus any character,
which is probably a mistake.
>
>> Alternative:
>>
>> my $endcar= "[$ETX$ACK$NACK]"; # charset
>
>As above.
>
>> > while ($line =~ s/([^$endcar]*$endcar)//){
>>
>> You are messing up character class and alternation there.
>>
>>
>> With your $endcar, this would work:
>>
>> while ($line =~ s/(.*?(?:$endcar))//s){
>
>That depends. /.*?/ is not always equivalent to a negated end condition,
>for instance /.*?>x/ will match all of ">>x" whereas /[^>]*>x/ will only
>match the last two characters. I suspect what the OP wants here is
But in this case it makes no sence to add characters after the endchar
since you want all from beginning, up to that character, not starting the
match in the middle of the string. Its a total sub-expression '.*?>', part
of an alternation.
In that case given ">>x":
/^.*?>x//
works, whereas
/^[^>]*>x/
doesen't.
>
> my $endcar = "\x3\x6\x15";
>
> while ($line =~ s/([^$endcar]*[$endcar].//) {
while ($line =~ s/([^$endcar]*[$endcar].)//) {
>
>possibly with a /s modifier, since this is a binary protocol so random
>newlines seem likely.
Not if you take out the '.'
-sln
------------------------------
Date: Wed, 18 Nov 2009 15:42:07 -0800 (PST)
From: "NABIL.B" <nabil.baklouti@gmail.com>
Subject: Reverse engineering d'un code Perl
Message-Id: <12f58a7a-aeff-4783-b3cc-16cc10d39424@a31g2000yqn.googlegroups.com>
Salut tout le monde,
Mon probl=E8me est de convertir un code developp=E9 avec le langage perl
en un diagramme de classe en utilisant rational rose.
S'il y a quelqu'un qui peut m'aider?
Amicalement
Nabil
------------------------------
Date: Wed, 18 Nov 2009 15:48:32 -0800 (PST)
From: "NABIL.B" <nabil.baklouti@gmail.com>
Subject: Reverse engineering of Perl Code
Message-Id: <6094aa71-de2e-4749-9ad4-5b20e6ea6bd8@z41g2000yqz.googlegroups.com>
Hi,
I have a problem with reverse engineering a perl code.
I want to translate a perl code to a class diagram by Rational Rose.(i
am already added the add-in RosePerl)
I need help If someone have an idea to resolve this problem.
Nabil
------------------------------
Date: Wed, 18 Nov 2009 16:14:58 -0800
From: Jürgen Exner <jurgenex@hotmail.com>
Subject: Re: Reverse engineering of Perl Code
Message-Id: <df39g5hvbtobs0qpdssuei15c2vm3fhsle@4ax.com>
"NABIL.B" <nabil.baklouti@gmail.com> wrote:
>I have a problem with reverse engineering a perl code.
>I want to translate a perl code to a class diagram by Rational Rose.(i
>am already added the add-in RosePerl)
>I need help If someone have an idea to resolve this problem.
There is a syntax error in line 42.
jue
------------------------------
Date: Wed, 18 Nov 2009 16:23:47 -0800
From: Wanna-Be Sys Admin <sysadmin@example.com>
Subject: Re: Reverse engineering of Perl Code
Message-Id: <ne0Nm.33971$6c2.31622@newsfe03.iad>
NABIL.B wrote:
> Hi,
> I have a problem with reverse engineering a perl code.
> I want to translate a perl code to a class diagram by Rational Rose.(i
> am already added the add-in RosePerl)
> I need help If someone have an idea to resolve this problem.
> Nabil
What do you mean "reverse engineer"? Is the Perl code encoded, compiled
or are you just trying to figure out what it's doing?
--
Not really a wanna-be, but I don't know everything.
------------------------------
Date: Thu, 19 Nov 2009 00:35:16 +0000
From: Ben Morrow <ben@morrow.me.uk>
Subject: Re: Reverse engineering of Perl Code
Message-Id: <4fget6-4ac2.ln1@osiris.mauzo.dyndns.org>
Quoth "NABIL.B" <nabil.baklouti@gmail.com>:
> Hi,
> I have a problem with reverse engineering a perl code.
> I want to translate a perl code to a class diagram by Rational Rose.(i
> am already added the add-in RosePerl)
> I need help If someone have an idea to resolve this problem.
AFAICT Rational Rose speaks UML, so I would start by searching for 'UML'
on search.cpan.org.
Ben
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
Message-Id: <null>
Administrivia:
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
Back issues are available via anonymous ftp from
ftp://cil-www.oce.orst.edu/pub/perl/old-digests.
#For other requests pertaining to the digest, send mail to
#perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
#sending perl questions to the -request address, I don't have time to
#answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V11 Issue 2682
***************************************
