[17251] in Perl-Users-Digest
Perl-Users Digest, Issue: 4673 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Oct 20 09:05:27 2000
Date: Fri, 20 Oct 2000 06:05:10 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <972047109-v9-i4673@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Fri, 20 Oct 2000 Volume: 9 Number: 4673
Today's topics:
Re: A Simpler perlish way (Anno Siegel)
Boolean query to Perl regexp match conversion <sba@ocegr.fr>
Re: Bug in Date::Calc Day_of_Week (Martien Verbruggen)
Re: Bug in Date::Calc Day_of_Week <soeder@ai-lab.fh-furtwangen.de>
Re: File Locking and CGI (Garry Williams)
Re: Finding two words in any order in string? (David de Gruyl)
Re: Finding two words in any order in string? <sba@ocegr.fr>
Re: Finding two words in any order in string? <sba@ocegr.fr>
Re: Finding two words in any order in string? (Bernard El-Hagin)
Re: Finding two words in any order in string? (Bernard El-Hagin)
Re: God, this is like hard work... <All@n.due.net>
Re: Help DBI/ DBD mysql (Anthony Peacock)
Re: how can I get data from a file into variable? (Martien Verbruggen)
Re: How to turn '<br><br>' or '<br><br><br>' into '<br> <lincmad001@telecom-digest.zzn.com>
Re: list of exit codes <josef.moellers@fujitsu-siemens.com>
Re: Posting from perl to "cgi" <ubl@schaffhausen.de>
Problems with SCO V5 and Perl -> Memory core <GrohmannP@graz.spardat.at>
programming <p_devaki1@yahoo.com>
Re: programming (Bernard El-Hagin)
Re: Rijndael in Perl (Tony L. Svanstrom)
Re: Rijndael in Perl (Rasputin)
Third German Perl-Workshop: Call for Papers (Norbert Gruener)
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 20 Oct 2000 12:04:09 -0000
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: A Simpler perlish way
Message-Id: <8spcbp$7jm$1@lublin.zrz.tu-berlin.de>
Logan Shaw <logan@cs.utexas.edu> wrote in comp.lang.perl.misc:
>In article <6a5suso3ud2p49sqstem6udrab5ehp9676@4ax.com>,
>Daniel Jones <ddjones@speakeasy.org> wrote:
>>On Wed, 18 Oct 2000 10:55:04 +0100, Nick Condon
>><nickco3@yahoo.co.uk> wrote:
>>>"Godzilla!" wrote:
>>>> I am one of those who looks at a wheel and thinks,
>>>>
>>>> "There is probably a better way to do this."
>>>
>>>What have you come up with?
>>
>>Levitation. Concept is great. Implementation is still a
>>little fuzzy, though.
>
>I don't know, some trains seem to be utilizing this concept just fine.
>
>Side note (as if this were on topic to begin with): I went to
>http://www.mvp.de/ to look at some maglev train info, but it
>was in German, so I had http://babelfish.altavista.com/ translate
>it to English. Part of it reads,
>
> Loves homepage visitors and rapidly fanfan rapidly
> fan, we are unfortunately written off for this year!
>
>Usually I am able to decipher the output of automated tranlators,
>but not in this case...
If anyone cares:
"Dear visitors of our home page and Transrapid fans,
unfortunately we are booked up for the year."
No idea why this sentence throws babelfish the way it does.
Anno (not a rapidly fanfan)
------------------------------
Date: Fri, 20 Oct 2000 13:40:37 +0200
From: Stephane Barizien <sba@ocegr.fr>
Subject: Boolean query to Perl regexp match conversion
Message-Id: <39F02F35.2D659F34@ocegr.fr>
Hi all,
I'm looking for a way to convert a "search engine style" boolean query
like
(foo OR bar) AND blah* AND kernel
into a (set of) equivalent Perl regexp matching operation(s) (assuming
the entire text to run the query against is in a single
multiline-thus-with-embedded-newlines Perl $str)
Any clue?
TIA
------------------------------
Date: Fri, 20 Oct 2000 21:50:07 +1100
From: mgjv@tradingpost.com.au (Martien Verbruggen)
Subject: Re: Bug in Date::Calc Day_of_Week
Message-Id: <slrn8v08qu.fji.mgjv@martien.heliotrope.home>
On Fri, 20 Oct 2000 11:00:39 +0200,
Malte Ubl <ubl@schaffhausen.de> wrote:
> Dies ist eine mehrteilige Nachricht im MIME-Format.
Please, don't do this. Usenet is a plain text sort of place. No v-cards
and stuff like that please.
> there seems to be a bug in Date::Calc's Day_of_Week function.
Strong claim.
> For Dates before 1980 it seems to deliver the wrong days.
> I've asked 3 colleages for the day of their birth and had them
> call their mothers to verify it, and for all of them Date::Calc
> delivers wrong results.
Maybe their mothers have a bug? :)
> BTW: my Macintosh Date/Time control panel (the Perl script is
> running on Linux) has similar problems.
>
> My Questions are whether:
> - this is a bug?
I don't see a bug.
> - Germany left out a coupla leap years ?-)
Not to my knowledge.
> - the US left out a coupla leap years?
Not to my knowledge.
> - there are any solutions for this problem? (maybe a small UNIX app)
as far as I can tell, there is no problem with Date::Calc. Maybe the
solution is to replace your Mac's date/time control panel, and maybe
your collegues' mothers :)
> - anybody knows about a correct calendar on the internet which
> I can use to verify dates?
Any *nix and *bsd comes with one (cal). Here's a web interface to one:
http://www.earth.com/calendar. Of course, you could have trivially done
a web search for one (this one I found at yahoo).
# perl -MDate::Calc=Day_of_Week -wle 'print Day_of_Week(1966,9,4)'
7
# cal 9 1966
September 1966
Su Mo Tu We Th Fr Sa
1 2 3
4 5 6 7 8 9 10
11 12 13 14 15 16 17
18 19 20 21 22 23 24
25 26 27 28 29 30
# man Date::Calc
[snip]
· `$dow = Day_of_Week($year,$month,$day);'
This function returns the number of the day of week of
the given date.
The function returns "`1'" for Monday, "`2'" for Tuesday
and so on until "`7'" for Sunday.
[snip]
So, 4 Sep 1966, is tagged as a Sunday by Date::Calc as well as by cal,
and I happen to trust cal on this.
Which dates are you having troubles with?
Martien
--
Martien Verbruggen |
Interactive Media Division |
Commercial Dynamics Pty. Ltd. | What's another word for Thesaurus?
NSW, Australia |
------------------------------
Date: Fri, 20 Oct 2000 14:08:20 +0200
From: Oliver =?iso-8859-1?Q?S=F6der?= <soeder@ai-lab.fh-furtwangen.de>
Subject: Re: Bug in Date::Calc Day_of_Week
Message-Id: <39F035B4.421DF2BB@ai-lab.fh-furtwangen.de>
Malte Ubl wrote:
>
> Hi,
>
> there seems to be a bug in Date::Calc's Day_of_Week function.
> For Dates before 1980 it seems to deliver the wrong days.
> I've asked 3 colleages for the day of their birth and had them
> call their mothers to verify it, and for all of them Date::Calc
> delivers wrong results.
>
> BTW: my Macintosh Date/Time control panel (the Perl script is
> running on Linux) has similar problems.
>
> My Questions are whether:
> - this is a bug?
> - Germany left out a coupla leap years ?-)
> - the US left out a coupla leap years?
> - there are any solutions for this problem? (maybe a small UNIX app)
> - anybody knows about a correct calendar on the internet which
> I can use to verify dates?
>
> Your help is appreciated!!!
>
> malte
Type 'cal [year]' into your Linux Shell.
------------------------------
Date: Fri, 20 Oct 2000 12:39:12 GMT
From: garry@ifr.zvolve.net (Garry Williams)
Subject: Re: File Locking and CGI
Message-Id: <Q1XH5.137$O93.10366@eagle.america.net>
On 20 Oct 2000 08:53:41 GMT, jeacocks@uk.ibm.com <jeacocks@uk.ibm.com> wrote:
>>Irrelevant. You don't mention where the program runs. Does it always
>>run on the same server?
>
>>If so, you can create a local lockfile not on AFS. Open/lock that file,
>>then if successful, open the AFS file and deal with it. When done,
>>close the AFS file and then release the local lock.
>
>That would work fine if I only required that the lock be maintained while
>the current process was running. Unfortunatly the CGI program locks the
>file, then sends some data to the user, then exits. It then starts again
>as a new process when the user sumbits the form, it should then write out
>the new data and unlock the file. All locks created by flock() get
>destroyed when a process ends this is not what I need.
Then use O_CREAT|O_WRONLY|O_EXCL with a sysopen(). See perlopentut.
--
Garry Williams
------------------------------
Date: Fri, 20 Oct 2000 06:02:42 EDT
From: degruyl@superlink.net (David de Gruyl)
Subject: Re: Finding two words in any order in string?
Message-Id: <8sp582$n32$1@earth.superlink.net>
On Fri 20 Oct, Stephane Barizien <sba@ocegr.fr> wrote:
> I have a big multiline (embedded \n's) string in $str.
> I want to check if $str contains two (or more, but that's next) words,
> in any order...
> What's better than:
> foo.*bar|bar.*foo
How about:
/foo/m && /bar/m
Not really better, but easier to read.
David
--
David de Gruyl <degruyl@superlink.net>
A lot of people mistake a short memory for a clear conscience.
-- Doug Larson
------------------------------
Date: Fri, 20 Oct 2000 13:29:04 +0200
From: Stephane Barizien <sba@ocegr.fr>
Subject: Re: Finding two words in any order in string?
Message-Id: <39F02C80.A739947B@ocegr.fr>
Stephane Barizien wrote:
>
> Hi,
>
> I have a big multiline (embedded \n's) string in $str.
>
> I want to check if $str contains two (or more, but that's next) words,
> in any order...
>
> What's better than:
>
> foo.*bar|bar.*foo
>
> ?
>
> TIA
>
> (I've intentionally not taken the word boundary aspect into account)
Thanks for all replies to date.
What I forgot to mention is that I have my patterns in a file, so I'd
like to avoid duplicating all cases in that file, like:
foo.*bar
bar.*foo
The code checks if one or more of the patterns in the file match (thus
ORing the conditions -- that's why I need to have foo AND bar in the
same pattern)...
Can this lead you all to solutions closer to "my definition of the
problem?"
Regards,
------------------------------
Date: Fri, 20 Oct 2000 13:35:20 +0200
From: Stephane Barizien <sba@ocegr.fr>
To: nobull@mail.com
Subject: Re: Finding two words in any order in string?
Message-Id: <39F02DF8.9C28EACD@ocegr.fr>
nobull@mail.com wrote:
>
> Stephane Barizien <sba@ocegr.fr> writes:
>
> > I want to check if $str contains two (or more, but that's next) words,
> > in any order...
> >
> > What's better than:
> >
> > foo.*bar|bar.*foo
>
> The best solution is two (or more) independant regexps.
>
> $str =~ /foo/ && $str =~ /bar/
>
> But if you _must_ do it with one:
>
> $str =~ /^(?=.*foo).*bar/
That both works and needs heavy thinking to understand why (usual with
Perl regexps... ;-)
What about extending to N (>2) words?
------------------------------
Date: 20 Oct 2000 11:57:36 GMT
From: bernard.el-hagin@lido-tech.net (Bernard El-Hagin)
Subject: Re: Finding two words in any order in string?
Message-Id: <slrn8v0crm.28m.bernard.el-hagin@gdndev25.lido-tech>
On Fri, 20 Oct 2000 13:35:20 +0200, Stephane Barizien <sba@ocegr.fr> wrote:
>nobull@mail.com wrote:
>>
>> Stephane Barizien <sba@ocegr.fr> writes:
>>
>> > I want to check if $str contains two (or more, but that's next) words,
>> > in any order...
>> >
>> > What's better than:
>> >
>> > foo.*bar|bar.*foo
>>
>> The best solution is two (or more) independant regexps.
>>
> $str =~ /foo/ && $str =~ /bar/
>>
>> But if you _must_ do it with one:
>>
>> $str =~ /^(?=.*foo).*bar/
>
>That both works and needs heavy thinking to understand why (usual with
>Perl regexps... ;-)
>
>What about extending to N (>2) words?
You can dynamically create a regex and then eval it. For example:
-----------------------------------
#!/usr/bin/perl -w
use strict;
my @patterns = qw(foo bar far boo);
my $str = "foo bar far boo";
my $regex = 'if ( ';
foreach (@patterns){
$regex .= "\$str = /$_/ && ";
}
$regex =~ s/ && $/){print "Yeah"}/;
eval $regex;
-----------------------------------
Result:
Yeah
Cheers,
Bernard
--
perl -le'
($B,$e,$r,$n,$a,$r,$d)=q=$B$e$r$n$a$r$d==~m;
\$(.);xg;print$B.$e.$r.$n.$a.$r.$d;'
------------------------------
Date: 20 Oct 2000 12:00:14 GMT
From: bernard.el-hagin@lido-tech.net (Bernard El-Hagin)
Subject: Re: Finding two words in any order in string?
Message-Id: <slrn8v0d0g.28m.bernard.el-hagin@gdndev25.lido-tech>
On 20 Oct 2000 11:57:36 GMT, Bernard El-Hagin
<bernard.el-hagin@lido-tech.net> wrote:
>You can dynamically create a regex and then eval it. For example:
>
>-----------------------------------
>#!/usr/bin/perl -w
>use strict;
>
>my @patterns = qw(foo bar far boo);
>my $str = "foo bar far boo";
>
>my $regex = 'if ( ';
>foreach (@patterns){
> $regex .= "\$str = /$_/ && ";
That should read:
$regex .= "\$str =~ /$_/ && ";
Cheers,
Bernard
--
perl -le'
($B,$e,$r,$n,$a,$r,$d)=q=$B$e$r$n$a$r$d==~m;
\$(.);xg;print$B.$e.$r.$n.$a.$r.$d;'
------------------------------
Date: Fri, 20 Oct 2000 10:22:48 GMT
From: "Allan M. Due" <All@n.due.net>
Subject: Re: God, this is like hard work...
Message-Id: <Y1VH5.31131$P82.3726722@news1.rdc1.ct.home.com>
"The Moriman" <themoriman@ntlworld.com> wrote in message
news:d9TH5.87$bL1.3118@news6-win.server.ntlworld.com...
: Why did they make Perl so difficult to learn?
: I've read the FAQ's , the Perl documentation (that seems to be excellent,
: but assumptions are made about what you already know, which in my case
: appears to be a big fat nothing)
: Very basic question, I have an array such that I 'know' that $myarray[2] has
: the value of 'good old Bob' (without quotes),
: How do I search the array to find 'good old Bob'?
Hmm, did you miss the item:
How can I tell whether a list or array contains a certain element?
when you read perlfaq 4?
--
$email{'Allan M. Due'} = ' All@n.Due.net ';
--Random Quote--
Even if you aren't in doubt, consider the mental welfare of the person who has
to maintain the code after you, and who will probably put parens in the wrong
place.
Larry Wall in the perl man page
------------------------------
Date: 20 Oct 2000 12:16:55 GMT
From: a.peacock@chime.ucl.ac.uk (Anthony Peacock)
Subject: Re: Help DBI/ DBD mysql
Message-Id: <8spd3n$f6e$1@uns-a.ucl.ac.uk>
In article <39f00dfc.11215704@news.internord.dk>,
a_hertz@removethis.yahoo.com says...
>
>On Fri, 20 Oct 2000 07:59:05 GMT, ghorghor@my-deja.com wrote:
>
>>> NOTA : the IP is correct, the user tut have privileges on database
>>with
>>> host : IP of my primary serveur
>>> the password is correct
>
>I am no expert either but should'nt host be the server running mySql ?
>
>>>
>>i modifie some code
>>$dbh = DBI->connect("dbi:$driver:$datasource", $username, $password) or
>>die "Can't connect to mysql database: $DBI::errstr\n";
>>
>>and i have this now :
>>Can't connect to mysql database: Unknown MySQL Server Host
>>(host=216.MMM.MMM.MMM)(0)
Hi,
This suggests one of a number of things to me:
1. The computer at 216.MMM.MMM.MMM isn't running mySQL
2. The mySQL server at 216.MMM.MMM.MMM doesn't have the correct
privileges set for access from the computer you are running your script
on.
3. For better help you should be asking this question on the mySQL
mailing list as this is a mysql connection problem...
------------------------------
Date: Fri, 20 Oct 2000 21:11:35 +1100
From: mgjv@tradingpost.com.au (Martien Verbruggen)
Subject: Re: how can I get data from a file into variable?
Message-Id: <slrn8v06in.fji.mgjv@martien.heliotrope.home>
On Fri, 20 Oct 2000 17:14:44 +0800,
Arthur <gapming@hotmail.com> wrote:
> I have a file (e.g. test.log) that the format is:
> 2000-10-18 5000
> 2000-10-19 1000
> 2000-10-20 2000
>
> where the space between the date and the number is a tab.
> How can I retreive the number 2000 into a variable? I just want to get the
> most bottom one.
Just the last one? if the file is large, you might want to get the
File::ReadBackwards module from CPAN, or use an external command to get
only the last line or so, but otherwise:
open(FILE, $file) or die "Cannot open $file: $!";
my $line = (<FILE>)[-1];
close FILE;
chomp $line;
my $val = (split /\t/, $line)[-1];
If the line is of intermediate length, and you have little memory:
open(FILE, $file) or die "Cannot open $file: $!";
my $line = (<FILE>)[-1];
close FILE;
my $line;
$line = $_ while <FILE>;
chomp $line;
my $val = (split /\t/, $line)[-1];
Martien
--
Martien Verbruggen |
Interactive Media Division | I took an IQ test and the results
Commercial Dynamics Pty. Ltd. | were negative.
NSW, Australia |
------------------------------
Date: Fri, 20 Oct 2000 02:54:56 -0700
From: Linc Madison <lincmad001@telecom-digest.zzn.com>
Subject: Re: How to turn '<br><br>' or '<br><br><br>' into '<br>' ?
Message-Id: <201020000254567771%lincmad001@telecom-digest.zzn.com>
In article <8so579$13a$1@nnrp1.deja.com>, <lynton@iname.com> wrote:
> How to turn '<br><br>' or '<br><br><br>' into '<br>' ?
>
> s/(<br>)+/<br>/gs; won't work
Why not? It works for the example you gave.
Perhaps you need
s/(<br>\s+)+/<br>/gis;
so that you can match
<BR>
<br>
<Br>
as well as just
<br><br><br>
------------------------------
Date: Fri, 20 Oct 2000 12:38:00 +0200
From: Josef Moellers <josef.moellers@fujitsu-siemens.com>
Subject: Re: list of exit codes
Message-Id: <39F02088.97259F4C@fujitsu-siemens.com>
Kingsley Tart wrote:
> =
> Does anyone know where I can get a list of exit codes? I'm forking
> subprocesses and some of them are terminating with exit code 11 and sho=
wing
> up as below when doing "ps aux" ("proggy" is the name of the program):
> =
> 17:00 0:00 [proggy <defunct>]
> 17:00 0:00 [proggy <defunct>]
> 17:00 0:00 [proggy <defunct>]
> =
> This isn't the only exit code that is being strange, so a list would be=
> handy. However, this is the most important one at this stage. I've trie=
d
> searching the 'net for "exit code 11" but all I get is loads and loads =
of
> irrelevant stuff :-(
"defunct" is not an exit code, but it is an indication that the process
has exited but the parent has not yet collected the exit status by
calling one of the wait() family.
Tune to "man ps" for more exiting news on this topic ...
-- =
Josef M=F6llers (Pinguinpfleger bei FSC)
If failure had no penalty success would not be a prize (T. Pratchett)
------------------------------
Date: Fri, 20 Oct 2000 11:51:44 +0200
From: Malte Ubl <ubl@schaffhausen.de>
Subject: Re: Posting from perl to "cgi"
Message-Id: <39F015B0.25864291@schaffhausen.de>
Dies ist eine mehrteilige Nachricht im MIME-Format.
--------------0946097E91E1A0E34EC6D9E9
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
aviachili@my-deja.com schrieb:
>
> Hi,
>
> Using a form, I am posting this to my perl
> proggie:
> user=michel&password=miriam
> In perl I check the user and password for
> validation BEFORE I sent the data over to the
> excisting cgi.
> Now the thing is, the second "CGI" does expect a
> posted form. It uses PHP to take the values
> posted and process them.
> Now, HOW do you post from perl.
> I nstead of calling a cgi like this: test.cgi?
> username=blah&password=pass I want it to be
> POSTED.
Why do you want to call a second CGI script?
Do you display another HTML page before the second CGI script
is called?
malte
--------------0946097E91E1A0E34EC6D9E9
Content-Type: text/x-vcard; charset=us-ascii;
name="ubl.vcf"
Content-Transfer-Encoding: 7bit
Content-Description: Visitenkarte fŸr Malte Ubl
Content-Disposition: attachment;
filename="ubl.vcf"
begin:vcard
n:Ubl;Malte
tel;cell:+49 173 9237521
tel;fax:+49 4121 472938
tel;home:+49 4121 438297
tel;work:+49 4121 472964
x-mozilla-html:FALSE
url:http://www.schaffhausen.de
org:Schaffhausen | Interactive
adr:;;Daimlerstrasse 17;Elmshorn;;25337;Germany
version:2.1
email;internet:ubl@schaffhausen.de
title:Developer for web-based applications
x-mozilla-cpt:;1
fn:Malte Ubl
end:vcard
--------------0946097E91E1A0E34EC6D9E9--
------------------------------
Date: Fri, 20 Oct 2000 13:04:45 +0200
From: "Peter Grohmann" <GrohmannP@graz.spardat.at>
Subject: Problems with SCO V5 and Perl -> Memory core
Message-Id: <8sp92s$g1b$1@leech.it-austria.net>
Hi all!
I tried to compile Perl 5.6.0 on a SCO V5 System. But i can't make a running
perl. I get memory core. What are possible causes? I only typed in sh
Configure -de
Thanx for reply
Peter Grohmann
------------------------------
Date: Fri, 20 Oct 2000 12:30:03 -0000
From: <p_devaki1@yahoo.com>
Subject: programming
Message-Id: <sv0embjqbq6b5c@corp.supernews.com>
what is the application of cgi & perl? how does it differ from other
networking programming languages?
i want to give talk on cgi with perl ,can i get the basics of cgi &
perl ,its use over other languages,why it is used,? where exactly it is
used ? when did the people start using this? & other related information
--
Posted via CNET Help.com
http://www.help.com/
------------------------------
Date: 20 Oct 2000 12:40:41 GMT
From: bernard.el-hagin@lido-tech.net (Bernard El-Hagin)
Subject: Re: programming
Message-Id: <slrn8v0fcg.28m.bernard.el-hagin@gdndev25.lido-tech>
On Fri, 20 Oct 2000 12:30:03 -0000, p_devaki1@yahoo.com
<p_devaki1@yahoo.com> wrote:
>what is the application of cgi & perl? how does it differ from other
>networking programming languages?
>i want to give talk on cgi with perl ,can i get the basics of cgi &
>perl ,its use over other languages,why it is used,? where exactly it is
>used ? when did the people start using this? & other related information
Just out of curiosity - shouldn't someone else be giving this talk?
Cheers,
Bernard
--
perl -le'
($B,$e,$r,$n,$a,$r,$d)=q=$B$e$r$n$a$r$d==~m;
\$(.);xg;print$B.$e.$r.$n.$a.$r.$d;'
------------------------------
Date: Fri, 20 Oct 2000 12:34:38 GMT
From: tony@svanstrom.com (Tony L. Svanstrom)
Subject: Re: Rijndael in Perl
Message-Id: <1eit132.1towk9kbyuqvoN%tony@svanstrom.com>
Runu Knips <runu.knips@gmx.de> wrote:
> those who know me have no need of my name wrote:
> > <1eipo5k.cqrn9u17tsqe1N%tony@svanstrom.com> divulged:
> >
> > >Anyone that knows if Rijndael exists in Perl yet and/or if someone's
> > >working on it?
> >
> > ummm. how would one protect the plaintext?
>
> I've no clue what you're actually asking. The plaintext is guarded
> by transforming it to ciphertext using some encryption routine, for
> example Rijndael. But the simple fact that you know what 'plaintext'
> is means you already know that.
>
> So what do you want to know ???
I think he meant how I can use Perl to avoid attacks where the attacker
looks at what's "left behind" (tempfiles, diskswapping...).
/Tony
--
/\___/\ Who would you like to read your messages today? /\___/\
\_@ @_/ Protect your privacy: <http://www.pgpi.com/> \_@ @_/
--oOO-(_)-OOo---------------------------------------------oOO-(_)-OOo--
on the verge of frenzy - i think my mask of sanity is about to slip
---ôôô---ôôô-----------------------------------------------ôôô---ôôô---
\O/ \O/ ©99-00 <http://www.svanstrom.com/?ref=news> \O/ \O/
------------------------------
Date: Fri, 20 Oct 2000 13:03:04 GMT
From: rara.rasputin@nospam.virgin.net (Rasputin)
Subject: Re: Rijndael in Perl
Message-Id: <slrn8v0giq.dl6.rara.rasputin@cartman.techsupport.co.uk>
tony@svanstrom.com <Tony L. Svanstrom> wrote:
>Runu Knips <runu.knips@gmx.de> wrote:
>
>> those who know me have no need of my name wrote:
>> > <1eipo5k.cqrn9u17tsqe1N%tony@svanstrom.com> divulged:
>> > >Anyone that knows if Rijndael exists in Perl yet and/or if someone's
>> > >working on it?
>> > ummm. how would one protect the plaintext?
>> I've no clue what you're actually asking. The plaintext is guarded
>> by transforming it to ciphertext using some encryption routine, for
>> example Rijndael. But the simple fact that you know what 'plaintext'
>> is means you already know that.
>I think he meant how I can use Perl to avoid attacks where the attacker
>looks at what's "left behind" (tempfiles, diskswapping...).
Don't use tempfiles, and encrypt your swap.
OpenBSd does this, (using Rijndael, funnily enough)
I'd imagine other decent OSes could be patched.
It's not really perl's job.
--
Rasputin.
Jack of All Trades - Master of Nuns.
------------------------------
Date: 20 Oct 2000 11:03:51 GMT
From: nog@Mpa-Garching.MPG.DE (Norbert Gruener)
Subject: Third German Perl-Workshop: Call for Papers
Message-Id: <8sp8qn$lae$3@kiosk.rzg.mpg.de>
Third German Perl-Workshop
http://www.perlworkshop.de/2001/
Wednesday to Friday, February 28 - March 02, 2001
at the
Fachhochschule Bonn-Rhein-Sieg, Sankt Augustin near Bonn
*** Abstract Deadline : October 23, 2000 ***
The "Third German Perl-Workshop" is a non-profit conference for Perl
users and developers mostly covered by sponsors. It aims at fostering
exchange and social networking between Perl developers and advanced
Perl users in the German-speaking Perl community.
We are looking for tutors and speakers at the Perl-Workshop.
Presentations will be:
TUTORIALS: 3 hours (half-day)
LONG TALKS: 45 - 55 minutes.
SHORT TALKS: 15 - 20 minutes.
If you wish to make a presentation, please mail your abstract
(plain ASCII text, 200-300 words) to "wsorga@perlworkshop.de"
by October 23, 2000
~~~~~~~~~~~~~~~~~~~
We would appreciate if you could forward this "Call for Papers" to
other interested people.
Norbert Grüner
member of the organizing committee
Perl-Workshop 2001
--
+------------------------------------------------------------------+
| Norbert E. Gruener E-mail: nog@MPA-Garching.MPG.DE |
| MPI fuer Astrophysik PGP encrypted mail preferred |
| WWW: http://www.MPA-Garching.MPG.DE/~nog/ |
| PGPprint(RSA): 66 64 C0 D0 6F 1A 16 02 C2 C6 37 83 3A 5F 88 9B |
| PGPprint(DH): EBBF 02ED 1B91 39C3 5FB9 4D2F 9478 E224 334C 34CD |
+------------------------------------------------------------------+
------------------------------
Date: 16 Sep 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 16 Sep 99)
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: The mail to news gateway, and thus the ability to submit articles
| through this service to the newsgroup, has been removed. I do not have
| time to individually vet each article to make sure that someone isn't
| abusing the service, and I no longer have any desire to waste my time
| dealing with the campus admins when some fool complains to them about an
| article that has come through the gateway instead of complaining
| to the source.
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 V9 Issue 4673
**************************************
