["Followup-To:" header set to comp.lang.perl.misc.]

On 2006-10-04, Todd English gmail.com> wrote:
[> Tad McClellan wrote:]

Please don't snip attributions!

Did you read the rest of Tad's comments about perl.beginners? It's
a mailing list gated to usenet, not a real newsgroup. Often posts
to those pseudogroups get sent to the bitbucket, either by your
own newsserver or by the mailing list in question. If you look at the
real archive (at http://www.nntp.perl.org/group/perl.beginners/) you'll
see your posts are not there. (Why Google groups misleadingly shows
them is beyond me.) If you want an answer from there, subscribe to the
mailing list.

It seems like you're making progress with your problem here, so if
you haven't read the Posting Guidelines, drop perl.beginners, and good
luck resolving the issue.

John W. Krahn wrote:

(snipped)

Sorry, my recollection was indeed faulty.
I was thinking of the 'each' function used
to iterate over a hash.

Hi Folks,
I do not know if this is the right place for this. I am writing a "Perl TK
script that runs on windows and
have been trying to print add a *print* capability to for the UI. I have
found *Win32::Printer*, *Win32::Printer::Direct*
I have attempted:

1- to get the user selected *printer name* from the *Win32::Printer* to
use in *Win32::Printer::Direct*
In this attempt, I have not found a way of getting the *printer
name* form *Win32::Printer* after user
selects a printer.

2- I can not find a way of get the selected file name or file handle to
*Win32::Printer*

I my attempts have been based on the sample code provided in the pod.

Any help is greatly appreciated.

Best regards,

-sm

Eric Schwartz pobox.com> wrote:

^

^^^^^

If you are the only person who reads your code, then that is
a very sensible criterion.

You are in an enviable position. Most of us have to consider
other programmers when we write programs, where the criterion
is what do most people think is more readable.

On 2006-10-04, John W. Krahn example.com> wrote:

On 10/03/2006 07:20 PM, robb@acm.org wrote:

attn.steven.kuo@gmail.com wrote:

"for my $key ( keys %%hash )" creates a list of the hash keys in memory and any
modifications to %%hash inside the loop won't affect the contents of that list.

perldoc -f delete

John

This is an excerpt from the latest version perlfaq3.pod, which
comes with the standard Perl distribution. These postings aim to
reduce the number of repeated questions as well as allow the community
to review and update the answers. The latest version of the complete
perlfaq is at http://faq.perl.org .

--------------------------------------------------------------------

3.11: Where can I get Perl macros for vi?

For a complete version of Tom Christiansen's vi configuration file, see
http://www.cpan.org/authors/Tom_Christiansen/scripts/toms.exrc.gz , the
standard benchmark file for vi emulators. The file runs best with nvi,
the current version of vi out of Berkeley, which incidentally can be
built with an embedded Perl interpreter--see
http://www.cpan.org/src/misc/ .

--------------------------------------------------------------------

Mumia W. (reading news) earthlink.net> wrote:

^
^

if (index(lc $target[$i], lc $temparray2[0]) >= 0) { print " match "; }

(which could become painful in a big loop...)

Jim Gibson mail.arc.nasa.gov> wrote:

And you can do it in a file-based program with the $^I variable,
or with the -i command-line switch.

If you want to do it in a program file rather than as a one-liner,
then be sure to local()ize the special variables into an appropriate
scope: