[11508] in Perl-Users-Digest
Perl-Users Digest, Issue: 5108 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Mar 11 07:07:48 1999
Date: Thu, 11 Mar 99 04:00:19 -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 Thu, 11 Mar 1999 Volume: 8 Number: 5108
Today's topics:
Re: BigInt: Decimal to Hex <sb@sdm.de>
Re: BigInt: Decimal to Hex <skilchen@swissonline.ch>
Re: BigInt: Decimal to Hex <sb@sdm.de>
Can't Increment Counter in FILE Using http:// (George Crissman)
Re: Combining Files (Bart Lateur)
Re: Days in Month array (Bart Lateur)
DBI docs? (John )
Elegant remote execution of Perl-scripts? <GWoeste@yahoo.com>
FAQ 3.30: I've read perlembed, perlguts, etc., but I ca <perlfaq-suggestions@perl.com>
gethostbyaddr khanda@hotmail.com
Re: Hashes ?? pvdkamer@inter.NL.net
Help modifying 'null' elements ?! Jamie@worldweb.demon.co.uk
Re: How to do a Case-insensitive Sort? (Bart Lateur)
Re: Memory management & Perl to C extensions (Arved Sandstrom)
Net DNS nodule khanda@hotmail.com
Re: Perl and NT backoffice <horizon@internetexpress.com.au>
perl download script on NT <rtorzyns@unm.edu>
perl filters for inn (P.M.Wong )
Re: Printing in Perl (Bart Lateur)
Sending Attachment with perl <yoann.lecorvic@infrasoft-civil.com>
Re: URGENT: Problem with Bitwise AND slamda@hotmail.com
Re: y2k and 4-digit dates (was Re: foreach and while) <tobias@td.org.uit.no>
Re: y2k and 4-digit dates (was Re: foreach and while) <staffan@ngb.se>
Re: y2k and 4-digit dates (was Re: foreach and while) <staffan@ngb.se>
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 11 Mar 1999 10:21:44 GMT
From: Steffen Beyer <sb@sdm.de>
Subject: Re: BigInt: Decimal to Hex
Message-Id: <7c85fo$p6g$1@solti3.sdm.de>
In comp.lang.perl.misc Jerome O'Neil <jeromeo@atrieva.com> wrote:
> I have been unsuccessful in attempting to convert large decimal integers
> (>20 digits) to their hexadecimal equivalents.
> SCO drops core with printf("%x"), and Math::BigInt doesn't support
> conversions. Where else might I look for big_dec2hex conversion code?
Use the module "Bit::Vector" - see my sig below for URLs where you can
find it.
Converting to/from hex and decimal is one of the modules easiest feats... :-)
Hope this helps.
I guess this module should be mentioned in the FAQs by now, but I'm
afraid it isn't...
Tom, what about including mention of this module in the FAQs, just as
the Date::Calc module is mentioned in the FAQs about date calculation
problems?
I'm tired to answer these really FREQUENTLY asked questions several
times a week...
Thanks a lot! :-)
Best regards,
--
Steffen Beyer <sb@engelschall.com>
http://www.engelschall.com/u/sb/download/ (Free Perl and C Software
http://www.perl.com/CPAN/authors/id/STBEY/ for Download)
New: Build'n'Play 2.1.0 (all-purpose Unix batch installation tool)
http://www.oreilly.de/catalog/perlmodger/bnp.html
------------------------------
Date: Thu, 11 Mar 1999 10:38:11 GMT
From: "Samuel Kilchenmann" <skilchen@swissonline.ch>
Subject: Re: BigInt: Decimal to Hex
Message-Id: <n2NF2.3675$8c4.19185274@news.magma.ca>
Tom Christiansen schrieb in Nachricht
<7c77pk$7qe$1@nntp.Stanford.EDU>...
>
> sub big_dec2hex {
> use Math::BigInt;
> my $num = new Math::BigInt shift;
> my $str = '';
> while ($num > 0)
> my($quo, $rem) = $num->bdiv(16);
> $str .= (0 .. 9, 'A'.. 'F')[$rem];
> $num = new Math::BigInt $quo; # why aren't they bigints?
because otherwise somebody would be whining about the line immediately
preceding this one.
> }
> return scalar reverse $str;
> }
>
(Thats the way postings using a mixing of spaces and tabs look like. I
know: you don't care)
What about:
sub big_dec2hex {
use Math::BigInt;
my $num = shift;
my $str = '';
while ($num > 0) {
($num, my $rem) = Math::BigInt::bdiv($num, 16);
$str = (0 .. 9, 'A'.. 'F')[$rem] . $str;
}
return $str;
}
--
Samuel Kilchenmann
skilchen@swissonline.ch
------------------------------
Date: 11 Mar 1999 10:59:09 GMT
From: Steffen Beyer <sb@sdm.de>
Subject: Re: BigInt: Decimal to Hex
Message-Id: <7c87lt$q0m$1@solti3.sdm.de>
In comp.lang.perl.misc Jerome O'Neil <jeromeo@atrieva.com> wrote:
> > I have been unsuccessful in attempting to convert large decimal integers
> > (>20 digits) to their hexadecimal equivalents.
> > SCO drops core with printf("%x"), and Math::BigInt doesn't support
> > conversions. Where else might I look for big_dec2hex conversion code?
> Use the module "Bit::Vector" - see my sig below for URLs where you can
> find it.
I forgot to mention that Bit::Vector is written in C internally and that
it uses an efficient divide-and-conquer algorithm for conversions to/from
decimal, thus it should be the fastest what you can get for this type of
conversions.
Hope this helps.
Regards,
--
Steffen Beyer <sb@engelschall.com>
http://www.engelschall.com/u/sb/download/ (Free Perl and C Software
http://www.perl.com/CPAN/authors/id/STBEY/ for Download)
New: Build'n'Play 2.1.0 (all-purpose Unix batch installation tool)
http://www.oreilly.de/catalog/perlmodger/bnp.html
------------------------------
Date: Thu, 11 Mar 1999 08:06:44 GMT
From: strads@tmisnet.com (George Crissman)
Subject: Can't Increment Counter in FILE Using http://
Message-Id: <36205783.7562027@news2.tmisnet.com>
Greetings!
I'm developing an application that keeps a serial number in a file
named <syscount.txt>. The program is supposed to read the number,
increment it, and save it back into the file for next time. The
program fragment shown below performs this task.
The good news: it WORKS in telnet mode based in the
cgi-bin directory.
The bad news: it DOESN'T work in http:// mode from my browser.
More bad news: it's supposed to work using http:// access.
Partial success is worse than complete failure, because I have
no clue how to proceed with my debugging.
Any hints or tips would certainly be appreciated!
Thanks--
-- George Crissman
-- strads@tmisnet.com
# Open System Count Data File, Get Serial Number, Save Next Serial
Number
if (-e "syscount.txt")
{ open( FILE, "syscount.txt" ) || die "Cannot Read From Syscount:
$! \n" ;
chomp( $count_active = <FILE> ) ; # Get Serial Number, Remove LF
close( FILE ) ;
$count_next = $count_active ;
$count_next++ ; # Increment Count For Next Time
open( FILE, ">syscount.txt" ) || die "Cannot Write To Syscount: $!
\n" ;
print FILE $count_next ; # Save Incremented Number For
Next Time
print FILE "\n" ;
close( FILE ) ;
}
# Create System Count Data File, Initialize Value, Abort If Impossible
else
{ $count_active = $count_start ;
$count_next = $count_start + 1 ;
open( FILE, ">syscount.txt" ) || die "Cannot Write To Syscount:
$! \n" ;
print FILE $count_next ;
print FILE "\n" ;
close( FILE ) ;
}
-----------------------------------------------------------------------
"There is no need to criminalize millions of legitimate and responsible
businesses and individuals in order to stop a very small group of
irresponsible people, particularly when there are other ways already
working ." says Mr. Dan Hufnal of the 10,000 member DEAA
<http://www.deaa.com>. What does he mean by "already working"?
Maybe: <http://www.tmisnet.com/~strads/spamhunt/index.html>
-----------------------------------------------------------------------
------------------------------
Date: Thu, 11 Mar 1999 09:25:04 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: Combining Files
Message-Id: <36ee8b67.5901581@news.skynet.be>
Larry Rosler wrote:
>This code creates sparse arrays. Its use of memory is O(N ** 2).
No, more like O(N*M), where N is the number of *different* names, and M
the number of source files.
If all names appear in all files, then memory usage is the same as with
push().
>'push' on each array is better than a single global array index.
Not if you want to keep track of what file the data came from.
Which reminds me: you could easily add a header line, by starting the
output like:
($\,$,) = ("\n","\t");
print '', map { local $_ = $_; s|.*[:/\\]||; s/\.\w*$//; $_ } @ARGV;
which is a pretty cross-platform solution to strip of file paths and
extensions from the source file, and print just the bare filename. (BTW
"pretty" points to "cross-platform", not to "solution" ;-)
>But at least you are in the right solution space. I can't fathom what
>the other responders had in mind! :-)
Indeed. :-)
It's a great approach to combine data, ANY data (e.g. shoe size from one
file, and address from another) from different files.
Bart.
------------------------------
Date: Thu, 11 Mar 1999 09:25:15 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: Days in Month array
Message-Id: <36ec895b.5377432@news.skynet.be>
Eric The Read wrote:
>Jay Glascoe <jglascoe@giss.nasa.gov> writes:
>> isn't it simply
>>
>> print "leap year\n" if $year % 4 == 0;
>
>No, it's not. Isn't this a FAQ?
Yes, but not a Perl FAQ. ;-)
Bart.
------------------------------
Date: Thu, 11 Mar 1999 11:11:23 GMT
From: John@melon17.freeserve.co.uk (John )
Subject: DBI docs?
Message-Id: <36e7a49a.37587900@news.freeserve.net>
Is there anywhere where I can
get some good documentation
on DBI?
John
------------------------------
Date: Thu, 11 Mar 1999 11:13:35 +0000
From: "G.B. Woeste" <GWoeste@yahoo.com>
Subject: Elegant remote execution of Perl-scripts?
Message-Id: <36E7A55F.41C67EA6@yahoo.com>
Hi,
two questions:
how can I execute a Perl-script, which is initially located on
computer A on another computer B?
How can I transmit values from computer A as commman-line arguments to a
(then executed) Perl-script on computer B?
Both computers are working under Unix and are connected (via TCP/IP).
The problem for me is, that I don't know much about Networking , Sockets
and so on.
Does anyone have some example code? That would be very helpfull!
Thank you!
Regards,
Georg Woeste
------------------------------
Date: 11 Mar 1999 02:46:55 -0700
From: Tom Christiansen <perlfaq-suggestions@perl.com>
Subject: FAQ 3.30: I've read perlembed, perlguts, etc., but I can't embed perl in my C program, what am I doing wrong?
Message-Id: <36e7910f@csnews>
(This excerpt from perlfaq3 - Programming Tools
($Revision: 1.33 $, $Date: 1998/12/29 20:12:12 $)
part of the standard set of documentation included with every
valid Perl distribution, like the one on your system.
See also http://language.perl.com/newdocs/pod/perlfaq3.html
if your negligent system adminstrator has been remiss in his duties.)
I've read perlembed, perlguts, etc., but I can't embed perl in
my C program, what am I doing wrong?
Download the ExtUtils::Embed kit from CPAN and run `make test'.
If the tests pass, read the pods again and again and again. If
they fail, see the perlbug manpage and send a bugreport with the
output of `make test TEST_VERBOSE=1' along with `perl -V'.
--
"Lisp has all the visual appeal of oatmeal with fingernail clippings mixed in."
--Larry Wall
------------------------------
Date: Thu, 11 Mar 1999 08:33:45 GMT
From: khanda@hotmail.com
Subject: gethostbyaddr
Message-Id: <7c7v59$gfo$1@nnrp1.dejanews.com>
Does the gethostbyaddr() query the DNS too to get he name of the system. Or
just the /etc/hosts file. I have in the nsswitch conf entry for both files
DNS. Still gethostbyaddr only resolves through the /etc/hosts. I am running
the script on a solaris 2.5.1 system.
Do i need anything else to be configured on the solaris box to get
gethostbyaddr resolve by DNS if it is not there in the /etc/hosts.
I would appreciate if anybody could reply.
vinay
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Thu, 11 Mar 1999 11:22:04 GMT
From: pvdkamer@inter.NL.net
Subject: Re: Hashes ??
Message-Id: <36e7a6c5.386980@news.wxs.nl>
Ok here is the source without hashes.
I loop for each unique key in best20 the best40 flat file.
I know this is wrong but how do i do it with hashes..
Thanks,
Paul
#!/usr/bin/perl
#### Query1.cgi
####
use CGI ':standard';
print header;
chkbest();exit;
sub chkbest
{
print "<b>Querynaam : Grondoppervlakte Stuf20 <> Som
Toegekende oppervlakte Stuf40<br>Deelbestand : $FileNaam
</b><hr><br>";
$best = $max;
ReadBest("best20");
ReadBest("best40");
$y=1;
$Teller = 0;
while ($best20[$y] ne "")
{
$Oppervlakte = substr($best20[$y],136,8);
$Oppervlakte = $Oppervlakte+1;
$Oppervlakte = $Oppervlakte-1;
$Objectnummer = substr($best20[$y],2,12);
$reccordid = substr($best20[$y],2,12);
$x=1;
$Opp=0;
while ($best40[$x] ne "")
{
if ($Objectnummer eq substr($best40[$x],2,12))
{
$Opp=$Opp+substr($best40[$x],31,8);
}
$x = $x+1;
}
if ("$Oppervlakte" ne "$Opp")
{
$Teller=$Teller+1;
print "<br>Objectnummer = ";
print qq~<A TARGET="popup" ONCLICK="clicker(this)"
HREF="/cgi-bin/popup.cgi?reccordid=$reccordid&FileNaam=$FileNaam">$reccordid</A>~;
print " (Opp. in Best20 = $Oppervlakte)";
print " (Som Opp. in Best40 = $Opp)";
}
$y=$y+1;
}
print "<br><br>Totaal aantal Records : ";
print $Teller;
}
sub ReadBest
{
my $max = shift(@_);
open(FILE, "$Lpath/$FileNaam.dta/$max") or print "Bestand
$Lpath/$FileNaam.dta/$max niet gevonden";
$$max["0"]="Leeg";
$x=0;
while ($$max["$x"] ne "")
{
$x=$x+1;
read(FILE, $$max["$x"], $RecordL);
}
$TotRec = $x;
close(FILE)
}
sub varbest40
{
$var[1] = "RecordID (93.11) 001002j ";
$var[2] = "WOZ-Object Nummer (01.01) 003014j ";
$var[3] = "Kadestrale gemeente code (51.10) 015005j ";
$var[4] = "Sectie (51.20) 020002j ";
$var[5] = "Perceelnummer (51.30) 022005j ";
$var[6] = "Perceelindexletter (51.40) 027001j ";
$var[7] = "Perceelindexnummer (51.50) 028004j ";
$var[8] = "Toegekende Oppervlakte (52.10) 032008j ";
$var[9] = "Meegetaxeerde Oppervlakte (52.20) 040008j ";
$var[10] = "Mutatiecode (81.10) 048001j ";
$var[11] = "ingangsdatum (81.20) 049008jd";
$var[12] = "Einddatum (81.30) 057008j ";
$var[13] = "Filler 065192n ";
}
sub varbest20
{
$var[1] = "RecordID (93.11) 001002j ";
$var[2] = "WOZ-Object Nummer (01.01) 003012j ";
$var[3] = "Woonplaatsnaam (10.20) 015040j ";
$var[4] = "Straatnaam (11.10) 055024j ";
$var[5] = "Huisnummer (11.20) 079005j ";
$var[6] = "Huisletter (11.30) 084001n ";
$var[7] = "Huisnummertoevoeging (11.40) 085004n ";
$var[8] = "Aanduiding bij huisnummer (11.50) 089002n ";
$var[9] = "Postcode (11.60) 091006j ";
$var[10] = "Lokatie omschrijving (11.70) 097040n ";
$var[11] = "Grondoppervlakte (12.10) 137008j ";
$var[12] = "Gebruikscode (12.20) 145002j ";
$var[13] = "Code bebouwd/onbebouwd (14.10) 147001j ";
$var[14] = "Meegtaxeerde Oppervlakte bebouwd (14.20)148008j ";
$var[15] = "Aandeel waaarde bebouwd (14.30) 156011j ";
$var[16] = "Getaxeerde waarde (15.10) 167011j ";
$var[17] = "Waardepeildatum (15.20) 178008jd";
$var[18] = "Bijzondere waarderingscode (15.30) 186003j ";
$var[19] = "Mutatiecode (81.10) 189001j ";
$var[20] = "Ingansdatum (81.20) 190008jd";
$var[21] = "Einddatum (81.30) 198008jd";
$var[22] = "Sraatcode (11.11) 206005n ";
$var[23] = "Aanduiding valutasoort (12.20) 211003n ";
$var[24] = "Code blokeren (15.50) 214002n ";
$var[25] = "Filler 216041n ";
}
On Wed, 10 Mar 1999 16:11:56 GMT, dave@mag-sol.com wrote:
>In article <36e64636.7609123@news.wxs.nl>,
> pvdkamer@inter.NL.net wrote:
>> Hello,
>> Ok i've got two flat file database. In the first one there is a unique
>> code wich i've to lookup in the second file. In the second file there
>> can be more of the same key's.
>> I've been told i have to do it with hashes but i do not know how. Can
>> someone please help ?
>
>Post what you've got and tell us what is going wrong.
>
>Dave...
>
>--
>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: Thu, 11 Mar 1999 09:05:36 GMT
From: Jamie@worldweb.demon.co.uk
Subject: Help modifying 'null' elements ?!
Message-Id: <7c810s$ht0$1@nnrp1.dejanews.com>
Hi,
I'm learning Perl and have come up against a problem that I cannot solve. I'm
sure it's simple when you know how, though!
I've got a list of lists. This lol is built up from the return values of a
select from a database. Some of these values are 'null'. I want to loop
through the lol and for each 'null' value, set it to the text string
'<null>'.
I've tried the following:
my @row
while (@row = $sth->fetchrow_array) {
foreach $item (@row) {
if ($item == undef) {$item = '<null>'}
}
}
This sets *some* values to <null>, including those values I'd expect to be
set to <null> but it also sets a whole load more to <null> too! So I'm losing
data!!!
Could someone help me with this by telling me what is wrong with my approach
here ? I'm certain it's something very fundamental but no end of scouring my
books has helped me yet.
Many thanks,
Jamie.
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Thu, 11 Mar 1999 09:25:11 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: How to do a Case-insensitive Sort?
Message-Id: <36e9865e.4612381@news.skynet.be>
Larry Rosler wrote:
>As the two sortsubs take about the same time to execute, the overhead of
>the ST cannot be recovered for any size of the data set. QED
For small strings. 'foo' and 'bar' are very small strings indeed. lc()
is linear (plus a constant overhead) to the length of the string.
Try something with a bit more substance.
Bart.
------------------------------
Date: Thu, 11 Mar 1999 06:52:20 -0400
From: Arved_37@chebucto.ns.ca (Arved Sandstrom)
Subject: Re: Memory management & Perl to C extensions
Message-Id: <Arved_37-1103990652200001@dyip-113.chebucto.ns.ca>
In article <7c7619$g9q$1@mathserv.mps.ohio-state.edu>,
ilya@math.ohio-state.edu (Ilya Zakharevich) wrote:
> [A complimentary Cc of this posting was sent to Helena Jeeves
> <hjeeves@us.ibm.com>],
> who wrote in article <7c727a$pv6$1@poknews.pok.ibm.com>:
> > I have been trying to model C structures using Perl
> > Classes in the extensions. The memory management
> > has been heinous so far, is there anyone who could
> > give me tips as to how to better see what Perl
> > is doing to manage memory, and perhaps get more
> > control over it?
>
> Perl is not going to manage memory for you. You need to keep REFCNT
> and count-of-mortality correct at all times you create or destroy
> things. Devel::Peek is you friend too.
I could be wrong, but just to clarify, I think what the lady is saying is
that she is *not* using C at all. She's trying to mimic C structures, but
everything she's writing is pure, unadulterated 100% Perl.
In which case, I'd assume that the C structures being modelled are just
run-of-the-mill blessed hash refs.
Arved
------------------------------
Date: Thu, 11 Mar 1999 08:35:11 GMT
From: khanda@hotmail.com
Subject: Net DNS nodule
Message-Id: <7c7v7u$ghe$1@nnrp1.dejanews.com>
Does anybody know how to get names from IP addresses using the above module. I
would appreciate a sample code.
vinay
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Thu, 11 Mar 1999 21:19:46 +1100
From: Mick <horizon@internetexpress.com.au>
To: Scott McMahan <scott@aravis.softbase.com>
Subject: Re: Perl and NT backoffice
Message-Id: <36E798C2.80187FED@internetexpress.com.au>
Scott McMahan wrote:
> Which component? BackOffice is a suite!
>
> Scott
Well, basically, can I embed a perl script into the dial-in manager?
I want to be able to automatically kick off a user, if they have been on
for x hours, and a new user tries to dial in.
Or is there an easier way to do this?
Mick
--
----------------------------------------------------------------
HORIZON Software Solutions
Visit Site - http:www.deakin.edu.au/~bellears/horizon/index.html
e-mail - mailto:horizon@internetexpress.com.au
----------------------------------------------------------------
------------------------------
Date: Thu, 11 Mar 1999 03:20:29 -0600
From: Rick Torzynski <rtorzyns@unm.edu>
Subject: perl download script on NT
Message-Id: <36E78ADD.60B1DF6B@unm.edu>
I'm having some difficulty with a script to download a file through a
browser. To download a file, I'm printing the appropriate content
headers based on mime type, opening the file, and then printing out the
contents. Works fine on unix, but when I use it on NT, the file isn't
recognized. And I also added binmode since the script is on NT. Here's
the code:
print "Content-Disposition: inline; filename=$filename\n";
print "Content-type: $mimetypes{$ext}\n\n";
open(FTD, "<$dl_file_path");
binmode FTD;
while (read FTD, $buf, 1024) {
print "$buf";
}
close(FTD);
Thanks,
Rick
------------------------------
Date: 11 Mar 1999 09:23:12 GMT
From: s11976@net1.hkbu.edu.hk (P.M.Wong )
Subject: perl filters for inn
Message-Id: <7c8220$443$1@power25t.hkbu.edu.hk>
I managed a news server and lately we upgraded to 2.1
I installed the perl 5.004 first as inn 2.1 requires this.
However the inn software encountered some problems lately.
It couldn't be started suddenly.
The error log reports this message:
Global symbol "mode" requires explicit package name
I had no idea of what this is. I posted under the nntp
newsgroup and someone told me that it is
a perl filter error.
What exactly does it mean (i'm a newbie in perl)
He asked also if my perl pass -wc ?
What does he mean ?
All in all, how do i go about fixing this perl filter thing
--
__
/ \_/ ) __ Pui Ming WONG (E-mail: pm@hkbu.edu.hk)
/ ( ------------- } System Support Programmer,
( =l=ll===============__} Computing & Telecomm. Services Centre
\ _ ( Hong Kong Baptist University
\_/ \__) 224 Waterloo Road, Hong Kong
------------------------------
Date: Thu, 11 Mar 1999 09:25:13 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: Printing in Perl
Message-Id: <36ea86e3.4745684@news.skynet.be>
Larry Rosler wrote:
>> Larry Rosler wrote:
>>
>> >Why 'a seriously outdated concept'?
>>
>> Because it looks so unprofessional. Unreadable. If books were printed in
>> fixed pitch font, people would read A LOT less than they do now.
>
>But we read programs here, not books.
But "format" doesn't serve to write programs, does it? It serves to
generate reports and tables. And I can tell you, tables with variable
pitch fonts look a lot nicer than using a fixed pitch font. ANY fixed
pitch font.
Says someone with one foot in the publishing industry (catalogues). ;-)
Bart.
------------------------------
Date: Thu, 11 Mar 1999 10:28:59 +0000
From: Yoann Le Corvic <yoann.lecorvic@infrasoft-civil.com>
Subject: Sending Attachment with perl
Message-Id: <36E79AEB.13112125@infrasoft-civil.com>
This is a multi-part message in MIME format.
--------------3E8DA93DB73A4F3C94F990D0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Hello
I would like to know if it's possible to send attachment with an email
without using the available perl modules. I use a Novell Version of the
perl interpreter, and it doesn't work really well when importing
modules.
Any suggestions are welcome
Thanks
--
=========================================
Yoann Le Corvic
Internet Administrator
Infrasoft Limited
------------------------------------------
Email : yoann.lecorvic@infrasoft-civil.com
Phone : +44 (0)1403 259511
Fax : +44 (0)1403 217728
Web : http://www.infrasoft-civil.com/
--------------3E8DA93DB73A4F3C94F990D0
Content-Type: text/x-vcard; charset=us-ascii;
name="yoann.lecorvic.vcf"
Content-Transfer-Encoding: 7bit
Content-Description: Card for Yoann Le Corvic
Content-Disposition: attachment;
filename="yoann.lecorvic.vcf"
begin:vcard
n:Le Corvic;Yoann
tel;cell:+44 (0)7887 865 930
tel;fax:+44 (0)1403 217 728
tel;home:+44 (0)7887 865 930
tel;work:+44 (0)1403 259 511
x-mozilla-html:FALSE
url:http://www.infrasoft-civil.com/
org:Infrasoft Limited;Computer Services
adr:;;North Heath Lane;Horsham;West Sussex;RH12 5QE;England
version:2.1
email;internet:yoann.lecorvic@infrasoft-civil.com
title:Internet Administrator
fn:Yoann Le Corvic
end:vcard
--------------3E8DA93DB73A4F3C94F990D0--
------------------------------
Date: Thu, 11 Mar 1999 08:44:59 GMT
From: slamda@hotmail.com
Subject: Re: URGENT: Problem with Bitwise AND
Message-Id: <7c7vq9$gug$1@nnrp1.dejanews.com>
Thanks to everyone for their help - it was just a case of a missing dollar
sign on the fieldname variable.....thanks also for the tip about the -w and
strict directives....and I'll be careful about the formatting of my code
after cut n' paste next time.
Thanks Again
Ian DAsh
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: 11 Mar 1999 11:46:15 +0100
From: Tobias Brox <tobias@td.org.uit.no>
Subject: Re: y2k and 4-digit dates (was Re: foreach and while)
Message-Id: <xn6lnh4e22w.fsf@shark.td.org.uit.no>
Staffan Liljas <staffan@ngb.se> writes:
> I usually output "February 2nd, 2000", which people tend to understand.
What's wrong with scalar(localtime)?
--
TobiX In a world without fences, who needs gates?
http://www.td.org.uit.no/~tobias/
------------------------------
Date: Thu, 11 Mar 1999 12:37:40 +0100
From: Staffan Liljas <staffan@ngb.se>
Subject: Re: y2k and 4-digit dates (was Re: foreach and while)
Message-Id: <36E7AB04.A13FF38A@ngb.se>
Russell Schulz wrote:
>
> Staffan Liljas <staffan@ngb.se> writes:
>
> > But NB: [4 digit years work] is for you.
>
> I forgot to mention: obviously, all these cases where people are
> having problems with the 2-digit dates aren't even under
> consideration. someone who's trying to discern 5376 BC with 5276 BC
> wouldn't be writing "'76" to begin with!
Well, that's one problem less. :)
However, for them, four digit years are clearly not enough (Note the
BC). I _guess_ they could use them by defining 6000 BC as 0, and then
typing along happily. Although this seems like a strange solution, and
one _very_ prone to errors. My point (if I remember myself correctly) is
that there are quite a few people to whon four digit years aren't
enough, so that it isn't the universal solution, and that it is all
about what context you use.
Staffan
------------------------------
Date: Thu, 11 Mar 1999 12:42:32 +0100
From: Staffan Liljas <staffan@ngb.se>
Subject: Re: y2k and 4-digit dates (was Re: foreach and while)
Message-Id: <36E7AC28.7B68E62@ngb.se>
Tobias Brox wrote:
>
> Staffan Liljas <staffan@ngb.se> writes:
>
> > I usually output "February 2nd, 2000", which people tend to understand.
>
> What's wrong with scalar(localtime)?
If I have a value stored in ISO format in a database, I will hardly use
scalar(localtime) to display it...
Staffan
------------------------------
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 5108
**************************************
