[25335] in Perl-Users-Digest
Perl-Users Digest, Issue: 7580 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Dec 27 21:05:45 2004
Date: Mon, 27 Dec 2004 18:05:07 -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 Mon, 27 Dec 2004 Volume: 10 Number: 7580
Today's topics:
Re: getting array elements <nospam@nospam.com>
Re: Help needed for perl rookie <jgibson@mail.arc.nasa.gov>
Re: Is zero even or odd? <nospam@nospam.com>
Re: Is zero even or odd? <nospam@nospam.com>
Re: Is zero even or odd? <george@briar.demon.co.uk>
Re: Is zero even or odd? <george_coxanti@spambtinternet.com.invalid>
Re: Is zero even or odd? <hadrainc@earthlink.net>
Re: Is zero even or odd? <hadrainc@earthlink.net>
Re: Is zero even or odd? <hadrainc@earthlink.net>
Re: Loading Modules with "require" amerar@iwc.net
Re: Loading Modules with "require" <noreply@gunnar.cc>
Re: Loading Modules with "require" amerar@iwc.net
problems with Perl RegEx match <mitch_christow@biogen.com>
Re: problems with Perl RegEx match <noreply@gunnar.cc>
Re: problems with Perl RegEx match <abigail@abigail.nl>
Re: problems with Perl RegEx match <eighner@io.com>
WINSHARED, my Perl script <dontmewithme@got.it>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 27 Dec 2004 19:46:25 -0500
From: "daniel kaplan" <nospam@nospam.com>
Subject: Re: getting array elements
Message-Id: <1104194809.754649@nntp.acecape.com>
"sam" <sam.wun@authtec.com> wrote in message
news:cqfseh$vqv$1@news.hgc.com.hk...
> Hi,
>
> I spent a while to try to get individul element from an array, but
> returned nothing. The code I used is:
>
> ($transdate,$vendorname,$salesvol,$netsales,$custname,$custcode,
> $basename,$prodcode,$salescode,$transtype,$returnreason) =
@data;
>
> It might be wrong.
> What is the correct syntax for doing that?
i realize now why some people are "stuffy" about making sure you post some
full code-snippet. cause now it's hard to see what's specifically wrong.
try a few debuging lines perhaps?
$size = @data (total items in @data)
or,
foreach my $cElement (@data)
{
print "$cElement\n";
}
to print out each individual element to make sure there is data there...
------------------------------
Date: Mon, 27 Dec 2004 15:05:04 -0800
From: Jim Gibson <jgibson@mail.arc.nasa.gov>
Subject: Re: Help needed for perl rookie
Message-Id: <271220041505046162%jgibson@mail.arc.nasa.gov>
In article <BDF5CC8C.30353%grlcopm@pacbell.net>, GRLCOPM
<grlcopm@pacbell.net> wrote:
> > From: ioneabu@yahoo.com
> > Organization: http://groups.google.com
> > Newsgroups: comp.lang.perl.misc
> > Date: 27 Dec 2004 14:17:37 -0800
> > Subject: Re: Help needed for perl rookie
> >
> >
> > looks like you are replacing the spaces after the numbers with a '|'
> > and removing the single quotes.
> >
> > s/(\d+)\s/$1|/g;
> > s/'//g;
> >
>
> Yes, that is how I have changed the format of the data file. Replaced the
> spaces with | and removed the single quotes from the last item on the line.
>
> Can someone please explain what the the following line of code does and what
> the replacement would be?
>
> if (($acc,$day,$dayacc,$uri) = ($line =~ /^(\d+) (\d+) (\d+) '(\S+)'$/)) {
Starting from the inner =~ operator and working outwards:
The /.../ is a regular expression that will match a string if starting
at the beginning of the string (^) there occurs one or more digits 0-9
(\d+), a space character, one or more digits, a space, one or more
digits, a space, a single quote, one or more non-whitespace characters
(\S+), another single quote, followed by the end of the line.
If the contents of $line match the above expression, as all of your
example do, then the substrings of $line that match each of the partial
sub-patterns in parentheses in the regular expression will be put into
a list and assigned to the variables $acc, $day, $dayacc, and $uri in
the order in which they occur in $line. The length of this list will be
used as a boolean expression by the if statement, so that if the line
contains any matches, the statements within the if statement will be
executed.
You should replace this statement with the following to match your
modifed data lines (untested):
if( ($acc,$day,$dayacc,$uri) = ($line =~
/^(\d+)\|(\d+)\|(\d+)\|(\S+)$/) ) {
Note that the | character is special in regular expressions and needs
to be escaped.
See the documentation that comes with your perl installation to learn
more about regular expressions:
perldoc perlre
perldoc perlretut
perldoc perlrequick
----== Posted via Newsfeeds.Com - Unlimited-Uncensored-Secure Usenet News==----
http://www.newsfeeds.com The #1 Newsgroup Service in the World! >100,000 Newsgroups
---= East/West-Coast Server Farms - Total Privacy via Encryption =---
------------------------------
Date: Mon, 27 Dec 2004 23:15:42 GMT
From: Fred Bloggs <nospam@nospam.com>
Subject: Re: Is zero even or odd?
Message-Id: <41D0978A.5040909@nospam.com>
vonroach wrote:
> On Fri, 24 Dec 2004 15:34:06 GMT, Fred Bloggs <nospam@nospam.com>
> wrote:
>
>
>>was based on an off hand remark by Halmos in his General
>>Topology, and he was almost certainly referring to this result, the date
>>is about right.
>
>
> Humm... off hand remark of about the right date, you say, Well it's
> certainly hard to argue with that.
Not real interested in satisfying your standards of rigor. I know your
kind- shoot your mouth off with a bunch of semi-specialized terminology
and a total void when it comes to making use of it.
------------------------------
Date: Mon, 27 Dec 2004 23:19:25 GMT
From: Fred Bloggs <nospam@nospam.com>
Subject: Re: Is zero even or odd?
Message-Id: <41D09873.8050300@nospam.com>
vonroach wrote:
> On Fri, 24 Dec 2004 14:58:51 GMT, Fred Bloggs <nospam@nospam.com>
> wrote:
>
>
>>
>>vonroach wrote:
>>
>>>On Tue, 21 Dec 2004 10:40:32 GMT, Fred Bloggs <nospam@nospam.com>
>>>wrote:
>>>
>>>
>>>
>>>>Wrong- where do you get off saying (2*0)/0= 2*(0/0) ?
>>>
>>>
>>>(2 x0)/0 = 2x(0/0) . there now is that better?
>>
>>You must be an idiot- we have just finished telling you that 0/0 is not
>>a number- it is a set. You and that other idiot are merely saying that
>>if it's a number then it must be a set. Why don't you try demonstrating
>>some intelligence by showing how the assumption of it must be a set
>>leads to the conclusion that it must be a number? You won't find one
>>with your mindless geek symbol manipulation, "nitwit".
>
>
> Your abstract imagination has led you to a state of hubris. Worse, you
> are relying on half forgotten abstract thoughts of others. 0 is a
> number symbol, though western counters were not smart enough to
> realize it. Division by 0 is undefined, thus it is a meaningless
> concept.
Apparently you can't pick up on "0/0" being a symbol- call it @#$%^&*,
which has been shown to be the set of all numbers.
>Infinity is a real and important concept. It is vital to
> `Differentiation'. It is an ambiguous concept unless defined. There is
> not just one `infinity'.
No- it is the idea of a continuum that is more important here. I see
nothing relevant in all these various degrees of infinity that has
anything to do with differentiation.
------------------------------
Date: Mon, 27 Dec 2004 23:26:19 -0000
From: "George Dishman" <george@briar.demon.co.uk>
Subject: Re: Is zero even or odd?
Message-Id: <cqq5kt$fjt$1@news.freedom2surf.net>
"John Fields" <jfields@austininstruments.com> wrote in message
news:mo21t0h2g8lgk2ej6ce3d98bdi45f6tf1f@4ax.com...
> On Mon, 27 Dec 2004 20:17:28 -0000, "George Dishman"
> <george@briar.demon.co.uk> wrote:
>
>
>>If you can clarify whether or not you were suggesting
>>that 0/0 has the unique value of 1, perhaps we can get
>>away from that style.
>
> ---
> Yes. I apologize for the crankiness...
Then I'll apologise too, I should have gone
back on the thread a bit before jumping in.
> That 0/0 has the unique value of 1 is precisely what I was suggesting,
> and I've written it up in
>
> kdt0t0ddceqrf3lg4hgjcl8mf7pbp2kvar@4ax.com
>
> (my last post to Michael Mendelsohn on sci.electronics.design)
Ok. In that you argue that, if you set the
voltage and current numerically equal, then
since the ratio is 1 for all values, it
implies that it remains 1 for a numerical
value of 0. His counter argument is that
the choice of setting the values to be equal
is arbitrary and it is just as valid to set
the voltage to be, say, double that of the
current hence by the same argument, 0/0=2.
Since one can choose any ratio before taking
the limit as both approach zero, the same
argument can prove 0/0 to be equal to any
arbitrary value, hence falsifying the claim
that 0/0 has one and only one value.
To refute his counter-argument and prove your
claim that the value of 1 is unique, you need
to provide a reason why the statement 0/0=2
(or any value other than 1) cannot be true.
George
------------------------------
Date: Tue, 28 Dec 2004 00:51:30 +0000 (UTC)
From: George Cox <george_coxanti@spambtinternet.com.invalid>
Subject: Re: Is zero even or odd?
Message-Id: <41D0AE1A.7EEA85FF@spambtinternet.com.invalid>
Fred Bloggs wrote:
>
> Apparently you can't pick up on "0/0" being a symbol- call it @#$%^&*,
> which has been shown to be the set of all numbers.
Are you claiming that
0/0 = set of all numbers
? Because if you are you are wrong.
------------------------------
Date: Tue, 28 Dec 2004 00:55:15 GMT
From: vonroach <hadrainc@earthlink.net>
Subject: Re: Is zero even or odd?
Message-Id: <o3b1t05p2tdg206u0etjvom9om3d1hs4pi@4ax.com>
On Sun, 26 Dec 2004 07:40:09 GMT, "Androcles" <dummy@dummy.net> wrote:
>
>"vonroach" <hadrainc@earthlink.net> wrote in message
>news:o9oss01brfvr7geq3ufa8i0h0tiqtrqa9t@4ax.com...
>> On Fri, 24 Dec 2004 15:39:18 GMT, "Androcles" <dummy@dummy.net> wrote:
>>
>>>How far does an apple roll if it makes two turns?
>>>Exact answer in apple diameters, please.
>>>Androcles
>>>
>> Ambiguous. An apple may turn without rolling at all.
>
>I asked you how far it rolls, not whether it rolls or not.
>
>> `Two turns' does not necessarily indicate rotation. There is no
>> mention of translational motion. Are you new at framing apple
>> questions?
>
>No. Nor do I have to use the word "translational", since it is implied.
>Your difficulty in understanding plain English is obvious if you cannot
>comprehend "roll".
>Androcles.
>
Your ambiguity remains. Your plain english needs refinement. I can
comprehend an apple making two turns without any `rolling' at all. You
can begin by defining precisely what you mean by `rolling'. How `far'
is a meaningless query. If you mean to indicate movement by the apple,
what part of the apple? `Center'? Some point on circumference? In
what frame of reference?
------------------------------
Date: Tue, 28 Dec 2004 01:09:31 GMT
From: vonroach <hadrainc@earthlink.net>
Subject: Re: Is zero even or odd?
Message-Id: <cub1t0tjdbng67leiscqtq4pmsnte1154k@4ax.com>
On Sun, 26 Dec 2004 23:59:17 +0000 (UTC), George Cox
<george_coxanti@spambtinternet.com.invalid> wrote:
>vonroach wrote:
>>
>> ... most other numbers are just `abstract'.
>
>Only "most"? I thought that all numbers were abstract.
True. All numbers and words (music/danse/etc) are abstract concepts
created by the `symbolic' species. It has been advocated that
mathematics should be taught like a foreign language with its own
vocabulary and grammar - so it can be learned by the very young and
not mistaken for anything more than it really is.
------------------------------
Date: Tue, 28 Dec 2004 01:25:32 GMT
From: vonroach <hadrainc@earthlink.net>
Subject: Re: Is zero even or odd?
Message-Id: <ofd1t0h77cuvunmg9ealii6ss2fdohv7af@4ax.com>
On Mon, 27 Dec 2004 16:21:47 +0000, John Woodgate
<jmw@jmwa.demon.contraspam.yuk> wrote:
>You just *defined* it. 0/0 = any value.
Yeah?
------------------------------
Date: 27 Dec 2004 17:02:48 -0800
From: amerar@iwc.net
Subject: Re: Loading Modules with "require"
Message-Id: <1104195768.285651.258760@z14g2000cwz.googlegroups.com>
What I am unclear about is this: Say I had the following declaration
in my script: $x = $y + 4;
Now, the first time that the coed was 'required' it would take the
value of $y and compute a value for $x. However, next time I
'require' that code in the same execution of the program, the values
would not change, even if $y had changed........
I need the values to be able to be modified......
------------------------------
Date: Tue, 28 Dec 2004 02:23:57 +0100
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: Loading Modules with "require"
Message-Id: <33br2tF3vananU1@individual.net>
amerar@iwc.net wrote:
> What I am unclear about is this: Say I had the following declaration
> in my script: $x = $y + 4;
>
> Now, the first time that the coed was 'required' it would take the
> value of $y and compute a value for $x. However, next time I
> 'require' that code in the same execution of the program, the values
> would not change, even if $y had changed........
## Addlib.pm
package Addlib;
sub add {
my $arg = shift;
return $arg + 4;
}
1;
## test.pl
#!/usr/bin/perl
use strict;
use warnings;
require Addlib;
my ($x, $y);
# First calculation
$y = 5;
$x = Addlib::add($y);
print "\$x = $x\n"; # prints 9
# Second calculation
$y = 3;
$x = Addlib::add($y);
print "\$x = $x\n"; # prints 7
__END__
Please study
perldoc perlmod
perldoc perlsub
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
------------------------------
Date: 27 Dec 2004 17:59:15 -0800
From: amerar@iwc.net
Subject: Re: Loading Modules with "require"
Message-Id: <1104199155.577219.291040@f14g2000cwb.googlegroups.com>
I sort of see who that works. Are you saying that to have the values
in an 'include' change when it is executed more than once, I need to
basically make that include a packaged subroutine? Passing to it any
values used within and receiving any values returned from?
But, here you are dealing with a single value. How would you code
thing that deals with arrays, and things like this:
$sel = $dbh->prepare("SELECT table_name, proper_name, acronym FROM
table_data $where");
$sel->execute() || die "Select of table names failed: ",
$dbh->errstr, "\n";
while (($table, $name, $acr) = $sel->fetchrow_array()) {
$tables{$table} = $name;
}
$sel->finish;
Thanks.
------------------------------
Date: 27 Dec 2004 16:07:41 -0800
From: "mitch" <mitch_christow@biogen.com>
Subject: problems with Perl RegEx match
Message-Id: <1104192460.971234.138440@f14g2000cwb.googlegroups.com>
Hi folks,
I am working on a what I thought would be fairly simple regular
expression search. I am simply trying to take a full URL (something
like http://www.someurl.com/someDir/file.html) and parse it out into
its components domain and path (domain = www.someurl.com & path =
/someDir/file.html). So I wrote this little script to do just that.
However, I am getting an error when I run my script and I think it has
something to do with my regex function that I am using. So here is the
code snippet of the offending line:
if ($externalLink =~ m/http:\/\/([^\/]+)/) {
$domain = $1;
$path = $';
}
The error that I am getting is this:
Missing right bracket at ./LogPreProcessor_Inetprod.pl line 64, at end
of line
syntax error at ./LogPreProcessor_Inetprod.pl line 64, at EOF
Execution of ./LogPreProcessor_Inetprod.pl aborted due to compilation
errors.
I also tried to modify the script by removing the \ from within the
square brackets:
if ($externalLink =~ m/http:\/\/([^/]+)/) {
$domain = $1;
$path = $';
}
But that too gives me an error:
bash-2.03$ LogPreProcessor_Inetprod.pl inet.log
/http://([^/: unmatched [] in regexp at ./LogPreProcessor_Inetprod.pl
line 26.
bash-2.03$
So I tried a bunch of other variations, wich also did not work. After
consulting several books and googling for some solution, I thought that
I had exhausted all my research possibilities and I thought that the
smart folks in this group could show me the error of my ways.
On a side note, when I used the following search term in google to look
for a solution:
Perl "[^/]"
Google seemed to ignore all those special characters, and simply
returned any page that contained the term 'Perl'. So that was useless.
Thanks for all your help in this matter.
Regards,
Mitch
------------------------------
Date: Tue, 28 Dec 2004 01:37:54 +0100
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: problems with Perl RegEx match
Message-Id: <33bobeF3u934vU1@individual.net>
mitch wrote:
> I am working on a what I thought would be fairly simple regular
> expression search. I am simply trying to take a full URL (something
> like http://www.someurl.com/someDir/file.html) and parse it out into
> its components domain and path (domain = www.someurl.com & path =
> /someDir/file.html). So I wrote this little script to do just that.
> However, I am getting an error when I run my script and I think it
> has something to do with my regex function that I am using. So here
> is the code snippet of the offending line:
>
> if ($externalLink =~ m/http:\/\/([^\/]+)/) {
> $domain = $1;
> $path = $';
> }
That code works fine for me.
> The error that I am getting is this:
> Missing right bracket at ./LogPreProcessor_Inetprod.pl line 64, at
> end of line syntax error at ./LogPreProcessor_Inetprod.pl line 64, at
> EOF Execution of ./LogPreProcessor_Inetprod.pl aborted due to
> compilation errors.
So, what's at (and right before and after) line 64 in your script?
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
------------------------------
Date: 28 Dec 2004 00:42:17 GMT
From: Abigail <abigail@abigail.nl>
Subject: Re: problems with Perl RegEx match
Message-Id: <slrnct1av9.non.abigail@alexandra.abigail.nl>
mitch (mitch_christow@biogen.com) wrote on MMMMCXXXVII September MCMXCIII
in <URL:news:1104192460.971234.138440@f14g2000cwb.googlegroups.com>:
!! Hi folks,
!!
!! I am working on a what I thought would be fairly simple regular
!! expression search. I am simply trying to take a full URL (something
!! like http://www.someurl.com/someDir/file.html) and parse it out into
!! its components domain and path (domain = www.someurl.com & path =
!! /someDir/file.html). So I wrote this little script to do just that.
!! However, I am getting an error when I run my script and I think it has
!! something to do with my regex function that I am using. So here is the
!! code snippet of the offending line:
!!
!! if ($externalLink =~ m/http:\/\/([^\/]+)/) {
!! $domain = $1;
!! $path = $';
!! }
It really, really helps to make your code fragments more readable.
If your regex itself has slashes, use different delimiters, so your
regex isn't sprinkled with slashes. And INDENT:
if ($externalLink =~ m!http://([^/]+)!) {
$domain = $1;
$path = $';
}
!! The error that I am getting is this:
!! Missing right bracket at ./LogPreProcessor_Inetprod.pl line 64, at end
!! of line
!! syntax error at ./LogPreProcessor_Inetprod.pl line 64, at EOF
!! Execution of ./LogPreProcessor_Inetprod.pl aborted due to compilation
!! errors.
That error doesn't sound it has anything at all to do with the regexp
given. The error strongly suggests you have left of a right (closing)
bracket somewhere in your code, and upon reaching the end of the file,
Perl didn't encounter it.
Count your opening and closing brackets.
!! I also tried to modify the script by removing the \ from within the
!! square brackets:
!!
!! if ($externalLink =~ m/http:\/\/([^/]+)/) {
!! $domain = $1;
!! $path = $';
!! }
!!
!! But that too gives me an error:
!! bash-2.03$ LogPreProcessor_Inetprod.pl inet.log
!! /http://([^/: unmatched [] in regexp at ./LogPreProcessor_Inetprod.pl
!! line 26.
!! bash-2.03$
!!
!! So I tried a bunch of other variations, wich also did not work. After
!! consulting several books and googling for some solution, I thought that
!! I had exhausted all my research possibilities and I thought that the
!! smart folks in this group could show me the error of my ways.
Error messages can also be found in the 'perldiag' manual page.
!! On a side note, when I used the following search term in google to look
!! for a solution:
!!
!! Perl "[^/]"
!!
!! Google seemed to ignore all those special characters, and simply
!! returned any page that contained the term 'Perl'. So that was useless.
Yes. But why on earth would you look for 'Perl "[^/]"'? You get an error
message. Why didn't you a search for that error message? I googled for
"Missing right bracket" Perl
and the fourth hit told me exactly what happened. Which isn't too bad,
considering it's an error message from an older Perl - in newer Perls,
the error message is rephrased.
--
perl -e '* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % %;
BEGIN {% % = ($ _ = " " => print "Just Another Perl Hacker\n")}'
------------------------------
Date: Mon, 27 Dec 2004 18:43:46 -0600
From: Lars Eighner <eighner@io.com>
Subject: Re: problems with Perl RegEx match
Message-Id: <slrnct1asg.1t3h.eighner@goodwill.io.com>
In our last episode,
<1104192460.971234.138440@f14g2000cwb.googlegroups.com>, the
lovely and talented mitch broadcast on comp.lang.perl.misc:
> Hi folks,
> I am working on a what I thought would be fairly simple regular
> expression search. I am simply trying to take a full URL (something
> like http://www.someurl.com/someDir/file.html) and parse it out into
> its components domain and path (domain = www.someurl.com & path =
> /someDir/file.html). So I wrote this little script to do just that.
> However, I am getting an error when I run my script and I think it has
> something to do with my regex function that I am using. So here is the
> code snippet of the offending line:
> if ($externalLink =~ m/http:\/\/([^\/]+)/) {
> $domain = $1;
> $path = $';
> }
I'm not following all of this but, why make things hard on
yourself. Use any other quote character besides /, and you
won't have to escape them. Also as you would see, if you even
took a glance at perlretoot, / is NOT special in [].
m#http://([^/]+)#
isn't that about 100 times easier to read and work with?
(However, even as it stands, your snippet works fine for
me.)
> The error that I am getting is this:
> Missing right bracket at ./LogPreProcessor_Inetprod.pl line 64, at end
> of line
> syntax error at ./LogPreProcessor_Inetprod.pl line 64, at EOF
> Execution of ./LogPreProcessor_Inetprod.pl aborted due to compilation
> errors.
Useless without all of the code. Pretty likely the problem is
above the snippet.
You know there is a module to parse URLs. So, howcome reinvent
the wheel?
> I also tried to modify the script by removing the \ from within the
> square brackets:
> if ($externalLink =~ m/http:\/\/([^/]+)/) {
> $domain = $1;
> $path = $';
> }
> But that too gives me an error:
> bash-2.03$ LogPreProcessor_Inetprod.pl inet.log
> /http://([^/: unmatched [] in regexp at ./LogPreProcessor_Inetprod.pl
> line 26.
> bash-2.03$
Yeah, that really doesn't work, even without garbage above it,
but nothing will work because you did not include in the
original snip the part with the real problem.
> So I tried a bunch of other variations, wich also did not work. After
> consulting several books and googling for some solution, I thought that
> I had exhausted all my research possibilities and I thought that the
> smart folks in this group could show me the error of my ways.
> On a side note, when I used the following search term in google to look
> for a solution:
> Perl "[^/]"
> Google seemed to ignore all those special characters, and simply
> returned any page that contained the term 'Perl'. So that was useless.
> Thanks for all your help in this matter.
> Regards,
> Mitch
--
Lars Eighner eighner@io.com http://www.io.com/~eighner/
Behaviorism is the art of pulling habits out of rats. -- O'Neill
------------------------------
Date: Tue, 28 Dec 2004 00:05:15 GMT
From: Larry <dontmewithme@got.it>
Subject: WINSHARED, my Perl script
Message-Id: <dontmewithme-53BE6B.01040828122004@twister1.tin.it>
WINSHARED shares your files in your "shared" folder on windows:
http://www.redangel.it/click_file.asp?m=1344&l=7
Give it a shot and check the code out!
thanks!
------------------------------
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:
#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.
NOTE: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice.
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.
#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 V10 Issue 7580
***************************************
