[9873] in Perl-Users-Digest
Perl-Users Digest, Issue: 3466 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Aug 17 16:07:11 1998
Date: Mon, 17 Aug 98 13:00:18 -0700
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, 17 Aug 1998 Volume: 8 Number: 3466
Today's topics:
$POSTMATCH question <*jachin.cheng@gsc.gte.com*>
Re: CGI.pm TEMP files not deleted on NT after file uplo (Ronald E. Fortin)
Complex Regular Expression <kevin@templegames.com>
Dynamic scoping across closures? (Tramm Hudson)
Re: file type suffix explanation docs? (Martin Vorlaender)
Re: File updating question <kpatel@mathworks.com>
Informix ONL 5.0 / ESQL 4.10.U and PERL 5.00404 <Richmont.Sy@exchange.sms.siemens.com>
Re: Newbie pattern match question (Bart Lateur)
Output to the top of the file jm@kolumbus.fi
Re: pangrams in Perl --- randomized Robisonizing (Tomoyuki Tanaka)
Re: Pattern substitution using perl (Craig Berry)
problem with multiple select and perl script html fatshit@hotmail.com
Re: Random Number <jdf@pobox.com>
Re: Recommend a good editor <upsetter@ziplink.net>
Re: Regular Expression (AND search) <dcameron@bcs.org.uk>
REQ: Feedback <jobenet@yahoo.com>
Re: REQ: Feedback <chulsey@azuredesigns.com>
Re: Substituting patterns using perl 5 <jdf@pobox.com>
Re: taint checking seems to slow down my code <sneaker@sneex.fccj.org>
Why dont people read the FAQs <Richard@waveney.demon.co.uk>
Re: Why dont people read the FAQs <jdf@pobox.com>
Special: Digest Administrivia (Last modified: 12 Mar 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 17 Aug 1998 12:08:30 -0700
From: "J.M. Cheng" <*jachin.cheng@gsc.gte.com*>
Subject: $POSTMATCH question
Message-Id: <6r9v69$33u$1@news.gte.com>
Hi Folks:
I'm trying to use the $POSTMATCH ($') function in a script that parses
JavaScripts out of HTML files. However, I am getting unexpected results
from the operator.
This is the tet input file:
>>>
first line
show this! <Script language = "jscript"> LINE 1 of SCRIPT
LINE 2 of SCRIPT
LINE 3 of SCRIPT
end script </SCRIPT> should show!
end of html
>>>
These are the results of my script:
>>>
!normal! first line
PREMATCH: show this!
JavaScript LINE>>>LINE 2 of SCRIPT
JavaScript LINE>>>LINE 3 of SCRIPT
POSTMATCH: LINE 1 of SCRIPT
!normal! end of html
>>>
The PREMATCH ($`) function seems to be working right, but the POSTMATCH
result is a little screwy. I thought my program would return:
>>>
!normal! first line
PREMATCH: show this!
JavaScript LINE>>>LINE 2 of SCRIPT
JavaScript LINE>>>LINE 3 of SCRIPT
POSTMATCH: should show!
!normal! end of html
>>>
Here is the code in question:
$line = <INFILE>;
while ($line ne ""){
# look for opening SCRIPT tag, ignore attributes
if ($line =~ / \< [\s]* SCRIPT [\s]* .* \> /gix){
# include anything in the line before the SCRIPT tag
$line = $`;
print OUTFILE ( "PREMATCH: ", $line, "\n");
print ( "PREMATCH: ", $line, "\n" );
# skip lines between SCRIPT tags
$line = <INFILE>;
while ($line !~ /\< [\s]* \/ [\s]* SCRIPT [\s]* \> /gix){
print ("JavaScript LINE>>>", $line);
print OUTFILE ("JavaScript LINE>>>", $line);
$line = <INFILE>;
}
$line2 =~ /\< [\s]* \/ [\s]* SCRIPT [\s]* \> /gix;
# include anything in the line after the SCRIPT tag
$line2 = $';
print ( "POSTMATCH: ", $line2, "\n" );
print OUTFILE ( "POSTMATCH: ", $line2, "\n" );
$line = <INFILE>;
}
else {
# this is a normal line, include the whole thing
print OUTFILE ( "!normal! ", $line, "\n" );
print ( "!normal! ", $line, "\n" );
$line = <INFILE>;
}
}
This is one of my first PERL programs, and I'd appreciate any advice
offered.
TIA,
Jay
------------------------------
Date: Mon, 17 Aug 1998 19:02:55 GMT
From: ref@mesasys.com (Ronald E. Fortin)
Subject: Re: CGI.pm TEMP files not deleted on NT after file upload
Message-Id: <6r9ut7$nq2$1@news6.ispnews.com>
In article <6r9ooj$1qc$1@nnrp1.dejanews.com>, bjohnsto_usa_net@my-dejanews.com wrote:
>In article <6qigt3$nr5$1@wbnws01.ne.highway1.com>,
> "Todd B" <tbeaulieu@mediaone.net> wrote:
>> FAQ says to make sure to close the file as a solution to this. i am
>> definately closing the file, but they still remain in the temp dir.
>>
>> i suppose i will attempt to retrieve the filename and manually delete it
>> after processing it.
>>
>> anyone seen this behavior and have the real solution, or understand how it
>> is supposed to be deleted automatically?
>>
>
>I am suffering from this behavior too.
>
>I looked for a way to find out the name of the file associated with the a file
>handle so I could do the delete in the script after processing.
The CGI.pm documentation states:
... If you need to you can access the temporary file directly. Its
name is stored inside the CGI object's "private" data, and you can access it
by passing the file name to the tmpFileName() method: ...
It's on page 17.
>
>I guess I will have to institute a clean-up process as part of my daily batch
>runs.
>
>Brendan Johnston
>
>
>
>-----== Posted via Deja News, The Leader in Internet Discussion ==-----
>http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: Mon, 17 Aug 1998 15:34:16 -0400
From: Kevin Holbrook <kevin@templegames.com>
Subject: Complex Regular Expression
Message-Id: <35D885B8.63ADFE91@templegames.com>
Sorry for my ignorance here, but does anyone know the proper expression
for matching a comma in the middle of a double-quoted alpha-numeric
string?
i.e. to find the comma in :
"Hello, Dolly"
Once again, sorry for the ignorance.
Any help would be appreciated.
-Kevin
------------------------------
Date: 17 Aug 1998 13:38:36 -0600
From: tbhudso@panther.cs.sandia.gov (Tramm Hudson)
Subject: Dynamic scoping across closures?
Message-Id: <6ra0rs$e5$1@panther.cs.sandia.gov>
Folks,
I seem to have run into a mental problem with dynamic scoping
and calls into closures across package boundaries. Yes, the Camel
book does tell me that closure work the way I expect, as long as I
expect them to work the way they do (p 254). Why, yes, I would like
my Model T in black, please...
According the the perlsub entry regarding "Temporary Variables via
local()", any variables named "will be local to the enclosing block
(or subroutine, eval{} or do) and _any_called_from_within_that_block_".
It goes on to state that it gives "temporary values to global (meaning
package) variables".
So if I call a closure that was created in another package, it's
namespace will still be that of the other package and it won't see
the "local" variables created in this package, right? Doesn't
this contradict the intent of dynamic scoping?
We're roundabout getting to my question now. Is there anyway to
easily access the dynamic variables of the calling routine in a closure
without requiring the closure to fully specify the package from which
it wants to lookup the symbols? Or, in other words, to have the
closure see the dynamically scoped variables as we would expect
dynamically scoped variables to work?
Thanks,
Tramm
--
o hudson@cs.tulane.edu tbhudso@cs.sandia.gov O___|
/|\ http://www.cs.tulane.edu/~hudson/ H 505.266.59.96 /\ \_
<< KC5RNF @ N5YYF.NM.AMPR.ORG W 505.284.24.32 \ \/\_\
0 U \_ |
------------------------------
Date: Mon, 17 Aug 1998 20:28:39 +0200
From: martin@RADIOGAGA.HARZ.DE (Martin Vorlaender)
Subject: Re: file type suffix explanation docs?
Message-Id: <35d87657.524144494f47414741@radiogaga.harz.de>
Steven Barbash (stevenba@carr.org) wrote:
: What are (or where can I find explanations for) file suffixes used by
: Perl? .pm, .pl, .pod ...
: What do they mean?
.pm = "Perl Module" is tied to the 'require' and 'use' operators.
Contains one or more packages. See perlfunc.pod,
perlmod.pod and perlmodlib.pod.
.pl = "Perl Library" in use in the old days of Perl4, before modules
enriched the world of Perl. Also in common use
for perl scripts generally on operating systems
that need a file extension to know how to treat
files.
.pod = "Plain Old Dumcumentation" a formatted text (in a simple ASCII-
format). See perlpod.pod.
.xs = "eXtension Sub" is XS source code to build a Perl extension.
See perlxs.pod and perlxstut.pod.
.al = "AutoLoad" (sorry, I've not been that deep into Autoloading
to give a description of these).
.bs = "BootStrap" has something to do with .xs (see the remark at .al).
.ix Index file created by the AutoSplit mechanism (see the remark at .al).
.pll used by ActiveState Perl to denote a Perl Dynamic Link Library.
Disclaimer: I've probably forgotten a few.
cu,
Martin
--
| Martin Vorlaender | VMS & WNT programmer
OpenVMS: Where do you | work: mv@pdv-systeme.de
want to BE today? | http://www.pdv-systeme.de/users/martinv/
| home: martin@radiogaga.harz.de
------------------------------
Date: Mon, 17 Aug 1998 15:23:00 -0400
From: Ketan Patel <kpatel@mathworks.com>
To: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: File updating question
Message-Id: <35D88314.1F0BCD3C@mathworks.com>
Tom Christiansen wrote:
> Nope. As you guessed, I was referring to $^I.
Thanks... I'm finally making progress... I tested in a small script and
it works fine, but when I tried it in my larger script, it doesn't seem
to work... Here is the code:
#!/usr/local/bin/perl5
$dataPath = "../$fields{'Category'}/sites.txt";
@ARGV = ("$dataPath");
$^I = ".001";
while(<>) {
@sitesArray = split(/\|/,$_);
[...do stuff to @sitesArray...]
$_ = join("\|",@sitesArray);
print;
}
undef $^I;
That's the small script that works fine... now, when i use it in a
subroutine, it doesn't seem to work:
sub check_status{
if($uniqueIP == 1) { #$uniqueIP *does* equal 1 at this point...
$dataPath = "../$fields{'Category'}/sites.txt"; #$dataPath *does*
resolve to the correct path
@ARGV = ("$dataPath"); #everything below this line works fine in the
other script...
$^I = ".001";
while(<>) {
@sitesArray = split(/\|/,$_);
[...do stuff to @sitesArray...];
$_ = join("\|",@sitesArray);
print;
}
undef $^I;
}
}
So, I don't see where the problem is... The .001 file is never
created... yet all the paths (for $dataPath and @ARGV) seem right... By
the way, should I put "#!/usr/local/bin/perl5" at the beginning of a
file even though it only has three "sub"s in it?
Thanks...
------------------------------
Date: Mon, 17 Aug 1998 15:09:08 -0400
From: Rich Sy <Richmont.Sy@exchange.sms.siemens.com>
Subject: Informix ONL 5.0 / ESQL 4.10.U and PERL 5.00404
Message-Id: <35D87FD4.D7C@exchange.sms.siemens.com>
We have informix online 5.0 and esqlc 4.10.U. We want to use perl
5.00404 to interface with informix. So far we've not found any
available perl interface to informix that can make use of what we
currently have. I thought I've found something with the older 'isqlperl'
but it only compiles with perl 4.
Can anyone suggest any strategy as to how we can quickly and efficiently
interface with informix? We don't have the expertise nor the time to
extend perl.
We were thinking along the line of spawning an esqlc program from perl
that has all the informix connections available and communicate with the
perl parent process via some sort of an ipc. We thought we could use
dynamic sql but found that statements such as "describe...from" and
"allocate descriptor" do not compile in our current version of esqlc.
Appreciate any help.
Rich :)
------------------------------
Date: Mon, 17 Aug 1998 20:10:24 GMT
From: bart.mediamind@tornado.be (Bart Lateur)
Subject: Re: Newbie pattern match question
Message-Id: <35db8c66.8448069@news.tornado.be>
Ian McGowan wrote:
> /(.*)\[?.*\]?:/;
Warning. The first match will grab everything up to the first colon. the
part "\[?.*\]?" will never match anything. Ever.
>Aug 9 23:59:00 embarcadero sendmail[52795]: AA52795: message-id ...
>$1=sendmail[52795]
>
>the (.*) is too greedy - I want to discard the [52795] part.
Ah. You should make the whole \[.*\] part optional, like this:
(\[.*\])?
but this won't help the greediness of the first part of the RE. You
could make it non-greedy -- putting a question mark behind the star is a
remedy.
But you might do it the other way around, and delete whet you don't
like:
s/\[.*\]:/:/;
This will delete everything bewteen square brackets, just before the
colon, if present. You can simply delete everything except what you want
to keep:
s/(\[.*\])?:.*//;
Warning: none of this code has been tested at the time of writing.
Greediness of RE's is such a tricky subject, that some of my proposed
solutions don't quite work.
HTH,
Bart.
------------------------------
Date: Mon, 17 Aug 1998 17:00:29 +0300
From: jm@kolumbus.fi
Subject: Output to the top of the file
Message-Id: <35D8377C.F0E2BD6B@kolumbus.fi>
Hi!
I have a script that reads form and adds the data to a file. It works
fine, but I'd like to put the data always to the top of the file. I have
taken this script from the Web.
All help greatly appreciated
Thanks
Jari
Here is the script:
sub reformat
{
local($tmp) = $_[0] ;
$tmp =~ s/\+/ /g ;
while ($tmp =~ /%([0-9A-Fa-f][0-9A-Fa-f])/)
{
$num = $1;
$dec = hex($num);
$chr = pack("c",$dec);
$chr =~ s/&/and/g; # Replace if it is the & char.
$tmp =~ s/%$num/$chr/g;
}
return($tmp);
}
sub do_mail
{
local($filename) = "-$$";
open(TFILE,">$filename");
if ($Teksti ne "")
{
print TFILE "$Teksti\n";
close(TFILE);
`Type $filename >> hotlist/hotlist.htm`;
$mailstatus = $?;
unlink("$filename");
}
sub do_main
{
$cl = $ENV{'CONTENT_LENGTH'};
if ($cl > 0)
{
read(STDIN, $_, $cl);
$_ .= "&"; # Append an & char so that the last item is not ignored
$pquery = &reformat($_);
while ($pquery =~ /Teksti=([^&]*)&/) {
if (!$Teksti) {
$Teksti = $1;
}
else {
$Teksti = $Teksti."\n ".$1;
}
$pquery =~ s/Teksti=([^&]*)//;
}
$Teksti = &reformat($Teksti);
print "Content-type: text/html\n\n";
print "<HEAD>\n";
etc.
------------------------------
Date: 17 Aug 1998 18:56:48 GMT
From: ez074520@dilbert.ucdavis.edu (Tomoyuki Tanaka)
Subject: Re: pangrams in Perl --- randomized Robisonizing
Message-Id: <6r9udg$k0g$1@mark.ucdavis.edu>
>> this is the 1st Perl program i've written.
>>
>> please tell me how to clean it up (e.g. get rid of goto).
>> and how to make it faster (without sacrificing readability).
i reliaze that all this runtime CONSing (heap allocation + gc)
is unnecessary.
i think i took out all the bugs. i'll be more sure when it
finds me a new pangram.
i wrote this mainly in the hope that others will modify it to
find self-doc pangrams (Sallowsgrams) in other languages
(i've never seen one in German).
#--------------------------------------------------------------------
# TTPPP: TT's Perl Pangram Program
#
# rrob.pl --- randomized Robisonizing (by Letaw)
# --- just counts the 26 chars A-Z
#--------------------------------------------------------------------
$debug = 0;
$test_with_Sallows = 0; # from "Metamagical Themas", p.69
# snum --- spelled number
$snum{1} = "one" ;
$snum{2} = "two" ;
$snum{3} = "three" ;
$snum{4} = "four" ;
$snum{5} = "five" ;
$snum{6} = "six" ;
$snum{7} = "seven" ;
$snum{8} = "eight" ;
$snum{9} = "nine" ;
$snum{10} = "ten" ;
$snum{11} = "eleven" ;
$snum{12} = "twelve" ;
$snum{13} = "thirteen" ;
$snum{14} = "fourteen" ;
$snum{15} = "fifteen" ;
$snum{16} = "sixteen" ;
$snum{17} = "seventeen" ;
$snum{18} = "eighteen" ;
$snum{19} = "nineteen" ;
$snum{20} = "twenty" ;
$snum{30} = "thirty" ;
$snum{40} = "forty" ;
$snum{50} = "fifty" ;
$snum{60} = "sixty" ;
$snum{70} = "seventy" ;
$snum{80} = "eighty" ;
$snum{90} = "ninety" ;
$AtoZ = "abcdefghijklmnopqrstuvwxyz" ;
@AtoZsplit = split(//,$AtoZ) ;
#--------------------------------------------------------------------
# the seed must be in all lower case.
for( @AtoZsplit ) { $c{$_} = 0 }
if ( $test_with_Sallows ) {
$seed="this pangram tallies and ";
@c1{ @AtoZsplit }
= (5, 1, 1, 2, 28, 8, 6, 8, 13, 1, 1, 3, 2, 18, 15,
2, 1, 7, 25, 22, 4, 4, 9, 2, 4, 1) ; }
else {
$seed="tt found this sentence which contains exactly and ";
$seed="this pangram tallies and ";
$seed="this sentence contains exactly and ";
for( @AtoZsplit ) { $c1{$_} = 1 } }
print "seed = `" . $seed . "'\n" ;
for( @AtoZsplit ) { print"$_"."=".$c1{$_}." "; }
print "\n";
while (1) {
# given: C1 (which will yield S), C is cleared
$s = $seed;
for( @AtoZsplit ) { $s = $s . sn( $c1{$_} ) .
"`" . $_ . "'" . s_if_plural( $c1{$_} ) }
for(split(//,$s)) { $c{$_}++; }
for( @AtoZsplit ) { if ( $c{$_} != $c1{$_} )
{goto keeplooping ; } }
print "-----------------------------------------\n";
print " the pangram found \n";
for( @AtoZsplit ) { print"$_"."=".$c{$_}." "; }
print "\n".$s."\n" ;
exit 0;
keeplooping:
if ( $debug ) {
print "-----------------------------------------\n";
print $s."\n" ;
print "-----------------------------------------";
print " TALLY OF THE ABOVE IS \n";
for( @AtoZsplit ) { print"$_"."=".$c{$_}." "; }
print "\n"; }
for( @AtoZsplit ) { $c1{$_} = rpick( $c1{$_} , $c{$_} ) ;
$c{$_} = 0 ; }
if ( $debug ) {
print "-----------------------------------------";
print " NEW TALLY IS \n";
for( @AtoZsplit ) { print"$_"."=".$c1{$_}." "; }
print "\n"; }
}
sub s_if_plural {
if ( $_[0] >= 2 ) { "s, " } else { ", " } }
sub sn {
$x = $_[0] ;
if ($x >= 100) { print "must be 99 or less" ; exit 1; }
if ($x <= 20) { $snum{ $x } }
else {
$tens = int($x / 10) * 10 ;
$snum{ $tens } ."-". $snum{ $x - $tens } } }
sub rpick {
$x = $_[0] ; $y = $_[1] ;
if ( $x > $y ) { $old_x = $x ; $x = $y ; $y = $old_x ; }
# rand(0) is screwed
if ( $x == $y ) { $x }
else { int( $x + rand( $y - $x ) + 0.5) } }
------------------------------
Date: 17 Aug 1998 19:43:53 GMT
From: cberry@cinenet.net (Craig Berry)
Subject: Re: Pattern substitution using perl
Message-Id: <6ra15p$hf9$1@marina.cinenet.net>
zaxaz@my-dejanews.com wrote:
: I am trying to substitute leading and trailing double quotes from each
: line in a numbe of files. Is this something easily accomplished using
: perl.
Yes, quite easily indeed. Rather trivial, in fact. See the 'perlop' and
'perlre' docs, or the _Llama_ or _Camel_ book, or your other favorite form
of Perl documentation, and learn about the marvellous s/// operator and
how to build regular expressions to meet your needs.
: I would like to substitute the pattern then rewrite each file in
: sequence.
The -i command-line option might prove useful. See 'perlrun'.
---------------------------------------------------------------------
| Craig Berry - cberry@cinenet.net
--*-- Home Page: http://www.cinenet.net/users/cberry/home.html
| Member of The HTML Writers Guild: http://www.hwg.org/
"Every man and every woman is a star."
------------------------------
Date: Mon, 17 Aug 1998 19:32:57 GMT
From: fatshit@hotmail.com
Subject: problem with multiple select and perl script html
Message-Id: <6ra0h9$b2u$1@nnrp1.dejanews.com>
I have a multiple select with 16 entries, and would like to store those value
in an array. however only the first one comes back after submitting the
form. Then I changed it to check boxes, and that did'nt work either. Any
suggestions.
mailto:fatshit@hotmail.com
Thanks,
Fs
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: 17 Aug 1998 15:19:25 -0500
From: Jonathan Feinberg <jdf@pobox.com>
To: Grant Griffin <grant.griffin@nospam.com>
Subject: Re: Random Number
Message-Id: <r9yftl82.fsf@mailhost.panix.com>
Grant Griffin <grant.griffin@nospam.com> writes:
> I know that "Windows People" (if that's what Darren is) supposedly
> deserve automatic scorn around here, but to my knowledge, Windows
> comes with nothing like "grep".
[Start Menu]->[Find]->[Files or folders ...]
enables you to search inside files for text
Also, both currently available "official" binary distributions of perl
for win32 come with Friedl's excellent "search" script, ready to run.
I use it constantly. Allows arbitrary regexen, and many options. For
example:
search -dir c:\perl -name *.pod -nice [Ll]owercase
Some distributions of search.bat require an additional command line
parameter, -win .
Also, NT comes with the built-in FINDSTR command, like:
findstr /m lowercase C:\perl\lib\pod\*.*
I also have the cygwin32 grep, and the mingw32 grep, and the NT
resource kit grep. The first two are free (in every sense). The
third doesn't work, but I thought it would be fun to mention.
grep lowercase c:\perl\lib\pod\*.*
--
Jonathan Feinberg jdf@pobox.com Sunny Brooklyn, NY
http://pobox.com/~jdf/
------------------------------
Date: 17 Aug 1998 19:39:27 GMT
From: Scratchie <upsetter@ziplink.net>
Subject: Re: Recommend a good editor
Message-Id: <6ra0tf$25j@fridge.shore.net>
In comp.lang.perl.misc Bill 'Sneex' Jones <sneaker@sneex.fccj.org> wrote:
: news4jim@my-dejanews.com wrote:
: BBEdit :]
Has that been ported to Windows?
I really like TextPad on Windows. Although it took me a few weeks to get
used to the "find" functions, I really like the way they work now. And it
allows you to open/save in PC/Mac/Unix format, which is a must in a
multi-vendor environment (e.g. the Internet).
--Art
--------------------------------------------------------------------------
National Ska & Reggae Calendar
http://www.agitators.com/calendar/
--------------------------------------------------------------------------
------------------------------
Date: 17 Aug 1998 19:46:40 GMT
From: "Duncan Cameron" <dcameron@bcs.org.uk>
Subject: Re: Regular Expression (AND search)
Message-Id: <01bdca17$db617de0$723263c3@dns.btinternet.com>
No, don't worry. After I read the FAQ I realised that it wasn't as
straightforward as I thought.
Well done!
Marc-A. Woog <mwoog@pobox.ch> wrote in article
<35d7098c.4412803@news.datacomm.ch>...
> On 15 Aug 1998 15:11:52 GMT, "Duncan Cameron" <dcameron@bcs.org.uk>
> wrote:
>
> >Hmm...
> >See the FAQ "How do I efficiently match many regular expressions at
once?"
> >HTH
> >Marc-A. Woog <mwoog@pobox.ch> wrote in article
> ><35d69a1a.778577@news.datacomm.ch>...
> >> Hi there,
> >> I am new to this group and actually I am newbie to Perl. So please
> >> forgive me, if my question is somewhere in the FAQ (where is it?) or
> >> answered before.
> >< remainder snipped>
>
> Hmmm...Just stomped right in the Newbie Trap, haven't I? Thanks for
> the help anyway. It works fine but I don't understand why...
>
> Marc
>
> --
> Marc-A. Woog
> mwoog@pobox.ch
> http://www.geocities.com/SouthBeach/Sands/2413
>
------------------------------
Date: Mon, 17 Aug 1998 08:28:49 +0100
From: "Gamer1" <jobenet@yahoo.com>
Subject: REQ: Feedback
Message-Id: <35d882f4.0@news2.mcmail.com>
We are looking for feedback from webmasters etc.. to tell us about the
hosting company they are using. All information and feedback can remain
anonymous. Tell us about support, reliability and value for money. Any info
is appreciated and will help other in search of a host.
email: mattfreeman@mcmail.com
web: http://www.hostinvestigator.com
------------------------------
Date: Mon, 17 Aug 1998 19:44:00 GMT
From: Christopher Hulsey <chulsey@azuredesigns.com>
Subject: Re: REQ: Feedback
Message-Id: <35D88991.FE54DE4D@azuredesigns.com>
This is a multi-part message in MIME format.
--------------B2C0C95BD9662591ECAD67AC
Content-Type: multipart/alternative; boundary="------------3D14D2E071246D40FD4CFC93"
--------------3D14D2E071246D40FD4CFC93
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
I use Virtual Systems http://www.virtualisys.com/vr/chulsey
They have 24-hour tech support 7-days (phone and email)
1-hour response time guarantee - Avg (11 min currently) try it out
mailto:support@virtualisys.com
Pricing is moderate, but value for the money is exceptional.
Lots of server options, including virtual hosting capability and dedicated
servers
1 GB per DAY transfers allowed on all servers except dedicated servers where
that is significantly more.
Multiple DS3 connections and T1 redundancy.
BGP peering on all lines
Daily server backups on all servers
99% uptime guarantee. (If a server is down for more than 1% of the month, due
to a fault at thier end, the entire month is free)
No long term contracts, all servers are "rented" month to month.
No charge for upgrading your server option.
No adult web sites allowed.
For more information please visit thier web site at :
http://www.virtualisys.com/vr/chulsey
I hope this is what you were looking for.
Christopher Hulsey
Please contact me at any of the following:
chulsey@azuredesigns.com
ICQ#: 15960338
Azure Designs web site - http://www.azuredesigns.com
Virtual Systems Hosting - http://www.virtualisys.com/vr/chulsey
Personal Communications Center - http://wwp.mirabilis.com/15960338
------------------------------------------------------------------------
Gamer1 wrote:
> We are looking for feedback from webmasters etc.. to tell us about the
> hosting company they are using. All information and feedback can remain
> anonymous. Tell us about support, reliability and value for money. Any info
> is appreciated and will help other in search of a host.
>
> email: mattfreeman@mcmail.com
> web: http://www.hostinvestigator.com
--------------3D14D2E071246D40FD4CFC93
Content-Type: text/html; charset=us-ascii
Content-Transfer-Encoding: 7bit
<HTML>
<BODY TEXT="#000000" BGCOLOR="#FFFFFF" LINK="#0000EE" VLINK="#3366FF" ALINK="#FF0000">
I use Virtual Systems <A HREF="http://www.virtualisys.com/vr/chulsey">http://www.virtualisys.com/vr/chulsey</A>
<P>They have <B>24-hour tech support 7-days</B> (phone and email)
<BR>1-hour response time guarantee - Avg (11 min currently) try it out
<A HREF="mailto:support@virtualisys.com">mailto:support@virtualisys.com</A>
<BR>Pricing is moderate, but <B>value</B> for the money is <B>exceptional</B>.
<BR>Lots of server options, including virtual hosting capability and dedicated
servers
<BR>1 GB per DAY transfers allowed on all servers except dedicated servers
where that is significantly more.
<BR>Multiple DS3 connections and T1 redundancy.
<BR>BGP peering on all lines
<BR>Daily server backups on all servers
<BR>99% uptime guarantee. (If a server is down for more than 1% of the
month, due to a fault at thier end, the entire month is free)
<BR>No long term contracts, all servers are "rented" month to month.
<BR>No charge for upgrading your server option.
<BR>No adult web sites allowed.
<P>For more information please visit thier web site at : <A HREF="http://www.virtualisys.com/vr/chulsey">http://www.virtualisys.com/vr/chulsey</A>
<P>I hope this is what you were looking for.
<P>Christopher Hulsey
<P><B>Please contact me at any of the following:</B>
<BR>chulsey@azuredesigns.com
<BR>ICQ#: 15960338
<BR>Azure Designs web site - <A HREF="http://www.azuredesigns.com">http://www.azuredesigns.com</A>
<BR>Virtual Systems Hosting - <A HREF="http://www.virtualisys.com/vr/chulsey">http://www.virtualisys.com/vr/chulsey</A>
<BR>Personal Communications Center - <A HREF="http://wwp.mirabilis.com/15960338">http://wwp.mirabilis.com/15960338</A>
<BR>
<HR WIDTH="100%">
<BR>Gamer1 wrote:
<BLOCKQUOTE TYPE=CITE>We are looking for feedback from webmasters etc..
to tell us about the
<BR>hosting company they are using. All information and feedback can remain
<BR>anonymous. Tell us about support, reliability and value for money.
Any info
<BR>is appreciated and will help other in search of a host.
<P>email: mattfreeman@mcmail.com
<BR>web: <A HREF="http://www.hostinvestigator.com">http://www.hostinvestigator.com</A></BLOCKQUOTE>
</BODY>
</HTML>
--------------3D14D2E071246D40FD4CFC93--
--------------B2C0C95BD9662591ECAD67AC
Content-Type: text/x-vcard; charset=us-ascii; name="vcard.vcf"
Content-Transfer-Encoding: 7bit
Content-Description: Card for Christopher Hulsey
Content-Disposition: attachment; filename="vcard.vcf"
begin: vcard
fn: Christopher Hulsey
n: Hulsey;Christopher
org: Azure Designs
adr: 2130 South Santa Fe Ave. #66;;;Vista;California;92084;USA
email;internet: chulsey@azuredesigns.com
title: Owner
tel;work: 760-727-5604
x-mozilla-cpt: ;0
x-mozilla-html: FALSE
version: 2.1
end: vcard
--------------B2C0C95BD9662591ECAD67AC--
------------------------------
Date: 17 Aug 1998 15:21:03 -0500
From: Jonathan Feinberg <jdf@pobox.com>
To: zaxaz@my-dejanews.com
Subject: Re: Substituting patterns using perl 5
Message-Id: <ogtjtl5c.fsf@mailhost.panix.com>
zaxaz@my-dejanews.com writes:
> Is this easily accomplished by opening reading and rewriting each file?
You should read about the -i switch in perlrun and the corresponding
$^I variable in perlvar. Also see perlfaq5.
--
Jonathan Feinberg jdf@pobox.com Sunny Brooklyn, NY
http://pobox.com/~jdf/
------------------------------
Date: Mon, 17 Aug 1998 15:43:17 -0400
From: Bill 'Sneex' Jones <sneaker@sneex.fccj.org>
Subject: Re: taint checking seems to slow down my code
Message-Id: <35D887D5.5F57692E@sneex.fccj.org>
John Porter wrote:
>
> Mark-Jason Dominus wrote:
> > Bill 'Sneex' Jones <bill@fccj.org> wrote:
> > >Who started this whole setuid thing anyways?
> >
> > Dennis.
>
> "I didn't know you were called Dennis!"
>
> "Well you didn't bother to find out, did you."
>
> --
> John Porter
I'm a complete failure. None of the man pages I have access
to say anything about who the author is/was...
Sorry,
-Sneex- :]
__________________________________________________________________
Bill Jones | FCCJ Webmaster | Life is a 'Do it yourself' thing...
http://webmaster.fccj.org/cgi/mail?webmaster
------------------------------
Date: Mon, 17 Aug 1998 20:23:08 +0100
From: Richard Proctor <Richard@waveney.demon.co.uk>
Subject: Why dont people read the FAQs
Message-Id: <ant171908b49Rr9i@waveney.demon.co.uk>
Why do we get so many questions here that are in the FAQ?
These could be because:-
0) People cant read (if so why are they writing)
1) People have never heard of a FAQ (Unlikely)
2) People are lazy (True - see Camel)
3) The FAQs and Man pages are large, it is sometimes possible
to miss somthing esoteric (This should be acceptable - I did it once)
4) People are Impatient (True - see Camel)
5) A lot of people, I suspect, post questions without ever having read
clp.misc before (True)
6) Perl is popular (Very True)
7) A lot of postings come to clp.misc that are really about servers and cgi,
this represents a major use of perl and results from people looking here
because of the perl content, maybe there should be a clp.cgi?
8) I am not sure that Hubris comes into it though, with Hubris you solve
the problem without the FAQ, or CPAN or clp.misc ...
When someone asks a FAQ, yes tell them its in the documents once. It does not
need 6 people to say its in the FAQ, it does not need a flame war.
Perhaps it requires one to step back from the war and ask WHY are there so
many questions? Are there ways to reduce the number? Should perl print out
"Read the FAQs" before it even looks at the script? (Supressable, by looking
at the FAQs!)
NB Abigails posts may be curt, but are generaly right and often amusing,
and there is an awfull lot of perl to be learnt from her sigs.
--
Richard Proctor Richard@waveney.demon.co.uk
Perl on Risc-OS at home for many useful things
Perl on Unix on web sites for fancy features
Perl on my laptop to write perl for RiscOs/Unix when away from home and bored
------------------------------
Date: 17 Aug 1998 15:29:28 -0500
From: Jonathan Feinberg <jdf@pobox.com>
To: Richard Proctor <Richard@waveney.demon.co.uk>
Subject: Re: Why dont people read the FAQs
Message-Id: <lnontkrb.fsf@mailhost.panix.com>
Richard Proctor <Richard@waveney.demon.co.uk> writes:
> When someone asks a FAQ, yes tell them its in the documents once. It
> does not need 6 people to say its in the FAQ
Remember that the replies to a given post may not have propagated when
someone posts their own reply. How can you know that 5 other people
have already posted replies?
--
Jonathan Feinberg jdf@pobox.com Sunny Brooklyn, NY
http://pobox.com/~jdf/
------------------------------
Date: 12 Jul 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 Mar 98)
Message-Id: <null>
Administrivia:
Special notice: in a few days, the new group comp.lang.perl.moderated
should be formed. I would rather not support two different groups, and I
know of no other plans to create a digested moderated group. This leaves
me with two options: 1) keep on with this group 2) change to the
moderated one.
If you have opinions on this, send them to
perl-users-request@ruby.oce.orst.edu.
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 3466
**************************************
