[11038] in Perl-Users-Digest
Perl-Users Digest, Issue: 4638 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Jan 13 05:02:53 1999
Date: Wed, 13 Jan 99 02:00:15 -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 Wed, 13 Jan 1999 Volume: 8 Number: 4638
Today's topics:
Re: A really easy string question info@gadnet.com
Re: A really easy string question (MercuryZ)
Re: A really easy string question info@gadnet.com
Re: CONCLUSIVE PROOF: Jesus *is* King of the Jews ! <eendersnospam@ford.com>
Re: CONCLUSIVE PROOF: The Beatles are bigger than Jesus <eendersnospam@ford.com>
Email notification <sslagter@eega.nl>
Re: Generating a unique number (Ethan H. Poole)
Re: How to stop perldoc scroll on find? <design@raincloud-studios.com>
Re: Low level perl <gviczai@dam.dunaferr.hu>
New Perl module for examining Java class files (Sean McAfee)
Re: perl cgi (win95) doesn't work with CGI.pm dave@mag-sol.com
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 13 Jan 1999 12:44:03 GMT
From: info@gadnet.com
Subject: Re: A really easy string question
Message-Id: <369c929b.69831477@news.newsguy.com>
Thankyou for the various suggestions. I have yet to try them but I
suspect that some (certainly the 'split' suggestion) won't work
because the string ends with a quotation mark and a semi-colon which I
want to remove. I want to become "a perl stud" as dhosek@webley.com
phrases it, and to use a regexp, but I'm still struggling with all
those wretched squiggles. I *think* that the regexp supplied by
dhosek@webley.com would only work if the string didn't have those
extra two characters on the end, but I'm happy to be told I'm wrong.
Drummond Miles
>I'm new to this perl lark and struggling to do the following:
>
>I have a variable ($variable) which contains:
>
>$pathname = "/path-of-indeterminate-length/myfile.txt";
>
>I want to end up with a variable that contains:
>
>myfile.txt
>
>I can do it as follows:
>
>$variable = substr($variable,12);
>chop($variable);
>chop($variable);
>
>But there has to be a neater way.
>
>Any ideas?
>
>
------------------------------
Date: 13 Jan 1999 03:07:44 -0600
From: sf@sf.com (MercuryZ)
Subject: Re: A really easy string question
Message-Id: <369c6260@news2.newsfeeds.com>
>>I'm new to this perl lark and struggling to do the following:
>>
>>I have a variable ($variable) which contains:
>>
>>$pathname = "/path-of-indeterminate-length/myfile.txt";
>>
>>I want to end up with a variable that contains:
>>
>>myfile.txt
>>
>>I can do it as follows:
>>
>>$variable = substr($variable,12);
>>chop($variable);
>>chop($variable);
>>
>>But there has to be a neater way.
>>
>>Any ideas?
>>
>>
>
Here is a way, and I apologize if this has been answered for you
already:
$pathname = '/path-of-indeterminate-length/meow/meow/bbb/sdf/myfile.txt';
$pathname=~s/(.+)(\/)(.+\.txt?)/$3/gi;
print "$pathname\n";
If you try this mini-script out, you will see that no matter how long
the pathname is, myfile.txt is still extracted out.
What is important here is the ? embedded in the 3rd part of the regex
which limits the greedy matching quantifiers.
SF
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com/ The Largest Usenet Servers in the World!
-----------== Over 66,000 Groups, Plus a Dedicated Binaries Server ==----------
------------------------------
Date: Wed, 13 Jan 1999 13:20:27 GMT
From: info@gadnet.com
Subject: Re: A really easy string question
Message-Id: <369c9d50.72569268@news.newsguy.com>
I think I've cracked it:
$variable =~ /\"(.*)\"\;$/;
print $1;
seems to work.
Thanks again,
Drummond
On Tue, 12 Jan 1999 19:44:55 GMT, info@gadnet.com wrote:
>I'm new to this perl lark and struggling to do the following:
>
>I have a variable ($variable) which contains:
>
>$pathname = "/path-of-indeterminate-length/myfile.txt";
>
>I want to end up with a variable that contains:
>
>myfile.txt
>
>I can do it as follows:
>
>$variable = substr($variable,12);
>chop($variable);
>chop($variable);
>
>But there has to be a neater way.
>
>Any ideas?
>
>
------------------------------
Date: Wed, 13 Jan 1999 07:55:00 +0000
From: eric <eendersnospam@ford.com>
Subject: Re: CONCLUSIVE PROOF: Jesus *is* King of the Jews ! ! !
Message-Id: <369C5154.203A@ford.com>
Anonymous wrote:
> =
> Here's absolutely irrefutable, scientifically-verifiable evidence that
> plainly demonstrates Jesus the Nazarene called the Christ to be the
> One and Only Messiah of the Hebrew Old Testament(TaNaKh). I discovered
> these facts through very careful, exhaustive research and deduction by
> comparing extant secular-historical evidences with the testimony which
> was so faithfully recorded in the ancient Hebrew Canon, which necessari=
ly
> includes BOTH Old and New Covenant Scriptures.
> Thanks again for reading,
> Enjoy! :)
> =
> Before proceeding with this article, please note the following:
> -All calculations are based on precision astronomical data.
> -Ancient calendar records correlated with lunisolar phases.
> -Location data preset to Jerusalem for all calculations
> -All Jewish lunisolar calendar dates are kosher(formal)
> -Precession epoch datum set for each date specified
> =
> * * *
> =
> Lord of the Sabbath -- A Closer Look
> =
> =95 The "going forth of the commandment(Artaxerxes I[Longimanus])
> to restore and to (re)build Jerusalem..."[Dan 9:25]:
> Julian day: 1554766
> Day of week: Thursday, September 19, 457 BC
> Jewish calendar: 1 Tishri 3305(1st day of the 1st[regnal] month)
> New Moon: 12:58:47 AM(JD 1554765.45749)
> Phase: 0.1%, Phase angle: 175.68=F8
> Az: 29:59:12; Alt: -45:47:25
> RA: 11:32:40; Dec: 7:48:27
> Ecliptic Lon: 170:36:51; Lat: 4:24:29
> Galactic Lon: 323:56:44; Lat: 55:24:14
> Rising: Sep 19, 457 BC; 5:26:07 AM
> Transit: Sep 19, 457 BC; 11:56:50 AM
> Setting: Sep 19, 457 BC; 6:19:57 PM
> Notes: ref. Ezra 7:6-26, ibid; note also that
> 1 Tishri must not fall on Sun, Wed or Fri
> =
> =95 Jesus born in Bethlehem w/"his star[rising]in the east":
> Julian day: 1720551
> Day of week: Monday, August 12, 3 BC
> Jewish calendar: 3 Elul 3758(lunisolar)
> New Moon: 12:44:01 AM(JD 1720549.44723)
> Phase: 0.0%, Phase angle: 179.38=F8
> Az: 21:07:02; Alt: -39:38:16
> RA: 9:10:05; Dec: 15:56:28
> Ecliptic Lon: 135:10:08; Lat: -0:32:36
> Galactic Lon: 245:20:41; Lat: 55:37:20
> Rising: Aug 11, 3 BC; 5:04:05 AM
> Transit: Aug 11, 3 BC; 11:56:05 AM
> Setting: Aug 11, 3 BC; 6:40:06 PM
> Notes: Jupiter-Venus conjunction in Leo
> =
> =95 Wise men(Magi) visit Herod(morning)/10-month old Jesus(sunset):
> Julian day: 1720860
> Day and Date: Tuesday, June 17, 2 BC
> Jewish calendar: 17/18 Tammuz 3759(lunisolar)
> New Moon: 2:50:24 PM(JD 1720845.03500)
> Phase: 0.1%, Phase angle: 175.90=F8
> Az: 276:04:25; Alt: 43:53:38
> RA: 4:18:48; Dec: 25:28:02
> Ecliptic Lon: 67:15:12; Lat: 3:46:00
> Galactic Lon: 185:39:26; Lat: 6:20:12
> Rising: Jun 2, 2 BC; 3:49:21 AM
> Transit: Jun 2, 2 BC; 11:13:58 AM
> Setting: Jun 2, 2 BC; 6:42:42 PM
> *Full moon: 8:06:58 PM(JD 1720860.25484)
> Phase: 99.9%, Phase angle: 3.84=F8
> Az: 134:39:11; Alt: 13:45:53
> RA: 17:29:03; Dec: -27:03:40
> Ecliptic Lon: 263:06:02; Lat: -3:33:05
> Galactic Lon: 13:57:33; Lat: -19:56:34
> Rising: Jun 17, 2 BC; 6:36:53 PM
> Transit: Jun 17, 2 BC; 11:35:11 PM
> Setting: Jun 18, 2 BC; 4:34:01 AM
> Notes: Jupiter-Venus conjunction in Leo
> =
> =95 Caesar Augustus died:
> Julian day: 1726402
> Day and Date: Sunday, 19 August 14 AD
> Jewish calendar: 5 Elul 3774(lunisolar)
> Notes: Tiberius not yet Caesar
> =
> =95 Tiberius made Caesar Imperator(Emperor):
> Julian day: 1726431
> Day and Date: Monday, September 17, 14 AD
> Jewish calendar: 5 Tishri 3775(lunisolar)
> New Moon: 5:54:43 AM(JD 1726426.66300)
> Phase: 0.0%, Phase angle: 178.50=F8
> Az: 87:39:23; Alt: 7:16:36
> RA: 11:19:22; Dec: 5:48:28
> Ecliptic Lon: 168:22:59; Lat: 1:16:10
> Galactic Lon: 307:29:26; Lat: 57:37:38
> Rising: Sep 13, 14 AD; 5:15:01 Am
> Transit: Sep 13, 14 AD; 11:41:17 AM
> Setting: Sep 13, 14 AD; 5:59:26 PM
> Notes: Compare Jesus' baptism date[Luke 3:1]
> =
> =95 New Moon[Heb. Molad] coincident with Vernal Equinox:
> Julian day: 1730266
> Day and Date: Sunday, March 18, 25 AD
> Jewish calendar: 28 AdarI 3785 (1 Nisan delayed 2 days)
> New Moon: 8:07:30 AM(JD 1730265.75521)
> Phase: 0.0%, Phase angle: 177.94=F8
> Az: 113:27:40; Alt: 26:56:03
> RA: 23:48:07; Dec: -3:37:11
> Ecliptic Lon: 355:49:28; Lat: -2:07:17
> Galactic Lon: 139:26:24; Lat: -54:31:38
> Rising: Mar 18, 25 AD; 5:49:08 AM
> Transit: Mar 18, 25 AD; 11:53:14 AM
> Setting: Mar 18, 25 AD; 6:03:43 PM
> *Sun Rising: Mar 18, 25 AD; 5:43:52 AM
> Transit: Mar 18, 25 AD; 11:42:47 AM
> Setting: Mar 18, 25 AD; 5:42:10 PM
> Notes: Thirteenth intercalary month(Adar II/Veadar)
> added in years 2, 5, 7, 10, 13, 16, and 18
> over the nineteen-year cycle in Jesus' day,
> proving that 31 AD was not a leap year.
> =
> =95 Jesus' 30th birthday:
> Julian day: 1731155
> Day and Date: Sunday, August 24, 27 AD
> Jewish calendar: 3 Elul 3787(lunisolar)
> New Moon: 2:09:28 PM(JD 1731151.00658)
> Phase: 0.0%, Phase angle: 177.86=F8
> Az: 254:17:20; Alt: 51:43:00
> RA: 9:47:00; Dec: 15:42:50
> Ecliptic Lon: 143:39:49; Lat: 2:03:30
> Galactic Lon: 257:55:04; Lat: 61:00:22
> Rising: Aug 20, 27 AD; 4:31:40 AM
> Transit: Aug 20, 27 AD; 11:32:27 AM
> Setting: Aug 20, 27 AD; 6:26:46 PM
> Notes: Jewish calendar birthday, Jesus eligible
> for priesthood.
> =
> =95 Jesus baptized into ministry at river Jordan(14 regnal years + 1 da=
y into "reign of
> Tiberius Caesar", and 483 tropical years [@365.242199d/y] + 1 day fr=
om commandment):
> Julian day: 1731180
> Day and Date: Thursday, September 18, 27 AD
> Jewish calendar: 1 Tishri 3788(Day of Trumpets)
> New Moon: 12:12:23 AM(JD 1731180.42526)
> Phase: 0.1%, Phase angle: 176.18=F8
> Rising: Sep 19, 27 AD; 5:32:29 AM
> Transit: Sep 19, 27 AD; 11:58:55 AM
> Setting: Sep 19, 27 AD; 6:18:05 PM
> Az: 14:40:42; Alt: -51:00:41
> RA: 11:42:07; Dec: 6:11:54
> Ecliptic Lon: 173:25:04; Lat: 3:52:59
> Galactic Lon: 317:44:29; Lat: 57:22:53
> Notes: Daniel's 7+62 sabbatic years fulfilled[Dan 9:25]
> =
> =95 Vernal(Spring) Equinox of 31 AD:
> Julian day: 1732454
> Day and Date: Monday, March 19, 31 AD
> Jewish calendar: 5 Nisan 3791(lunisolar)
> Sun Rising: Mar 19, 31 AD; 5:43:10 AM
> Transit: Mar 19, 31 AD; 11:42:36 AM
> Setting: Mar 19, 31 AD; 5:42:30 PM
> Notes: Jewish lunisolar calendar rules stipulate
> Passover(14 Nisan) must occur no earlier
> than two days before the spring equinox.
> Josephus said Passover fell "in Aries"
> [ref. Antiquities of the Jews IIIx5],
> placing Nisan 14 after March 21 every year
> from Moses to Christ. Also, Pentecost must
> occur before summer, and always on a Monday,
> on the 7th/9th/11th or 13th of 3rd month(Sivan),
> proving 14 Nisan 3791 fell on March 28, 31 AD.
> =
> =95 Palm "Sunday"(1283 days after His baptism, the LORD of the Sabbath =
rides humbly
> into Jerusalem in "the midst" of the prophet Daniel's seventieth sab=
batic year):
> Julian day: 1732463
> Day and Date: Saturday, March 24, 31 AD
> Jewish calendar: 10 Nisan 3791(lunisolar)
> New Moon: 2:37:22 AM(JD 1732450.52594)
> Phase: 0.2%, Phase angle: 175.34=F8
> Az: 67:41:09; Alt: -45:35:21
> RA: 23:27:51; Dec: -8:38:58
> Ecliptic Lon: 349:11:07; Lat: -4:42:49
> Galactic Lon: 131:38:56; Lat: -60:23:10
> Rising: Mar 12, 31 AD; 6:17:11 AM
> Transit: Mar 12, 31 AD; 12:08:49 PM
> Setting: Mar 12, 31 AD; 6:07:58 PM
> Notes: paschal lamb selected[Exo 12:3]
> =
> =95 Date Jesus was crucified(Passover, Messiah the Prince "cut off"):
> Julian day: 1732467
> Day and Date: Wednesday, March 28, 31 AD
> Jewish calendar: 14 Nisan 3791(lunisolar)
> Full Moon: 3:14:08 PM(JD 1732466.05148)
> Rising: Mar 27, 31 AD; 5:32:32 AM
> Transit: Mar 27, 31 AD; 11:39:39 AM
> Setting: Mar 27, 31 AD; 5:47:14 PM
> Phase: 100.0%, Phase angle: 0.00=F8
> Az: 250:10:44; Alt: 31:09:39
> RA: 0:14:55; Dec: 1:29:02
> Ecliptic Lon: 4:00:37; Lat: -0:08:17
> Galactic Lon: 147:25:18; Lat: -47:50:31
> Notes: orthodox theologians reject Wednesday crucifixion,
> even though the Scriptures entirely support this.
> =
> =95 Date Jesus resurrected(scientifically-inexplicable image produced o=
n
> fine linen shroud and swath cloth by process unknown and unidentified=
):
> Julian day: 1732470
> Day and Date: Saturday, March 31, 31 AD
> Jewish calendar: 17 Nisan 3791(lunisolar)
> Notes: Turin shroud proven from in 1st-century Jerusalem
> =
> =95 Date Jesus' resurrection discovered("first day", early morning hour=
s. Interesting
> that "April Fools/All Fools Day" traditions are of Roman Catholic/Nic=
aean origin):
> Julian day: 1732471
> Day and Date: Sunday, April 1, 31 AD
> Jewish calendar: 18 Nisan 3791(lunisolar)
> Notes: orthodox theologians reject Saturday resurrection,
> even though the Scriptures entirely support this.
> =
> =95 Date daily sacrifice[Gk. endelecismds] ceased, temple destroyed:
> Julian day: 1746832
> Day and Date: Tuesday, July 17, 70 AD
> Jewish calendar: 20 Tammuz 3830(lunisolar)
> New Moon: 9:04:23 PM(JD 1746802.29471)
> Phase: 0.2%, Phase angle: 175.53=F8
> Az: 325:58:46; Alt: -21:06:02
> RA: 6:06:19; Dec: 27:53:04
> Ecliptic Lon: 91:23:53; Lat: 4:12:16
> Galactic Lon: 197:25:33; Lat: 26:32:01
> Rising: Jun 26, 70 AD; 3:28:11 AM
> Transit: Jun 26, 70 AD; 11:05:03 AM
> Setting: Jun 26, 70 AD; 6:43:34 PM
> *Full Moon: 5:09:41 AM(JD 1746817.63172)
> Phase: 99.8%, Phase angle: 5.48=F8
> Az: 243:02:19; Alt: -9:43:09
> RA: 19:11:10; Dec: -27:57:21
> Ecliptic Lon: 285:43:33; Lat: -5:14:38
> Galactic Lon: 25:38:09; Lat: -39:05:42
> Rising: Jul 11, 70 AD; 6:32:06 PM
> Transit: Jul 11, 70 AD; 11:24:36 PM
> Setting: Jul 12, 70 AD; 4:19:14 AM
> Notes: "sacrifice...to cease"[Dan 9:27] fulfilled
> =
> =95 Date Jerusalem destroyed(observed, the city was "razed flat")
> Julian day: 1746876
> Day and Date: Saturday, September 8, 70 AD
> Jewish calendar: 14 Elul 3830
> Full Moon: 5:33:27 AM(JD 1746876.64823)
> Phase: 100.0%, Phase angle: 1.83=F8
> Az: 263:29:00; Alt: -5:08:23
> RA: 22:59:53; Dec: -8:14:14
> Ecliptic Lon: 342:58:54; Lat: -1:36:37
> Galactic Lon: 116:37:17; Lat: -60:16:30
> Rising: Sep 8, 70 AD; 5:38:11 PM
> Transit: Sep 8, 70 AD; 11:21:03 PM
> Setting: Sep 9, 70 AD; 5:12:02 AM
> Notes: "desolate...consummation"[Dan 9:27] fulfilled
Oy! It's a well known fact that the Beatles are bigger than Jesus
anyway.
------------------------------
Date: Wed, 13 Jan 1999 07:56:24 +0000
From: eric <eendersnospam@ford.com>
Subject: Re: CONCLUSIVE PROOF: The Beatles are bigger than Jesus!
Message-Id: <369C51A8.6872@ford.com>
John Lennon said so, so there!
------------------------------
Date: Wed, 13 Jan 1999 10:14:19 +0100
From: Stephan Slagter <sslagter@eega.nl>
Subject: Email notification
Message-Id: <369C63EA.1B56C495@eega.nl>
Hello,
I'm looking for a way to send visitors a email notifications when a html
page is changed on our server. I've seens this before but can't find it
again.
If you know of any service, perl- or javascript that can do this, please
let me know.
Any help is welcome
Stephan
--
----------------------------------------------------------------
EEGA Ergonomie
Oude Almeloseweg 78
7622 CZ Borne
Telefoon : 074 - 2668555
Fax : 074 - 2668595
Stephan Slagter sslagter@eega.nl
----------------------------------------------------------------
------------------------------
Date: Wed, 13 Jan 1999 09:34:29 GMT
From: ehpoole@ingress.com (Ethan H. Poole)
Subject: Re: Generating a unique number
Message-Id: <FMZm2.5$bJ4.157@news12.ispnews.com>
[Posted and Emailed] In article <369c3a11.0@news.primary.net>,
btate@primary.net says...
>
>This would generate a 13-digit field that is equiped with Upper case, lower
>case and numbers that are uniquely random. It is not eight, but it should
>work for you.
Excuse me, but "uniquely random"? Randomness and uniqueness are not the
same. While it may be unlikely that rand() will generate two consecutive (or
nearly so) strings of the same characters, it is not guaranteed.
Additionally, there is no guarantee that crypt()'s many-to-one mapping will
not map two dissimilar strings to the same hash value. In other words, you
have committed two acts that make it cumulatively more likely that the
generated end value will *not* be unique.
The more common approach when "uniqueness" is more important than randomness
is to combine the output of the time() function with the current process id,
and, if necessary, sleep() for one second to ensure that the process id can
not be recycled during the same second. This, of course, is based on the
assumption that time only marches forward.
Another alternative is to generate numbers at random and compare them to a
database of previously generated numbers to ensure that no recycling occurs.
If a match is found in the database, then you keep generating random values
until a new unused value is returned. The question, among others, is how
"long" does the value need to be unique? For a few hours, days, years, or
forever? The previous example would be ok with the addition of such a
database since this provides a secondary barrier to potential recycling.
To shorten the length of the ID field, you are welcome to use any base
representation you wish (e.g. base 10/16/64, etc).
>Daniel <daniel.mendyke@digital.com> wrote in message
>news:77g0qb$ufg$3@nntpd.lkg.dec.com...
>>
>>I'm looking for a way to assign truely unigue id numbers
>>to each visiter to a web site. I'd like to use charators as well
>>as numbers and keep the number of digits to eight.
>>
>>One possible solution might be to use the system
>>date and time to generator a unique number.
>>
>>How have others solved this problem?
>>
>>-Daniel
>>
>
--
Ethan H. Poole | Website Design and Hosting,
| CGI Programming (Perl & C)..
========Personal=========== | ============================
* ehpoole @ ingress . com * | --Interact2Day, Inc.--
| http://www.interact2day.com/
------------------------------
Date: 13 Jan 1999 09:20:26 GMT
From: "Charles R. Thompson" <design@raincloud-studios.com>
Subject: Re: How to stop perldoc scroll on find?
Message-Id: <77hogq$fad@bgtnsc02.worldnet.att.net>
>Since perdoc doesn its darnest to display the pod through a
pager (via
>pod2man | nroff -man | $PAGER) you must have something
misconfigured. I
>never had to pipe perldoc thru a pager.
>"perldoc will use, in order of preference, the pager
> defined in PERLDOC_PAGER, MANPAGER, or PAGER before
trying
> to find a pager on its own. (MANPAGER is not used if
> perldoc was told to display plain text or unformatted
> pod.)"
I'll look into that a bit more. I saw that in the perldoc, and
felt the wind as it went over my head. I just got Linux up about
1 month ago and had to get right to work on client's sites.
Hopefully all will be well before the end of the month. Until
then a few keystrokes won't kill me. :)
Thanks for the post.
------------------------------
Date: Wed, 13 Jan 1999 09:35:10 +0000
From: Viczai Gabor <gviczai@dam.dunaferr.hu>
Subject: Re: Low level perl
Message-Id: <369C68CD.ABFC2B3E@dam.dunaferr.hu>
Martien Verbruggen wrote:
> Wait.. Didn't you say you wanted to create ethernet packets? At that
> level there is no such thing as an IP address. Did you really mean
> that you wanted to create TCP/IP packets, or inspect TCP/IP packets?
> or do you really want all ethernet packets?
I tell you what I'm up to:
We have a large LAN here in Dunaferr. There is about 1000 PC on it. We have
more than 50 Novell/NT/Unix
servers too. And of course there are several employees with some hackers
hidden. :)
Novell shows the attached users ethernet address.
W95/NT shows ethernet address in case of IP conflict.
I have a catalog that carries the employe's IP adress, DNS name, user name,
location but no ethernet addresses. I don't want to visit all thousand PC's.
Actually I can't.
So I want to create a broadcast ethernet packet containing an IP packet in
it. Send it over the network, and wait for the peer's ACK. Then pull out the
ethernet address, and put it to my catalog. So next time, when a hack
occures I can find out who is responsible.
(As you can guess I don't have experiance in this but I learn fast. First I
want to create the oppurtunity to write "low level ethernet"perl scripts,
then I'll read the documentation comes with the modules needed, then the
RFC's then the examples then search altavista then meet here again. :)
> Once you have those packets, all you need to do is parse them. Read
> the relevant RFCs for their format. You might even be able to use one
> of the Net:: modules for it.
>
> To send TCP/IP packets I'd recommend using one of the modules on CPAN.
> Net::TCP and Net::UDP come to mind. If you can use one of the
> established protocols, use the more specific module.
After I had posted my original article I got a very usefull letter from a
bot, tellin' me how to search
for perl related information without bothering this group. There I found CPAN
and Net::xxx modules.
I think Net::RawIP could be enough for me but I have some problems with it.
I've installed libpcap succesfully, but RawIP needs /usr/include/ethernet.h
which I don't have, & I don't know where can I find it or which RPM contais
it, but I'm on my way and that's what count. (I have Suse linux 5.3.)
Anyway, thanks Martien.
(Verbruggen - Viczai : 1:0) :)
Viczai Gabor
------------------------------
Date: Wed, 13 Jan 1999 08:05:55 GMT
From: mcafee@waits.facilities.med.umich.edu (Sean McAfee)
Subject: New Perl module for examining Java class files
Message-Id: <DtYm2.1928$Ge3.9066787@news.itd.umich.edu>
I've written a Perl module which can read and display the information in
Java class files. It can be downloaded from the following URL:
http://www-personal.umich.edu/~mcafee/perl/
Comments are welcome.
--
Sean McAfee | GS d->-- s+++: a26 C++ US+++$ P+++ L++ E- W+ N++ |
| K w--- O? M V-- PS+ PE Y+ PGP?>++ t+() 5++ X+ R+ | mcafee@
| tv+ b++ DI++ D+ G e++>++++ h- r y+>++** | umich.edu
------------------------------
Date: Wed, 13 Jan 1999 09:31:03 GMT
From: dave@mag-sol.com
Subject: Re: perl cgi (win95) doesn't work with CGI.pm
Message-Id: <77hp4n$9jm$1@nnrp1.dejanews.com>
In article <77g44u$57a$1@nnrp2.dejanews.com>,
ed_c@my-dejanews.com wrote:
> In article <369a6b07.2599230@news>,
> el@fiz-karlsruhe.de (Edwin Litterst) wrote:
> > A small demo perl script works nice if called from the command line
> > but doesn't return anything if CGI.pm is included:
>
> One problem I have noticed with CGI.pm and Windoze95 is that the ActiveState
> build is version 5.003_xxx and CGI.pm has a 'require 5.004' at the top. To
> get CGI.pm to work I had to change that line to 'require 5.003'. Some gurus
> out there please correct me, but for simple CGI processing this difference
> really shouldn't matter all that much.
You should pay another visit to the ActiveState web site. The latest version
is now 5.00502.
--
Dave Cross
Magnum Solutions Ltd: <http://www.mag-sol.com/>
London Perl M[ou]ngers: <http://london.pm.org/>
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: 12 Dec 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 Dec 98)
Message-Id: <null>
Administrivia:
Well, after 6 months, here's the answer to the quiz: what do we do about
comp.lang.perl.moderated. Answer: nothing.
]From: Russ Allbery <rra@stanford.edu>
]Date: 21 Sep 1998 19:53:43 -0700
]Subject: comp.lang.perl.moderated available via e-mail
]
]It is possible to subscribe to comp.lang.perl.moderated as a mailing list.
]To do so, send mail to majordomo@eyrie.org with "subscribe clpm" in the
]body. Majordomo will then send you instructions on how to confirm your
]subscription. This is provided as a general service for those people who
]cannot receive the newsgroup for whatever reason or who just prefer to
]receive messages via e-mail.
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 4638
**************************************
