[9993] in Perl-Users-Digest
Perl-Users Digest, Issue: 3586 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sun Aug 30 03:05:34 1998
Date: Sun, 30 Aug 98 00:00:30 -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 Sun, 30 Aug 1998 Volume: 8 Number: 3586
Today's topics:
Re: @INC path and apache (Jonathan Stowe)
[BUG?] A suspected bug in m// and s/// (but probably a <wade@cs.ualberta.ca>
Re: Can you reload frames (Jonathan Stowe)
CGI Script Question rknig@my-dejanews.com
Re: How do I compare the contents of two files... (Jonathan Stowe)
Re: How do I take out tags? (Jonathan Stowe)
Re: How to extract first letter in string? (Jonathan Stowe)
Re: How to extract first letter in string? <r28629@email.sps.mot.com>
Re: How to extract first letter in string? <rick.delaney@shaw.wave.ca>
Re: HOWTO: create HTML tree of Perl documentation for P (Jonathan Stowe)
Re: Imagine... a non-greedy world! <rra@stanford.edu>
Re: Need Help with Perl Script (Jonathan Stowe)
Re: Q: remain order, hash simple@nanospace.com
running as setuid <paul@partitura.com>
Re: running as setuid <sneaker@sneex.fccj.org>
Re: Setting the ENVironment in perl (HP-UX 10.20)? (Jonathan Stowe)
Re: Telnet daemon (Jonathan Stowe)
Using <!--something--> <vip@takas.lt>
Re: what to do about syslog on win32 (Jonathan Stowe)
Re: what's wrong with this statement? More explanation. (Jonathan Stowe)
Re: Windows95, Perl, PWS (IIS) (Jonathan Stowe)
Re: Y2K Date Support (Abigail)
Special: Digest Administrivia (Last modified: 12 Mar 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sat, 29 Aug 1998 21:56:00 GMT
From: Gellyfish@btinternet.com (Jonathan Stowe)
Subject: Re: @INC path and apache
Message-Id: <35e8435d.30072261@news.btinternet.com>
On Fri, 28 Aug 1998 15:30:34 +0200, wwwadmin@berlin2.debis-sfi.de
wrote :
>Hello,
>
>I've read in this group (08/19/98 13:35) a question realy similiar to
>my question, but the solution isn't useable for me. If I start apache
>with mod_perl I get the errormessage that he could not find Apache.pm in
>the
>
>@INC Path, how could I change these Path ?
>
If you have installed mod_perl properly than this should be already
correct. I would do a "make clean" in your apache directory and
similar in your mod_perl directory then do :
perl Makefile.PL
make
make install
in your mod_perl directory answering yes when it asks you if you want
to build your apache <version no.> You will almost certainly need to
be root (or its moral equivalent) to do the "make install" . I cant
remember whether apache gets installed in this process but you can
copy the httpd from the src/ directory to /usr/sbin (or wherever).
But this is getting too far out of Perl territory already.
Apache.pm should (after all of this) be in (e.g.)
/usr/lib/perl5/site_perl/ (that is wherever your local modules get
installed). if it isnt then you may have a more serious problem with
your Perl installation (or you are using win32 ;-)
/J\
--
Jonathan Stowe
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
------------------------------
Date: 29 Aug 1998 17:43:40 -0600
From: Wade Holst <wade@cs.ualberta.ca>
Subject: [BUG?] A suspected bug in m// and s/// (but probably already known :-)
Message-Id: <r77lzre4lv.fsf@rimbey.cs.ualberta.ca>
In the following tidbit of code, note the existence of a '/' in the
comment associated with the regular expression. It appears that perl
is not removing the comments before doing the parsing. If the '/' is
changed to any other character, things work fine.
#!/usr/local/bin/perl5 -w -- -*- Perl -*-
$_ = 'This is a test';
if ( m/This # first word
\s+(is) # comment with a '/' in it
\s+a
/x ) {
print "BLAH\n";
}
This problem exists in both perl 5.003 and perl5.005_51
--
Wade Holst |------------------------------------------|
wade@cs.ualberta.ca | (setq Happiness '( "emacs" . "perl5" ) ) |
http://www.cs.ualberta.ca/~wade | @Happiness = ( "emacs" . "perl5" ); |
University of Alberta |------------------------------------------|
------------------------------
Date: Sat, 29 Aug 1998 21:56:15 GMT
From: Gellyfish@btinternet.com (Jonathan Stowe)
Subject: Re: Can you reload frames
Message-Id: <35e86e01.39873902@news.btinternet.com>
On 29 Aug 1998 05:32:01 GMT, Mark FINOCCHIARO wrote :
>Using forms is is possible to send data to more than one perl script?
No. Or possibly not without using some client side contrivance with
Javascript or the like (I think anyhow). Alternatively you could have
one CGI submit to a further script using LWP::UserAgent (see CPAN).
/J\
--
Jonathan Stowe
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
------------------------------
Date: Sat, 29 Aug 1998 23:18:03 GMT
From: rknig@my-dejanews.com
Subject: CGI Script Question
Message-Id: <6sa27a$lc4$1@nnrp1.dejanews.com>
I volunteered to code the employment application of the city in which I live
in perl. For some reason, only the first part of the script is appearing in
my output file. I have included the full text of the script. The script can
be viewed as well at http://gryphon.csus.com/~roddy/hr.cgi. The plan is to
output the data entered into the script into a way which will be read by a MS
access database. If there is a better way to link the output from this
script with a MS Access database PLEASE let me know. After the 14th entry
field the output perl stopped writing to the output file. Here is a copy of
the file I get when I fill out the entire script with sample data:
1. gardener
2. 302111
3. James Martin Smith
4. 455 West Lane, Santa Barbara, CA, 97038
5. Business Phone: (789)455-7895
Home Phone: (789)459-8797
Social Security Number: 153498798
6. No
7. No
8. Yes
9. Yes
10. Yes
7897798
09/00
C
11. Spanish Yes Yes Yes
French Yes Yes
12. sample degree 7897879 Harvard 09/01
Math Ph.d 487944 Stanford 05/05
13. High School Diploma: on G.E.D. Certificate: California High School
Proficiency Certificate:
High Grade Completed: 12
College: 4
Post Graduate: 10 years
A. Harvard gardening 9/90-9/97 1000 hours
B. Stanford math 9/97-10/05 4500 hours
C. from - to
Proficient Equipment: hoe,spade,hose,shovel
14. Palo Alto 9/98-10/02 100,000 Jack Smith 551-789-7076 I mowed the lawn and
grew vegetables 30
Cupertino 10/02-10/03 120000 Ron Jacobs 564-585-5959
from - to
from - to
#!/usr/local/bin/perl
use CGI;
$query = new CGI;
$submit1 = $query->param('submit1');
$position1 = $query->param('position1');
$positionNo = $query->param('positionNo');
$name = $query->param('name');
$address = $query->param('address');
$business = $query->param('business');
$home = $query->param('home');
$social = $query->param('social');
$retirement = $query->param('retirement');
$veteran = $query->param('veteran');
$convictions = $query->param('convictions');
$citation = $query->param('citation');
$explaination = $query->param('explaination');
$license = $query->param('license');
$driverNo = $query->param('driverNo');
$expDate = $query->param('expDate');
$class = $query->param('class');
$language1 = $query->param('language1');
$understand1 = $query->param('understand1');
$speak1 = $query->param('speak1');
$write1 = $query->param('write1');
$language2 = $query->param('language2');
$understand2 = $query->param('understand2');
$speak2 = $query->param('speak2');
$cert1 = $query->param('cert1');
$numcer1 = $query->param('numcer1');
$issue1 = $query->param('issue1');
$exp1 = $query->param('exp1');
$cert2 = $query->param('cert2');
$numcer2 = $query->param('numcer2');
$issue2 = $query->param('issue2');
$exp2 = $query->param('exp2');
$highschool = $query->param('highschool');
$ged = $query->param('ged');
$proficiency = $query->param('proficiency');
$gradelevel = $query->param('gradelevel');
$college = $query->param('college');
$univ1 = $query->param('univ1');
$major1 = $query->param('major1');
$dates1 = $query->param('dates1');
$degree = $query->param('degree');
$univ2 = $query->param('univ2');
$major2 = $query->param('major2');
$dates2 = $query->param('dates2');
$degree2 = $query->param('degree2');
$univ3 = $query->param('univ3');
$major3 = $query->param('major3');
$dates3 = $query->param('dates3');
$gradwork =$query->param('gradwork');
$degree3 = $query->param('degree3');
$equipment = $query->param('equipment');
$employer1 = $query->param('employer1');
$employer2 = $query->param('employer2');
$employer3 = $query->param('employer3');
$employer4 = $query->param('employer4');
$employed1 = $query->param('employed1');
$employed2 = $query->param('employed2');
$employed3 = $query->param('employed3');
$employed4 = $query->param('employed4');
$salary1 = $query->param('salary1');
$salary2 = $query->param('salary2');
$salary3 = $query->param('salary3');
$salary4 = $query->param('salary4');
$supervisor1 = $query->param('supervisor1');
$supervisor2 = $query->param('supervisor2');
$supervisor3 = $query->param('supervisor3');
$supervisor4 = $query->param('supervisor4');
$months1 = $query->param('months1');
$months2 = $query->param('months2');
$months3 = $query->param('months3');
$months4 = $query->param('months4');
$duties1 = $query->param('duties1');
$duties2 = $query->param('duties2');
$duties3 = $query->param('duties3');
$duties4 = $query->param('duties4');
$reason1 = $query->param('reason1');
$reason2 = $query->param('reason2');
$reason3 = $query->param('reason3');
$reason4 = $query->param('reason4');
if (($name) && ($address)) {
open (OUT,">req1");
print OUT "
1. $position1
2. $positionNo
3. $name
4. $address
5. Business Phone: $business
Home Phone: $home
Social Security Number: $social
6. $retirement
7. $veteran
8. $convictions
9. $citation
10. $license
$driverNo
$expDate
$class
11. $language1 $understand1 $speak1 $write1
$language2 $understand2 $speak2 $write2
12. $cert1 $numcer1 $issue1 $exp1
$cert2 $numcer2 $issue2 $exp2
13. High School Diploma: $highschool G.E.D. Certificate: $ged California High
School Proficiency Certificate: $proficiency
High Grade Completed: $gradelevel
College: $college
Post Graduate: $gradwork years
A. $univ1 $major1 $dates1 $degree
B. $univ2 $major2 $dates2 $degree2
C. $univ3 $major3 $dates3 $degree3
Proficient Equipment: $equipment
14. $employer1 $employed1 $salary1 $supervisor1 $duties1 $reason1 $months1
$employer2 $employed2 $salary2 $supervisor2 $duties2 $reason2 $months2
$employer3 $employed3 $salary3 $supervisor3 $duties3 $reason3 $months3
$employer4 $employed4 $salary4 $supervisor4 $duties4 $reason4 $months4";
print $query->header; print $query->start_html(-title=>'Employment
Application', author=>'roddy@svpal.org', -meta=>{'keywords'=>'Employment
Application', 'copyright'=>'copyright 1998 City of Redwood City'}); print
"Thanks for submitting your application"; print $query->end_html; } else {
print $query->header; print $query->start_html(-title=>'Employment
Application', author=>'roddy@svpal.org', -meta=>{'keywords'=>'Employment
Application', 'copyright'=>'copyright 1998 City of Redwood City'}); print
$query->h3($query->center("Employment Application")); print "<CENTER><IMG
SRC\=\"rc.jpg\" ALT\=\"\[logo\]\"></CENTER>"; print "<CENTER>Dept of Human
Services<BR>City of Redwood City<BR>1017 Middlefield Road<BR>Redwood City, CA
94063"; print "</CENTER><BR><BR>"; print $query->startform; print "Position
you are applying for:  (Job title on employment bulletin)"; print " 
1. @{[$query->textfield(-name=>'position1', -size=>20,
-maxlength=>40)]}<BR>"; print "2. Position No.
@{[$query->textfield(-name=>'positionNo', -size=>10, -maxlength=>10)]}<BR>";
print "3. Name (First, Middle, Last) @{[$query->textfield(-name=>'name',
-size=>40, -maxlength=>80)]}<BR>"; print "4. Address (Street, City, State,
Zip) @{[$query->textfield(-name=>'address', -size=>40,
-maxlength=>80)]}<BR>"; print "5. Business Phone
@{[$query->textfield(-name=>'business', -size=>13,
-maxlength=>13,-default=>'( )')]}<BR><HR>"; print "Home Phone
@{[$query->textfield(-name=>'home', -size=>13, -maxlength=>13,-default=>'(
)')]}"; print "  Social Security No.
@{[$query->textfield(-name=>'social', -size=>12, -maxlength=>12)]}<BR><HR>";
print "6. Are you currently receiving a pension from the Public Employees'
Retirement System? @{[$query->radio_group(-name=>'retirement',
-values=>['Yes','No'], -default=>'No')]}<BR><HR>"; print "7. Do you claim
veterans service preference? If Yes, mail a copy of your DD14 Form to the
City of Redwood City? @{[$query->radio_group(-name=>'veteran',
-values=>['Yes','No'], -default=>'No')]}<BR><HR>"; print "8. Have you ever
been convicted of a felony or misdemeanor or been on parole or probation?";
print $query->radio_group(-name=>'convictions', -values=>['Yes','No'],
-default=>'No'); print "<BR>List all convictions since your 18th birthday.
In the box below, list offense, date and place of conviction, sentence, and
date of release from custody and/or probation/parole. A YES answer to this
question does not automatically bar to employment. Each case is considered
individually.<BR> @{[$query->textarea(-name=>'convictions',
-wrap=>'physical', -rows=>5, -columns=>70)]}<BR>"; print "Have you received
any vehicle citations for moving violations within the last 5 years? A YES
answer to this question is not an automatic bar to employment. Each case is
considered invidually. If YES, please explain fully in the text box below.
@{[$query->radio_group(-name=>'citation', -values=>['Yes','No'],
-default=>'No')]}<BR>"; print $query->textarea(-name=>'explaination',
-wrap=>'physical', -rows=>5, -columns=>70); print "<BR><HR>10. Do you posees
a valid California Driver's License? @{[$query->radio_group(-name=>'license',
-values=>['Yes','No'], -default=>'No')]}<BR>"; print "Driver's License Number
@{[$query->textfield(-name=>'driverNo', -size=>8, -maxlength=>8)]}"; print
"  Expiration Date @{[$query->textfield(-name=>'expDate', -size=>8,
-maxlength=>8)]}"; print "  Class @{[$query->textfield(-name=>'class',
-size=>1, -maxlength=>1)]}<BR><HR>"; print "11. Are you fluent in any
language in addition to English? If so, please specify your skills. <TABLE>
<TD>Language<TR> <TD>@{[$query->textfield(-name=>'language1', -size=>10,
-maxlength=>15)]} <TD>@{[$query->checkbox(-name=>'understand1',
-value=>'Yes', -label=>'Understand')]}
<TD>@{[$query->checkbox(-name=>'speak1', -value=>'Yes', -label=>'Speak')]}
<TD>@{[$query->checkbox(-name=>'write1', -value=>'Yes',
-label=>'Write')]}<TR> <TD>@{[$query->textfield(-name=>'language2',
-size=>10, -maxlength=>15)]} <TD>@{[$query->checkbox(-name=>'understand2',
-value=>'Yes', -label=>'Understand')]}
<TD>@{[$query->checkbox(-name=>'speak2', -value=>'Yes', -label=>'Speak')]}
<TD>@{[$query->checkbox(-name=>'write2', -value=>'Yes',
-label=>'Write')]}<TR> </TR> </TD> </TABLE><BR><HR>";
print "12. Title and number of license, certificate and other credential, if
required for this examination:
<TABLE>
<TD>Certificate or Credential
<TD>Number
<TD>Issued by
<TD>Expiration Date<TR>
<TD>@{[$query->textfield(-name=>'cert1', -size=>20, -maxlength=>25)]}
<TD>@{[$query->textfield(-name=>'numcer1', -size=>10, -maxlength=>15)]}
<TD>@{[$query->textfield(-name=>'issue1', -size=>10, -maxlength=>15)]}
<TD>@{[$query->textfield(-name=>'exp1', -size=>10, -maxlength=>15)]}<TR>
<TD>@{[$query->textfield(-name=>'cert2', -size=>20, -maxlength=>25)]}
<TD>@{[$query->textfield(-name=>'numcer2', -size=>10, -maxlength=>15)]}
<TD>@{[$query->textfield(-name=>'issue2', -size=>10, -maxlength=>15)]}
<TD>@{[$query->textfield(-name=>'exp2', -size=>10, -maxlength=>15)]}<TR>
</TR>
</TD>
</TABLE><BR><HR>";
print "13. EDUCATION: Check appropriate box if you possess one of the
following:<BR> @{[$query->checkbox(-name=>'highschool', -label=>'High School
Diploma')]} @{[$query->checkbox(-name=>'ged', -label=>'G.E.D. Certificate')]}
@{[$query->checkbox(-name=>'proficiency', -label=>'California High School
Proficiency Certificate')]}<BR> Select Highest Grade Completed
@{[$query->popup_menu(-name=>'gradelevel',
-values=>['1','2','3','4','5','6','7','8','9','10','11','12'],
-default=>'12')]} College @{[$query->popup_menu(-name=>'college',
-values=>['0','1','2','3','4'], -default=>'4')]} Post Graduate Work
@{[$query->textfield(-name=>'gradwork', -size=>2, -maxlength=>2)]}
years<BR><HR> <TABLE> <TD>Names and Addresses of College or University
<TD>Course of Study or Major <TD>Attendance Dates <TD>Degree(s),
Certificates, Units, Hours if Applicable<TR> <TD>A.
@{[$query->textfield(-name=>'univ1', -size=>20, -maxlength=>30)]}
<TD>@{[$query->textfield(-name=>'major1', -size=>10, -maxlength=>15)]}
<TD>@{[$query->textfield(-name=>'dates1', -size=>10, -maxlength=>15,
-default=>'from - to')]} <TD>@{[$query->textfield(-name=>'degree', -size=>10,
-maxlength=>15)]}<TR> <TD>B. @{[$query->textfield(-name=>'univ2', -size=>20,
-maxlength=>25)]} <TD>@{[$query->textfield(-name=>'major2', -size=>10,
-maxlength=>15)]} <TD>@{[$query->textfield(-name=>'dates2', -size=>10,
-maxlength=>15, -default=>'from - to')]}
<TD>@{[$query->textfield(-name=>'degree2', -size=>10, -maxlength=>15)]}<TR>
<TD>C. @{[$query->textfield(-name=>'univ3', -size=>20, -maxlength=>25)]}
<TD>@{[$query->textfield(-name=>'major3', -size=>10, -maxlength=>15)]}
<TD>@{[$query->textfield(-name=>'dates3', -size=>10, -maxlength=>15,
-default=>'from - to')]} <TD>@{[$query->textfield(-name=>'degree3',
-size=>10, -maxlength=>15)]}<TR> </TR> </TD> </TABLE><BR><HR>"; print
"Please list any equipment you are proficient in that pertains to this
position separated by commas:<BR> @{[$query->textfield(-name=>'equipment',
-size=>60, -maxlength=>90)]}<HR>";
print "<CENTER><H2>Employment History</CENTER></H2><FONT SIZE\=\"3\">
1. Give complete information for jobs held during the past 10 years.<BR>
2. Show your present or most recent job first.<BR>
3. Verifiable voluntary experience may be considered if job related.<BR>
4. If you were employed under another name, please indicate in \"Reason For
Leaving Section\"</FONT><BR><BR>";
print "Name and Address of Employer @{[$query->textfield(-name=>'employer1',
-size=>40, -maxlength=>80)]}<BR>
Dates Employed @{[$query->textfield(-name=>'employed1', -default=>'from - to',
-size=>20, -maxlength=>40)]}
Salary @{[$query->textfield(-name=>'salary1', -size=>10, -maxlength=>15)]}<BR>
Supervisor's Name and Phone Number @{[$query->textfield(-name=>'supervisor1',
-size=>20, -maxlength=>40)]}<BR>
Total Months @{[$query->textfield(-name=>'months1', -size=>3,
-maxlength=>4)]}<BR>
Job Title and Description of Duties<BR> @{[$query->textarea(-name=>'duties1',
-wrap=>'physical', -rows=>5, -columns=>70)]}<BR>
Reason for leaving @{[$query->textfield(-name=>'reason1', -size=>40,
-maxlength=>60)]}<BR><BR>";
print "Name and Address of Employer @{[$query->textfield(-name=>'employer2',
-size=>40, -maxlength=>80)]}<BR>
Dates Employed @{[$query->textfield(-name=>'employed2', -default=>'from - to',
-size=>20, -maxlength=>40)]}
Salary @{[$query->textfield(-name=>'salary2', -size=>10, -maxlength=>15)]}<BR>
Supervisor's Name and Phone Number @{[$query->textfield(-name=>'supervisor2',
-size=>20, -maxlength=>40)]}<BR>
Total Months @{[$query->textfield(-name=>'months2', -size=>3,
-maxlength=>4)]}<BR>
Job Title and Description of Duties<BR> @{[$query->textarea(-name=>'duties2',
-wrap=>'physical', -rows=>5, -columns=>70)]}<BR>
Reason for leaving @{[$query->textfield(-name=>'reason2', -size=>40,
-maxlength=>60)]}<BR><BR>";
print "Name and Address of Employer @{[$query->textfield(-name=>'employer3',
-size=>40, -maxlength=>80)]}<BR>
Dates Employed @{[$query->textfield(-name=>'employed3', -default=>'from - to',
-size=>20, -maxlength=>40)]}
Salary @{[$query->textfield(-name=>'salary3', -size=>10, -maxlength=>15)]}<BR>
Supervisor's Name and Phone Number @{[$query->textfield(-name=>'supervisor3',
-size=>20, -maxlength=>40)]}<BR>
Total Months @{[$query->textfield(-name=>'months3', -size=>3,
-maxlength=>4)]}<BR>
Job Title and Description of Duties<BR> @{[$query->textarea(-name=>'duties3',
-wrap=>'physical', -rows=>5, -columns=>70)]}<BR>
Reason for leaving @{[$query->textfield(-name=>'reason3', -size=>40,
-maxlength=>60)]}<BR><BR>";
print "Name and Address of Employer @{[$query->textfield(-name=>'employer4',
-size=>40, -maxlength=>80)]}<BR>
Dates Employed @{[$query->textfield(-name=>'employed4', -default=>'from - to',
-size=>20, -maxlength=>40)]}
Salary @{[$query->textfield(-name=>'salary4', -size=>10, -maxlength=>15)]}<BR>
Supervisor's Name and Phone Number @{[$query->textfield(-name=>'supervisor4',
-size=>20, -maxlength=>40)]}<BR>
Total Months @{[$query->textfield(-name=>'months4', -size=>3,
-maxlength=>4)]}<BR>
Job Title and Description of Duties<BR> @{[$query->textarea(-name=>'duties4',
-wrap=>'physical', -rows=>5, -columns=>70)]}<BR>
Reason for leaving @{[$query->textfield(-name=>'reason4', -size=>40,
-maxlength=>60)]}<BR><BR>";
print $query->submit(-name=>'submit1',-value=>'Submit Form');
print $query->reset;
print $query->endform;
print $query->end_html;
}
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: Sat, 29 Aug 1998 21:56:13 GMT
From: Gellyfish@btinternet.com (Jonathan Stowe)
Subject: Re: How do I compare the contents of two files...
Message-Id: <35e86ad1.39180583@news.btinternet.com>
On Fri, 28 Aug 1998 20:50:45 -0500, Andrew Whitcroft wrote :
>Hi All --
>
>I am the sys admin for 52 Unix boxes, and I needed a better way to track
>filesystems which were getting too full. So, I have a script to accumulate
>the output from a "df -lk" command, sort it, and display a formatted results.
>
>Now I want to take it one step further, I want to compare the last time file
>to the current results, and have the script show me the differances that meet
>the following parameters: the filesystem is > 79% full, and has changed more
>than 10% from the last time I polled the machines.
>
>I am still kind of new to Perl programming, and what better way to learn than
>having a project to work on. But, this little problem has me stumped, so I am
>hoping you can get me pointed in the right direction.
>
I had a script that I hacked together in response to a previous post
but found that the version of "df" I have now has a different output
and thus script broken. I can't be bothered to fix it right now but
basically the answer to your problem is to write the results of your
"df" out to a (probably comma delimited) file - keyed say on mount
point and then at a subsequent run to read back in that file and
compare that with the current results.
Actually I did the fix and here is the script:
#!perl
open(DF,"/bin/df -k |") || die "Cant execute df - ";
while(<DF>)
{
next if (/mounted/i);
my ($drive,$filesystem,$blocks,$used,$avail,$capacity,$mountpoint)
= split(' ',$_);
$capacity =~ s/%//g; # my df puts a percent sign after capacity
$left = 100 - $capacity;
$avail = $avail / 1024 ;
print "The filesystem $filesystem mounted on $mountpoint ";
print "has $avail MB free ($left % remaining)\n";
}
close(DF) || die "Error in df";
__END__
But that wasn't the bit you wanted was it?
Oh and by the way GNU df dont have an -l option.
/J\
--
Jonathan Stowe
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
------------------------------
Date: Sat, 29 Aug 1998 21:56:02 GMT
From: Gellyfish@btinternet.com (Jonathan Stowe)
Subject: Re: How do I take out tags?
Message-Id: <35e8486d.31368216@news.btinternet.com>
On Fri, 28 Aug 1998 09:43:12 -0500, Chocolate wrote :
>How do I remove tags from a file? I want to remove all html tags from a
>html doc that I have. How would I do this?
There is an example regexp in perlfaq9 and also a discussion of why
this approach might not be the best to take.
> Also, is there a program out
>that will convert word docs to html?
er Word ?
>
> _/_/_/ _/ _/
> _/ _/ _/ _/
> Web Page Designs _/_/_/ _/_/_/ _/_/_/ _/_/_/ _/_/_/ _/_/_/
> Small Programs _/ _/ / _/ _/ _/ _/ _/ _/ _/ _/ poohba@io.com
>www.io.com/~poohba _/ _/_/_/ _/_/_/ _/ _/ _/_/_/ _/_/\_ (919)506-5883
>
Thats a lot of effort for a sig I can't even read matey.
/J\
--
Jonathan Stowe
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
------------------------------
Date: Sat, 29 Aug 1998 21:56:20 GMT
From: Gellyfish@btinternet.com (Jonathan Stowe)
Subject: Re: How to extract first letter in string?
Message-Id: <35e875d9.41882454@news.btinternet.com>
On Sat, 29 Aug 1998 04:11:56 -0700, Thomas Albech wrote :
>Hi there,
>
>Are there anyone, who can tell me how to extract the first letter in a
>string..
>
C'mon guy that aint even taxing to my seagulls:
#!perl
$string = "This is the first character";
$string =~ /(^.{1})/;
print $1,"\n";
$char = substr($string,0,1);
print $char,"\n";
@char = split(//,$string);
print @char[0],"\n";
__END__
And thats before deploying pack and sundry other little niceties.
We'll let the benchmark boys decide which one of these is most
efficient.
Next time read the FAQ its much more fun than getting flamed up here.
/J\
--
Jonathan Stowe
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
------------------------------
Date: Fri, 28 Aug 1998 09:23:45 -0500
From: Tk Soh <r28629@email.sps.mot.com>
Subject: Re: How to extract first letter in string?
Message-Id: <35E6BD70.FF89214E@email.sps.mot.com>
Daniel Stridhammar wrote:
>
> > Are there anyone, who can tell me how to extract the first letter in a
> > string..
>
> Use:
>
> $firstLetter = substr($string, 1, 1);
>
> /Daniel
If you haven't messed with $[ (have you?), I think it should be:
$firstLetter = substr($string, 0, 1);
More info on:
perldoc -f substr
-TK-
------------------------------
Date: Sat, 29 Aug 1998 22:25:48 GMT
From: Rick Delaney <rick.delaney@shaw.wave.ca>
Subject: Re: How to extract first letter in string?
Message-Id: <35E8816A.1313B990@shaw.wave.ca>
Jonathan Stowe wrote:
>
> #!perl
>
> $string = "This is the first character";
>
> $string =~ /(^.{1})/;
>
> print $1,"\n";
>
> $char = substr($string,0,1);
>
> print $char,"\n";
>
> @char = split(//,$string);
>
> print @char[0],"\n";
>
You mean $char[0], of course.
> __END__
>
> And thats before deploying pack and sundry other little niceties.
>
> We'll let the benchmark boys decide which one of these is most
> efficient.
>
I won't do all of them because we all know substr will win. Or will it
with 5.005? (I don't have it yet.) I was curious about the first one,
though.
use Benchmark;
timethese(1000000,
{
SPURIOUS => sub { "This is the first character" =~ /(^.{1})/ },
NORMAL => sub { "This is the first character" =~ /^(.)/ },
}
)
__END__
Benchmark: timing 1000000 iterations of NORMAL, SPURIOUS...
NORMAL: 14 secs (15.24 usr 0.00 sys = 15.24 cpu)
SPURIOUS: 18 secs (17.62 usr 0.00 sys = 17.62 cpu)
Probably not as meaningful as the extra second to type it.
--
Rick Delaney
rick.delaney@shaw.wave.ca
------------------------------
Date: Sat, 29 Aug 1998 21:55:53 GMT
From: Gellyfish@btinternet.com (Jonathan Stowe)
Subject: Re: HOWTO: create HTML tree of Perl documentation for Perl-5.004
Message-Id: <35e83c60.28326085@news.btinternet.com>
On Fri, 28 Aug 1998 12:31:56 +0100, Kevin Broadey wrote :
<snip>
>
>What I'd like to do is create an HTML tree in a different directory to the
>/usr/local/lib/perl5 tree which contains all the documentation from the
>standard distribution PLUS all the documentation for the extras I've
>installed in the site-perl directory. It needs to be in a different
>directory so I can put it under my web servers DOCROOT directory.
>
>Anyone got a handy script to do this?
>
I havent but the distribution does come with a script called
installhtml which is well documented (perldoc installhtml in the
distribution directory) and is designed to do exactly that. you might
have to do a little fiddling with the options to get everything right
but it does work.
/J\
--
Jonathan Stowe
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
------------------------------
Date: 29 Aug 1998 19:55:46 -0700
From: Russ Allbery <rra@stanford.edu>
Subject: Re: Imagine... a non-greedy world!
Message-Id: <m33eafi3f1.fsf@windlord.Stanford.EDU>
Mee <mee@mine.com> writes:
> If and when you get there, we will all know it -- your posts will then
> be about the issues raised rather than personalities.
Would you mind actually raising an issue so that we can talk about it?
The only thing you've stated so far is that you don't like greedy regexes.
That's not an issue; it's an opinion. If you would be willing to describe
the world the way you want to see it, I'd be interested to hear it, but
right now all you appear to be doing is insulting people.
--
#!/usr/bin/perl -- Russ Allbery, Just Another Perl Hacker
$^=q;@!>~|{>krw>yn{u<$$<[~||<Juukn{=,<S~|}<Jwx}qn{<Yn{u<Qjltn{ > 0gFzD gD,
00Fz, 0,,( 0hF 0g)F/=, 0> "L$/GEIFewe{,$/ 0C$~> "@=,m,|,(e 0.), 01,pnn,y{
rw} >;,$0=q,$,,($_=$^)=~y,$/ C-~><@=\n\r,-~$:-u/ #y,d,s,(\$.),$1,gee,print
------------------------------
Date: Sat, 29 Aug 1998 21:56:07 GMT
From: Gellyfish@btinternet.com (Jonathan Stowe)
Subject: Re: Need Help with Perl Script
Message-Id: <35e85c27.35833948@news.btinternet.com>
On Fri, 28 Aug 1998 20:40:54 GMT, Justin Baugh wrote :
>Hi there,
>
> I have been writing a online registration script for
>Genericon, a small college-based sci-fi and anime convention here at
>Rensselaer. I was wondering if someone could help me with it, I've
>been having terrible problems. Being somewhat new to Perl, I can't be
>sure if I've made some terrible error somewhere or I'm just not seeing
>something, but it will NOT work on a webserver - I always get the 500
>Server Error, and the Apache logs say "Premature end of script
>headers" - but I swear I'm sending out the headers a-ok. When I run
>the script from command line it works okay, in the sense that the CGI
>libs say "Offline mode - enter pairs (name=value)".
>
I was about to write "strange - it doesnt even compile for me." but
that was due to the way my newsreader saved the message.
However I think that you should be a bit more careful about the way
you report the errors regarding the inability to open the log files.
If put a :
use CGI::Carp qw(fatalsToBrowser);
you will get a message to the browser when you die (however I have
been experiencing some wierdness with this under certain
circumstances) or you could eschew "die" altogether and output some
valid stuff where you would have died. You have to bear in mind that
generally speaking your output is not output until the end of the
script unless you set $| so if you do a die all the server get is an
invalid error message (invalid as an HTTP header that is).
You could do something like:
open (VENDLOG, $vendorlog) || { print "Content-type: text/html\n\n;
print "<HTML><BODY>Your error mesage here</BODY></HTML>"; exit;}
if you must but that is entirely sub-optimal in terms of user
presentation and debugging useability. I would opt for recovering
from this situation and logging it somewhere for future reference with
maybe a murmur to the user about what hasnt happened - after all this
is *your* fault why trouble the user with it.
>Anyways, here is the script. If anyone could possibly help please
>drop me a line at baughj@rpi.edu. Thanks in advance.
>
<snip enormous code with shed load of comments>
If you post code please try to cut it down to the smallest subset that
demonstrates what the problem is. All that commented out stuff began
to piss me off.
Have fun
/J\
--
Jonathan Stowe
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
------------------------------
Date: Sat, 29 Aug 1998 16:53:10 +0100
From: simple@nanospace.com
Subject: Re: Q: remain order, hash
Message-Id: <simple-2908981653100001@tc1-dialin17.nanospace.com>
Given the following:
$ages = (
'andrea' => '29',
'bob' => '25',
'david' => '35'
);
if the names are in alphabetical order, you could sort the keys and then print.
foreach $name (sort (keys (%ages)) {
print "name = $name, age = $ages{$name};
}
In article <6s8ho7$uq6$1@nnrp1.dejanews.com>, dwiesel@my-dejanews.com wrote:
> Hi,
>
> I have a file with the following content
>
> ---------AFile.txt----------
> 29:andrea
> 25:bob
> 35:david
> ----------------------------
>
> I wonder how I can remain the order of the persons in the file when I put them
> in a hash. I wan't to be able to go thru the hash and for each person print
> his/her name and age in the same order that were in the file.
>
> // Daniel
>
> -----== Posted via Deja News, The Leader in Internet Discussion ==-----
> http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: Sat, 29 Aug 1998 16:35:20 -0500
From: Paul Phillips <paul@partitura.com>
Subject: running as setuid
Message-Id: <35E87418.F2E151E2@partitura.com>
I have seen various references in this group to running a perl program
as setuid. I'm afraid that I need some help understanding what this
means.
I have looked at my beginning Unix book, and it doesn't explain it. My
advanced unix book talks about the subject as if I already know what it
is. The llama book doesn't mention it. The man page assumes I already
know what it means... you get the picture.
I know of course that the real user of a program is the one who created
it. I also know how to use chmod to modify permissions. How would I
use chmod to change the effective user of a program? Why would I want
to?
I'd be grateful for your assistance.
Paul Phillips
------------------------------
Date: Sat, 29 Aug 1998 17:51:01 -0400
From: Bill 'Sneex' Jones <sneaker@sneex.fccj.org>
Subject: Re: running as setuid
Message-Id: <35E877C5.334D7FD0@sneex.fccj.org>
Paul Phillips wrote:
>
> I know of course that the real user of a program is the one who created
> it. I also know how to use chmod to modify permissions. How would I
> use chmod to change the effective user of a program? Why would I want
> to?
The real user and effective user are not the same.
See the permissions for passwd program.
The root may own it, some one else may have written it, but
you, a regular user may run it.
If it is setuid to root, then you are effectively root
when you run it.
HTH,
-Sneex-
__________________________________________________________________
Bill Jones | FCCJ Webmaster | Murphy's Law of Research:
Enough research will tend to support your theory.
------------------------------
Date: Sat, 29 Aug 1998 21:55:55 GMT
From: Gellyfish@btinternet.com (Jonathan Stowe)
Subject: Re: Setting the ENVironment in perl (HP-UX 10.20)?
Message-Id: <35e83de6.28673431@news.btinternet.com>
On Fri, 28 Aug 1998 12:33:53 GMT, Kevin Hawley wrote :
>I need to use some environment variables that are defined in a text file.
>This file is shared by
>mutiple shell scripts, I include the file by using:
>. /path/to/env_file
>inside my shell scripts. I there a similar method I can use from inside my
>perl script to set the environment?
>
>If possible I do not want to "parse" the file and set %ENV, and I would
>like to avoid running a shell script, sourcing the file and then calling
>the perl script.
>
I'm afraid you're going to have to parse the file buddy. Now this may
not be as difficult as it seems depending on what you have in the
file. If you have a file that looks like this:
SOME_ENV=blah
SOME_MORE_ENV=woof
etc
then you could get away with
open(ENVFILE,"/path/to/envfile") || die "Blah - $!";
while(<ENVFILE>)
{
chomp;
my ($variable,$value) = split /=/, $_ ;
$ENV{$variable} = $value;
}
close ENVFILE;
__END__
But of course things are seldom as simple as that are they ? In real
life you will probably have to deal with variable substitution and
various other peculiarities ( I tend to put "export VARNAME" on the
same line as the assignment with a semicolon if I need to do that ).
But in lieu of an example I will leave that as an exercise to the
reader.
/J\
--
Jonathan Stowe
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
------------------------------
Date: Sat, 29 Aug 1998 21:55:51 GMT
From: Gellyfish@btinternet.com (Jonathan Stowe)
Subject: Re: Telnet daemon
Message-Id: <35e8359d.26595508@news.btinternet.com>
[posted & mailed to original poster]
On Fri, 28 Aug 1998 18:56:46 +0800, Sachin Hamirwasia wrote :
>Hi All,
>
>I want to have in my Apache server (I don't have full server access, only
>CGI) a facility to allow people to use their telnet programs (eg. telnet.exe
>in DOS/Win) to log into a discussion group and post/read messages. I need
>help in making this script in PERL.
>
I'm afraid that, if I understand you correctly, things just dont work
like that. If you attempt what you propose with a CGI then your user
will have to telnet to port 80 on your server and then type
GET /cgi-bin/myscript.pl<enter><enter>
and then they will be thrown a bunch of stuff normally only seen by a
browser and the connection will be terminated. Game over.
To achieve what you want will almost certainly require the writing of
a specialized server daemon that handles the login, connection and
user dialogue stuff - some of the stuff at the backend will be pretty
much the same as that which you would do with a CGI with alterations
to cope with a connection oriented protocol as opposed to a
connectionless one such as HTTP ( I know thats really a misuse of
those terms I just cant think of/dont know an appropriate terminology)
There are some examples of server type programs in the perlfaq[89] and
also in the eg/ directory of the Perl distribution. There is also a
brief discussion of this matter in chapter 6 of "Programming perl".
If you are going to go down this route it might be a good idea to read
a general text on network programming of which there are a myriad.
But if you only have CGI via an ISP then all bets are off of course.
>Please help me by throwing some light into this issue. Please reply by
>email.
Just this once you understand - I'm in a good mood having been
discharged from the care of the hospital yesterday after eleven months
- but of course you will be coming back here wont you ? ;-}
>
>Thanks ( in advance) for any help.
>
Nay problem
/J\
--
Jonathan Stowe
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
------------------------------
Date: Sat, 29 Aug 1998 12:51:32 GMT
From: "vip" <vip@takas.lt>
Subject: Using <!--something-->
Message-Id: <oPSF1.113$gs5.983792@c01read02.service.talkway.com>
Hello!!!
I'm working on a guestbook script. And I have one problem:
I need the latest posts appear at the top of the page, not at the
bottom. So
I need your help now!
Here is the example of what I want:
source of file guestbook.html has 100 lines. Line 15 is:
<!--something-->
The perl script must open the html file, search for line
<!--something-->
and replace it with this:
-------------begins here---------------
<!--something-->\n
<center><h1>Hello!</h1></center><br>\n
<h3>My name is Joe. I come from USA.</h3><br>\n
<hr>\n
-------------ends up here--------------
So that next time new post would appear instead of the new added
<!--something-->... I hope you understand what I mean by this? Or do you
have any other ideas on how to make latest posts appear below the header
image and text, not at the bottom of page?
Thanks a lot!
Vytis.
Surf Usenet at home, on the road, and by email -- always at Talkway.
http://www.talkway.com
------------------------------
Date: Sat, 29 Aug 1998 21:56:06 GMT
From: Gellyfish@btinternet.com (Jonathan Stowe)
Subject: Re: what to do about syslog on win32
Message-Id: <35e856a7.35010677@news.btinternet.com>
On Fri, 28 Aug 1998 12:58:29 -0700, Roger Reynolds wrote :
>I'm trying to use some modules, pRPC for one, which in turn try to use the
>Syslog
>module, which is of course not available in win32. So, what to do...
>I viciously hacked sys/Syslog.pm, and removed the guts of just about all of
>the methods defined, and am just printing messages to STDERR.
>
>This allows the pRPC module to load and run (hey I am able to use
>DBI:Proxy:mSQL from win32 client to solaris server, and do real queries !),
>but I'm wondering if there is some better version of Syslog for win32, or
>some
>other general approach to working around such issues that I have missed.
>
I believe that there is a Win32::* module that allows you to write to
the Event Log. Alternatively if you have a unix server running
syslogd you may be able to write to that over a socket connection.
Sorry I can't be more specific but this is saturday after all.
/J\
--
Jonathan Stowe
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
------------------------------
Date: Sat, 29 Aug 1998 21:55:57 GMT
From: Gellyfish@btinternet.com (Jonathan Stowe)
Subject: Re: what's wrong with this statement? More explanation. Sorry, I know it's dull but I need help.
Message-Id: <35e841ce.29673066@news.btinternet.com>
On Sat, 29 Aug 1998 09:27:44 +0100, <@thefree.net> wrote :
>Hi,
>
>I know my last explanation was really naff, so may I explain more.
>
>I have written a quiz in Perl. The script works well untill I start using
>complicated HTML. Now it gives an "internal server error". I don't think
>that I have access to my error logs.
>
>One of my ideas was that I was not using \ infront of all of the charicters
>that need it. Unfortnatly, I don't know what charicters need it, there is no
>table in any of my books.
>
If you use a here document like:
print <<EEK;
<your stuff here>
EEK
you wont need to use the escaping. Or of course there is generalized
quoting (i.e qq|<your stuff here| ) as well but you probably want to
use a here document - that way you can lay out your HTML (or whatever)
nicely so it is actually readable.
/J\
--
Jonathan Stowe
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
------------------------------
Date: Sat, 29 Aug 1998 21:56:04 GMT
From: Gellyfish@btinternet.com (Jonathan Stowe)
Subject: Re: Windows95, Perl, PWS (IIS)
Message-Id: <35e85193.33710438@news.btinternet.com>
On Fri, 28 Aug 1998 17:17:59 GMT, Angel Leyva wrote :
>Can someone please point me to any article at any location that
>explains how to setup Perl to work for cgi on a windows 95 machine
>running Personal Web Server.
>
>I want to develop here and later upload the code to an NT4 Server that
>is already setup to run perl.
>
>I have Article ID: Q150629 (Configuring and Testing PERL Scripts with
>IIS, but am not sure if windows95 and PWS is configured the same way.
>
Yes. PWS is basically a cut down version of IIS the most noticeable
abscence being the documentation - but if you look at the
documentation for IIS you will find how to setup the correct registry
entries for the Script Map. However this is not really a perl
question at all - you would be better served asking at
comp.infosystems.www.servers.ms-windows or its FAQ (if FAQ there be)
if you need further help.
/J\
--
Jonathan Stowe
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
------------------------------
Date: Sat, 29 Aug 1998 23:50:30 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: Y2K Date Support
Message-Id: <at0G1.56$Ts1.128288@client.news.psi.net>
Patrick Timmins (ptimmins@netserv.unmc.edu) wrote on MDCCCXXIII September
MCMXCIII in <URL: news:6s77gq$e08$1@nnrp1.dejanews.com>:
++ In article <6s6qgm$2g1$4@client3.news.psi.net>,
++ abigail@fnx.com wrote:
++ > Patrick Timmins (ptimmins@netserv.unmc.edu) wrote on MDCCCXXIII September
++ > MCMXCIII in <URL: news:6s6h28$h2p$1@nnrp1.dejanews.com>:
++ > ++
++ > ++ How is it a problem with time_t (not that I am at all familiar with
++ time_t)?
++ > ++ On a 32 bit system in early 2038, the number of seconds since Jan 1, 1970
++ > ++ will reach 2**31. A 32 bit CPU, bus, etc will not be able to work with
++ > ++ anything larger. How is this a software problem, as opposed to a hardware
++ > ++ problem?
++ >
++ > Hmmm. Have you ever worked with a string containing more than 4 characters?
++ > Did it fit on the bus?
++ [snip]
++
++ byte by byte, yes
And, which magical properties of time prevent it from being put on the
bus 32 bits by 32 bits?
Abigail
--
perl -we '$_ = q ;4a75737420616e6f74686572205065726c204861636b65720as;;
for (s;s;s;s;s;s;s;s;s;s;s;s)
{s;(..)s?;qq qprint chr 0x$1 and \161 ssq;excess;}'
------------------------------
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 3586
**************************************
