[24036] in Perl-Users-Digest
Perl-Users Digest, Issue: 6233 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Mar 8 09:05:42 2004
Date: Mon, 8 Mar 2004 06: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, 8 Mar 2004 Volume: 10 Number: 6233
Today's topics:
Re: 'require $test;' works? <nobull@mail.com>
Re: 'require $test;' works? <nobull@mail.com>
Re: [newbie] Filehandles and physical files chris-usenet@roaima.co.uk
Bug? perl says "Unknown Error" (Heinrich Mislik)
Re: Bug? perl says "Unknown Error" <rgarciasuarez@free.fr>
Re: Bug? perl says "Unknown Error" (Anno Siegel)
Calling a remote ASP script from my Perl Script -libwww <Spam Free>
Re: Calling a remote ASP script from my Perl Script -li <matthew.garrish@sympatico.ca>
Re: Can package prefix be avoided? <nobull@mail.com>
Re: Excel sheet opening Win32OLE <spikeywan@bigfoot.com.delete.this.bit>
Re: how can I use "class" and "id" elements in my tag? <tassilo.parseval@rwth-aachen.de>
Re: Is it possible to impose a timeout on <>? (Bob Dubery)
Re: more efficient way of updating a file? <krahnj@acm.org>
Re: MS SQL 2000 <kz15@earthling.net>
Re: Need to parse SQL statements...use regular expressi <nobull@mail.com>
Re: Need to parse SQL statements...use regular expressi <matthew.garrish@sympatico.ca>
printf question <a@b.c>
Re: printf question <tassilo.parseval@rwth-aachen.de>
Re: printf question <noreply@gunnar.cc>
Re: printf question <fifo@despammed.com>
Re: printf question <a@b.c>
Re: replacing modules? <nobull@mail.com>
Re: Sys::Syslog under Solaris <lool@dooz.org>
Re: teaching myself perl - stumped on this one! <nobull@mail.com>
Re: teaching myself perl - stumped on this one! <tadmc@augustmail.com>
Re: the 3 options(-base, -xbase, -target)'s meaning in <tassilo.parseval@rwth-aachen.de>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 08 Mar 2004 12:50:44 +0000
From: Brian McCauley <nobull@mail.com>
Subject: Re: 'require $test;' works?
Message-Id: <u9k71vv6xn.fsf@wcl-l.bham.ac.uk>
Bart Lateur <bart.lateur@pandora.be> writes:
> Ravisankar Sivasubramaniam wrote:
>
> >$var = test;
> >require $var;
>
> Nope, it doesn't work like that. For variables, you have to convert the
> barword to a filename yourself.
See also UNIVERAL::require
------------------------------
Date: 08 Mar 2004 13:32:32 +0000
From: Brian McCauley <nobull@mail.com>
Subject: Re: 'require $test;' works?
Message-Id: <u93c8jv4zz.fsf@wcl-l.bham.ac.uk>
Brian McCauley <nobull@mail.com> writes:
> Bart Lateur <bart.lateur@pandora.be> writes:
>
> > Ravisankar Sivasubramaniam wrote:
> >
> > >$var = test;
> > >require $var;
> >
> > Nope, it doesn't work like that. For variables, you have to convert the
> > barword to a filename yourself.
>
> See also UNIVERAL::require
That's UNIVERSAL::require
--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\
------------------------------
Date: Mon, 8 Mar 2004 13:48:18 +0000
From: chris-usenet@roaima.co.uk
Subject: Re: [newbie] Filehandles and physical files
Message-Id: <26auh1-b9c.ln1@moldev.cmagroup.co.uk>
David <davidol@hushmail.com> wrote:
> foreach (@fileList) {
> next if $ftp->size($_) == 0;
> $ftp->get($_, *TEMP)
> or warn "Can't fetch $_ : $!\n";
> }
This piece of code appears to take all the files in @fileList and
concatentate their *contents* into a single file referenced by *TEMP.
Chris
------------------------------
Date: 08 Mar 2004 12:54:56 GMT
From: Heinrich.Mislik@univie.ac.at (Heinrich Mislik)
Subject: Bug? perl says "Unknown Error"
Message-Id: <404c6d20$0$17706$3b214f66@usenet.univie.ac.at>
This is Bug.pm
#--------------------
use strict;
use base Exporter;
1;
#--------------------
~>perl -c Bug.pm
Bareword "Exporter" not allowed while "strict subs" in use at Bug.pm line 2.
Bug.pm had compilation errors.
Is the expected error message, but:
~>perl -e 'use Bug'
Unknown error
Compilation failed in require at -e line 1.
BEGIN failed--compilation aborted at -e line 1.
is not very useful.
I tried this with 5.6.1, 5.8.2, 5.8.3 on different OSs with the same result.
Cheers
Heinrich
--
Heinrich Mislik
Zentraler Informatikdienst der Universitaet Wien
A-1010 Wien, Universitaetsstrasse 7
Tel.: (+43 1) 4277-14056, Fax: (+43 1) 4277-9140
------------------------------
Date: 08 Mar 2004 12:59:30 GMT
From: Rafael Garcia-Suarez <rgarciasuarez@free.fr>
Subject: Re: Bug? perl says "Unknown Error"
Message-Id: <slrnc4ordu.36l.rgarciasuarez@dat.local>
Heinrich Mislik wrote in comp.lang.perl.misc :
> This is Bug.pm
>
> #--------------------
> use strict;
> use base Exporter;
>
> 1;
> #--------------------
>
> ~>perl -c Bug.pm
> Bareword "Exporter" not allowed while "strict subs" in use at Bug.pm line 2.
> Bug.pm had compilation errors.
>
> Is the expected error message, but:
>
>
> ~>perl -e 'use Bug'
> Unknown error
> Compilation failed in require at -e line 1.
> BEGIN failed--compilation aborted at -e line 1.
>
> is not very useful.
Yes, this is a bug.
It's fixed in the current development version of perl.
I don't remember if the fix will be available in perl 5.8.4, though.
------------------------------
Date: 8 Mar 2004 13:11:51 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Bug? perl says "Unknown Error"
Message-Id: <c2hren$bo5$1@mamenchi.zrz.TU-Berlin.DE>
Heinrich Mislik <Heinrich.Mislik@univie.ac.at> wrote in comp.lang.perl.misc:
> This is Bug.pm
>
> #--------------------
> use strict;
> use base Exporter;
>
> 1;
> #--------------------
>
> ~>perl -c Bug.pm
> Bareword "Exporter" not allowed while "strict subs" in use at Bug.pm line 2.
> Bug.pm had compilation errors.
>
> Is the expected error message, but:
>
>
> ~>perl -e 'use Bug'
> Unknown error
> Compilation failed in require at -e line 1.
> BEGIN failed--compilation aborted at -e line 1.
>
> is not very useful.
>
> I tried this with 5.6.1, 5.8.2, 5.8.3 on different OSs with the same result.
That's a well-known effect, though I don't think it's documented anywhere.
It seems to happen when too many interpreter runs are nested when an error
occurs, but I can't say what the exact conditions are.
Try to peel off a level of "use" or "BEGIN {}" when it happens.
Anno
------------------------------
Date: Mon, 8 Mar 2004 11:43:38 -0000
From: "Dave Smithz" <Spam Free>
Subject: Calling a remote ASP script from my Perl Script -libwww?
Message-Id: <404c6e28$1@news1.homechoice.co.uk>
Hi there,
I have to write a Perl script that processes a users form submit action, but
then also needs to call an ASP on another remote server (via HTTP) and
process the HTTP Post results which that other remote script handles.
I have never had to do this before and suddenly realised I do not know how
to call another script from Perl. My google investigation has led me to a
libwww library but before I learn what seems to be a very old not updated
module, I wonder if I am going about my objective the right way?
So again,
I have a Perl script that needs to process a web form. But also I then need
to send some of that data to a third party ASP script and interpret the
returned results.
How can I do this.
Thanks in advanced for any help.
------------------------------
Date: Mon, 8 Mar 2004 08:11:14 -0500
From: "Matt Garrish" <matthew.garrish@sympatico.ca>
Subject: Re: Calling a remote ASP script from my Perl Script -libwww?
Message-Id: <Nh_2c.2655$j05.129745@news20.bellglobal.com>
"Dave Smithz" <Spam Free> wrote in message
news:404c6e28$1@news1.homechoice.co.uk...
> Hi there,
>
> I have to write a Perl script that processes a users form submit action,
but
> then also needs to call an ASP on another remote server (via HTTP) and
> process the HTTP Post results which that other remote script handles.
>
The LWP module is your best friend situations like this:
http://www.perldoc.com/perl5.8.0/lib/lwpcook.html
Matt
------------------------------
Date: 08 Mar 2004 12:59:41 +0000
From: Brian McCauley <nobull@mail.com>
Subject: Re: Can package prefix be avoided?
Message-Id: <u9fzcjv6iq.fsf@wcl-l.bham.ac.uk>
"Ravisankar Sivasubramaniam" <ravisankars74@hotmail.com> writes:
> I have a package file as follows:
>
> test.pm
> -------
> package test;
> ...
> $name = "World";
> ...
> 1;
> -----------------------------
>
> In the main program, if I add
>
> use test;
>
> I can acces the package variables without package prefix.
No you can't. test.pm above is not an Exporter.
> For example I can
> do the following:
>
> print $name;
No you can't.
> But if I add
>
> require test;
>
> I can access the package variables only with the package prefix. For
> example, I can do only the following:
>
> print $test::name;
>
> Is here a way to do away with the package prefix when employing 'require'?
You can import symbols from test into the current namespace either by
making test an Exporter and calling test->import or by hand using
GLOBs.
You will need to switch off "strict vars" because "strict vars"
enables compile-time checks for declarations. You are talking about
having variable that are not known until run-time which is
fundamentally opposed to the idea of "strict vars".
This is probably XY. What is it that you want to do that makes you
think you want to do what you asked above?
--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\
------------------------------
Date: Mon, 8 Mar 2004 12:04:05 -0000
From: "Richard S Beckett" <spikeywan@bigfoot.com.delete.this.bit>
Subject: Re: Excel sheet opening Win32OLE
Message-Id: <c2hnj7$mb6$1@newshost.mot.com>
$Win32::OLE::Warn = 0;
--
R.
GPLRank +79.699
"Abhishek Shankar" <someone@ti.com> wrote in message
news:c2gpne$oqu$1@home.itg.ti.com...
> Hi All
>
> I opened an Excel file using the Perl Win32 OLE saved in an earlier
version
> of Excel in Excel XP. When I try to close it even without doing any
changes
> I see that it asks if I wish to save the changes made which I realize is
> because of recalculating formulas. I want to know if there is a way of
> closing by discarding changes or opening read-only.
>
> Thanx in advance
> Abhishek
>
>
>
------------------------------
Date: 8 Mar 2004 11:47:14 GMT
From: "Tassilo v. Parseval" <tassilo.parseval@rwth-aachen.de>
Subject: Re: how can I use "class" and "id" elements in my tag?
Message-Id: <c2hmg2$l9m$1@nets3.rz.RWTH-Aachen.DE>
Also sprach ckacka:
> ie.
> print $q->p (
> ...
> );
Would you please stop flooding this group with such nonsense? Come up
with proper questions describing what you try to do using which module
etc. I am not willing to deduce that you are talking about CGI.pm.
Tassilo
--
$_=q#",}])!JAPH!qq(tsuJ[{@"tnirp}3..0}_$;//::niam/s~=)]3[))_$-3(rellac(=_$({
pam{rekcahbus})(rekcah{lrePbus})(lreP{rehtonabus})!JAPH!qq(rehtona{tsuJbus#;
$_=reverse,s+(?<=sub).+q#q!'"qq.\t$&."'!#+sexisexiixesixeseg;y~\n~~dddd;eval
------------------------------
Date: 8 Mar 2004 03:14:37 -0800
From: megapode@hotmail.com (Bob Dubery)
Subject: Re: Is it possible to impose a timeout on <>?
Message-Id: <e8f67309.0403080314.348f25e2@posting.google.com>
pkent <pkent77tea@yahoo.com.tea> wrote in message news:<pkent77tea-0167A5.11584706032004@pth-usenet-02.plus.net>...
> Here is some example code:
>
> my $line;
> eval {
> alarm($alarmtime);
> $line = <SOCKET>;
> };
> alarm 0; # cancel the alarm
> if ($@) {
> # whatever error handling...
> }
I had to change that a little to suit my needs....
use English;
$timeout = 5;
for($i=0; $i < 2; $i++){
for($j=0; $j <3; $j++){
print "$i\.$j...\n";
my @stuff;
eval{
local $SIG{ALRM} = sub{next};
alarm($timeout);
@stuff=<>;
};
alarm(0);
unless($EVAL_ERROR){
print "$#stuff lines of input entered\n";
}
}
}
But it works a treat.
On UNIX that is. It runs without warning (even with strict and -w) on
Windows, but it never times out :-(
------------------------------
Date: Mon, 08 Mar 2004 11:10:54 GMT
From: "John W. Krahn" <krahnj@acm.org>
Subject: Re: more efficient way of updating a file?
Message-Id: <404C54A4.79EA9BC3@acm.org>
mike wrote:
>
> i have made a text file called status.out which contains just "0 0 0 0
> 0".
> In my perl script, i would like to update this status.out file with a
> "1" by position.
> I wrote a subroutine "updatestatus" that goes like this:
>
> sub updatestatus {
> $stat = $_[0];chomp($stat);
> open (STATOUT, ">status.temp") or die "Cannot open status.temp for
> writing\n";
> open (STAT , "< status.out") or die "Cannot open status.out for
> reading\n";
> while ($status = <STAT>)
> {
> chomp($status);
> ($status1, $status2, $status3, $status4, $status5) = split(' ',
> $status );
> }
>
> if ($stat == 1)
> {
> print STATOUT "1 $status2 $status3 $status4 $status5" ;
>
> }
> if ($stat == 2)
> {
> print STATOUT "$status1 1 $status3 $status4 $status5" ;
> }
>
> if ($stat == 3)
> {
> print STATOUT "$status1 $status2 1 $status4 $status5" ;
> }
>
> if ($stat == 4)
> {
> print STATOUT "$status1 $status2 $status3 1 $status5" ;
> }
>
> if ($stat == 5)
> {
> print STATOUT "$status1 $status2 $status3 $status4 1" ;
> }
> close(STAT);
> close(STATOUT);
> rename "$HOMEDIR\\status.temp" , "$HOMEDIR\\status.out";
>
>
> } # end sub
>
> In main, for example i would call it like updatestatus(1) to update
> the first 0 in status.out.
>
> Is there a more efficient way of doing this??? I find that the
> subroutine is quite "longwinded"....
sub updatestatus {
my $stat = $_[0];
my $file = 'status.out';
open my $STAT, '+<', $file or die "Cannot open $file: $!";
flock $STAT, LOCK_EX or die "Cannot lock $file: $!";
my @status = <$STAT> =~ /\d+/g;
$status[ $stat - 1 ] = 1;
seek $STAT, 0, SEEK_SET or die "Cannot seek on $file: $!";
print $STAT "@status";
close $STAT;
} # end sub
John
--
use Perl;
program
fulfillment
------------------------------
Date: Mon, 8 Mar 2004 12:57:19 +0100
From: "kz" <kz15@earthling.net>
Subject: Re: MS SQL 2000
Message-Id: <VkZ2c.2$dQ5.5080@news.uswest.net>
"Petri" <Petri_member@newsguy.com> wrote in message
news:c2hggt0k8j@drn.newsguy.com...
> In article <OzW2c.832$nl3.182887@news.uswest.net>, kz says...
> > "Ben Morrow" <usenet@morrow.me.uk> wrote in message
> > news:c2dt41$juh$1@wisteria.csv.warwick.ac.uk...
>
> >> I have had success (under linux) with DBI and DBD::Sybase.
> >> From Windows I guess you can use DBD::ODBC.
>
> > ...and I thought database drivers were vendor specific...I could
> > have never imagine that DBD::Sybase connects to a M$ SQL database.
>
> Why not?
>
> MS SQL Server more or less _is_ Sybase SQL Server.
> Bill and his boys bought the source code from Sybase a decade ago.
>
> (They had MS Access. How do you think they made the jump to SQL Server?)
>
>
> Petri
>
LOL! That's true...
Cheers,
KZ
------------------------------
Date: 08 Mar 2004 12:48:28 +0000
From: Brian McCauley <nobull@mail.com>
Subject: Re: Need to parse SQL statements...use regular expression?
Message-Id: <u9oer7v71f.fsf@wcl-l.bham.ac.uk>
"Justin F" <x@x.us> writes:
> The reason 'GO' is the terminator is because it's a Microsoft SQL server
> I'll be going against. From the replies I've gotten it looks like I'll have
> to pursue a different avenue for parsing.
I've got a half-baked Parse::RecDescent grammar for MSSQL.
> BTW, what is CPAN?
BTW that is FAQ: "[...] What is CPAN? [...]"
--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\
------------------------------
Date: Mon, 8 Mar 2004 08:16:18 -0500
From: "Matt Garrish" <matthew.garrish@sympatico.ca>
Subject: Re: Need to parse SQL statements...use regular expression?
Message-Id: <wm_2c.2658$j05.130465@news20.bellglobal.com>
"Brian McCauley" <nobull@mail.com> wrote in message
news:u9oer7v71f.fsf@wcl-l.bham.ac.uk...
> "Justin F" <x@x.us> writes:
>
> > BTW, what is CPAN?
>
> BTW that is FAQ: "[...] What is CPAN? [...]"
>
Sadly, it's also the very first hit you'll get using just about any search
engine...
Matt
------------------------------
Date: Mon, 08 Mar 2004 13:04:30 +0100
From: ZZT <a@b.c>
Subject: printf question
Message-Id: <c2hngf$k47$1@news1.wdf.sap-ag.de>
Hello everybody,
I have an integer value $i and like to output it in a quite unusual way.
exp:
$i=2379878
output: 00002379|878
$i=12
output: 00000000|012
$i=123123312
output: 00123123|312
Is there a way to do this with only one printf line?
Thanks & Regards
------------------------------
Date: 8 Mar 2004 12:29:50 GMT
From: "Tassilo v. Parseval" <tassilo.parseval@rwth-aachen.de>
Subject: Re: printf question
Message-Id: <c2hovu$2pg$1@nets3.rz.RWTH-Aachen.DE>
Also sprach ZZT:
> I have an integer value $i and like to output it in a quite unusual way.
>
> exp:
>
> $i=2379878
> output: 00002379|878
>
> $i=12
> output: 00000000|012
>
> $i=123123312
> output: 00123123|312
>
> Is there a way to do this with only one printf line?
It can be done in one line but not in only one printf():
printf "%08i|%i", split /(?=...$)/, sprintf "%0.4i", $i;
The sprintf() makes sure that the number consists of at least 4 digits
(if not it's null padded on the left). This is necessary because the
split() splits between the 4th and 3rd last character.
There are other ways imaginable, using substr() for instance.
Tassilo
--
$_=q#",}])!JAPH!qq(tsuJ[{@"tnirp}3..0}_$;//::niam/s~=)]3[))_$-3(rellac(=_$({
pam{rekcahbus})(rekcah{lrePbus})(lreP{rehtonabus})!JAPH!qq(rehtona{tsuJbus#;
$_=reverse,s+(?<=sub).+q#q!'"qq.\t$&."'!#+sexisexiixesixeseg;y~\n~~dddd;eval
------------------------------
Date: Mon, 08 Mar 2004 13:51:52 +0100
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: printf question
Message-Id: <c2hqlg$1sstkj$1@ID-184292.news.uni-berlin.de>
ZZT wrote:
> I have an integer value $i and like to output it in a quite unusual
> way.
>
> exp:
>
> $i=2379878
> output: 00002379|878
>
> $i=12
> output: 00000000|012
>
> $i=123123312
> output: 00123123|312
>
> Is there a way to do this with only one printf line?
printf '%08s|%03s', $i =~ /(\d*?)(\d{1,3})$/;
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
------------------------------
Date: Mon, 08 Mar 2004 13:07:31 +0000
From: fifo <fifo@despammed.com>
Subject: Re: printf question
Message-Id: <20040308130730.GB2149@fleece>
At 2004-03-08 13:04 +0100, ZZT wrote:
> I have an integer value $i and like to output it in a quite unusual way.
>
> exp:
>
> $i=2379878
> output: 00002379|878
>
> $i=12
> output: 00000000|012
>
> $i=123123312
> output: 00123123|312
>
> Is there a way to do this with only one printf line?
>
printf '%08d|%03d', $i/1000, $i%1000;
------------------------------
Date: Mon, 08 Mar 2004 14:47:19 +0100
From: ZZT <a@b.c>
Subject: Re: printf question
Message-Id: <c2hth8$om4$1@news1.wdf.sap-ag.de>
Thanks to all for the fast and nice solutions!
------------------------------
Date: 08 Mar 2004 13:22:56 +0000
From: Brian McCauley <nobull@mail.com>
Subject: Re: replacing modules?
Message-Id: <u97jxvv5fz.fsf@wcl-l.bham.ac.uk>
anno4000@lublin.zrz.tu-berlin.de (Anno Siegel) writes:
> Tassilo v. Parseval <tassilo.parseval@post.rwth-aachen.de> wrote in comp.lang.perl.misc:
> > Also sprach Anno Siegel:
> > >
> > > BEGIN { Module->import( ...) if Module->can( 'import') }
> >
> > You can even drop the 'if' altogether. The 'import' method is special in
> > that perl will silently turn 'Module->import' into a no-op if this
> > method isn't inherited nor defined by Module.
>
> Ah... I didn't know this. I must have falsely accused a few good
> programmers of sloppiness because of that :)
Depends when you did it. ISTR that until fairly recently the
"UNIVERSAL::import is a no-op" feature was marked in the docs as "may
change in future".
--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\
------------------------------
Date: Mon, 8 Mar 2004 14:34:00 +0100
From: Loic Minier <lool@dooz.org>
Subject: Re: Sys::Syslog under Solaris
Message-Id: <slrnc4oti8.2i4.lool@zen.via.ecp.fr>
* David Efflandt <efflandt@xnet.com>,
Fri, 5 Mar 2004 19:31:02 +0000 (UTC):
> > I have trouble using the Sys::Syslog package under Solaris. If I use
> > 'stream', I don't get anything logged, and if I log via udp instead,
> > all my logs are prefixed with the program name ($ident). This doesn't
> > happen with other programs running on the same host.
I tried with Unix sockets too, and the same problem happens.
I think I found a possible reason for this, here are two hexdumps of a
Perl UDP datagram and a syslogd UDP datagram:
bee% xxd perl-udp.raw
0000000: 3c37 383e 666d 2f6c 6f67 7061 7273 653a <78>fm/logparse:
0000010: 2046 3030 317c 3130 3738 3530 3734 3636 F001|1078507466
0000020: 3030 307c 3038 3035 3d32 3237 3532 7c30 000|0805=22752|0
0000030: 3830 363d 736d 7470 647c 3038 3134 3d62 806=smtpd|0814=b
0000040: 6565 7c30 3830 303d 3139 322e 3136 382e ee|0800=192.168.
0000050: 312e 3837 7c0a 00 1.87|..
bee% xxd syslogd-udp.raw
0000000: 3c37 383e 6d79 7461 673a 2074 6167 6164 <78>mytag: tagad
0000010: 610a a.
Notice that the first ends in "0a 00" and the second in "0a".
No idea where to look for the norm of this.
--
Loïc Minier <lool@dooz.org>
------------------------------
Date: 08 Mar 2004 13:12:03 +0000
From: Brian McCauley <nobull@mail.com>
Subject: Re: teaching myself perl - stumped on this one!
Message-Id: <u9brn7v5y4.fsf@wcl-l.bham.ac.uk>
"Martin Livingston" <mjpliv@hfx.eastlink.ca> spits TOFU in Tads face:
> Thanks for the advice! I will work on it!
> Martin L.
>
[ snip full qoute ]
When thanking people it is probably good to refrain from spitting in their faces.
--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\
------------------------------
Date: Mon, 8 Mar 2004 07:12:51 -0600
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: teaching myself perl - stumped on this one!
Message-Id: <slrnc4osaj.1n6.tadmc@magna.augustmail.com>
Martin Livingston <mjpliv@hfx.eastlink.ca> wrote:
> Thanks for the advice!
You're welcome.
Here is some more advice: learn to properly quote followups.
You quoted 120 lines and added 1 line. Please trim the non-essential
parts of what you quote.
You put your reply at the top instead of following the quoted
text that you were commenting on.
[ snip TOFU ]
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: 8 Mar 2004 11:44:27 GMT
From: "Tassilo v. Parseval" <tassilo.parseval@rwth-aachen.de>
Subject: Re: the 3 options(-base, -xbase, -target)'s meaning in start_html?
Message-Id: <c2hmar$kij$1@nets3.rz.RWTH-Aachen.DE>
Also sprach ckacka:
> Subject: Re: the 3 options(-base, -xbase, -target)'s meaning in start_html?
> thanks
There is only a fragment of a sentence with an appended question mark.
That however doesn't yet make it a question. Try again.
Tassilo
--
$_=q#",}])!JAPH!qq(tsuJ[{@"tnirp}3..0}_$;//::niam/s~=)]3[))_$-3(rellac(=_$({
pam{rekcahbus})(rekcah{lrePbus})(lreP{rehtonabus})!JAPH!qq(rehtona{tsuJbus#;
$_=reverse,s+(?<=sub).+q#q!'"qq.\t$&."'!#+sexisexiixesixeseg;y~\n~~dddd;eval
------------------------------
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 6233
***************************************
