[12019] in Perl-Users-Digest
Perl-Users Digest, Issue: 5619 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon May 10 14:07:20 1999
Date: Mon, 10 May 99 11:00:33 -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, 10 May 1999 Volume: 8 Number: 5619
Today's topics:
"Not enough space" error on command output pipe matt@matt.com
boot_Curses problem on HP-UX <vinger@ford.com>
Re: control-character vars... (Andrew Allen)
Crypt::DES/IDEA usage question <smaring@gte-es.com>
Re: Detecting screen resolution... (Andrew Allen)
Re: e-Mail to SMS perl script <mark@RemoveThismtwells.demonRemove.co.uk>
Re: email attachment <david@icon-design.com>
How much RAM for Perl from CGI??? <edatwork@REMSPAMinternethut.com>
Re: How much RAM for Perl from CGI??? matt@matt.com
Re: How to keep travelled path in hash ? (Michel Dalle)
How to tie hash to file <jv25@andrew.cmu.edu>
how to write the function that can change values of Var (Ryan Ngi)
Re: how to write the function that can change values of (Greg Bacon)
Re: how to write the function that can change values of (Larry Rosler)
Re: Learning to use modules <aqumsieh@matrox.com>
Re: local vs. my <aqumsieh@matrox.com>
Re: Mind boggling: Unmatched curly brackets worked <aqumsieh@matrox.com>
PERL Searching Strings <mgibson@newbridge.com>
Re: readdir sorted by modify date? (Larry Rosler)
Regular Expression Help <grichard@uci.edu>
Searching a directory for certain HTML files. <donsimon@bellsouth.net>
Re: Stupid FAQ question of the (day? month? year?) <aqumsieh@matrox.com>
Re: Stupid FAQ question of the (day? month? year?) <tchrist@mox.perl.com>
Re: unos problemitas pricerbumanto@my-dejanews.com
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 10 May 1999 16:28:19 GMT
From: matt@matt.com
Subject: "Not enough space" error on command output pipe
Message-Id: <37370811.601720062@news.infonent.com>
Hello
I'm running a program which does the following:
loop 1:
execute a command on a router, pipe output to filehandle
parse through about 120,000 lines of output
grab pertinent information and store it in hash1
loop 2:
execute a different command on a router, pipe output to filehandle
parse through about 60,000 lines of output
grab pertinent information, look for matching key in hash1, grab value
from hash1 and increment counter in hash2
hash1 ends up having about 60,000 members. Granted, this gulps a lot
of memory, but the system is fine. Why then would I get a "Not enough
space" error when I try to run command2?
Thanks
--matt hempel
------------------------------
Date: Mon, 10 May 1999 12:50:25 -0400
From: Slav Inger <vinger@ford.com>
Subject: boot_Curses problem on HP-UX
Message-Id: <37370E51.E9526C68@ford.com>
Hello,
We're having problems compiling Curses 1.02 perl module on HP-UX 11.
This package comes with a native library, which Perl bootstraps upon
program execution. It builds fine, but Perl 5 always complains about
`boot_Curses' symbol missing from Curses.sl library when the script is
actually executed (Perl fails on 'use Curses' call). I had that happen
under Solaris, but I was using Perl 4 at that point, so I recompiled
under Perl 5, and the problem disappeared. That's the only context in
which I've seen that error message appear in. Perl version used during
build is 5.005_02.
The message is:
Can't find 'boot_Curses' symbol in ./Curses.sl
Execution of ./my_script.pl aborted due to compilation errors.
I'm wondering if anyone has come accross similar problems.
Thanks.
- Slav Inger.
- vinger@ford.com
--
Ford Motor Co., FSIC QPL
UNIX Server Group
Phone: 1-313-594-0216
E-mail: vinger@ford.com
------------------------------
Date: 10 May 1999 16:36:47 GMT
From: ada@fc.hp.com (Andrew Allen)
Subject: Re: control-character vars...
Message-Id: <7h71uv$ebn$2@fcnews.fc.hp.com>
Juho Cederstrom (cederstrom@kolumbus.REMOVE_THIS.fi) wrote:
: On 8 May 1999 00:06:50 GMT,
: Andrew Allen <ada@fc.hp.com> wrote:
: > perl5 -e '$a="^X"; $b="\cX"; print "$$a-$$b\n"'
: > produces
: > -perl5
: I think that $$a is nothing, because there's a - in front of perl5. Try
: perl5 -e '$b="\cX"; print "$$b\n"'
Exactly my point. That's what I was musing about-- the "name" of the
$^X variable is the control-X character, not "^X". I know what $^X
_means_.
Andrew
------------------------------
Date: Mon, 10 May 1999 16:31:12 GMT
From: Steve Maring <smaring@gte-es.com>
Subject: Crypt::DES/IDEA usage question
Message-Id: <373709D4.7A44966B@gte-es.com>
Is there a way to encrypt a string that is NOT exactly 8 bytes?
The following works:
use Crypt::DES;
my $key = pack("H16","1234567890ABCDEF");
my $cipher = new DES $key;
my $ciphertext = $cipher->encrypt("plaintex");
my $unpackedciphertext = unpack("H16", $ciphertext);
print "unpacked ciphertext: ".$unpackedciphertext."\n";
my $ciphertext = pack("H16", $uncipher);
my $plaintext = $cipher->decrypt($ciphertext);
print "plaintext: ".$plaintext."\n";
But it won't allow me to vary the size of the "plaintex" string. Can I
do anything other than 8 characters?
-Steve Maring
smaring@gte-es.com
Tampa, FL
------------------------------
Date: 10 May 1999 16:21:07 GMT
From: ada@fc.hp.com (Andrew Allen)
Subject: Re: Detecting screen resolution...
Message-Id: <7h711j$ebn$1@fcnews.fc.hp.com>
JB / MDO (jbdross@club-internet.fr) wrote:
: Can somenone please help me ?
: Or just give me a hint....
After four non-answers, here's an answer using Tk:
use Tk;
$mw=new MainWindow;
$h=$mw->screenheight();
$w=$mw->screenwidth();
see http://w4.lns.cornell.edu/~pvhp/ptk/doc/winfo.htm for more info.
Andrew
------------------------------
Date: Mon, 10 May 1999 18:48:23 +0100
From: "Mark Twells" <mark@RemoveThismtwells.demonRemove.co.uk>
Subject: Re: e-Mail to SMS perl script
Message-Id: <926358561.19942.0.nnrp-08.c3ad4005@news.demon.co.uk>
Kati Gdbler <katigaebler@hotmail.com> wrote in message
news:3736BD4C.598B4348@hotmail.com...
> Hello,
>
> I'm looking for some kind of e-mail to SMS perl script, that can grab
> first 160 characters, including, the senders email address, the subject
> line, and a part of the message. Then forward the content as one SMS
> message to a cellular phone. Has anyone seen such a script somewhere?
I use SMSMASTER in a system call to SMS me when a server goes down - in
other words, the send half of your requirements.
Grabbing EMAIL shouldn't be too difficult.
FWIW, the send bit is dead easy:
system "c:\\sms\\smsmast.exe -nXXXXXXX $name is dead $now";
SMS Master is at GCRSoft - SMSMaster download
<http://www.haigh1.demon.co.uk/download.html >
------------------------------
Date: Mon, 10 May 1999 17:24:09 +0100
From: "David Craig" <david@icon-design.com>
Subject: Re: email attachment
Message-Id: <APDZ2.412$T3.1074@newsr2.u-net.net>
>MIME::Lite is available from CPAN the documentation that comes with it has
Thanks for that, I found it and the documentation, I am having difficulty
extracting the module. The instructions for use I guess are on a UNIX
machine - I'm running WIN32. Do you have the module to hand that you could
mail me?
Thanks for your help
David Craig
david@icon-design.com
------------------------------
Date: Mon, 10 May 1999 12:41:54 -0400
From: Ed Eddington <edatwork@REMSPAMinternethut.com>
Subject: How much RAM for Perl from CGI???
Message-Id: <37370C52.7C2C9C42@REMSPAMinternethut.com>
How much RAM does a Perl interpretor require when called by a Perl CGI
application?
Since a A CGI process (and a perl interpreter) is started for each
browser request, system RAM requirements would depend on how many
simultaneous requests need to be handled. This is an important
consideration!
I show a Perl CGI process using around 1.3Mb of memory. Seemingly, this
size would vary based on the modules used by the CGI. But can anyone
tell me a minimum for the perl interpreter? Also, is there any way to
minimize this?
ANY help is appreciated. Thanks in advance!
Ed Eddington
edatwork@REMSPAMinternethut.com
(Please remove 'REMSPAM' from address when replying directly)
------------------------------
Date: Mon, 10 May 1999 16:39:02 GMT
From: matt@matt.com
Subject: Re: How much RAM for Perl from CGI???
Message-Id: <37370b0c.602483843@news.infonent.com>
On Mon, 10 May 1999 12:41:54 -0400, Ed Eddington
<edatwork@REMSPAMinternethut.com> wrote:
>How much RAM does a Perl interpretor require when called by a Perl CGI
>application?
>
>Since a A CGI process (and a perl interpreter) is started for each
>browser request, system RAM requirements would depend on how many
>simultaneous requests need to be handled. This is an important
>consideration!
If I remember my Bach correctly, and assuming you're using an OS with
a cacheing file system, you should be ok. All subsequent perl calls
will reference the one cached instance in memory. CPU will chew, but
you won't go to 0MB.
At least not on the perl executable.
--matt hempel
------------------------------
Date: Mon, 10 May 1999 17:35:28 GMT
From: michel.dalle@usa.net (Michel Dalle)
Subject: Re: How to keep travelled path in hash ?
Message-Id: <7h75c7$oe4$1@news.mch.sbs.de>
In article <7h3o29$68t$2@xenon.inbe.net>, michel.dalle@usa.net (Michel Dalle) wrote:
>In article <DXXY2.11022$ny.894654@typhoon-sf.snfc21.pbi.net>,
> snowhare@long-lake.nihongo.org (Benjamin Franz) wrote:
>>Oops. Posted buggy code. Here is the corrected version.
>>
>[code snipped]
>>
If I may add another comment, this shows the intermediate 'score',
but not the final 'score' for that particular path. So, although the
paths ARE sorted, they don't APPEAR to be...
For instance, there is no distinction visible between :
post1 (5000) -> post2 (2000) -> Continued...
and :
post1 (5000) -> post2 (15) -> The End !
Just a little detail,
Michel.
------------------------------
Date: Mon, 10 May 1999 13:39:42 -0400
From: "Jason Vardzel" <jv25@andrew.cmu.edu>
Subject: How to tie hash to file
Message-Id: <002401be9b0c$19e60390$01454580@digity>
I am trying to understand how to take data from a text file (or any other
type of file) and load it into a hash. I then update the hash and save it
back to the file upon completion. If the file did not previously exist I
create a new one and save a new hash to this file after it is updated.
I am trying to do this via
tie (%myHash, SomeClass, $myFile)
or something similar. As I understand it, this greatly simplifies file
updating and retrieval, etc. The problem is that I am new to all of this as
cannot figure out how to get the tie to work right. What module(s) might
you suggest to do this? As I understand it, there are additional ones
needed. Any example code would be greatly appreciated.
Thanks.
-Jason
------------------------------
Date: Tue, 04 May 1999 15:44:24 GMT
From: ryanngi@hotmail.com (Ryan Ngi)
Subject: how to write the function that can change values of Variables that is past to the fuction, see example -->
Message-Id: <354ddff8.5798326@news.inet.co.th>
Ex.
change($var1,$var2);
sub change{
(my($var1),my($var2))=@_;
...
}
I want the "change" function
to increase $var1 and $var2 and kept them to $var1,$var2 for the use
in the future....
how can we do it?
------------------------------
Date: 10 May 1999 16:35:26 GMT
From: gbacon@itsc.uah.edu (Greg Bacon)
Subject: Re: how to write the function that can change values of Variables that is past to the fuction, see example -->
Message-Id: <7h71se$2j2$2@info2.uah.edu>
In article <354ddff8.5798326@news.inet.co.th>,
ryanngi@hotmail.com (Ryan Ngi) writes:
: I want the "change" function
: to increase $var1 and $var2 and kept them to $var1,$var2 for the use
: in the future....
In CSese, you'd say that you want pass-by-reference. One of Perl's best
kept secrets is that Perl's subroutines use pass-by-reference by
default, but you have to assign to the values in @_. Witness:
[11:28] ettsn% cat try
#!/usr/bin/perl -w
use strict;
sub overwrite {
my $c = 'a';
for (@_) {
$_ = $c++; # $_ is a reference in for loops
}
}
my %hash = ( k1 => 'v1', k2 => 'v2' );
my $bar = 'bar';
my @fruit = qw( apples oranges bananas );
print "BEFORE:\n",
"\$bar = '$bar'\n",
"\@fruit = ( ", join(", ", map "'$_'", @fruit), ")\n",
"\%hash = ( ", join(", ", map "'$_'", %hash), ")\n";
overwrite $bar, @fruit, %hash;
print "\nAFTER:\n",
"\$bar = '$bar'\n",
"\@fruit = ( ", join(", ", map "'$_'", @fruit), ")\n",
"\%hash = ( ", join(", ", map "'$_'", %hash), ")\n";
[11:29] ettsn% ./try
BEFORE:
$bar = 'bar'
@fruit = ( 'apples', 'oranges', 'bananas')
%hash = ( 'k1', 'v1', 'k2', 'v2')
AFTER:
$bar = 'a'
@fruit = ( 'b', 'c', 'd')
%hash = ( 'k1', 'v1', 'k2', 'v2')
As you can see, it overwrote the scalar and the array, but not the hash.
I can't decide whether I think that's a bug or a feature. :-)
Consider this smaller and simpler example:
# if you want COBOL pain :-)
sub increment {
$_[0]++;
}
# even more COBOL pain
sub perform {
no strict 'refs';
my $sub = shift;
&{ $sub }(@_);
}
my $val = 1;
print "val = $val\n";
increment $val;
print "val = $val\n";
perform 'increment', $val;
print "val = $val\n";
Hope this helps,
Greg
--
Because you can't just make shit up and expect the computer to magically
know what you mean, Retardo!
-- mjd
------------------------------
Date: Mon, 10 May 1999 09:47:51 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: how to write the function that can change values of Variables that is past to the fuction, see example -->
Message-Id: <MPG.11a0ad8c4e84cc68989a26@nntp.hpl.hp.com>
[Posted and a courtesy copy mailed.]
In article <354ddff8.5798326@news.inet.co.th> on Tue, 04 May 1999
15:44:24 GMT, Ryan Ngi <ryanngi@hotmail.com> says...
> change($var1,$var2);
>
> sub change{
> (my($var1),my($var2))=@_;
> ...
> }
>
> I want the "change" function
> to increase $var1 and $var2 and kept them to $var1,$var2 for the use
> in the future....
Instead of copying the variables into the subroutine and changing them,
you can change them directly by modifying $_[0] and $_[1], which refer
to the actual variables named in the subroutine call.
Some programmers consider this kind of invisible side effect as poor
style. Another approach would be to return the changed values from the
subroutine and assign them back to the original variables:
($var1, $var2) = change($var1, $var2);
sub change{
my ($var1, $var2) = @_;
... # change $var1 and $var2 here ...
$var1, $var2
}
--
(Just Another Larry) Rosler
Hewlett-Packard Company
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Mon, 10 May 1999 11:11:36 -0400
From: Ala Qumsieh <aqumsieh@matrox.com>
To: "Gabe" <grichard@uci.edu>
Subject: Re: Learning to use modules
Message-Id: <x3yyaix7ye0.fsf@tigre.matrox.com>
[posted and CCed]
"Gabe" <grichard@uci.edu> writes:
> I'm new to perl and am just beginning to learn how to use modules. I have a
> question about a sample in the docs for CGI.pm.
Before you ask any questions, please refer to the 'perlmod' and
'perlmodlib' docs which should be installed on your system.
> use CGI;
>
> So this initiates the module or something like that. Where must the module
> reside?
> In the script's directory? In @INC?
Checkout the documentation for 'use' in perlfunc
% perldoc -f use
Also checkout the documentation of 'lib':
% perldoc lib
and perlfaq8:
How do I keep my own module/library directory?
> $query = new CGI;
>
> So this causes the scalar variable $query to point to the CGI module?
This create a new CGI object and assigns its reference to $query
(that depends on how the new() method is implemented in the module, of
course).
> I can now use CGI.pm's methods (like subroutines basically?) by referring to
> them $query->method()?
Yep. Do you have any prior OOP experience? I would guess not. Have a
look at the 'perltoot' documentation for more on object-oriented
programming in Perl.
> I must read the module's docs to learn about the methods and the syntax to
> use them?
Yes. Doesn't that just make sense? How else do you expect to learn how
to use a module and what methods it supports?
> my($query) = @_;
>
> This is what I really don't understand. Isn't $query's value already set?
> What is this for?
Oh my() ;-)
You are confused my friend. You see, different variables can have
different scopes. You can have completely independent variables that
have the same name, but are in different scopes. I suspect the above
statement appears at the top of a subroutine. Since the subroutine
body defines a new scope, any variables declared with my() within the
body of the subroutine will be local only to that scope and will be
independent of any variables (of possibly the same name) in other
scopes. @_ is simply a special array that holds the arguments passed
in to the subroutine. Have a look at the 'perlsyn' docs for more info
on scopes. Also, peek at perlfaq7 for the answer to this question:
What's the difference between dynamic and lexical (static) scoping?
Between local() and my()?
> Is @_ simply the array version of $_? I don't understand the camel book's
> explanation very clearly.
@_ is a special array. Have a look at 'perlvar' and 'perlsub' for more
info.
Before you venture even further into the deeper corners of Perl, I
suggest you get yourself a copy of the Llama (Learning Perl, by
Schwartz and Christiansen, published by O'Reilly) and read it from
cover to cover. It is elightening to say the least.
HTH,
Ala
------------------------------
Date: Mon, 10 May 1999 12:04:47 -0400
From: Ala Qumsieh <aqumsieh@matrox.com>
Subject: Re: local vs. my
Message-Id: <x3yu2tk9ahs.fsf@tigre.matrox.com>
Phil Voris <pvorishatesspam@earthlink.net> writes:
> You almost always want to use my. my limits scope to the sub whereas
> local replaces the global version of something for the duration of the
> scope, returning the original global value at the end of the block.
> Makes perfect sense, right? Use my.
My rule of thumb would be, use local() only for Perl's special
variable (since you can't use my() there anyway), otherwise use
my(). For example, I often need to change the value of $/ to be able to
read using a different delimiter from a file, so I do:
{ # left brace to create a new scope
local $/ = 'WHATEVER'; # change the value of the special var
process();
} # right brace ends new scope
Another rule of thumb would be to try to limit the scope of temporary
vars as much as possible to save memory.
my $input = '$0.02';
Ala
------------------------------
Date: Mon, 10 May 1999 12:14:13 -0400
From: Ala Qumsieh <aqumsieh@matrox.com>
Subject: Re: Mind boggling: Unmatched curly brackets worked
Message-Id: <x3yso949a23.fsf@tigre.matrox.com>
anna@water.ca.gov writes:
> The interpreter complained there were one too many right curly brackets. So I
> took out the "offending" right bracket. The program ran fine afterwards. But
> when I count the number of brackets, the number of left brackets do not match
> the the number of right brackets. ?!?!?! How could this be?
>
> $
> $ runSNOWDATA.0 < z.mail
> $ grep \{ runSNOWDATA.0 | wc -l
> 26
> $ grep \} runSNOWDATA.0 | wc -l
> 25
> $
Is this a Perl question?
------------------------------
Date: Mon, 10 May 1999 12:44:07 -0400
From: Mike Gibson <mgibson@newbridge.com>
Subject: PERL Searching Strings
Message-Id: <37370CD7.76CFBFF7@newbridge.com>
if(($a{'managername'} eq $in{'manager'}) || ($a{'managername'} =~
/^$in{'manager'}/i))
The above line is what I am using to search my manager name field for
the string entered in my form text box. It works fine by searching by
firstname. My managername field contains the firstname then a space and
then the lastname. Is there any way that I could change this line so
that it will search the lastname part of the managername instead of the
first part. Thanks.
------------------------------
Date: Mon, 10 May 1999 10:02:43 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: readdir sorted by modify date?
Message-Id: <MPG.11a0b1102b11211e989a27@nntp.hpl.hp.com>
[Posted and a courtesy copy mailed.]
In article <7h6v4n$8qe$1@autumn.news.rcn.net> on Mon, 10 May 1999
11:48:42 -0400, Tim Busche <tbusche@ncsi-net.com> says...
> Let me start by saying I'm admittedly a newbie to PERL.
For shame. You should have started learning it long ago. :-) At least
you were smart enough not to use that word in your 'Subject:'.
The first thing to learn is that the language is named Perl, not PERL.
See perlfaq1: 'What's the difference between "perl" and "Perl"?' If
you don't know how to find and read the FAQs, learn how now, before
doing anything else.
> I have a need to read thru a directory and do some processing on each
> filename; however, I need to read the files in "modify-date" order. I'm
> running on Windows NT using "Active Perl build 515". The applicable code as
> it is now:
>
> use FileHandle;
> my $dir="D:\\FOLDERA";
> opendir(WND,"$dir") || die "cannot open directory: $!";
> while ($name=readdir(WND)) {
> ...(some file processing here)...
> }
> closedir(WND);
>
> The program works fine, with the exception of the files not being in the
> proper order.
>
> Any ideas how to read the directory in 'date modified' order?
Of course.
use FileHandle;
I don't see where you are using anything from this module in your code.
my $dir="D:\\FOLDERA";
You will make it easier on your fingers and eyes to write this as:
my $dir = 'd:/foldera';
> opendir(WND,"$dir") || die "cannot open directory: $!";
Good, though you might want to include the directory name in the
diagnostic. Don't use quotes around simple variables.
opendir(WND, $dir) || die "cannot open directory '$dir': $!";
> while ($name=readdir(WND)) {
> ...(some file processing here)...
> }
Here you need a list sorted by the file modification date. You will
find a useful set of functions in the document perlfunc, lumped together
under '-X'. Don't forget to provide an absolute filename:
foreach my $name
(sort { -M "$dir/$a" <=> -M "$dir/$b" } readdir WND) {
This works OK for small directories, but is woefully inefficient when
there are many entries. You can find clues as to how to do it better in
the documentation for the sort() function and in perlfaq4.
You might also want to use the grep() function and the '-f' file test to
ensure that the things you are processing are really files.
> closedir(WND);
"Have the appropriate amount of fun!" -- Larry Wall
--
(Just Another Larry) Rosler
Hewlett-Packard Company
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Mon, 10 May 1999 10:28:50 -0700
From: "Gabe" <grichard@uci.edu>
Subject: Regular Expression Help
Message-Id: <7h74mg$25o@news.service.uci.edu>
I'd like to know if the following pattern matching code will do what I
expect it to, it doesn't appear to when I run it. I'm new and not so good
with regular expressions, but I'm reading the right stuff I think...
if ($type =~ /"(.+)"/) { &phrasesearch} #Will this match anything between
two quotes and assign it to $1?
elsif ($type =~ /\w+/sor) { &orsearch} #Will this match any word that has
whitespace and an "or" after it?
elsif ($type =~ /\w+/sand) { &andsearch} #Will this match any word that has
whitespace and an "and" after it?
else { &defaultsearch}
I've programmed a little search program to go through a scholarship
database. I want to add more functionality to it by allowing specific phrase
searches, and/or logic searches, and the +/- stuff they have on major search
engines. Is the above correct?
Thanks,
Gabe
------------------------------
Date: Mon, 10 May 1999 17:49:46 GMT
From: "Donny Simonton" <donsimon@bellsouth.net>
Subject: Searching a directory for certain HTML files.
Message-Id: <__EZ2.7715$Fw3.2329949@news1.mia>
I'm trying to search a directory for only certain HTML files with the name
Image in them. So for example I want to list Image1.html, but not
index.html.
I know I can use this to list all of the files.
opendir(DIR, "$serverpath/$docpath");
@htmlFiles = grep(/\.html$/,readdir(DIR));
closedir(DIR);
Any ideas on just specific file names?
------------------------------
Date: Mon, 10 May 1999 11:22:12 -0400
From: Ala Qumsieh <aqumsieh@matrox.com>
Subject: Re: Stupid FAQ question of the (day? month? year?)
Message-Id: <x3yvhe17xwb.fsf@tigre.matrox.com>
sowmaster@juicepigs.com (Bob Trieger) writes:
> >Aren't the FAQs already text files??
>
> No, they aren't. They are in POD format and this format isn't pretty if
> simply displayed on a windows machine.
Ok .. I am a pain in the butt, but POD files *ARE* text files, just
like HTML files are also text files. If they are not, then they have
to be binary, which they are not!
% grep pattern *.pod
works great for me.
Ala
------------------------------
Date: 10 May 1999 11:41:23 -0700
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: Stupid FAQ question of the (day? month? year?)
Message-Id: <37371a43@cs.colorado.edu>
[courtesy cc of this posting sent to cited author via email]
In comp.lang.perl.misc,
Ala Qumsieh <aqumsieh@matrox.com> writes:
:Ok .. I am a pain in the butt, but POD files *ARE* text files,
That's correct, but unlike troff tried and true, they are
intended to be legible to mortals. If they aren't, something
has gone hideously wrong.
--tom
--
"You can only measure the size of your head from the inside." --Larry Wall
------------------------------
Date: Mon, 10 May 1999 17:24:38 GMT
From: pricerbumanto@my-dejanews.com
Subject: Re: unos problemitas
Message-Id: <7h74ok$a68$1@nnrp1.deja.com>
In article <MPG.119bc1e793e46c269899e7@nntp.hpl.hp.com>,
lr@hpl.hp.com (Larry Rosler) wrote:
> In article <7gt17r$lk7$1@nnrp1.deja.com> on Thu, 06 May 1999 21:23:11
> GMT, pricerbumanto@my-dejanews.com <pricerbumanto@my-dejanews.com>
> says...
> > In article <MPG.119b8460e1baadab9899e0@nntp.hpl.hp.com>,
> > lr@hpl.hp.com (Larry Rosler) wrote:
> > > Someone suggested Esperanto. Plural 'problemoj' ??? :-)
> ...
> > The "-oj" at the end of "problemoj" is pornounced like
> > the "oy" in English "boy" BTW, not loke the "og" in "Roger"... (Zamenhof
> > got it from the plural ending for second declension Greek nouns in the
> > nominative, I think, not that it matters).
>
> 'pornounced' sounds inappropriate (but interesting -- leer:-).
Well, at least you didn't pick on the "loke" instead of "like"! ;-)
> But now
> it makes sense to me -- like the Greek plural "hoi polloi" (the people,
> literally).
Actually, "the many", literally (compare "polyglot", "polygon", "polymer",
etc). Perhaps the best translation would be "the masses" or "the crowd" to
get as much as possible of the nuance of the Greek original.
> It might have made more sense to English speakers to spell
> the plural 'problemoi', but French speakers might have had a problem
> with pronunciation.
The problem is that "oi" would be two syllables, while "oj" is one (a
"diphthong"; the "j" is a "glide", not a full-fledged vowel).
> German speakers might be at home with 'problemoj',
> but even to them it might look weird. It's impossible to please
> everyone with one language, which takes us ...
>
> Back to Perl. :-)
Eggzactly! ;-D
--== Sent via Deja.com http://www.deja.com/ ==--
---Share what you know. Learn what you don't.---
------------------------------
Date: 12 Dec 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 Dec 98)
Message-Id: <null>
Administrivia:
Well, after 6 months, here's the answer to the quiz: what do we do about
comp.lang.perl.moderated. Answer: nothing.
]From: Russ Allbery <rra@stanford.edu>
]Date: 21 Sep 1998 19:53:43 -0700
]Subject: comp.lang.perl.moderated available via e-mail
]
]It is possible to subscribe to comp.lang.perl.moderated as a mailing list.
]To do so, send mail to majordomo@eyrie.org with "subscribe clpm" in the
]body. Majordomo will then send you instructions on how to confirm your
]subscription. This is provided as a general service for those people who
]cannot receive the newsgroup for whatever reason or who just prefer to
]receive messages via e-mail.
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 5619
**************************************
