[18497] in Perl-Users-Digest
Perl-Users Digest, Issue: 665 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Apr 10 09:06:04 2001
Date: Tue, 10 Apr 2001 06:05:20 -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: <986907919-v10-i665@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Tue, 10 Apr 2001 Volume: 10 Number: 665
Today's topics:
Re: $text in a text file - how do I get it to print? <moiraine@qwest.net>
Re: $text in a text file - how do I get it to print? (Anno Siegel)
Re: [Fwd: help a perl newbie with script] dcutter@gmx.de
App::Config and warnings <ccx138@coventry.ac.uk>
Re: App::Config and warnings <ccx138@coventry.ac.uk>
Re: cgi <moiraine@qwest.net>
Re: complaint about moderation of this group <webmaster@webdragon.unmunge.net>
Re: complaint about moderation of this group (Martien Verbruggen)
Re: Criticism (searching a syslog) <iltzu@sci.invalid>
Re: file input output problems <lupey@imap.pitt.edu>
Re: Filehandle question dcutter@gmx.de
How can I check if a computer exist on my NT LAN? <alessandro.augusto@br.bosch.com>
Re: inheritance within one file? (Rafael Garcia-Suarez)
Re: inheritance within one file? <bart.lateur@skynet.be>
Re: Net::SMTP and MIME::Base64 problem - help <skv@iis.nsk.su>
Re: New posters to comp.lang.perl.misc <moiraine@qwest.net>
Re: perl hacker wanted <moiraine@qwest.net>
Re: Please Help <moiraine@qwest.net>
Print scriptname in logfile <uli@lab.arcor.de>
Re: Print scriptname in logfile (Bernard El-Hagin)
Re: Print scriptname in logfile (Anno Siegel)
Re: Return code for % operator <wayne.keenan@ntlworld.com>
Re: Return code for % operator (Anno Siegel)
Re: Return code for % operator (Damian James)
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 10 Apr 2001 02:00:57 -0700
From: A_Geekette <moiraine@qwest.net>
Subject: Re: $text in a text file - how do I get it to print?
Message-Id: <3AD2CBC8.9F72A529@qwest.net>
Alan Fleming wrote:
> Thanks everyone
>
> Alan
> "Wyzelli" <wyzelli@yahoo.com> wrote in message
> news:vR9z6.11$YK2.2752@vic.nntp.telstra.net...
> > "A_Geekette" <moiraine{NOSPAM}@qwest.net> wrote in message
<snip>
> > > This will display $name as the value of $name, etc:
> > > print "Hi, my name is $name, and I am $age years old.";
> > > This will display "$name":
> > > print 'Hi, my name is $name, and I am $age years old.';
> > > It's the difference between the single and double quotes.
> > Not when $name is within a scalar read in from a text file, as the OP
> > described.
That all depends on how you read the data and where you put it when you read
it.
You're welcom Alan.
--
Geekette
"Try Not. Do or do not. There is no try."
-If you don't know who said this,
I don't want to talk to you. ;-)
"Nothing is impossible, no matter how improbable."
-Anonymous
------------------------------
Date: 10 Apr 2001 09:13:05 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: $text in a text file - how do I get it to print?
Message-Id: <9auir1$ds1$4@mamenchi.zrz.TU-Berlin.DE>
According to A_Geekette <moiraine@qwest.net>:
> Alan Fleming wrote:
>
> > Thanks everyone
> >
> > Alan
> > "Wyzelli" <wyzelli@yahoo.com> wrote in message
> > news:vR9z6.11$YK2.2752@vic.nntp.telstra.net...
> > > "A_Geekette" <moiraine{NOSPAM}@qwest.net> wrote in message
>
> <snip>
>
> > > > This will display $name as the value of $name, etc:
> > > > print "Hi, my name is $name, and I am $age years old.";
> > > > This will display "$name":
> > > > print 'Hi, my name is $name, and I am $age years old.';
> > > > It's the difference between the single and double quotes.
> > > Not when $name is within a scalar read in from a text file, as the OP
> > > described.
>
> That all depends on how you read the data and where you put it when you read
> it.
You must be using the words "read" and "put" in a broader sense than
customary. Nothing I would subsume under these terms would expand
a Perl variable whose name is embedded in the text.
Anno
------------------------------
Date: 10 Apr 2001 11:08:33 GMT
From: dcutter@gmx.de
Subject: Re: [Fwd: help a perl newbie with script]
Message-Id: <9aupjh$tdm$1@news.netmar.com>
In article <3AD1E4B6.DC9FA7B1@ford.com>, Lincoln, D. E. (Daniel)
<dlincol1@ford.com> writes:
>
>I'm new to perl and have written a script that formats a file
>from this format:
>
>1
>2
>3
>
>to this format:
>
>"$name", "*1*;*2*;*3*;"
>
>I do not want the last ";" to be added to the line.
>Is there an easy solution to this in Perl?
>
>Here is some of the code:
>
># Begin formatting converted file
>print OUTPUT '"';
>print OUTPUT $name;
>print OUTPUT '", "';
>
>open(INPUT, "$ARGV[0]") || die "Can't open: $!\n";
>
>while (<INPUT>){
>chomp $_;
>print OUTPUT "*$_*;";
>}
>
>print OUTPUT '"';
>print OUTPUT "\n";
>
Try this:
print OUTPUT '"';
while (1) { # allways true
print output '"*';
if (<INPUT>) {
print OUTPUT "*$_*";
}
else {
last;
}
print OUTPUT ";";
}
print OUTPUT '"';
In this case the semicolon is only added when the file isn't complety read.
Daniel
----- Posted via NewsOne.Net: Free (anonymous) Usenet News via the Web -----
http://newsone.net/ -- Free reading and anonymous posting to 60,000+ groups
NewsOne.Net prohibits users from posting spam. If this or other posts
made through NewsOne.Net violate posting guidelines, email abuse@newsone.net
------------------------------
Date: Tue, 10 Apr 2001 09:47:55 +0100
From: John Tutchings <ccx138@coventry.ac.uk>
Subject: App::Config and warnings
Message-Id: <3AD2C8BB.1EB01124@coventry.ac.uk>
Hello,
I am having ago with App::Config to store some configuration stuff that
is common to several scripts. Each script is only going to need some of
the values in that are stored in the config file. The problem I have is
that if I do not do a define for all the values in the config file I get
warning messages about them. I can solve this by *not* using the -w,
but I do not like this, any other ideas ?
::::::::::::::::::config file::::::::::::::::::::
csvdata \tmp\csvdata
Log_dir \tmp
global_update_log update_globaldb_log
to_be_used_by_other_scripts = causes_warning
:::::::::::::::out put:::::::::::::::
my_config:4: no such variable: to_be_used_by_other_scripts
\tmp\csvdata update_globaldb_log
::::::::::::::::script::::::::::::::::::::::
#!/usr/local/bin/perl -w
use strict;
use App::Config;
my ($config) = App::Config->new();
$config->define("csvdata");
$config->define("Log_dir");
$config->define("global_update_log");
# NOTE to_be_used_by_other_scripts is not defined
$config->cfg_file("my_config");
my($csvdata) = $config->get("csvdata");
my ($global) = $config->get("global_update_log");
print qq/$csvdata $global\n/;
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
John Tutchings
Coventry University
Computing Services
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
------------------------------
Date: Tue, 10 Apr 2001 11:10:40 +0100
From: John Tutchings <ccx138@coventry.ac.uk>
Subject: Re: App::Config and warnings
Message-Id: <3AD2DC20.778FDBEE@coventry.ac.uk>
John Tutchings wrote:
> Hello,
>
> I am having ago with App::Config to store some configuration stuff that
> is common to several scripts. Each script is only going to need some of
> the values in that are stored in the config file. The problem I have is
> that if I do not do a define for all the values in the config file I get
> warning messages about them. I can solve this by *not* using the -w,
> but I do not like this, any other ideas ?
>
<SNIP>
I have just got Config::IniFiles installed and this seems a lot better and
more comprehensive, no need to worry about warnings.
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
John Tutchings
Coventry University
Computing Services
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
------------------------------
Date: Tue, 10 Apr 2001 01:47:08 -0700
From: A_Geekette <moiraine@qwest.net>
Subject: Re: cgi
Message-Id: <3AD2C88C.2410310C@qwest.net>
Abigail wrote:
<snip>
> Why on earth do you think this is the appropriate group to ask?
Because Perl does CGI very well? It's realy popular. Programming CGI with
Perl is the same as basic Perl. This is the *misc* Perl group?
I understand, though, that general CGI questions don't apply here. I was
just attempting to understand what exactly can be talked about in this misc
group. I've stepped on a couple toes already.
--
Geekette
"Try Not. Do or do not. There is no try."
-If you don't know who said this,
I don't want to talk to you. ;-)
"Nothing is impossible, no matter how improbable."
-Anonymous
------------------------------
Date: 10 Apr 2001 08:20:24 GMT
From: "Scott R. Godin" <webmaster@webdragon.unmunge.net>
Subject: Re: complaint about moderation of this group
Message-Id: <9aufo8$qt9$1@216.155.33.76>
In article <x7puemotmh.fsf@home.sysarch.com>,
Uri Guttman <uri@sysarch.com> wrote:
| >>>>> "SRG" == Scott R Godin <webmaster@webdragon.unmunge.net> writes:
|
| SRG> Which is unfortunate, as I've been attempting to get some answers
| SRG> to a DBD::CSV problem I'm having where a program is generating
| SRG> around 7300 "use of uninitialized value" warnings into the ISP
| SRG> weblogs every time the .cgi gets hit. (It's definitely not a cgi
| SRG> problem -- I've tracked the offending code down, but still can't
| SRG> grok it well enough to either patch it or offer a solution to the
| SRG> author. :/
|
| DBD in general has uninitialized value issues. one well know thing is
| that the NULL SQL value usually gets translated into undef which can
| cause problems. i have usually done a map to convert any undefines to ''
| before doing any record/field processing. just don't trust DBI/DBD to do
| that for you.
Hmm -- do you know offhand of any way I can catch/trap these other than
either disabling warnings completely around any section of code where
I'll be accessing the CSV table, or else via a SIG{__WARN__} trap[1]?
I'd try messing with the DBD internals myself but in this instance it's
the one installed at the blasted ISP, and I can't touch the copy there.
ugh.
your idea of mapping the undefines to '' sounds like a good one, but I
just don't know where I'd implement such a thing in my program, since it
seems like all the warnings are coming from within the DBD::CSV module
itself. *scratching head* There's a copy of the script here, if you're
curious to see how I'm going about it.
http://216.155.0.50/~sgodin/misc/codesample.htm
Suggestions most welcome.
[1] Something I'm strongly considering in the absence of any other
constructive ideas, as it would at least allow me to filter this one
damned bit out with a regex, and still leave everything else intact.
--
unmunge e-mail here:
#!perl -w
print map {chr(ord($_)-3)} split //, "zhepdvwhuCzhegudjrq1qhw";
# ( damn spammers. *shakes fist* take a hint. =:P )
------------------------------
Date: Sun, 8 Apr 2001 21:47:32 +1000
From: mgjv@tradingpost.com.au (Martien Verbruggen)
Subject: Re: complaint about moderation of this group
Message-Id: <slrn9d0juk.3ud.mgjv@martien.heliotrope.home>
On Sun, 08 Apr 2001 08:25:18 GMT,
---Pete--- <bogus@erol.com> wrote:
> On Sun, 8 Apr 2001 13:52:23 +1000, mgjv@tradingpost.com.au (Martien
> Verbruggen) wrote:
>
>>CGI programs are not offtopic as long as the issues discussed are Perl
>>issues. The CGI issues are offtopic. That is the point. It has nothing
>>to do with what the program is supposed to do, be it CGI, system admin
>>tasks, text parsing, or calculating the average number of raindrops in a
>>cumulus cloud. The Perl parts of all those prorgams are on-topic. The
>>non-Perl parts, i.e. the langiuage independent parts, are offtopic.
>>
>>What is so bloody hard to understand about that?
> --------
> In theory, I agree with you. However, in my experience, it
> was not until after I purchsed a book on Perl and a book
> on CGI and reading various postings in this Perl NG and
> the CGI NG that I was able to see the dividing line.
I can understand that, but the point that was made in the post that I
responded to was that discussion of any issue with any CGI program, as
long as it was written in Perl was on-topic here. That is the point I
was refuting. I am not at all saying that it can't be hard for beginning
programmers to see that dividing line.
What ticks me off a bit about this, is that this discussion has to be
held here on this very group every few weeks. And every few weeks we get
a few people who argue that anything that has any sideways mention of
Perl anywhere is on-topic here.
Well, it isn't.
> Martien, to prove the point you made above , I challange
> you or anyone to copy and paste a section from the Perl
> docs that explains the dividing line between CGI & Perl in
> a manner that would be (or should be) clearly understood
> by a person new to Perl.
I challenge you to provide a quote from the C standard or the Java
language specification that specifies the dividing line between those
languages and CGI, or TCP/IP or relational databases.
Perl is a language. The documentation for a language shouldn't _have_ to
specify why it isn't a lot of other things. It can't. The writers of the
documentation for Perl have (and in my opinion that was a mistake)
already provided a section in the FAQ that discusses CGI and other webby
issues. It also points the reader to real sources of information on this
stuff.
> Hey, don't get me wrong, I never posted a CGI off-topic
> question here because right from the beginnning, I noticed
> that other people were being discouraged from doing so.
And that is why we keep discouraging it. Because it is offtopic, there
is a better place for those discussions, and the discouragement in
public hopefully helps other people find that other place before posting
the offtopic questions here.
> It took me several weeks and $100 in books before I
> was able to see the dividing line between Perl & CGI.
> I'm just trying to explain why this might be an ongoing
> problem and to offer some possible solutions.
But, and this is the big difference between what you did, and what many
other people do: You investigated, learned, observed the group, and drew
your conclusions. And when you saw someone say that CGI issues were
offtopic here, you didn't challenge that. See the difference?
> What's not 100% clear to me is why all the concern
> because... comp.infosystems.www.authoring.cgi
> only gets about 20 posting per day <grin>.
And that is a big concern. Because all of the stuff that should go there
comes here first. They need more exposure.
If there were a RFD for comp.lang.perl.cgi I'd probably support it. Not
because I believe it makes sense, or because there should be such a
group, but because it would attract all the offtopic posts that end up
here away from this group. And it would be easy to killfile anyone
automatically who crossposted between the two.
Martien
--
Martien Verbruggen |
Interactive Media Division | I took an IQ test and the results
Commercial Dynamics Pty. Ltd. | were negative.
NSW, Australia |
------------------------------
Date: 10 Apr 2001 12:56:35 GMT
From: Ilmari Karonen <iltzu@sci.invalid>
Subject: Re: Criticism (searching a syslog)
Message-Id: <986906583.23401@itz.pp.sci.fi>
In article <Pine.BSF.4.21.0104091159370.37966-100000@perlchimp.com>, jeff wrote:
>On Mon, 9 Apr 2001, Bart Lateur wrote:
>>
>> Can't you combine the param call to return multiple values at once?
>> Apparently not. One of the reasons I really don't like CGI.pm.
>
>Yes, you can.
There's even a fairly simple way to do it with param().
use CGI qw( :cgi );
my @parts = qw( Day Mon Year );
my (%tn, %ts);
@tn{@parts} = map scalar param("end$_"), @parts;
@ts{@parts} = map scalar param("start$_"), @parts;
print "start: $ts{Day}. $ts{Mon}. $ts{Year}\n";
print "end: $tn{Day}. $tn{Mon}. $tn{Year}\n";
# yes, that's a perfectly reasonable date format around here
--
Ilmari Karonen - http://www.sci.fi/~iltzu/
Please ignore Godzilla / Kira -- do not feed the troll.
------------------------------
Date: Tue, 10 Apr 2001 08:18:34 -0400
From: Paul Cantalupo <lupey@imap.pitt.edu>
Subject: Re: file input output problems
Message-Id: <3AD2FA1A.188D7041@imap.pitt.edu>
>
> What OS and version of Perl are you using?
John,
Perl 5.005 patch 3
SunOS Solaris
Thanks for your help
Paul
------------------------------
Date: 10 Apr 2001 10:55:06 GMT
From: dcutter@gmx.de
Subject: Re: Filehandle question
Message-Id: <9auoqa$snr$1@news.netmar.com>
In article <td4qb2nt3li719@corp.supernews.com>, Brian McCann
<bmccann@naisp.net> writes:
>Hi,
>When I run this script without the open OUT lines
>the script will replace the string "tag" with the string "PCS-1-0-0-Build94"
>in the dos
>window, but if I add those lines in nothing happens. the line that perl
>complains about is:
>#rename $filename, "$filename.bak" or die "Cannot rename: $!";
>
>I get this error on the command line: Cannot rename: No such file or
>directory at C:\Perl\scripts\whatrn.plx line 23.
>
>any help would be greatly appreciated
>Thanks,
>Brian
>
>
>use warnings;
>use strict;
>
>my $dir = "AppsTagBuild";
>my $tag = "PCS-1-0-0-Build94";
>my $filename = "WhatLabel.java";
>
>
>open IN,
>"<C:\\$dir\\$tag\\source\\Applications\\InternalProduct\\Java\\Utils\\$filen
>ame.bak" or die "Cannot open: $!";
>open OUT,
>">C:\\$dir\\$tag\\source\\Applications\\InternalProduct\\Java\\Utils\\$filen
>ame" or die "Cannot create: $!";
>while (<IN>) {
> s/tag/$tag/;
> #print OUT $_;
> print $_;
> }
>close IN;
>close OUT;
>#rename $filename, "$filename.bak" or die "Cannot rename: $!";
I'd say you'd have to give the full pathname to rename, not just the filename.
The file is obviously not in your local directory.
Daniel
----- Posted via NewsOne.Net: Free (anonymous) Usenet News via the Web -----
http://newsone.net/ -- Free reading and anonymous posting to 60,000+ groups
NewsOne.Net prohibits users from posting spam. If this or other posts
made through NewsOne.Net violate posting guidelines, email abuse@newsone.net
------------------------------
Date: Tue, 10 Apr 2001 09:45:28 -0300
From: Alessandro <alessandro.augusto@br.bosch.com>
Subject: How can I check if a computer exist on my NT LAN?
Message-Id: <3AD30068.46495E63@br.bosch.com>
Hello All,
How can I check for a NT network computer before I execute the tasks.
I need to know if the computer exist on my NT LAN or not
For example,
if (computer exist) then execute_task1
elseif
# computer does not exist on the NT network (LAN)
execute_task2
-------------------
This problem occurs to me when I try to read remote Registry values,
but before I stablish a connection, I want to search for the existence
of
that computer. Some function like ping or whatever.
Thanks,
Alessandro
------------------------------
Date: 10 Apr 2001 07:14:48 GMT
From: rgarciasuarez@free.fr (Rafael Garcia-Suarez)
Subject: Re: inheritance within one file?
Message-Id: <slrn9d5co6.l27.rgarciasuarez@rafael.kazibao.net>
wayne.keenan wrote in comp.lang.perl.misc:
> Bart Lateur wrote:
> >
> > For a start: you don't need to "use" a module for OO only purposes.
> > "require" is good enough. Since you're already loading the A package,
> > there's no need to load it again.
>
> unless , for some reason, you use the module in a BEGIN block, the require
> will only get executed at runtime, not compile time. also, you would
> manually have to call import using require.
Usually, OO modules don't export things.
--
Rafael Garcia-Suarez / http://rgarciasuarez.free.fr/
------------------------------
Date: Tue, 10 Apr 2001 10:37:05 GMT
From: Bart Lateur <bart.lateur@skynet.be>
Subject: Re: inheritance within one file?
Message-Id: <8jo5dtkqpprlkbd073nrhn9os2gvl7m5ge@4ax.com>
Rafael Garcia-Suarez wrote:
>Usually, OO modules don't export things.
That's right.
Didn't you ever wonder how comes the common syntax is "require
Exporter;", not "use Exporter;"?
--
Bart.
------------------------------
Date: Tue, 10 Apr 2001 17:40:12 +0600
From: "Konstantin Stupnik" <skv@iis.nsk.su>
Subject: Re: Net::SMTP and MIME::Base64 problem - help
Message-Id: <9aunop$1pvv$1@nl.novosoft.ru>
Hi!
Probably this will help you.
This sub uses sendmail, but I think principles
are the same:
sub SendFile{
my ($to,$fl)=@_;
my $t=CreateTemplate('emailfile.txt');
$t->param(%$fl);
my $msg=$t->output;
my $from=$$c{adminemail};
my $file=$$fl{filename};
my $subj='Requested File:'.$file;
my $bound='Boundary_(';
my @l=qw(0 1 2 3 4 5 6 7 8 9 A B C D E F G H I J K L M N O P Q R S T U V W
X Y Z a b c d e f g h i j k l m n o p q r s t u v w x y z);
for(0..16)
{
$bound.=$l[int(rand(scalar(@l)))];
}
$bound.=')';
open(MAIL,'|/usr/sbin/sendmail -t 1>/dev/null 2>/dev/null');
print MAIL "Content-Type: multipart/mixed; boundary=\"$bound\"\n";
print MAIL "From: $from\n";
print MAIL "To: $to\n";
print MAIL "Subject: $subj\n\n";
print MAIL "This is a multi-part message in MIME format.\n\n";
print MAIL <<MSG;
--$bound
Content-type: text/plain;
$msg
--$bound
Content-type: application/octet-stream
Content-disposition: attachment; filename=$file
Content-transfer-encoding: UUENCODE
begin 644 $file
MSG
my ($n,$buf);
open(F,"files/$file");
while(1)
{
$n=read(F,$buf,45);
print MAIL pack('u',$buf);
last if $n<=0;
}
close F;
print MAIL "'\nend\n--$bound--\n";
close MAIL;
}
--
Best regards,
Konstantin.
Brainbench MVP for perl.
"novastar" <root@novastar.dtdns.net> wrote in message
news:9asoe1$mej$1@usenet.otenet.gr...
>
>
> I can not stand it any more , I give up, Net::SMTP beat me up. The emails
are sent, the binaries are encoded as
> they should be, the headers look just ok but the email clients does not
recognize the files as attached. The Base64
> encoded files are showing as text messages. I create with outlook an email
with some attached files and then
> compare it with my script mail on smtp server repository, there was no
difference. This is an investigation area
> for X-Files inspectors not me .
>
>
>
> "novastar" <root@novastar.dtdns.net> wrote in message
news:9aqbjh$if3$1@usenet.otenet.gr...
> > Silly me !!! I was trying to open a binary file as a text file . The
binmode command solve the problem !
> > open(input, "<sample.jpg");
> > binmode input, ":raw";
> >
> >
> > "Gareth Watkins" <info@gareth-watkins.co.nz> wrote in message
news:752A6.1952$ndm.100008114@news.xtra.co.nz...
> > > I've had the same problem with the Base64 module ... after a number of
> > > terror days trying to work it it switched to using MimeLite....
> > >
> > >
> > > "novastar" <root@novastar.dtdns.net> wrote in message
> > > news:9aq54l$g76$1@usenet.otenet.gr...
> > > > I have a mail script on my ISP that sends emails. The server have
not
> > > sendmail, MIME::Lite, or nothing else than
> > > > Net::SMTP and MIME::Base64 installed. So I have to encode the
attached
> > > binaries files with the MIME::Base64 module.
> > > > The problem is that the encoded binaries files are obviously
misformated.
> > > I tryied to encode several files with no
> > > > success at all. I think that I am doing a mistake but I can not
figure
> > > out. Here is an example :
> > > > use MIME::Base64;
> > > > open(output,">output.bin") ; open(input, "<sample.jpg") ;
> > > > while (read(input, $var, 57*60))
> > > > {
> > > > print output encode_base64($var)
> > > > }
> > > > close input ; close output ;
> > > > The input file ( http://users.otenet.gr/~novastar/misc/sample.jpg )
is
> > > 57.953 bytes and the output file is only 94
> > > > bytes ...
> > > >
> > > > George
> > > >
> > > >
> > > >
> > >
> > >
> >
> >
>
>
------------------------------
Date: Tue, 10 Apr 2001 01:31:07 -0700
From: A_Geekette <moiraine@qwest.net>
Subject: Re: New posters to comp.lang.perl.misc
Message-Id: <3AD2C4CB.91789DD2@qwest.net>
Greg Bacon wrote:
<snip>
> Top 10 Posters by Number of Posts
> =================================
> (kb) (kb) (kb) (kb)
> Posts Volume ( hdr/ body/ orig) Address
> ----- -------------------------- -------
> 26 44.5 ( 27.7/ 16.8/ 6.4) wayne.keenan@ntlworld.com
> 14 34.9 ( 11.5/ 23.4/ 12.9) A_Geekette <moiraine{NOSPAM}@qwest.net>
Well, I guess I talk a lot. Hm. I also forget things, so have to post again.
> Top 10 Posters by Volume
> ========================
> (kb) (kb) (kb) (kb)
> Volume ( hdr/ body/ orig) Posts Address
> -------------------------- ----- -------
> 44.5 ( 27.7/ 16.8/ 6.4) 26 wayne.keenan@ntlworld.com
> 34.9 ( 11.5/ 23.4/ 12.9) 14 A_Geekette <moiraine{NOSPAM}@qwest.net>
It's definately not my signature.....Yup. I talk a lot.
<snip -- original and unoriginal content>
At least I'm semi-original.
> Top 10 Crossposters
> ===================
> Articles Address
> -------- -------
> 2 A_Geekette <moiraine{NOSPAM}@qwest.net>
Well hell. Sorry about that. I forget to check where I'm replying. Oops. At least
I'm in 10th place for this one.
--
Geekette
"Try Not. Do or do not. There is no try."
-If you don't know who said this,
I don't want to talk to you. ;-)
"Nothing is impossible, no matter how improbable."
-Anonymous
------------------------------
Date: Tue, 10 Apr 2001 01:40:50 -0700
From: A_Geekette <moiraine@qwest.net>
Subject: Re: perl hacker wanted
Message-Id: <3AD2C712.FEAF020D@qwest.net>
Sorry.
1) I'm new here.
2) I'm 22
3) I'm idealistic.
4) I don't make a lot of money.
5) I don't care about money, but money is necessary.
6) I just want to program and not think about money and bills and crap like
that. I'm tired of money and jobs and roommates and all this crap. Go ahead.
Say it. I'm young I haven't even lived life yet. I'll have to say you're
wrong. You'll ask me to prove it. Then I'll have to reply that it doesn't
apply to this group, because it would take too long to explain and eventually
it'll sound like something from a support group.
7) Can I blame it on PMS?
8) I'm too impatient to read and too rebelious to follow (some) rules, but...
9) I don't like hurting people, so...
10) Please don't ignore me. I won't do it again.
Have a nice day.
--
Geekette
"Try Not. Do or do not. There is no try."
-If you don't know who said this,
I don't want to talk to you. ;-)
"Nothing is impossible, no matter how improbable."
-Anonymous
------------------------------
Date: Tue, 10 Apr 2001 01:54:46 -0700
From: A_Geekette <moiraine@qwest.net>
Subject: Re: Please Help
Message-Id: <3AD2CA56.BA10E91F@qwest.net>
Uri Guttman wrote:
<snip>
> AG> print THEFILE . "hi";
> AG> This will print the file with "hi" at the end.
>
> where did you get the idea that would happen?
I don't know.
> did you try it?
No, which is strange. I apologize if this is wrong. I attempt to be thorough.
> the OP has
> several problems that you don't even address.
No...kidding.
--
Geekette
"Try Not. Do or do not. There is no try."
-If you don't know who said this,
I don't want to talk to you. ;-)
"Nothing is impossible, no matter how improbable."
-Anonymous
------------------------------
Date: Tue, 10 Apr 2001 09:45:28 +0200
From: "hanulimbe" <uli@lab.arcor.de>
Subject: Print scriptname in logfile
Message-Id: <9audli$28e$1@newsread2.nexgo.de>
Hi,
I´ve written a script in several versions. All use the same logfile
and I want to keep this. So, is there an instruction which prints
the name of executed script in the log, even when I change the
name by using the shell?
Thanks for help.
Uli
------------------------------
Date: Tue, 10 Apr 2001 08:02:41 +0000 (UTC)
From: bernard.el-hagin@lido-tech.net (Bernard El-Hagin)
Subject: Re: Print scriptname in logfile
Message-Id: <slrn9d5fga.cs8.bernard.el-hagin@gdndev32.lido-tech>
On Tue, 10 Apr 2001 09:45:28 +0200, hanulimbe <uli@lab.arcor.de> wrote:
>Hi,
>
>I´ve written a script in several versions. All use the same logfile
>and I want to keep this. So, is there an instruction which prints
>the name of executed script in the log, even when I change the
>name by using the shell?
Check out the $0 special variable in:
perldoc perlvar
Cheers,
Bernard
--
#requires 5.6.0
perl -le'* = =[[`JAPH`]=>[q[Just another Perl hacker,]]];print @ { @ = [$ ?] }'
------------------------------
Date: 10 Apr 2001 08:36:10 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Print scriptname in logfile
Message-Id: <9auglq$ds1$1@mamenchi.zrz.TU-Berlin.DE>
According to hanulimbe <uli@lab.arcor.de>:
> Hi,
>
> I´ve written a script in several versions. All use the same logfile
> and I want to keep this. So, is there an instruction which prints
> the name of executed script in the log, even when I change the
> name by using the shell?
The variable $0 contains the script name; the exact form depends
on your system. If you need a portable form, the module
File::Basename may help.
Anno
------------------------------
Date: Tue, 10 Apr 2001 07:58:01 +0100
From: "wayne.keenan" <wayne.keenan@ntlworld.com>
Subject: Re: Return code for % operator
Message-Id: <3AD2AEF9.6718D9E8@ntlworld.com>
hue micheal wrote:
> Thanks every body, It makes sense now.
> I will learn not to have opinions, well will try ;)
>
> HUem
> >===== Original Message From Bernie Cosell <bernie@fantasyfarm.com> =====
> >tadmc@augustmail.com (Tad McClellan) wrote:
> >}
> >} >I my opinion, the first case is more acurate ?
> >} ^^^^^^^
> >}
> >} There are no "opinions" in rudimentary mathematics.
> >
isn't mathematics an opinion of natural phenomena, albeit one that most
systems/entities agree on.
------------------------------
Date: 10 Apr 2001 09:08:18 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Return code for % operator
Message-Id: <9auii2$ds1$3@mamenchi.zrz.TU-Berlin.DE>
According to wayne.keenan <wayne.keenan@ntlworld.com>:
>
>
> hue micheal wrote:
>
> > Thanks every body, It makes sense now.
> > I will learn not to have opinions, well will try ;)
> >
> > HUem
> > >===== Original Message From Bernie Cosell <bernie@fantasyfarm.com> =====
> > >tadmc@augustmail.com (Tad McClellan) wrote:
> > >}
> > >} >I my opinion, the first case is more acurate ?
> > >} ^^^^^^^
> > >}
> > >} There are no "opinions" in rudimentary mathematics.
> > >
>
> isn't mathematics an opinion of natural phenomena, albeit one that most
> systems/entities agree on.
Mathematics is what mathematicians want it to be[1]. The connection to
natural phenomena is apparent in some branches of mathematics and less
so in others. Where it exists, it is more of a mystery than part of
the construction process.
Anno
[1] In this vein, there is quite some leeway for opinion in mathematics.
------------------------------
Date: 10 Apr 2001 09:34:56 GMT
From: damian@qimr.edu.au (Damian James)
Subject: Re: Return code for % operator
Message-Id: <slrn9d5krq.ecf.damian@puma.qimr.edu.au>
wayne.keenan chose Tue, 10 Apr 2001 07:58:01 +0100 to say this:
>hue micheal wrote:
>> ...
>> >===== Original Message From Bernie Cosell <bernie@fantasyfarm.com> =====
>> >tadmc@augustmail.com (Tad McClellan) wrote:
>> >}
>> >} >I my opinion, the first case is more acurate ?
>> >}
>> >} There are no "opinions" in rudimentary mathematics.
>> >
>isn't mathematics an opinion of natural phenomena, albeit one that most
>systems/entities agree on.
>
[OT]
If by 'opinion' you mean some sort of representation, then no.
Mathematics is a Rationalist (as opposed to Emipirical) system where
truths are derived from definitions and a priori principles, with no
particular requirement for agreement from anyone. Its connection with
'natural phenomena' -- however you choose to define those -- is not of core
interest, and is largely a matter of interpretation by other disciplines.
Of course, since Goedel... (damn, where's the umlaut on this thing :-).
Cheers,
Damian
--
@:=grep!($;+=m!$/|#!),split//,<DATA>;@;=0..$#:;while(@;){for($;=@;;--$;;){;(
$:=rand$;+$|)==$;&&next;@;[$;,$:]=@;[$:,$;]}push@|,shift@;if$;[0]==@|;select
$,,$,,$,,1/80;print qq x\bxx((@;+@|)*$|++),@:[@|,@;],!@;&&$/} __END__
Just another Perl Hacker # rev 3 -- a JAPH in progress, I guess...
------------------------------
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.
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 665
**************************************
