[10722] in Perl-Users-Digest

home help back first fref pref prev next nref lref last post

Perl-Users Digest, Issue: 4321 Volume: 8

daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Nov 30 09:07:24 1998

Date: Mon, 30 Nov 98 06:00:20 -0800
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)

Perl-Users Digest           Mon, 30 Nov 1998     Volume: 8 Number: 4321

Today's topics:
    Re: Array-Hash-Problem (Kevin Reid)
    Re: barcodes (Rich)
    Re: Begging a simple perl script for my study.. (Koos Pol)
        changing '@INC' at runtime <girishd@gsslco.co.in>
    Re: changing '@INC' at runtime <pkg@studbox.uni-stuttgart.de>
    Re: changing '@INC' at runtime <girishd@gsslco.co.in>
        Directory? <luoni@gol.com>
    Re: embedded while loop problem <maurerf@post.ch>
    Re: embedded while loop problem <ebohlman@netcom.com>
        How portable are DBM files? michela@thequality.com
    Re: How portable are DBM files? <jhi@alpha.hut.fi>
        How to determine if child process is dead? <alonz@cpm.elex.co.il>
        How to edit a variable <preble@ipass.net>
    Re: How to edit a variable <luoni@gol.com>
    Re: HTMLgen for perl... (Esmund Xdegerd)
    Re: localtime () - perl's  bug ? <garethr@cre.canon.co.uk>
    Re: localtime () - perl's  bug ? <jhi@alpha.hut.fi>
    Re: MacPerl file handling problem? (Joergen W. Lang)
    Re: Mounting Network Directories in Win32 Perl (Jeffrey R. Drumm)
        Net::SMTP <beekmans@iae.nl>
    Re: Net::SMTP (Nathan V. Patwardhan)
    Re: Obfuscation of perl scripts <fghhf@dj.es>
    Re: PROPOSAL:  XML based Make for C++, Perl, Python, Ja <matt@teamamiga.org_NOSPAM>
    Re: PROPOSAL:  XML based Make for C++, Perl, Python, Ja <ebohlman@netcom.com>
    Re: string match <pkg@studbox.uni-stuttgart.de>
        support for the Kermit protocol? PETER@yaleads.ycc.yale.edu
        Text file import with regular expression (Andrea Dm)
        Special: Digest Administrivia (Last modified: 12 Mar 98 (Perl-Users-Digest Admin)

----------------------------------------------------------------------

Date: Mon, 30 Nov 1998 08:52:37 -0500
From: kpreid@ibm.net (Kevin Reid)
Subject: Re: Array-Hash-Problem
Message-Id: <1diahou.zzhnoc107m4byN@slip166-72-108-126.ny.us.ibm.net>

Jonathan Feinberg <jdf@pobox.com> wrote:

> > Is it documented? I don't see anything in perlop.pod.
> 
> Have you read the rather long and detailed section in perlop about
> interpolation?   Here's a relevant excerpt:
> 
>                Note also that the interpolating code needs to
>                make decision where the interpolated scalar
>                ends, say, whether "a $b -> {c}" means
> 
>                   "a " . $b . " -> {c}";
> 
>                  or
> 
>                    "a " . $b -> {c};
> 
>                Most the time the decision is to take the
>                longest possible text which does not include
>                spaces between components and contains matching
>                braces/brackets.

This does not appear in my perlop.

I'm using MacPerl 5.2.0r4 (== Perl 5.004).

-- 
  Kevin Reid.      |         Macintosh.
   "I'm me."       |      Think different.


------------------------------

Date: 30 Nov 1998 12:47:45 GMT
From: richm@ucesucks.mulveyr.roc.servtech.com (Rich)
Subject: Re: barcodes
Message-Id: <slrn7654rr.ctg.richm@ll.aa2ys.ampr.org>

On Mon, 30 Nov 1998 05:43:37 GMT, Alan Melton <arm@home.net> wrote:
>is there a method of generating out barcodes from numbers

   Yes, there are many different methods.  Did you have something a 
little more specific in mind?

- Rich

--
Rich Mulvey                                         
My return address is my last name, 
   followed by my first initial, @mulveyr.roc.servtech.com        
http://mulveyr.roc.servtech.com
Amateur Radio: aa2ys@wb2wxq.#wny.ny.usa


------------------------------

Date: 30 Nov 1998 12:02:32 GMT
From: koos_pol@nl.compuware.com.NO_JUNK_MAIL (Koos Pol)
Subject: Re: Begging a simple perl script for my study..
Message-Id: <73u1go$8b6@news.nl.compuware.com>

On Sat, 28 Nov 1998 05:11:28 GMT, wjeon@chollian.net <wjeon@chollian.net> wrote:
| I'm a real beginner and trying to write simple script. What I wanner write is
| a script which can make a text file on the server and the content of the text
| file will be the parameter of the script. For example.. If I type
| 'http://www.myserver.com/cgi-bin/myscript.pl?par=ABCD' on any web browsers, a
| text file should be made by the script and the content of the text file
| should be 'ABCD'. It's really simple, huh? But it is difficult to me. It
| would be very much appreciated if anyone write the script for my study..
| Thanks.
| 
| -----------== Posted via Deja News, The Discussion Network ==----------
| http://www.dejanews.com/       Search, Read, Discuss, or Start Your Own    


You would be very rewarded if you would use CGI.pm for your excersize.
(http://www.perl.com/CPAN)
If you can write a "Hello world!" CGI script, then it's a breeze to
write a script according to your specs.

Good luck!
Koos Pol
----------------------------------------------------------------------
S.C. Pol - Systems Administrator - Compuware Europe B.V. - Amsterdam
T:+31 20 3116122   F:+31 20 3116200   E:koos_pol@nl.compuware.com

Check my email address when you hit "Reply".


------------------------------

Date: Mon, 30 Nov 1998 17:45:22 +0530
From: "Girish Deodhar" <girishd@gsslco.co.in>
Subject: changing '@INC' at runtime
Message-Id: <73u24i$5th@uranus.m-netz.ch>

i have the perl modules in a directory
which is not there in @INC

to fix this i 'push' the directory name
onto @INC and then 'use' the required
module.

but this doesn't seem to work

$perldir = q|d:\tools\perl|;
push(@INC,"$perldir\\lib");

use strict;

however it works, if i 'require' the module (which probebly doesn't make
much sense)

can anyone tell me the mistake here
and also a workaround for this if it exists

~girish





------------------------------

Date: Mon, 30 Nov 1998 13:58:50 +0100
From: Pete Gilbert <pkg@studbox.uni-stuttgart.de>
Subject: Re: changing '@INC' at runtime
Message-Id: <3662968A.CBD87950@studbox.uni-stuttgart.de>

Girish Deodhar wrote:
> 
> i have the perl modules in a directory
> which is not there in @INC
> 
> to fix this i 'push' the directory name
> onto @INC and then 'use' the required
> module.
> 
> but this doesn't seem to work
> 
> $perldir = q|d:\tools\perl|;
> push(@INC,"$perldir\\lib");

how about:
use lib 'd:\tools\perl';

--
Pete Gilbert  *** email: pkg@studbox.uni-stuttgart.de

During French class:

Mr. Muto:  What are "cuisses de grenouille"?
Andy Z.:  They're not grilled cheese.

("Cuisses de grenouille" are frogs' legs.)

( thanks to http://quotes-r-us.org )


------------------------------

Date: Mon, 30 Nov 1998 18:43:09 +0530
From: "Girish Deodhar" <girishd@gsslco.co.in>
Subject: Re: changing '@INC' at runtime
Message-Id: <73u5gj$673@uranus.m-netz.ch>

Pete Gilbert wrote in message
<3662968A.CBD87950@studbox.uni-stuttgart.de>...
>Girish Deodhar wrote:
>>
>> i have the perl modules in a directory
>> which is not there in @INC
>>
>> to fix this i 'push' the directory name
>> onto @INC and then 'use' the required
>> module.
>>
>> but this doesn't seem to work
>>
>> $perldir = q|d:\tools\perl|;
>> push(@INC,"$perldir\\lib");
>
>how about:
>use lib 'd:\tools\perl';
>
>--
>Pete Gilbert  *** email: pkg@studbox.uni-stuttgart.de
>
>During French class:
>
>Mr. Muto:  What are "cuisses de grenouille"?
>Andy Z.:  They're not grilled cheese.
>
>("Cuisses de grenouille" are frogs' legs.)
>
>( thanks to http://quotes-r-us.org )

thanx for your help

i tried that
but it doesn't work
now it doesn't find where is 'lib.pm'

i've found the following thing to work
but i am not very sure *why* this works

BEGIN {
 my $perldir = q|d:\tools\perl|;
 push(@INC,"$perldir\\lib");
}

use strict;






------------------------------

Date: Mon, 30 Nov 1998 13:20:21 +0100
From: "Mario Luoni" <luoni@gol.com>
Subject: Directory?
Message-Id: <73u2id$o29@gd2inews.swissptt.ch>

Has anybody encountered the problem that Perl considers something not to be
a directory, although it is one? I check with

    if (-d $name) {...}

but the result of the test is just wrong (not: false). I cannot imagine this
to be a bug of the Perl implementation, neither one of the script I wrote.
I'm pretty much lost. Can anybody help.

Thanks,

-Mario




------------------------------

Date: Mon, 30 Nov 1998 14:23:06 +0100
From: "Felix Maurer" <maurerf@post.ch>
Subject: Re: embedded while loop problem
Message-Id: <73u69u$pv2@gd2inews.swissptt.ch>

As suggested in second reply, I'm still wanting to add some more speed by
using a hash table, but at the moment I'm not able to make the example in
the book running:

while (<INFILE>) {
   chomp;
   ($key,$rest) = split/;/,$_,2;
   @fields = split/;/,$rest;
   $HoL{$key}[@fields];
}
foreach $key ( keys %HoL) {
  print "$key: @{$Hol->{$key}[0]}\n";
}
The key is printed ok but not the content (the other fields are empty?
Any hint on this one?





------------------------------

Date: Mon, 30 Nov 1998 13:41:23 GMT
From: Eric Bohlman <ebohlman@netcom.com>
Subject: Re: embedded while loop problem
Message-Id: <ebohlmanF38M0z.DEw@netcom.com>

Felix Maurer <maurerf@post.ch> wrote:
: As suggested in second reply, I'm still wanting to add some more speed by
: using a hash table, but at the moment I'm not able to make the example in
: the book running:

: while (<INFILE>) {
:    chomp;
:    ($key,$rest) = split/;/,$_,2;
:    @fields = split/;/,$rest;

The above two lines could more efficiently be written as:

($key,$rest,@fields) = split /;/;

:    $HoL{$key}[@fields];

I'm pretty sure you meant to write

$HoL{$key} = [@fields];

: }
: foreach $key ( keys %HoL) {
:   print "$key: @{$Hol->{$key}[0]}\n";

I think you want

print "$key: $hol->{$key}[0]\n";

: }



------------------------------

Date: Mon, 30 Nov 1998 12:30:38 GMT
From: michela@thequality.com
Subject: How portable are DBM files?
Message-Id: <73u35f$22s$1@nnrp1.dejanews.com>



Should DBM files be portable from one O/S to another? I have an application
which builds SDBM files on Windows NT and then uses these on a copy of the
application running under DEC UNIX.

Now I'm moving the UNIX application to SunOS 5.5.1 and the DBM files are
unreadable. Similarily, DBMs created on SunOS are not readable on NT or DEC
UNIX. Is there any documentation on this available? A quick fix would be
wonderful but I'm getting the feeling I'm going to have to recreate my DBMs
for Solaris now.

     .M.
--
---------------------------------------------------------------------

-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/       Search, Read, Discuss, or Start Your Own    


------------------------------

Date: 30 Nov 1998 15:33:02 +0200
From: Jarkko Hietaniemi <jhi@alpha.hut.fi>
Subject: Re: How portable are DBM files?
Message-Id: <oeeww4ds3u9.fsf@alpha.hut.fi>


michela@thequality.com writes:

> Should DBM files be portable from one O/S to another? I have an application

Of course they *should* :-) but no, they are not.  At least they are
byteorder dependent, that I remember, but they may also be integer
width dependent.

"Berkeley DB" is rumored to be wiser in this respect.  I do not know
of its availability to NT but AFAIK it's pretty straight C.  Note also
that the latest releases have stricter licensing than it used to be.

> which builds SDBM files on Windows NT and then uses these on a copy of the
> application running under DEC UNIX.
>
> Now I'm moving the UNIX application to SunOS 5.5.1 and the DBM files are
> unreadable. Similarily, DBMs created on SunOS are not readable on NT or DEC
> UNIX. Is there any documentation on this available? A quick fix would be
> wonderful but I'm getting the feeling I'm going to have to recreate my DBMs
> for Solaris now.

Dump in A, store in B.  Easy if there is rsh for NT.

-- 
$jhi++; # http://www.iki.fi/~jhi/
        # There is this special biologist word we use for 'stable'.
        # It is 'dead'. -- Jack Cohen


------------------------------

Date: Mon, 30 Nov 1998 10:56:54 GMT
From: SHILUV Alon Zamir 2640 <alonz@cpm.elex.co.il>
Subject: How to determine if child process is dead?
Message-Id: <366279F6.D1A222B2@cpm.elex.co.il>

hi,
I'm trying to write a program that runs a few processes,one at a
time,but after a certain amount of time passes,does'nt wait for the
process to end but kills it and moves on to the next one.
when i use fork,i can't tell in the parent wether the child is still
running or not. How can i do that?


------------------------------

Date: Mon, 30 Nov 1998 05:44:46 -0500
From: "E. Preble" <preble@ipass.net>
Subject: How to edit a variable
Message-Id: <qGu82.794$kx1.857@news.ipass.net>

I have a variable that contains an email address and I need to
format it so that MIME::ENTITY understands it.
$email = 'me@myhost.com';

For MIME::ENTITY, it requires the variable to be in this format:
me\@myhost.com

How can I add this slash to the variable?
I've tried this, but it doesn't quite do the trick.
----------------
$UserEmail = $config{'email'};
@User = split(/@/,$UserEmail);
$UserEmail = join("\@", @User);
----------------
To => "$UserEmail",
----------------

Thanks very much.
E. Preble



------------------------------

Date: Mon, 30 Nov 1998 13:28:55 +0100
From: "Mario Luoni" <luoni@gol.com>
Subject: Re: How to edit a variable
Message-Id: <73u32i$ob3@gd2inews.swissptt.ch>

Try out:

$UserEmail =~ s/@/\\@/;

-Mario


E. Preble wrote in message ...
>I have a variable that contains an email address and I need to
>format it so that MIME::ENTITY understands it.
>$email = 'me@myhost.com';
>
>For MIME::ENTITY, it requires the variable to be in this format:
>me\@myhost.com
>
>How can I add this slash to the variable?
>I've tried this, but it doesn't quite do the trick.
>----------------
>$UserEmail = $config{'email'};
>@User = split(/@/,$UserEmail);
>$UserEmail = join("\@", @User);
>----------------
>To => "$UserEmail",
>----------------
>
>Thanks very much.
>E. Preble
>




------------------------------

Date: 30 Nov 1998 10:42:36 GMT
From: aasmundo@ifi.uio.no (Esmund Xdegerd)
Subject: Re: HTMLgen for perl...
Message-Id: <slrn764tks.ea0.aasmundo@communalis.ifi.uio.no>

Den Fri, 27 Nov 1998 14:19:52 GMT, delte dave@mag-sol.com fxlgende med oss:
>> I wonder, is there some perl-module which is similar to the HTMLgen module for
>> python.
>>
>> I know there is CGI.pm, HTML::Base and maybe HTML::Simple, but this is not
>> exactly what I want. Ok, the problem is that I like HTMLgen in python, but I
>
>Perhaps, if you explained about the modules you mentioned, it might help us to
>help you. I would guess that most of us here have little or no knowledge of
>Python.

Ok, I assume that some of you know HTMLgen, but anyway. HTMLgen is a
python-module which makes it easy to generate static HTML-pages. CGI.pm doing
well in generating dynamic pages, the two other packages I mnetion in my first
entry generate static pages, but I dosen't like them. So: Is there some package
for Perl which makes it easy to generate html-files from scripts.

Esmund


------------------------------

Date: Mon, 30 Nov 1998 10:49:00 GMT
From: Gareth Rees <garethr@cre.canon.co.uk>
Subject: Re: localtime () - perl's  bug ?
Message-Id: <sin259e9r7.fsf@cre.canon.co.uk>

Larry Rosler <lr@hpl.hp.com> wrote:
> Two-word answer:    CONTEXT    CONVENTION

Think of other situations where you discard the context of a piece of
data, and the reasons for doing so:

   Data: relative paths in a directory structure
   Context: the absolute path
   Design justification: (1) discarding the context means that the
     program will work when moved to another directory; (2) wrong
     context is detected when it is discovered that the files are
     missing.

   Data: relative URLs in HTML anchors
   Context: the fully-qualified URL
   Design justification: (1) discarding the context means that the page
     will work if moved to another server; (2) wrong context is detected
     when the links don't work.

Two-year dates are bugs(*) because (1) you have no reason for discarding
the context, and (2) you can't detect when the context is recovered
wrongly.

(*) Poor design decisions are bugs too.

-- 
Gareth Rees


------------------------------

Date: 30 Nov 1998 13:11:20 +0200
From: Jarkko Hietaniemi <jhi@alpha.hut.fi>
Subject: Re: localtime () - perl's  bug ?
Message-Id: <oee4srhtoyv.fsf@alpha.hut.fi>


Gareth Rees <garethr@cre.canon.co.uk> writes:

> (*) Poor design decisions are bugs too.

Definitely.  I hope whoever designed the contents of struct tm feels
really ashamed.  There are at least three bad decisions.  (1) The year
has no good reason [1] to be -1900'ed. (2) The month has no good
reason to be -1'ed [2].  (3) If the month is -1'ed, why not the day of the
month?

[1] "the seconds since 1900-01-01 fit better into a X-bit integer
     than the seconds since 1-01-01" is not a good reason.  The library
     should worry about such details, the user shouldn't be punished
     for poor library implementation.
[2]  Neither is "it's so handy to access 0-based array month_name[month]".
     Shaving off the time/space required to do the -1 is silly.

But I am wasting my breath.  We all know this and the stupid interface
isn't going to change.  Well, there's hope, though...the upcoming C9X
standard has struct tmx which has extension mechanism,
"The implementation or a future version of this International Standard
may include further members in a separate object."

-- 
$jhi++; # http://www.iki.fi/~jhi/
        # There is this special biologist word we use for 'stable'.
        # It is 'dead'. -- Jack Cohen


------------------------------

Date: Mon, 30 Nov 1998 13:35:33 +0100
From: jwl@worldmusic.de (Joergen W. Lang)
Subject: Re: MacPerl file handling problem?
Message-Id: <1djb5ec.9s3k11rnupn3N@host050-210.seicom.net>

Matt Seddon <matt@tvml.co.uk> wrote:

> I have come across one of those ARGH problems.
> 
> About 4 days ago I needed a script to extract some data from a 64 meg text
> file (it was basically parseing SQL statments and writing out the relevent
> ones to another file, but i digress).  Aha I thought... time to go home, I'll
> write it on my laptop (G3 Powerbook).
> 
> The problem is, under MacPerl, if you attempt to use the open command (actual
> tiny snippet enclosed):
> 
>     open DATAFILE, "requests.sql"

I don't think the problem is the open() iself, although the open() is
lacking some essential checks of return values.

     open DATAFILE, "requests.sql" or 
          die "Can't open requests.sql. Reason: $!";

> it suddenly decides to eat up about 15 - 20 seconds caching the entire file...

This happen after you open()ed the file. You probably do something like:

     @lines = <DATAFILE>;

Maybe you rather want to step through the file line by line so you do
not have to read the entire file into memory.

     while (<DATAFILE>) { &do_something };

hth,

Joergen
-- 
-------------------------------------------------------------------
   "Everything is possible - even sometimes the impossible"
             HOELDERLIN EXPRESS - "Touch the void"
-------------------------------------------------------------------


------------------------------

Date: Mon, 30 Nov 1998 12:01:52 GMT
From: drummj@mail.mmc.org (Jeffrey R. Drumm)
Subject: Re: Mounting Network Directories in Win32 Perl
Message-Id: <36638501.255388609@news.mmc.org>

[ posted to comp.lang.perl.misc and a courtesy copy was mailed to the cited
author ]

On Sun, 29 Nov 1998 21:32:22 -1000, "Vann H. Walke" <vwalke@ibm.net> wrote:

>How can I mount a network directory (i.e. "\\server\directory" to "p:")
>in a Perl script?
>
>Thanks,
>Vann

If you check DejaNews and search on my name and Win32::NetResource, you should
come across a couple of examples fairly quickly.

-- 
                               Jeffrey R. Drumm, Systems Integration Specialist
                       Maine Medical Center - Medical Information Systems Group
                                                            drummj@mail.mmc.org
"Broken? Hell no! Uniquely implemented!" - me


------------------------------

Date: Mon, 30 Nov 1998 12:07:37 +0100
From: Marcel Beekmans <beekmans@iae.nl>
Subject: Net::SMTP
Message-Id: <36627C79.FFB4F62A@iae.nl>

Is it possible to attach a file to an email with the Net::SMTP module?
So the Perl-script must built te file and send te e-mail with the file
as an attachment.

Greeting,

Marcel Beekmans
Effector (http://www.effector.nl)






------------------------------

Date: Mon, 30 Nov 1998 12:39:46 GMT
From: nvp@shore.net (Nathan V. Patwardhan)
Subject: Re: Net::SMTP
Message-Id: <mmw82.111$J4.55584@news.shore.net>

Marcel Beekmans (beekmans@iae.nl) wrote:
: Is it possible to attach a file to an email with the Net::SMTP module?
: So the Perl-script must built te file and send te e-mail with the file
: as an attachment.

Yes, it's possible.  Here's one such example which uses the MIME::Lite
and Net::SMTP modules:

#!/usr/local/bin/perl -w

use MIME::Lite;
use Net::SMTP;
use strict;

my($mailhost, $msg, $smtp, $data, $mime_all);

$mailhost = 'my.smtphost.org';

# Create a new multipart message:
$msg = new MIME::Lite
    From    =>'you@your.domain',
    To      =>'them@their.domain',
    Subject =>'The message',
    Type    =>'multipart/mixed';

# attach text part
attach $msg
    Type     => 'TEXT',
    Data     => 'Tell me about your mother';

# attach base64 part (note: encoding line)
attach $msg
    Type     =>'image/gif',
    Encoding => 'base64',
    Path     =>'/path/to/gif/eliza.gif';

# the message as a string
$mime_all = $msg->as_string;

# now, send the attachment with Net::SMTP
$smtp = Net::SMTP->new($mailhost);
$smtp->mail('you@your.domain');
$smtp->to('them@their.domain');

$smtp->data();
$smtp->datasend(<<END);
$mime_all
END

$smtp->dataend();
$smtp->quit();

--
Nate Patwardhan|root@localhost
"Fortunately, I prefer to believe that we're all really just trapped in a
P.K. Dick book laced with Lovecraft, and this awful Terror Out of Cambridge
shall by the light of day evaporate, leaving nothing but good intentions in
its stead." Tom Christiansen in <6k02ha$hq6$3@csnews.cs.colorado.edu>


------------------------------

Date: Mon, 30 Nov 1998 13:35:15 +0100
From: "Santi Cots" <fghhf@dj.es>
Subject: Re: Obfuscation of perl scripts
Message-Id: <73u3i3$6dk$1@pedraforca.cesca.es>

The fact is that obfuscating perl is posible through filters. I have seen
it. But it seems like there were some who don't want to explein the way to
do it.
News are for collaboration, but most people ask this kind of things: you
don't need, code is public, no compiling needed, some people can crack the
obfuscated code.

OK, i accept some initiated can crack the code, but can someone help me in
obfuscating some code to dificult modifying it easily.

Thanks




------------------------------

Date: Mon, 30 Nov 1998 10:59:07 +0000
From: Matt Sergeant <matt@teamamiga.org_NOSPAM>
Subject: Re: PROPOSAL:  XML based Make for C++, Perl, Python, Java
Message-Id: <36627A7B.1E3E44A9@teamamiga.org_NOSPAM>

Pluto wrote:
> 
> <module name="My::Module" version="0.01">
>     <prereqs>
>        <prereq>Some::Package 1.23</prereq>
>        <prereq>Other::Module 4.56</prereq>
>     </prereqs>
>     <files base="/the">
>     <file><path full>/the/first/module/</dir>file</file>
>     <file><path relative="base">/second/module/</dir>file</file>
>     <file><path relative="current">module/</dir>file</file>
>     </files>
>     <other>any other data</other>
> </module>

This isn't XML.

> Some ideas/projects immediately spring to mind:
>    a MakeMaker package definition DTD?
>    a converter from current MakeMaker format to the DTD XML format?
>    a MakeMaker modification to understand the new DTD?
>    an autodetect in MakeMaker to determine the makefile.PL format and
> parse appropriately.
>    Create Data::Dumper::XML?

See XML::Registry on CPAN.

Still - it's a good idea, but I can't help thinking that it's going to
be next to impossible to convince people to dump make in favour of a
system that requires them to install a whole XML parser environment. You
might be interested to know that Activestate's ppm (a sort of CPAN.pm
replacement for binary distributions) uses XML already. Contact
activeperl@activestate.com for more details.

-- 
<Matt email="matt@teamamiga.org" />

| Fastnet Software Ltd              |   Perl in Active Server Pages   |
| Perl Consultancy, Web Development |   Database Design   |    XML    |
| http://come.to/fastnet            |    Information Consolidation    |


------------------------------

Date: Mon, 30 Nov 1998 13:47:54 GMT
From: Eric Bohlman <ebohlman@netcom.com>
Subject: Re: PROPOSAL:  XML based Make for C++, Perl, Python, Java
Message-Id: <ebohlmanF38MBu.DnM@netcom.com>

Matt Sergeant <matt@teamamiga.org_NOSPAM> wrote:
: Still - it's a good idea, but I can't help thinking that it's going to
: be next to impossible to convince people to dump make in favour of a
: system that requires them to install a whole XML parser environment. You
: might be interested to know that Activestate's ppm (a sort of CPAN.pm
: replacement for binary distributions) uses XML already. Contact
: activeperl@activestate.com for more details.

PPM is based on the Open Software Description (OSD) format proposed by
Microsoft and others.  It is indeed an XML application, and it's worth 
looking at the spec.

A few weeks ago, there was some discussion in comp.lang.java.programmer 
about the weaknesses of make in dealing with java code, where the 
dependencies can easily form a DAG rather than a tree because of the use 
of interfaces.  An XML-based format could deal with these dependencies by 
using ID- and IDREF-type attributes.





------------------------------

Date: Mon, 30 Nov 1998 14:07:47 +0100
From: Pete Gilbert <pkg@studbox.uni-stuttgart.de>
Subject: Re: string match
Message-Id: <366298A3.BA288E2@studbox.uni-stuttgart.de>

Ashish wrote:
> 
> Hi
> I would like to know the following:
> 
> -----
> $string = "This is string. is it";
               ^^ ^^         ^^
> @i=($string =~ m/(is)/ig);
> print "@i";
> ------
> How @i is taking "is is is";
> 
> Thanks..

--
Pete Gilbert  *** email: pkg@studbox.uni-stuttgart.de

During French class:

Mr. Muto:  What are "cuisses de grenouille"?
Andy Z.:  They're not grilled cheese.

("Cuisses de grenouille" are frogs' legs.)

( thanks to http://quotes-r-us.org )


------------------------------

Date: Mon, 30 Nov 98 08:19:45 EST
From: PETER@yaleads.ycc.yale.edu
Subject: support for the Kermit protocol?
Message-Id: <1801E7521S86.PETER@yaleads.ycc.yale.edu>

Hi.  I was wondering if Perl (especially MacPerl) has any modules that support
the Kermit prorocol?


------------------------------

Date: Mon, 30 Nov 1998 09:22:07 GMT
From: nxuser@orizzonti.it (Andrea Dm)
Subject: Text file import with regular expression
Message-Id: <73to1u$kll$1@nslave1.tin.it>
Keywords: regular,expession,text,file,import

I know this problem could be resolved reading perl manual o something else , 
but my problem is that i'm in hurry and I can't start learning (complex for 
me) regular expression format.
The problem is that I have a text file structured like this:
%cod1%language1%
description,description...
%cod2%language2%
description,description,description,description,description,description
description,description,description,description,description,description
 ....
What I have to do is to create a record in an Access dbase with the records 
COD,LANG,DESC. I know how to do the SQL part of the program. I lack in parsing 
the file.
Can anybody help me?

Thanks in advance

                                                                        Andrea

P.S A mail reply is preferred.


------------------------------

Date: 12 Jul 98 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin) 
Subject: Special: Digest Administrivia (Last modified: 12 Mar 98)
Message-Id: <null>


Administrivia:

Special notice: in a few days, the new group comp.lang.perl.moderated
should be formed. I would rather not support two different groups, and I
know of no other plans to create a digested moderated group. This leaves
me with two options: 1) keep on with this group 2) change to the
moderated one.

If you have opinions on this, send them to
perl-users-request@ruby.oce.orst.edu. 


The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc.  For subscription or unsubscription requests, send
the single line:

	subscribe perl-users
or:
	unsubscribe perl-users

to almanac@ruby.oce.orst.edu.  

To submit articles to comp.lang.perl.misc (and this Digest), send your
article to perl-users@ruby.oce.orst.edu.

To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.

To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.

The Meta-FAQ, an article containing information about the FAQ, is
available by requesting "send perl-users meta-faq". The real FAQ, as it
appeared last in the newsgroup, can be retrieved with the request "send
perl-users FAQ". Due to their sizes, neither the Meta-FAQ nor the FAQ
are included in the digest.

The "mini-FAQ", which is an updated version of the Meta-FAQ, is
available by requesting "send perl-users mini-faq". It appears twice
weekly in the group, but is not distributed in the digest.

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 V8 Issue 4321
**************************************

home help back first fref pref prev next nref lref last post