[7992] in Perl-Users-Digest
Perl-Users Digest, Issue: 1617 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sun Jan 11 12:28:29 1998
Date: Sun, 11 Jan 98 09:00:26 -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 Sun, 11 Jan 1998 Volume: 8 Number: 1617
Today's topics:
Re: 'flock'ing - what if I'm renaming/unlinking? (Justin Vallon)
Re: 52 character string to be broken...any suggestions? (Michael Budash)
Re: [Help] Capturing STDOUT under DOS ? (Andreas Roeschies)
A newbie is trying to use perl (George Russell)
Re: A newbie's substitution question (Tad McClellan)
Can perl do mapped files? <dereks@fc.hp.com>
Re: Can perl do mapped files? (Michael Fuhr)
Re: help Exec format error (8) (Michael Budash)
Re: Help im stuck (Bjorn Ardo)
How to move a directory to another level in NT? <angyny@interport.net>
Re: IIS4 Please Help! <scwebREMOVE@scwebdesigns.com>
Re: Mailing binary file <mike@hq.npc.co.th>
Re: Newbie Perl-Java problem... (Tad McClellan)
Online Job Fair w/ chance to WIN a FREE Trip <arc@flash.net>
Re: PERL & IIS 4 (final) hanging - help!! (Jan Versteeg)
Re: Perl syscall on Irix 6.x (Honza Pazdziora)
Re: perl under windows95 <aprilk@dancris.com>
Re: perl under windows95 <wizard@eznet.net>
Re: Perl5 On IIS4.0 <scwebREMOVE@scwebdesigns.com>
Re: recomended Perl books ? (Sitaram Chamarty)
Re: serious post about gmtime and year-1900 (was Re: Pe (Abigail)
Re: simple perl script to add directory to PATH if not (Justin Vallon)
Re: Testing for the non-existence of a variable. <ruben@wynn.com>
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sun, 11 Jan 1998 02:32:23 -0500
From: vallon@mindspring.com (Justin Vallon)
Subject: Re: 'flock'ing - what if I'm renaming/unlinking?
Message-Id: <1998011102322399525@user-37kb34g.dialup.mindspring.com>
Use another file.
1) If the file you want to insure serialized access to is xyz.dat, name
the lock xyz.dat.lock. The lock file can be empty or can even log the
user of the file.
2) Another trick (under UNIX) would be to use the O_CREAT option in
open() to insure that you were the creator of the lock file. [I am not
sure of the perl syntax] If open() returns file exists, then you didn't
create it, so try again in a second. This may be required if you can't
flock for some reason (broken O/S, broken file server, etc).
The advantage to the first is that the flock will be undone if you
forget (or crash). The second scheme will not detect that the lock is
stale.
The disadvantage to the first is that you have a lock file
(permanently). You can't remove it, because other processes may be
waiting for the lock. The second scheme leaves no litter.
Zach Bagnall <bagnallWRINKLES@ihug.co.nz> wrote:
> Hi All,
>
> I have a perl program, which stores info in an ascii text file,
> and a typical modify procedure goes something like:
[...]
> Zach.
--
-Justin
vallon@mindspring.com
------------------------------
Date: Sat, 10 Jan 1998 23:29:31 -0700
From: mbudash@sonic.net (Michael Budash)
Subject: Re: 52 character string to be broken...any suggestions?
Message-Id: <mbudash-1001982329320001@d124.pm3.sonic.net>
In article <34B7D250.7D0A1E6@hotmail.com>, cj5xvv@hotmail.com wrote:
>> I have a 52 character string which has to
>> be broken and sorted. It represents 52 weeks. Typically it looks like
>> this:
>> 1000100010001000100010001000100010001000100010001000
>>
>> You can probably guess that this is playing out of a system scheduling
>> weekly events.
>>
>> I want to transfer this to :
>>
>> 1
>> 0
>> 0
>> 0
>> 1
>> 0
>> 0
>> etc...
>>
>> In other word I use the newline as a text delimiter and run it back
>> (from a text file) into a database producing a 52 week year with 52
>> cells.
>>
e.g.:
$list = '100101110';
$list =~ s/(.)/$1\n/g;
hth
--
Michael Budash, Owner * Michael Budash Consulting
mbudash@sonic.net * http://www.sonic.net/~mbudash
707-255-5371 * 707-258-7800 x7736
------------------------------
Date: Sun, 11 Jan 98 11:12:51 GMT
From: and@ostenberg.ping.de (Andreas Roeschies)
Subject: Re: [Help] Capturing STDOUT under DOS ?
Message-Id: <69a9de$5sn$1@lilly.ping.de>
In article <34B6F815.46DA@erols.com>, wtansill@erols.com wrote:
>Under DOS/Windows STDOUT may be redirected at will regardless of the
>source. STDERR can't be redirected from the command prompt (unlike
>UNIX).
Usa another command processor. 4DOS (replaces COMMAND.COM) can redirect stderr
with ECHO HELLO >&> TYPE FILE.TXT ( >& will redirect stderr but not stdout)
------------------------------
Date: Sun, 11 Jan 1998 16:09:39 GMT
From: george.russell@clara.net (George Russell)
Subject: A newbie is trying to use perl
Message-Id: <34b8eae0.1221370@news.clara.net>
I'm trying to use perl on linux to analyse a log file of visits to my
web site. The script below generates a html file with a table, which
contains the domain, date/time, file requested and http protocol used.
It already manages to remove my own accesses to the site, so that it
reports only on visitors. I'd like it to be able to reverse the order
the rows in the table are displayed, so that the latest entries in the
log are first in the table, and the oldest is at the bottom.
reverse(@indata) doesn't seem to work - has anyone any ideas? If you
do, could you include source code with your suggestions as well, as
i'm a newbie. I'd also like to display a number in the table in each
row to indicate the number of the entrie in the log file, but at the
moment it will start at 0, and increment once to 1, and never beyond
this point - why?
Thanks in advance
George Russell
Could you CC any answers to my email address at
george.russell@clara.net .
===============================================================
#!/usr/bin/perl
$filename = "access.log";
$number=0;
print "Content-type:text/html\n\n";
print "<html><head><title>Access Log</title></head>";
print "<body>";
open(INF,$filename);
@indata = <INF>;
close(INF);
print "<table border=1>";
print
"<tr><th>Domain</th><th>Time</th><th>File?</th><th>HTTP</th><th>No</th></tr>\n";
reverse(@indata);
foreach $i (@indata) {
chop($i);
($domain,$dash1,$dash2,$name,$garbage,$get,$file,$extra1,$extra2,$extra3)
=split(/\ /,$i);
# HERE, see if the variable $domain contains a match for
# "clara.net". See the "perlre" and "perlop" manpages
next if $domain =~ /clara.net/;
print "<tr>";
print "<td>$domain</td>";
print "<td>$name</td>";
#actually $name is the date and time
print "<td>$file</td>";
print "<td>$extra1</td>";
print "<td>$number</td>";
print "</tr>\n";
++($number ='$number');
#trying to increment number for display of lines in file
excluding entries including clara.net
}
print "</table>";
print "</body></html>"
------------------------------
Date: Sun, 11 Jan 1998 00:41:24 -0600
From: tadmc@flash.net (Tad McClellan)
Subject: Re: A newbie's substitution question
Message-Id: <kip996.fc2.ln@localhost>
Eric Albert (ejalbert@leland.stanford.edu) wrote:
: In article <1l3996.511.ln@localhost>, tadmc@flash.net (Tad McClellan) wrote:
[snip]
: > I can get it to be one line:
: >
: > s[([A-Z][A-Z]+?)|_(.+?)_][defined($1) ? "<b>$1</b>" : "<b>$2</b>"]ge;
: Hmm...I guess that would work, though I was hoping that it wouldn't
: require a construct like that which effectively just takes the two lines
: and kind of squishes them into each other.
: > But "one line" works out to be _slower_ (no, make that <b>slower</b> ;-)
: True; I guess I'll just stick with the two-line solution after all. Oh,
: well....
Well at least write it to help maintenance:
$line=~s{([A-Z][A-Z]+?)}{<b>$1</b>}g unless $line=~s[_(.+?)_][<b>$1</b>]g;
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Sun, 11 Jan 1998 00:31:32 -0700
From: Derek Sherlock <dereks@fc.hp.com>
Subject: Can perl do mapped files?
Message-Id: <34B87554.6255@fc.hp.com>
Can anybody tell me whether Perl can do memory-mapped file I/O. i.e.
using the UNIX mmap() function.
I've looked in all the FAQs I can find, and searched the CPAN modules.
Thanks,
Derek.
--
___ __ /___ ___ Derek Sherlock
| / /_ _ \ | Fort Collins Systems Lab (FSL)
| / / // / \ | 3404 E. Harmony
| \ / //_/ / | Fort Collins CO 80525
|___\_ /____/___|
/ Direct: 970-898-7582
H E W L E T T Fax: 970-898-7388
P A C K A R D Email: dereks@fc.hp.com
------------------------------
Date: 11 Jan 1998 09:38:09 -0700
From: mfuhr@dimensional.com (Michael Fuhr)
Subject: Re: Can perl do mapped files?
Message-Id: <69ashh$oeo@flatland.dimensional.com>
Derek Sherlock <dereks@fc.hp.com> writes:
> Can anybody tell me whether Perl can do memory-mapped file I/O. i.e.
> using the UNIX mmap() function.
>
> I've looked in all the FAQs I can find, and searched the CPAN modules.
Malcolm Beattie's Mmap module builds and passes the minimal tests
on my system (FreeBSD 2.2.5). You can find it at:
http://www.perl.com/CPAN/authors/id/MICB/
The README indicates that it's an alpha, so be careful. Read the
manual page carefully and take particular note of the caveats about
writing to mmap'ed files.
Hope this helps!
--
Michael Fuhr
http://www.dimensional.com/~mfuhr/
------------------------------
Date: Sat, 10 Jan 1998 23:31:02 -0700
From: mbudash@sonic.net (Michael Budash)
Subject: Re: help Exec format error (8)
Message-Id: <mbudash-1001982331020001@d124.pm3.sonic.net>
In article <698q6s$51i@bgtnsc01.worldnet.att.net>, "Trajen"
<trajen@worldnet.att.net> wrote:
>> I'm attempting to run a perl script but get this error:
>>
>> CGIwrap Error: System Error: execv() failed
>> Error: Exec format error (8)
>>
>> Any clues?
clue: #!path-to-perl on line 1
hth (really)
--
Michael Budash, Owner * Michael Budash Consulting
mbudash@sonic.net * http://www.sonic.net/~mbudash
707-255-5371 * 707-258-7800 x7736
------------------------------
Date: 11 Jan 1998 13:47:52 GMT
From: bjorn@hobbe.lub.lu.se (Bjorn Ardo)
Subject: Re: Help im stuck
Message-Id: <69aii8$pi1$1@news.lth.se>
In article <68o5jl$5ru$1@uranium.btinternet.com>,
"agtbjw" <agtbjw@btinternet.com> writes:
> Hello I am a first year student and studying perl.
>
> Can anyone help with my problem
>
> I have to write a program which searches for and outputs each word in an
> input file. Each word must start with a letter and may include letters
> numbers and underline'_'
>
> the space will act as the separator between the words.
If you want to find something with ' ' as a separator then split is the
best way to do it.
@list = split(/ /,$string);
splits the string $string every time you run into a space and puts everything
but the space as elements in @list.
>
> It sounds easy but I have no syntax to search for a letter,
> I dont know how to get to the input file
Bjorn
------------------------------
Date: Sun, 11 Jan 1998 09:28:40 +0800
From: Angy <angyny@interport.net>
Subject: How to move a directory to another level in NT?
Message-Id: <34B82048.20A5@interport.net>
How can I move a directory in NT to another level using Perl?
e.g. move c:\temp\dir_1 to c:\perl\source\code\dir_1
("rename" seems not working)
------------------------------
Date: Sat, 10 Jan 1998 21:21:18 +0000
From: Preston Banzhaf <scwebREMOVE@scwebdesigns.com>
Subject: Re: IIS4 Please Help!
Message-Id: <34B7E64D.80BE315F@scwebdesigns.com>
This is a multi-part message in MIME format.
--------------12D4BBFD190485211F8DD78F
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Check this out PerlEx At http://www.ActiveState.com
Bob Martin wrote:
--
SC Web Designs designs websites and hosts websites at reasonable prices.
We specialize in Web page/site design and advertising for companies and
individuals who wish to establish their presence on the World Wide Web. We offer
a variety of services that includes everything from consulting, design, HTML,
CGI scripting and all of your marketing needs with creativity and reliability -
all guaranteed to make your services/products stand out and away from the
crowd!!
The primary objective of SC Web Designs is to serve our customers with the
Highest Quality Services and to serve the web by bringing all relevant
information together and making it easier for the potential consumers of your
products and services to find. SC Web Designs is quickly growing in popularity
and we are reaching a fast growing population of "intelligent homes".
Sincerly,
Preston Banzhaf
SC Web Designs <<<<<< GETTING YOU ON THE WEB AT WARP SPEED >>>>>>>
http://www.scwebdesigns.com
mailto:scweb@scwebdesigns.com
1.800.499.7261
--------------12D4BBFD190485211F8DD78F
Content-Type: text/x-vcard; charset=us-ascii; name="vcard.vcf"
Content-Transfer-Encoding: 7bit
Content-Description: Card for Preston Banzhaf
Content-Disposition: attachment; filename="vcard.vcf"
begin: vcard
fn: Preston Banzhaf
n: ;Preston Banzhaf
org: SC Web Designs
email;internet: scwebREMOVE@scwebdesigns.com
x-mozilla-cpt: ;0
x-mozilla-html: FALSE
version: 2.1
end: vcard
--------------12D4BBFD190485211F8DD78F--
------------------------------
Date: Sun, 11 Jan 1998 00:27:33 +0700
From: "Khemarath Choke-Mangmi" <mike@hq.npc.co.th>
Subject: Re: Mailing binary file
Message-Id: <69a51s$8ko$1@eagle.npc.co.th>
James Richardson wrote in message
<01bd03c5$1d320560$26c0a4c1@kitkat.aethos.co.uk>...
>Tom Phoenix <rootbeer@teleport.com> wrote in article
><Pine.GSO.3.96.971205122718.29415I-100000@usertest.teleport.com>...
>> On Thu, 4 Dec 1997, Mikel Cook wrote:
>>
>> > The open for mail looks like this:
>> >
>> > open (MAIL, "|/usr/bin/sendmail -B 8BITMIME");
>> >
>> > I am not getting an error on the open statement even with the -w
>> > parameter, so it seems that flag is OK.
>>
>> That doesn't necessarily follow.
>>
>> > I read in the sendmail man page that the -B flag is for a binary
>message
>> > body.
>>
>> If you're having trouble getting sendmail to do what you want, you should
>> check the docs, FAQs, and books about sendmail. If you still can't get it
>> working, you should ask your local sendmail expert. When even that fails,
>> you should try a sendmail newsgroup. Of course, there's nothing
>> Perl-specific about getting sendmail to work. Good luck!
>>
>
>Agreed, but only about 1 1/2 weeks ago I answered a similar question.
>(Mikel: Check dejanews. Hint: Try MIME attachments).
>
>James
>
>
>
>
use Net::SMTP;
use MIME::Base64;
.
.
.
## change MIME type here
$smtp->datasend("Content-Type: IMAGE/GIF; name=\"home.gif\"\n");
$smtp->datasend("Content-Transfer-Encoding: BASE64\n\n");
## change filename here
open(FILE, "gif/home_icon.gif");
while (read(FILE, $buf, 60*57)) {
$smtp->datasend(encode_base64($buf));
}
.
.
.
you should workout for the rest.
Cheers,
Michael
------------------------------
Date: Sun, 11 Jan 1998 00:17:08 -0600
From: tadmc@flash.net (Tad McClellan)
Subject: Re: Newbie Perl-Java problem...
Message-Id: <45o996.n82.ln@localhost>
zz (amosrf@idt.net) wrote:
: Subject: Re: Newbie Perl-Java problem...
You have neither a Perl nor a Java problem.
: I'm trying to run a simple perl script
^^^^^^^^^^^
Eh? Looks like a shell script to me.
comp.unix.shell
is a newsgroup about shell stuff.
This here newsgroup is (supposed to be) about Perl stuff.
: to run a java program as follows:
: #!/bin/sh
^^
^^ See? No perl here...
: java testProgram
: when I run it I get
: can't find java in /usr/bin/../bin/green_threads/java
: if I just type "java testProgram" at the command line it works fine.
'java' is not in your shell's PATH. It should be.
If that were a Perl script above, then we could suggest how to
do it, but I don't see any Perl code to comment on...
or, just give the full path to the JVM:
/usr/local/bin/java testProgram [ or wherever it is on your system ]
: Is
: there some way to have a perl script exactly emulate keyboard input?
I don't understand the question. I think maybe you meant to ask
how to emulate a particular shell or something?
Which shell?
Or do you want to get raw keyboard events?
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Sat, 10 Jan 1998 22:54:28 -0600
From: Apex <arc@flash.net>
Subject: Online Job Fair w/ chance to WIN a FREE Trip
Message-Id: <34B85084.E1D8B97@flash.net>
This is a multi-part message in MIME format.
--------------22517994F6C265122D4B478C
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
--------------22517994F6C265122D4B478C
Content-Type: text/html; charset=us-ascii; name="Part Letter.html"
Content-Transfer-Encoding: 7bit
Content-Disposition: inline; filename="Part Letter.html"
Content-Base: "file:///F|/CyberNet/Dallas/Part%20Lett
er.html"
<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=windows-1252">
<META NAME="Generator" CONTENT="Microsoft Word 97">
<META NAME="Template" CONTENT="C:\Program Files\Microsoft Office\Templates\Web Pages\Web Page Wizard.wiz">
</HEAD>
<BODY LINK="#0000ff" VLINK="#800080">
<DIR>
<B><FONT FACE="Arial" SIZE=6 COLOR="#0000ff"><P>Cyber</FONT><FONT FACE="Arial" SIZE=6 COLOR="#ff0000">Net</FONT><FONT FACE="Arial" SIZE=6> Online Career Fair</P>
</B></FONT><FONT FACE="Arial"><P> </P>
<P>CyberNet is a real-time interactive forum between Dallas' top technical recruiters and qualified candidates interested in exploring new employment opportunities online.</P>
</FONT><P><IMG SRC="Image1.gif" WIDTH=12 HEIGHT=12><FONT FACE="Arial"> Tuesday, January 13<SUP>th</SUP> 9:00 a.m. - 7:00 p.m. CDT </P>
</FONT><P><IMG SRC="Image1.gif" WIDTH=12 HEIGHT=12><FONT FACE="Arial"> Register to win a FREE trip (for 2) to Las Vegas!</P>
</FONT><P><IMG SRC="Image1.gif" WIDTH=12 HEIGHT=12><FONT FACE="Arial"> Interview with the nation's top technical companies from the comfort of your own home!</P>
<P>As a first time ever event in Dallas, you will have the opportunity to hold a private chat session with some of Dallas' largest high-tech companies. Visit our website:</P><DIR>
<DIR>
<DIR>
<DIR>
<DIR>
</FONT><P><A HREF="http://www.CyberNetCareer.com/"><FONT FACE="Arial">http://www.CyberNetCareer.com</FONT></A><FONT FACE="Arial"> </P></DIR>
</DIR>
</DIR>
</DIR>
</DIR>
<P>and check out current opportunities available with companies such as Southwestern Bell, Raytheon, MCI, NCR, Worldcom, Sprint, Oracle, and FedEx.</P>
<P>Tell a friend and remember Attend the fair on January 13 (9:00 a.m. CDT to 7:00 p.m.CDT) and be automatically entered in a drawing for a FREE weekend vacation getaway for two in Las Vegas!!</P>
<P>Thanks for passing the word around.</P>
<P> </P></DIR>
</FONT></BODY>
</HTML>
--------------22517994F6C265122D4B478C--
------------------------------
Date: Sun, 11 Jan 1998 11:41:06 GMT
From: jan.versteeg@ni.nl (Jan Versteeg)
Subject: Re: PERL & IIS 4 (final) hanging - help!!
Message-Id: <34baafc3.1773540@news.worldonline.nl>
Use PerlIS.dll from www.activestate.com in stead of Perl.exe. For some
reason IIS4 can't handle perl.exe. Run the PlISi315.exe but do not run
the install.bat because it ads a line to your script mapping in your
registry. Register the dll (.pl and .cgi without the %s) through
Internet Service Manager (Master Properties -> www service -> edit ->
home directory -> configuration).
This should do the trick. After I installed the PerIIS.dll all my cgi
scripts that wouldn't work with perl.exe running perfectly!
Jan.
nospam@XX.co.uk wrote:
>We are running PERL (build 315) and IIS 4 (the final release). When
>we call a simple perl script, the browser shows server contacted,
>waiting for reply, but just hangs forever. When we look in the
>process monitor a copy of perl.exe is open. Even after we stop the
>request this does not go away. If you then request the perl script
>again, it hangs again, and a new copy of perl.exe (along with the
>original) is visible in process monitor.
>
------------------------------
Date: Sun, 11 Jan 1998 13:42:30 GMT
From: adelton@fi.muni.cz (Honza Pazdziora)
Subject: Re: Perl syscall on Irix 6.x
Message-Id: <adelton.884526150@aisa.fi.muni.cz>
Chris Mihaly <cmihaly@fa.disney.com> writes:
> We downloaded Perl 5.003 and build it for the IRIX 6.2 system and it
> does not contain the syscall.ph header file. The Perl manual (O'Reilly)
> mentions that there are special installation instructions to get syscall
> (says its in the install file), but it is not.
> How do I get this file?
Use h2ph, see man h2ph. Also note that 5.003 is _not_ the
latest/stable/supported release, the only think you should be using as
of today is 5.004_04.
Hope this helps,
--
------------------------------------------------------------------------
Honza Pazdziora | adelton@fi.muni.cz | http://www.fi.muni.cz/~adelton/
I can take or leave it if I please
------------------------------------------------------------------------
------------------------------
Date: Sat, 10 Jan 1998 23:24:45 -0700
From: "April Kirby" <aprilk@dancris.com>
Subject: Re: perl under windows95
Message-Id: <699p7f$egg$1@usenet48.supernews.com>
In order to run your program you have to go to the dos screen and type in
the path to your perl.exe file and then where you program is.
For example, at C:\Perl\bin\perl.exe C:\example.plx
the last being the path to the program file
------------------------------
Date: Sun, 11 Jan 1998 01:19:33 -0500
From: "David A. Frantz" <wizard@eznet.net>
Subject: Re: perl under windows95
Message-Id: <34b86392.0@news.eznet.net>
Well if your running Windows 95 why not just double click on the script you
want to run
Dave
cwtalbot@intellex.com wrote in message <884490586.235143175@dejanews.com>...
>I recently loaded perl5 and am having trouble running it. I tried the
>Start menu then Run,typed "perl ProgramName.pl", but that doesn't work.
>Any ideas how to launch perl and run my program?
>
>-------------------==== Posted via Deja News ====-----------------------
> http://www.dejanews.com/ Search, Read, Post to Usenet
------------------------------
Date: Sat, 10 Jan 1998 21:25:45 +0000
From: Preston Banzhaf <scwebREMOVE@scwebdesigns.com>
Subject: Re: Perl5 On IIS4.0
Message-Id: <34B7E758.8371B977@scwebdesigns.com>
This is a multi-part message in MIME format.
--------------F26A1A53D1226726246F748D
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Check out PERLEX it's simple to install http://www.ActiveState.com
Andrew Quested wrote:
> Sorry... it was under this heading in IIS 3...
>
> Associating Interpreters with Applications (Script Mapping)
>
> - AQ
--
SC Web Designs designs websites and hosts websites at reasonable
prices.
We specialize in Web page/site design and advertising for companies and
individuals who wish to establish their presence on the World Wide Web.
We offer a variety of services that includes everything from consulting,
design, HTML, CGI scripting and all of your marketing needs with
creativity and reliability - all guaranteed to make your
services/products stand out and away from the crowd!!
The primary objective of SC Web Designs is to serve our customers with
the Highest Quality Services and to serve the web by bringing all
relevant information together and making it easier for the potential
consumers of your products and services to find. SC Web Designs is
quickly growing in popularity and we are reaching a fast growing
population of "intelligent homes".
Sincerly,
Preston Banzhaf
SC Web Designs <<<<<< GETTING YOU ON THE WEB AT WARP SPEED >>>>>>>
http://www.scwebdesigns.com
mailto:scweb@scwebdesigns.com
1.800.499.7261
--------------F26A1A53D1226726246F748D
Content-Type: text/x-vcard; charset=us-ascii; name="vcard.vcf"
Content-Transfer-Encoding: 7bit
Content-Description: Card for Preston Banzhaf
Content-Disposition: attachment; filename="vcard.vcf"
begin: vcard
fn: Preston Banzhaf
n: ;Preston Banzhaf
org: SC Web Designs
email;internet: scwebREMOVE@scwebdesigns.com
x-mozilla-cpt: ;0
x-mozilla-html: FALSE
version: 2.1
end: vcard
--------------F26A1A53D1226726246F748D--
------------------------------
Date: 11 Jan 1998 16:22:35 GMT
From: sitaram@diac.com (Sitaram Chamarty)
Subject: Re: recomended Perl books ?
Message-Id: <slrn6bgi75.8b.sitaram@ltusitaram.diac.com>
On 09 Jan 1998 10:56:46 +0000, Piers Cawley <pdcawley@bofh.org.uk> wrote:
>quality up there as they're growing -- I don't think I've read any of
>their books that is a waste of bookshelf space, and most stay on the
<grin>
try stuff like NT system admin books, or books on Excel - ORA has them too.
</grin>
(The <grin> block is to shield against flames - this is not a reflection on
the quality of the *books* :-)
------------------------------
Date: 11 Jan 1998 05:30:33 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: serious post about gmtime and year-1900 (was Re: Perl not Y2K compliant)
Message-Id: <699ldp$733$1@client3.news.psi.net>
Russell Schulz (Russell_Schulz@locutus.ofB.ORG) wrote on 1593 September
1993 in <URL: news:19980110.145233.9t7.rnr.w164w@locutus.ofB.ORG>:
++
++ I think that any decision as bad as returning 98 for 1998 and 101 for
++ 2001 should be documented, with examples past the border case, so the
++ implementors know how to get it right, and users know what to expect.
Uhm, my copy of the documentation that comes with Perl says:
Also, $year is the number of
years since 1900, that is, $year is 123 in year 2023.
I wouldn't trust any programmer to make Y2K fixes that needs to think
more than half a second to grasp the above sentence.
Abigail
--
perl -wle 'print "Prime" if (1 x shift) !~ /^1?$|^(11+?)\1+$/'
------------------------------
Date: Sun, 11 Jan 1998 02:32:24 -0500
From: vallon@mindspring.com (Justin Vallon)
Subject: Re: simple perl script to add directory to PATH if not there already
Message-Id: <1998011102322499585@user-37kb34g.dialup.mindspring.com>
Eli the Bearded <*@qz.to> wrote:
> brian d foy <comdog@computerdog.com> wrote:
> > randolph.a.bey@norwest.com posted:
> > >I am hoping to someday be able to do this myself, but.....
> > >does anyone have a perl script that adds a directory to a PATH if the
> > >directory is not already in the PATH? So that it could be invoked as
> > you can simply modify the environment variable for PATH. however,
> > if you won't be able to modify the environment of the parent process.
>
> Hmmm? Sounds like something an adb guru might be able to do. Sure you
> might have to clobber something else in the environment, but who needed
> that anyway? Particularlly not when you can get such spiffy code to
> terrorize future maintainers with.
>
> > perhaps you could explain the context of the problem so that we might
> > offer wise solutions :)
>
> Elijah
> ------
> eval PATH=`case $PATH in *$new*) echo $PATH ;; *) echo $PATH:$new ;; esac`
Don't forget "path:" and ":path" and /usr/local vs. /usr/local/hp10.
Also, don't bother running a shell.
case $PATH in
*:$new:*|*:$new|$new:*) ;;
*) PATH=$new:${PATH}
esac
In some shells (ksh, bash, POSIX sh), you can use
"PATH=$new${PATH+:$PATH}" to add : only if $PATH is set.
Or, in perl:
# Usage: eval `addenvvar /usr/local/bin`
sub Uniq {
my %found;
my @result;
for $_ (@_) {
push @result, $_ if !$found{$_}++;
}
return @result;
}
local $var = 'PATH';
local $out = join ":", Uniq @ARGV, split(":", $ENV{$var});
local $csh = ($ENV{'SHELL'} =~ /\/csh$|\/tcsh$|\/zsh$/; #zsh??
print "$var=$out ; export $var" if !$csh;
print "setenv $var $out" if $csh;
You could add a '--var VAR' argument.
You could add a '--front/--back' argument for prepend/append.
You could add a '--csh/--no-csh' for explicit $csh setting.
In terms of efficiency, the shell case is much much better.
--
-Justin
vallon@mindspring.com
------------------------------
Date: Sun, 11 Jan 1998 01:16:19 +0000
From: Ruben <ruben@wynn.com>
To: "Joshua J. Kugler" <FIGHT-SPAMjkugler@inreach.com>
Subject: Re: Testing for the non-existence of a variable.
Message-Id: <34B81D63.931951C1@wynn.com>
LOOK up the defined() function
Ruben
http://www.wynn.com/jewish
http://www.brooklynonline.com
------------------------------
Date: 8 Mar 97 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 8 Mar 97)
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.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 1617
**************************************
