[29349] in Perl-Users-Digest
Perl-Users Digest, Issue: 593 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Jun 28 06:10:14 2007
Date: Thu, 28 Jun 2007 03:09:06 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Thu, 28 Jun 2007 Volume: 11 Number: 593
Today's topics:
Re: about condensed regular expression syntax raksha34@gmail.com
Re: date parts in one step <stoupa@practisoft.cz>
Re: date parts in one step <scobloke2@infotop.co.uk>
Re: DBIx::Simple, authentication fails <justin.0706@purestblue.com>
Re: Lost about SOAP::Lite <john1949@yahoo.com>
MIME::Lite and smtp auth <noqnick@gmail.com>
new CPAN modules on Thu Jun 28 2007 (Randal Schwartz)
Re: Oh great gurus of the list, I need help with a regu <savagebeaste@yahoo.com>
Re: Perl Best Practices - Code Formatting. <jluis@agujero-negro.escomposlinux.org>
Re: Perl Best Practices - Code Formatting. <jluis@agujero-negro.escomposlinux.org>
Re: Portable general timestamp format, not 2038-limited <http://phr.cx@NOSPAM.invalid>
Re: Portable general timestamp format, not 2038-limited <Leo.Kislov@gmail.com>
Re: Read File into multi-dimensional array ignore white <thepoet_nospam@arcor.de>
Re: skip first N lines when reading file <peter@makholm.net>
Re: The Modernization of Emacs: terminology buffer and <andreas_eder@gmx.net>
Re: using wildcards with -e <peter@makholm.net>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 27 Jun 2007 23:26:18 -0700
From: raksha34@gmail.com
Subject: Re: about condensed regular expression syntax
Message-Id: <1183011978.916798.207800@n2g2000hse.googlegroups.com>
Hello all,
Thank you all for helping me out on this. I really appreciate
everybody's help!
Actually, what I wanted to do was what Mirco has given.
The (??{....}) concept is really great.
I wanted to avoid doing the ORing in the regular expressions as it
hurts the scalability.
Thanks once again everybody for the help.
Regards,
Rakesh.
Mirco Wahab wrote:
> raksha34@gmail.com wrote:
> > Ok, a valid string is of the following form:
> >
> > i) must start with an alphabet
> > ii) then it can be any alphanumeric after that. it can end here, but
> > if not then rule iii) applies
> > iii) and finally it may or may not end in the following 4 forms:
> >
> > [num]
> > <num>
> > {num}
> > (num)
> >
> > *** num means any nonnegative integer.
> >
> >
>
> Your approach wasn't that bad in the first place.
> Please note that some of your replacement chars
> might be special in regex context ==> the ')'.
>
> The hash thing needs to be enveloped into an
> code assertion, like
>
> ...
> my @Data = qw'
> PTY
> COUNT2
> IN_B
> IN[3]
> ADD<2>
> SUM{25}
> MULT(9) ';
>
> my %h = qw' [ ] { } ( \) < > ';
>
> my $pin_re = qr/^[A-z]+\w?
> (?:
> ( [<{[(] ) \d+
> (??{"$h{$1}"})
> )?
> $/x;
>
> for (@Data) {
> print "$_ " . (/$pin_re/ ? 'OK' : 'NO') . " match\n"
> }
> ...
>
> Regards
>
> M.
------------------------------
Date: Thu, 28 Jun 2007 02:10:05 +0200
From: "Petr Vileta" <stoupa@practisoft.cz>
Subject: Re: date parts in one step
Message-Id: <f5uv66$2cp5$1@ns.felk.cvut.cz>
Brad Baxter wrote:
> On Jun 24, 10:08 am, "Petr Vileta" <sto...@practisoft.cz> wrote:
>> Function 1 : 37 seconds
>> Function 2 : 52 seconds
>> Function 3 : 44 seconds
>
> So, given that it's a line of code that you'll execute exactly once,
> it looks like a toss-up to me. :-)
Sorry, English is my second language and is pretty poor - I don't understand
you. Can you say that something is wrong in my test code or the results are
not true? I tested it 5 times on the Windows machine with killed all not
needed other programs and services (Skype, ICQ, MySQL server etc.) The
results was be the same 5 times.
--
Petr Vileta, Czech republic
(My server rejects all messages from Yahoo and Hotmail. Send me your mail
from another non-spammer site please.)
------------------------------
Date: Thu, 28 Jun 2007 10:23:47 +0100
From: Ian Wilson <scobloke2@infotop.co.uk>
Subject: Re: date parts in one step
Message-Id: <46837e27$0$5855$da0feed9@news.zen.co.uk>
Petr Vileta wrote:
> Brad Baxter wrote:
>
>> On Jun 24, 10:08 am, "Petr Vileta" <sto...@practisoft.cz> wrote:
>>
>>> Function 1 : 37 seconds
>>> Function 2 : 52 seconds
>>> Function 3 : 44 seconds
>>
>>
>> So, given that it's a line of code that you'll execute exactly once,
>> it looks like a toss-up to me. :-)
>
> Sorry, English is my second language and is pretty poor - I don't
> understand you. Can you say that something is wrong in my test code or
> the results are not true? I tested it 5 times on the Windows machine
> with killed all not needed other programs and services (Skype, ICQ,
> MySQL server etc.) The results was be the same 5 times.
I think Brad is saying that, in the worst case, you'll wait an extra 15
seconds for Function 2 to complete. If you only do this once in your
life, there is no justification for spending any time optimising it.
Whilst not uninteresting, in the context of this thread (Perl golf?) it
seems a bit incongruous to be discussing small differences in performance.
------------------------------
Date: Wed, 27 Jun 2007 15:32:36 -0000
From: Justin C <justin.0706@purestblue.com>
Subject: Re: DBIx::Simple, authentication fails
Message-Id: <19a.46828314.d6737@zem>
On 2007-06-27, Paul Lalli <mritty@gmail.com> wrote:
> On Jun 27, 9:40 am, Justin Catterall <jus...@masonsmusic.co.uk> wrote:
>> I have the following code to connect to a database:
>
><snip>
>
>> If I run this from the command line "Connected" gets printed. If I run
>> it from a browser I get:
>>
>> DBI connect('database=prospects','justin',...) failed: FATAL: Ident
>> authentication failed for user "justin" at
>> /var/www/inhouse/prospects/demo.cgi line 22
>>
>> Does anyone know why this should be?
>
> The user you're logged in as on the command line has access to the
> database. The user your webserver is running as does not.
>
> Fix the access permissions to your database.
>
> See also:
> $ perldoc -q 500
> Found in /software/perl-5.8.5-0/pkg/lib/5.8.5/pod/perlfaq9.pod
> My CGI script runs from the command line but not the
> browser. (500 Server Error)
Thank you Paul, adding www-data to the list of database users fixed
this.
Justin.
--
Justin Catterall www.masonsmusic.co.uk
Director T: +44 (0)1424 427562
Masons Music Ltd F: +44 (0)1424 434362
For full company details see our web site
------------------------------
Date: Thu, 28 Jun 2007 07:08:47 +0100
From: "John" <john1949@yahoo.com>
Subject: Re: Lost about SOAP::Lite
Message-Id: <gqOdnZQS4eQ-zR7bnZ2dnUVZ8qaqnZ2d@eclipse.net.uk>
"algis.m" <algis.m@gmail.com> wrote in message
news:1182700150.784691.89390@g4g2000hsf.googlegroups.com...
> Hello everyone,
> I'm lost about SOAP::Lite.
>
> When I create a SOAP service via
>
> my $service = SOAP::Lite -> service($wsdl_location);
>
> sometimes I get SSL timeout error, so I think I need to increase
> timeout.
> But when I do create service via:
>
> my $service = SOAP::Lite -> proxy( $wsdl_location, timeout =>
> $many_seconds );
>
> I get error from my SOAP server: "POST method is not supported".
>
> I need to somehow solve this. Does anyone have any ideas?
>
> -A.
>
What is the WSDL location? Is is private code or is it a public WSDL
service you are connecting to? Otherwise the code is OK.
John
------------------------------
Date: Thu, 28 Jun 2007 08:13:35 -0000
From: Qnick <noqnick@gmail.com>
Subject: MIME::Lite and smtp auth
Message-Id: <1183018415.414086.201330@k79g2000hse.googlegroups.com>
Hello,
I want send mail with attachments through smtp server with
authentication. I found script which use Mime::lite and added
authentication:
MIME::Lite->send('smtp', $host, Timeout=>60
AuthUser=>$user, AuthPass=>$pass);
as CPAN says, but don't act properly. Server reject the message.
Thanks very much indeed for any advice or pointers to useful
information.
Regards
Qnick
------------------------------
Date: Thu, 28 Jun 2007 04:42:11 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Thu Jun 28 2007
Message-Id: <JKBx2B.q2z@zorch.sf-bay.org>
The following modules have recently been added to or updated in the
Comprehensive Perl Archive Network (CPAN). You can install them using the
instructions in the 'perlmodinstall' page included with your Perl
distribution.
Algorithm-Dependency-1.103
http://search.cpan.org/~adamk/Algorithm-Dependency-1.103/
Base class for implementing various dependency trees
----
Amazon-SQS-Simple-0.1
http://search.cpan.org/~swhitaker/Amazon-SQS-Simple-0.1/
OO API for accessing the Amazon Simple Queue Service
----
Array-Window-1.01
http://search.cpan.org/~adamk/Array-Window-1.01/
Calculate windows/subsets/pages of arrays.
----
Business-AU-ABN-1.07
http://search.cpan.org/~adamk/Business-AU-ABN-1.07/
Validate and format Australian Business Numbers
----
Class-Adapter-1.03
http://search.cpan.org/~adamk/Class-Adapter-1.03/
Perl implementation of the "Adapter" Design Pattern
----
Data-Digest-0.03
http://search.cpan.org/~adamk/Data-Digest-0.03/
Objects that represent a digest values
----
Devel-BeginLift-0.001
http://search.cpan.org/~mstrout/Devel-BeginLift-0.001/
make selected sub calls evaluate at compile time
----
Devel-REPL-1.001000
http://search.cpan.org/~mstrout/Devel-REPL-1.001000/
a modern perl interactive shell
----
Egg-Model-DBIC-2.02
http://search.cpan.org/~lushe/Egg-Model-DBIC-2.02/
DBIx::Class for Egg Model.
----
Egg-Plugin-MailSend-2.01
http://search.cpan.org/~lushe/Egg-Plugin-MailSend-2.01/
Mail is delivered for Egg Plugin.
----
Egg-Release-2.16
http://search.cpan.org/~lushe/Egg-Release-2.16/
Version of Egg WEB Application Framework.
----
File-Path-2.00_05
http://search.cpan.org/~dland/File-Path-2.00_05/
Create or remove directory trees
----
File-PathList-0.03
http://search.cpan.org/~adamk/File-PathList-0.03/
Find a file within a set of paths (like @INC or Java classpaths)
----
File-UserConfig-0.05
http://search.cpan.org/~adamk/File-UserConfig-0.05/
Get a user's existing config directory, or copy in defaults
----
Getopt-LL-0.0.3
http://search.cpan.org/~asksh/Getopt-LL-0.0.3/
Flexible argument processing.
----
IO-Socket-SIPC-0.01_01
http://search.cpan.org/~bloonix/IO-Socket-SIPC-0.01_01/
Serialized perl structures for inter process communication.
----
IO-Socket-SIPC-0.01_02
http://search.cpan.org/~bloonix/IO-Socket-SIPC-0.01_02/
Serialized perl structures for inter process communication.
----
MooseX-Storage-0.03
http://search.cpan.org/~stevan/MooseX-Storage-0.03/
An serialization framework for Moose classes
----
Net-Scan-Ftp-Anonymous-0.02
http://search.cpan.org/~mcantoni/Net-Scan-Ftp-Anonymous-0.02/
scan for anonymous read/write access FTP servers
----
Object-Exercise-1.1
http://search.cpan.org/~lembark/Object-Exercise-1.1/
Generic execution & benchmark harness for method calls.
----
Object-Exercise-1.11
http://search.cpan.org/~lembark/Object-Exercise-1.11/
Generic execution & benchmark harness for method calls.
----
POE-Component-EasyDBI-1.21
http://search.cpan.org/~xantus/POE-Component-EasyDBI-1.21/
Perl extension for asynchronous non-blocking DBI calls in POE
----
POE-Filter-CSV_XS-1.05
http://search.cpan.org/~bingos/POE-Filter-CSV_XS-1.05/
A POE-based parser for CSV based files.
----
Speech-eSpeak-0.1
http://search.cpan.org/~hgneng/Speech-eSpeak-0.1/
Perl extension for eSpeak text to speech
----
Speech-eSpeak-0.11
http://search.cpan.org/~hgneng/Speech-eSpeak-0.11/
Perl extension for eSpeak text to speech
----
TM-1.27
http://search.cpan.org/~drrho/TM-1.27/
Topic Maps, Base Class
----
Test-Reporter-1.29_03
http://search.cpan.org/~fox/Test-Reporter-1.29_03/
sends test results to cpan-testers@perl.org
----
Test-Reporter-1.29_04
http://search.cpan.org/~fox/Test-Reporter-1.29_04/
sends test results to cpan-testers@perl.org
----
WWW-Search-AltaVista-2.146
http://search.cpan.org/~mthurn/WWW-Search-AltaVista-2.146/
class for searching www.altavista.com
----
XML-SAX-0.16
http://search.cpan.org/~grantm/XML-SAX-0.16/
Simple API for XML
----
Yahoo-Marketing-2.02
http://search.cpan.org/~jlavallee/Yahoo-Marketing-2.02/
an interface for Yahoo! Search Marketing's Web Services.
----
threads-1.63
http://search.cpan.org/~jdhedden/threads-1.63/
Perl interpreter-based threads
If you're an author of one of these modules, please submit a detailed
announcement to comp.lang.perl.announce, and we'll pass it along.
This message was generated by a Perl program described in my Linux
Magazine column, which can be found on-line (along with more than
200 other freely available past column articles) at
http://www.stonehenge.com/merlyn/LinuxMag/col82.html
print "Just another Perl hacker," # the original
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
------------------------------
Date: Thu, 28 Jun 2007 02:31:49 -0700
From: "Clenna Lumina" <savagebeaste@yahoo.com>
Subject: Re: Oh great gurus of the list, I need help with a regular expression please
Message-Id: <5ehdgcF37latoU1@mid.individual.net>
Brad Baxter wrote:
> On Jun 27, 12:15 pm, "Clenna Lumina" <savagebea...@yahoo.com> wrote:
>> Paul Lalli wrote:
>>> On Jun 27, 9:52 am, cate <cate.donog...@gmail.com> wrote:
>>>> right. After this one I gave up:
>>>> $/='<'.$ARGV[1].' loc="\w+">';
>>
>>> $/ is a string. You cannot put a regular expression into it.
>>> (Though see File::Stream for a way around that restriction)
>>
>> Although being able to use $/ as a regex would be rather nifty, if
>> you think about it. True, it would mimic split() in some ways, but
>> the big difference would be every 'line' read would be delimited by
>> the regex rather than "\n", in which you'd have to read in either
>> big chunks or the whole file entirely and _then_ apply the split,
>> because trying to apply a split like this on normal ("\n" delimited)
>> lines cannot catch multi-line delimited data. At least nowhere as
>> elegant and cleanly as this potentially would.
>>
>> Bottom line: applying regex as an $INPUT_RECORD_SEPARATOR would be
>> infinitely useful, and to me seems right up Perl's alley.
>>
>> An idea for Perl 6 perhaps?
>
>
> Remember: the value of $/ is a string, not a regex.
> awk has to be better for something. :-)
> -- perlvar
>
> Apparently, it was a (rejected) idea for Perl 5 way back when ...
Was there a reason it was rejected? I think the usefulness it would
represent would of made it a shoe in? I would imagine it would not be
difficult to implement that, given the existing regex framework. I would
assume:
$/ = qr/\d+/; [1]
while (<INFILE>) { ...
would differ little from:
while ($string =~ /\d+/g) { ...
only instead of keeping track of the position in a string you're keeping
track of the position of a file. I can understand the potential for
extraneous reads (especially in huge files), but even that could be
taken care of with the use of some sort of buffering system?
Well, it is just an idea and if it can be pulled off in an optimized
manner (where reads don't suffer (too much)) it could prove to be an
invaluable feature.
Thoughts?
[1]
I would assume in such a scenario, if $/ were given a normal string it
would revert to the normal (current) behavior.
--
CL
------------------------------
Date: Thu, 28 Jun 2007 07:53:17 +0200
From: José Luis Pérez Diez <jluis@agujero-negro.escomposlinux.org>
Subject: Re: Perl Best Practices - Code Formatting.
Message-Id: <VA.00000bc1.04683aa9@agujero-negro.escomposlinux.org>
In article <l848l4x4l3.ln2@goaway.wombat.san-francisco.ca.us>, Keith
Keller wrote:
> > "Transubstantiation? Consubstantiation? Heck, we don't know, we just
> > do it because He said so, and we think that getting together to
> > worship is a good thing."
>
> I'm glad the thread has gotten back to Perl best practices. ;-)
>
Yes, it is now a proper object, it's blessed. >;)
------------------------------
Date: Thu, 28 Jun 2007 09:36:34 +0200
From: José Luis Pérez Diez <jluis@agujero-negro.escomposlinux.org>
Subject: Re: Perl Best Practices - Code Formatting.
Message-Id: <VA.00000bc2.04c16225@agujero-negro.escomposlinux.org>
In article <l848l4x4l3.ln2@goaway.wombat.san-francisco.ca.us>, Keith
Keller wrote:
> > "Transubstantiation? Consubstantiation? Heck, we don't know, we just
> > do it because He said so, and we think that getting together to
> > worship is a good thing."
>
> I'm glad the thread has gotten back to Perl best practices. ;-)
>
Yes, it is now a proper object, it's blessed. >;)
------------------------------
Date: 27 Jun 2007 22:51:28 -0700
From: Paul Rubin <http://phr.cx@NOSPAM.invalid>
Subject: Re: Portable general timestamp format, not 2038-limited
Message-Id: <7x7ipoy6cf.fsf@ruckus.brouhaha.com>
sla29970@gmail.com writes:
> Keep in mind that TAI is not legal time anywhere. It is also not
> practical, for the TAI now is not available until next month.
If you mean they don't announce the average of the 350 atomic clocks
til a month later, well swell, but you can get sub-microsecond
accuracy from GPS references.
> >From a legal standpoint, either UTC or GMT (or both, if you read
> different languages in the EU documents) as kept by your national
> metrology lab is is the official time.
According to <http://en.wikipedia.org/wiki/UTC>, UTC is derived from
TAI. And according to the linked article that I think you mention,
comparing clocks on different contents gives uncertainty in the 10-50
ns range.
> The national metrology labs are tasked to provide GMT or UTC as part
> of their charter, so that is *procedurally* the primary time scale.
Here we see the difference between UTC (the one synchronized to TAI)
and NIST UTC:
http://tf.nist.gov/pubs/bulletin/nistutc.htm
it's always within 20 nsec. This seems like the kind of correction
that can be applied after the fact. Anyway GPS time is probably
further out than NIST.
The difficulty/impossibility of computing intervals on UTC because of
leap seconds suggests TAI is a superior timestamp format.
------------------------------
Date: Thu, 28 Jun 2007 01:17:51 -0700
From: Leo Kislov <Leo.Kislov@gmail.com>
Subject: Re: Portable general timestamp format, not 2038-limited
Message-Id: <1183018671.058603.194500@e16g2000pri.googlegroups.com>
On Jun 27, 10:51 pm, Paul Rubin <http://phr...@NOSPAM.invalid> wrote:
> The difficulty/impossibility of computing intervals on UTC because of
> leap seconds suggests TAI is a superior timestamp format.
If you care about intervals you'd better keep timestamps in SI seconds
since some zero time point (just like OP wanted). TAI timestamps are
pretty useless IMHO. They need to be converted to decimal/float for
interval calculations and they don't represent any legal time.
-- Leo
------------------------------
Date: Thu, 28 Jun 2007 07:18:55 +0200
From: Christian Winter <thepoet_nospam@arcor.de>
Subject: Re: Read File into multi-dimensional array ignore whitespace
Message-Id: <46834380$0$6438$9b4e6d93@newsspool2.arcor-online.net>
vorticitywolfe@gmail.com wrote:
> Hello, a newbie question...
>
> I have a file that looks like this:
> ########test.txt#########
> 28 0742 1715 0656 1800 0602 1839 0506 1920 0430 1956 0427 2011
> 29 0741 1716 0600 1840 0505 1922 0429 1957 0427 2011
> 0454
> 30 0740 1718 0558 1842 0503 1923 0429 1958 0428 2011
> 0455
> 31 0739 1719 0556 1843 0428
> 1959 0457
> #######################
>
> and I read it with this code:
>
> ###########test.pl###########
> while(my $line = <INPUT>){
> push @AoA, [ split ];
> }
> ###########################
It seems to me the simplest description of your input format would
be 'a number of digits at the start of the line, followed
by a repetitive group of (two whitespaces followed by a four-digit
value, followed by a single whitespace, followed by another four-digit
value)'. Capturing everything needed with a single command would be
possible but lead to a rather lengthy and error-prone expression.
I'd use something along the lines of:
while( <DATA> ) {
push @AoA, [ /^(\d+)/, /\s{2}(....)\s(....)/g ];
}
The first regex match captures just the line number field, the
second one (/g = repetitive match) then captures all the four-digit
value pairs until the end of the string.
If you want to have zeroes for the empty fields, you can either rely
on Perl implicitely treating empty strings as zero in a numeric
context later on, or force this context by iterating over each value
and applying the int() function:
while( <DATA> ) {
push @AoA, [ map { int } /^(\d+)/, /\s{2}(....)\s(....)/g ];
}
(note that int without arguments, like most Perl builtins, simply
takes $_ at its argument).
HTH
-Chris
------------------------------
Date: Thu, 28 Jun 2007 09:07:45 +0000
From: Peter Makholm <peter@makholm.net>
Subject: Re: skip first N lines when reading file
Message-Id: <876458v44e.fsf@makholm.net>
Big and Blue <No_4@dsl.pipex.com> writes:
>> while(<IN>) {
>> next if 1 .. N;
>>
>> do something;
>> }
>
> Why bother doing the test once you've skipped?
>
> while (<IN>) { last if ($. == $skip};
> while (<IN>) {
> ...code to run after $skip lines...
> }
It's a matter of style and preferences. In general I prefere to
iterate over a file in one loop. Starting in the middle of a data
structure is a special case I thinks adds an amount of complexity to
the code.
In general I often write code like:
while(<IN>) {
last if end_condition_1;
last if end_condition_2;
next if skip_condition_1;
next if skip_condition_2;
if (case1) {
handle_case_1;
} elsif (case2) {
handle_case_2;
} else {
handle_default_case;
}
}
Even in the simple case where the skip condition is 'the first N
lines' I stick to this scheme. The added cost is negligible in my
common case. Other peoples problems may need another cost benefit
analysis of course.
Why I use the range operator and not just "$. < N" is more obscure. I
just like using the range operator.
//Makholm
------------------------------
Date: Thu, 28 Jun 2007 11:26:42 +0200
From: Andreas Eder <andreas_eder@gmx.net>
Subject: Re: The Modernization of Emacs: terminology buffer and keybinding
Message-Id: <86zm2ka0q5.fsf@eder.homelinux.net>
Hi Twisted,
>>>>> "Twisted" == Twisted <twisted0n3@gmail.com> writes:
Twisted> Let me get this straight.
Twisted> In this corner, we have just about every Windows application ever
Twisted> developed. When a user needs help, a click on the "help" menu or tap
Twisted> of the F1 key is all it takes to obtain some. Sometimes the help is
Twisted> not of the greatest quality, but that is another issue we won't
Twisted> concern ourselves with here.
Almost always when I really needed help in Windows, all it said
was: go ask your system administrator. Really helpful :-(
Twisted> In the other corner, we have just about every Unix application ever
Twisted> developed. When a user needs help, they may do such things as manually
Twisted> explore the directories where the application was installed
Twisted> (equivalent to rooting around in C:\Program Files\Appname for .hlp
Twisted> files, because F1 didn't work and there was no "help" menu, if such a
Twisted> thing ever happened on Windoze).
Ever heard of man pages? and info?
'Andreas
--
Wherever I lay my .emacs, there's my $HOME.
------------------------------
Date: Thu, 28 Jun 2007 04:48:16 +0000
From: Peter Makholm <peter@makholm.net>
Subject: Re: using wildcards with -e
Message-Id: <87k5tovg4v.fsf@makholm.net>
"John W. Krahn" <dummy@example.com> writes:
>> if (grep { -e $_ } glob("$donedir/*.DOC") ) {
>> print "Found it";
>> }
>
> You shouldn't need the grep, this should work:
>
> if ( glob "$donedir/*.DOC" ) {
> print "Found it";
> }
How could I miss that. I didn't even think about what kind of file
test was being used.
//Makholm
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
Message-Id: <null>
Administrivia:
#The Perl-Users Digest is a retransmission of the USENET newsgroup
#comp.lang.perl.misc. For subscription or unsubscription requests, send
#the single line:
#
# subscribe perl-users
#or:
# unsubscribe perl-users
#
#to almanac@ruby.oce.orst.edu.
NOTE: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
#To request back copies (available for a week or so), send your request
#to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
#where x is the volume number and y is the issue number.
#For other requests pertaining to the digest, send mail to
#perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
#sending perl questions to the -request address, I don't have time to
#answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V11 Issue 593
**************************************
