for the feedback.
Ron Nichols
Ronald G. Nichols
Director of Information Technology
Knouse Foods Cooperative
717 677-7111 Ext. 3470
[EMAIL PROTECTED]
-Original Message-
From: Lyndon Rickards [mailto:[EMAIL PROTECTED]
Sent: Saturday, February 10, 2007 1:33 PM
To: Nichols, Ron
Cc: Perl
I am generating a spreadsheet using Spreadsheet::WriteExcel. Everything
is working fine except a formula containing =SUMIF(A5:A10, C15,C5:C10).
The formula gets generated correctly in the spreadsheet but in order to
get the resulting value to be displayed in the cell, you have to edit
the cell
I have a PERL script that prints to a network printer on a Windows XP
Professional OS. The script will be used on a variety of XP systems
with varying network printers as the default printer. When I run the
code shown below:
#! perl -w
use strict;
my $port='9100';
my
The selected printer is the default printer for my system. I can print
from any other windows based application to the default printer. I am
also set up as the local administrator on the system.
Ronald G. Nichols
Director of Information Technology
Knouse Foods Cooperative, Inc.
[EMAIL
, your best bet would probably
be Net::LPR.
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of
Nichols, Ron
Sent: Friday, July 28, 2006 8:22 AM
To: Perl-Win32-Users@listserv.ActiveState.com
Subject: Printing to Network Printer
I have a PERL script that prints
=$mw-Entry(-width, 60, -textvariable, \$author)-pack;$author=;MainLoop;#
___Perl-Win32-Users mailing listPerl-Win32-Users@listserv.ActiveState.comTo unsubscribe:
http://listserv.ActiveState.com/mailman/mysubs-- Ron Hartikka[EMAIL PROTECTED
use strict;
use HTML::Parser 3.00 ();
Thank you for posting some HTML::Parser code. For as long as I've been
doing Perl I've only seen real HTML::Parser code a handful of times.
People are quick to say just use HTML::Parser. If most people are
anything like me, I just end up using some regexs
And as you mentioned the 256 bytes most definetely need to be sent before
anything will flush.
It is actually Internet Explorer that needs to receive 256 bytes before
displaying anything. If you test your page with a different browser (like
Mozilla), you'll see that the Flush() works with
TC Winquist wrote:
I searched CPAN for a module that would emulate clicking a link on a web
page. Let's say I know that I want to click the link a
href=r/foPhotos/a on yahoo's index page. I would like a script that
would emulate that click and load the resulting page into the web browser
[EMAIL PROTECTED] wrote:
I'm trying to test to make sure my web site is up by connecting to the
admin web page of my application. The admin web page is an ASP page and
whenever I set it up using:
use HTTP::Request;
use LWP::UserAgent;
$filename = D:\\temp\\msi.html;
$ua =
the real/regular program will then use for input. It asks the user
only two short text questions. Of course any of us would be quite happy
You could check out Win32::GUI (see HTML under .../html/lib/win32) or maybe
use Tk as an alternative GUI interface - except it may not be installed
How do I get the details of HTTP::Headers=HASH(0x1c5d150)?
What does Data::Dumper say?
use Data::Dumper;
print Dumper $r-headers;
Or just look at the keys:
foreach my $key ( keys %{$r-headers} ) {
print $key = , $r-headers-{$key}, \n;
}
___
I'm having the same problem as described in the following post. Did anyone
ever find a solution to this?
Read this post again:
http://aspn.activestate.com/ASPN/Mail/Message/1312188
Download this file:
http://www.freedb.org/software/cddbidgen.zip
Run this Perl code:
---
use strict;
use
open FOUT, /some/path/outputfile.txt;
open FILE /some/path/inputfile.txt;
open(FOUT, /some/path/outputfile.txt) or
die(Error: $!);
open(FILE /some/path/inputfile.txt) or
die(Error: $!);
whileFILE{
p=N;
next if (/.*?\|value_garbage1\|.*?/ ||
/.*?\|value_garbage2\|.*?/ ||
1. I downloaded perl542b.zip and csdpmi5b.zip
This is a MSDOS/DJGPP port of perl 5.004_02.. The file dates to 1997.
There have been many major revisions to Perl in the last 5+ years.
Can't locate Socket.pm in @INC (@INC contains: C:\PERL\LIB\PERL5
Socket.pm has been a core ( i.e. it comes
I would like to split on either a double dash or a semi colon with one
split using ( | ).
$_ = 'Hello-world;how--are--you;today';
print join \n, split /--|;/;
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe:
Would it be only semantic to escape the semicolon, or could it cause a
problem not to do so? I'm not asking to be picky, I really don't know. :)
The semi-colon is not special unless you do something like this:
m;foo|bar|\;;
___
Perl-Win32-Users
my $q = new CGI;
##
# Get the input
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
# Split the name-value pairs
@pairs = split(//, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~
PS I would settle for a free command line as well.
http://www.weihenstephan.de/~syring/win32/UnxUtils.html
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Here's a revised version of your code. It puts the data into a hash, whence
you can retrieve it in any order you like (the output line at the end is
just an example of one way).
I just put everything into the hash and dealt with it later:
---
use strict;
use warnings;
use vars qw(%H);
For a different approach to this (if I understand what you are after), in
the archives of this list, see the thread, Not so silly DOS question
which started August 24, 2001.
It is about how to make the tab key do autocompletes in a command line window.
At 09:15 AM 06/07/02 +0530, [EMAIL
I've looked in the 'usual' spot (http://www.generation.net/~aminer/Perl/)
There doesn't appear to be anything on that website.
Otherwise, can any suggest the best way to get a process listing on a
Win2000 box via perl?
I have a better script someplace but maybe this will do for the time
I would like to implement the escape sequences like ( if the value
is Perl,
I'm not sure what you are asking.
perldoc URI::Escape
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe:
that somebody would actually get annoyed by the format of an e-mail.
Sometimes when people use a client like Outlook, I'm unable to quote
their message in my response. I don't think changing the font color to a
pretty shade of blue or a non-standard Times New Roman font really adds
anything. It
Is there a simpler way ?
---
use strict;
use Benchmark;
timethese (-1, {
one = 'my @one = (1..10);
my @two = (11..20);
scalar(@one);',
two = 'my @one = (1..10);
my @two = (11..20);
scalar(@two), \n;'
});
---
Benchmark: running one, two, each for at least 1 CPU
Michael D. Schleif wrote:
When I do this:
if ($csv-parse($_)) {
@array = $csv-fields;
}
print scalar @array, \n;
I get various values, because some fields in the CSV file are empty.
What I want to do is get an array with empty fields, as
[EMAIL PROTECTED] wrote:
I have two string arrays (say ar1 and ar2) and I would like to compare
them
to find out all the strings in ar1 that do not exist in ar2. What's
the fastest and
most efficient way to do that? I know I can use a couple of
for/foreach
but I am hoping that there is a
I have seen a few ok random number generator snippets but none really look
like they work too well. Take the two below arrays.
http://search.cpan.org/search?mode=modulequery=random
Some modules that may be of interest:
Math::Random
Math::TrulyRandom
I think it's just a matter of:
my $s = Set::Object-new(['a','b']);
That did it. Thank you.
- Ron
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
I like to add this to Chuck's response:
I recall reading someplace that many of the larger MS applications (
i.e. Word, Excel ) are not suitable to act as OLE servers in a
production environment such as a webserver. I don't know if this applies
to Outlook. I'll try to look on Google for where I
3) Instead of using Navigate to get a URL or file, can I use HTML
that's stored in a scalar in my source code? Can you set the Document
to an html string?
my $ie = WIn32::OLE-new('InternetExplorer.Application') or die 'Can't
create instance of IE';
my $html =
\fs20 Da biste }
{\cs6\f1\cf6\lang \{#}RES_ID{\cs6\f1\cf6\lang #\}} odaberite
Da biste
If there are multiple \fs2 things on a line, you should be able to loop
through either $extracted or $remainder to find then and extract the
string.
- Ron
___
Perl
Yup - a decent faq and a reminder work rather well for most FAQ's assuming
the users read some emails before posting and didn't subscribe just to ask a
question. An auto-responder would be unpopular and put new users off, as
I don't think there is a need for Yet-Another-FAQ. I think people
Here is the situation. I have to connect to Mysql running on another
windows 2000 box. I have never done this before. Do I set this up in the
tables as another
host and use the -h parm in command shell and the host parm in my perl
scripts? or is there another way to do it?
What happens
This is what I use in a program that mimics the Unix head command:
http://www.perl.com/language/ppt/src/head/
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
I have a subroutine splitFilename that I wrote that does this for
me. It's been enhanced over time to include support for UNC, but this
is the meat of that subroutine that handles directory/path/filename
strings:
Not to be a wet blanket, but isn't File::Basename part of the core? I
looked
If you...
@the_data = ();
... then @the_data will be empty.
Is that what you want?
(When you say, ...clear everything out - reinitialize it so it is
'fresh'., you have failed to say what you want in 3 different ways.)
Ron
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL
This is tested. Perl Cookbook Recipe 4.15. Sorting a List by Computable
Field
The date from stat is probably not what you want.
-
my $dir = 'C:\data\perl\programexamples'; change to your
dir
$|=1;
opendir(DIR, $dir) || die cant opendir $dir: $!;
my @files =
Unless I've been unfair, for small dirs, no_shwartz wins; for big dirs
(~3000 files?), schwartz wins.
Looks like you want to reserve schwartz for where calculating the value to
sort by is more expensive than a hash lookup or where you have more than
~3000 elements elements.
Maybe somebody could
Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED]]On Behalf Of
Joseph P. Discenza
Sent: Tuesday, January 29, 2002 2:54 PM
To: Ron Hartikka; [EMAIL PROTECTED]
Subject: RE: Q: How to sort Array of Hashes
Ron Hartikka wrote, on Tuesday, January 29, 2002 2:40 PM
: Unless I've been
try
$counter-update;
after
$counter-configure(-text=$i);
My guess is
you are going to want to look at Tk's 'after' method.
-Original Message-From:
[EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED]]On Behalf Of
robozSent: Monday, January 21, 2002 11:01 AMTo:
[EMAIL
Seems like a
hard way to program! But, maybe it's right for your
situation.
Please post
more if you can.
What do you
mean by "it didn't work"?
Try printing
the values returned by eval() - undefined value messageindicates bad
code.
-Original Message-From:
text. Ugh.
-Original Message-From:
[EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED]]On Behalf Of
Venkataramana MokkapatiSent: Tuesday, January 15, 2002 9:16
AMTo: Ron Hartikka; thiyag; perl-win32-users Mailing
ListSubject: Re: problem with eval
d
Works but not if you have more or fewer than 2 values in a row.
Do you?
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED]]On Behalf Of
Wagner-David
Sent: Thursday, January 10, 2002 1:31 PM
To: 'Gordon Brandt'; [EMAIL PROTECTED]
Subject: RE: Regex Help Please!
I had this same problem a few months ago.
I went through some old emails and this is how I resolved the issue at that
time.
$Excel-{DisplayAlerts} = 0;
Ron
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED]]On Behalf Of
Brian Shade
Sent: Monday, December 24, 2001 7
As far as I know, perl does not free memory (back to the system); you can
never shrink.
You can avoid getting too big in the first place.
You can restart (exec) yourself if you get to big.
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED]]On Behalf Of
sunil matte
as if as if you wrote...
$values[2] = \$hash{\$x}{\$y}{'value'}; # contents is a string, not a ref
to a hash
What you plan to do with the string \$hash{\$x}{\$y}{'value'}?
-Original Message-
From: Ed DeBus [mailto:[EMAIL PROTECTED]]
Sent: Tuesday, December 04, 2001 12:31 PM
To: Ron Hartikka
for $number (1006326869812, 563296853235993 , 35968322963568389){
print $1-$2-$3\n if ($number =~ /(\d*)(\d{4})(\d{5})/);
}
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED]]On Behalf Of
[EMAIL PROTECTED]
Sent: Thursday, November 29, 2001 3:32 PM
To:
Do you have the file open?
You cannot delete an open file according to Bill.
open (JUNK, 'junkyfile.txt');
print JUNK STUFF IN junkyfile.txt\n;
close JUNK;
print `type junkyfile.txt`;
unlink 'junkyfile.txt';
print `type junkyfile.txt`;
... prints...
STUFF IN junkyfile.txt
The system cannot
I started task mgr manually. This worked. w2k.
use Win32::GuiTest qw(FindWindowLike GetWindowText SetForegroundWindow
SendKeys);
$Win32::GuiTest::debug = 0; # Set to 1 to enable verbose mode
my @windows = FindWindowLike(undef, Windows Task Manager, .);
#print join \n, @windows;
for
Just remove the debug statements once and put them in a second script to be
exec'd based on command line parameter.
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED]]On Behalf Of
Nick Djurovich
Sent: Monday, November 12, 2001 12:45 PM
To: PERLMAILINGLIST
I have:
[EMAIL PROTECTED]; [EMAIL PROTECTED]; [EMAIL PROTECTED]; [EMAIL PROTECTED];
I want an Outlook distribution list with these addresses.
Outlook makes me do them one at a time.
Can you do this in perl? If so how?
Thanks.
___
Perl-Win32-Users
I have an external program that I access with the back
tick operator (`program.exe`) -it works fine, but I do
not know how to send it certain parameters through
stdin after it executes. For example what I really
want to do is to execute the program, and then send it
some data through stdin.
In linux it automatically looks in the current directory. However, with
windows, it looks to C:/Perl/lib or C:/Perl/site/lib .
All versions of Perl look in the global array @INC to see which directories
to look for files:
perl -v
Characteristics of this binary (from libperl):
Locally
My PROBLEM:
I want to insert a formatted test , I mean the resulting of the format
command . if I use write every line will go on the STDOUT
but I want to get all the columns well formatted inside the
$TextMessage.
I know it is not clearbut if you manage to understand what I am trying
My PROBLEM:
I want to insert a formatted test , I mean the resulting of the format
command . if I use write every line will go on the STDOUT
but I want to get all the columns well formatted inside the
$TextMessage.
perlform lead me to this:
---
use Carp;
sub swrite {
croak usage: swrite
Help
I have posted this problem to Admin list and on Roths perms news no one has
been able to help yet.
Ron
The error code that I get is,
126 The specified module could not be found. ERROR_MOD_NOT_FOUND
When the program tries to remove the second ACE.
Does this help anyone, help me?
Help
I
Could you clarify the question.
Example: If I get the input line
___
I want this output line
___.
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED]]On Behalf Of Dan
Jablonsky
Sent: Monday, June 18, 2001 2:32 PM
To: [EMAIL PROTECTED]
Subject: computations with
Same with scalars...
our $s1 = a;
my %s2 = b;
our $s3 = c;
for my $it (qw(s1 s2 s3)){
print $it: $$it\n;
}
... prints...
Name main::s1 used only once: possible typo at scalersymref.pl line 2.
Name main::s3 used only once: possible typo at scalersymref.pl line 4.
Use of uninitialized
@list = (\%hash_one, \%hash_two, \%hash_three);
Look at Making References and Using references in perlref.
- Original Message -
From: Peter Eisengrein [EMAIL PROTECTED]
To: 'Carl Jolley' [EMAIL PROTECTED]
Cc: Perl-Win32-Users Mailing List (E-mail)
[EMAIL PROTECTED]
Sent: Thursday, June
Lee Goddard wrote:
I reckon PLEASE READ THE FAQ and a url should appear at the top
of every AS post, not just a URL a the bottom
No, not at the TOP! I don't need another thing to scroll down through
before I get to something meaningful.
Instead of just giving code, I like to refer
Just curious... since this was not a response but rather a new thread, was
there a particular offense that got your underwear in a bunch, or did you
just wake up a bit cranky?
The problem is that some people refuse to look for information on their own.
I can't tell you how many times this
# here I need to get contents of $ray[0x209] in DECIMAL so I can know
how
many following bytes are relevant.
Thoughts... options??
How many bytes long is the length word ?
It sounds like he just wants
$ray[ hex(0x209) ]
but unpack does seem to make more sense that splitting each line
As I am learning how to try and use modules today, I ran into a strange
Eventually this entire list is going to be PerlEx experts thanks to Scott's
posts
:-) I know how frustrating it to do simply tasks with unfamiliar software.
MY MAIN CALLING SCRIPT IN WHICH I WANT TO PASS HOST AND
to the server if the connection is severed, currently I use WS_FTP (those
who use this know what I mean).
SmartFTP is a full-featured freeware FTP client that has its own scripting
language:
http://www.smartftp.com
___
Perl-Win32-Users mailing
;
}
}
return 0;
}
Ron
At 03:14 PM 06/08/01 +0100, Martin Moss wrote:
All,
Has anybody done any work with wildcard matching of hash keys?
along the lines of
my $pattern=*red*;
if (exists($hash{$pattern})) #I
{
print Key exists\n;
}
Is the only solution
my ($text)=$htmlstring=~/\p\(.*)/i;
I think he wanted everything in the file. The Cookbook says:
% perl -pe 's/[^]*//g' file
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
I take back the last bit of my last post.
I think you could say...
my @lines = split /\n/, @{$rawDataRef}[ $#{ $rawDataRef }];
... based on accessing and printing of Arrays of Arrays in camel 3. pg 271
- Original Message -
From: Ron [EMAIL PROTECTED]
To: Purcell, Scott [EMAIL
Charles,
Can the () in your data be nested?
If so, you can't use an re. (See: How do I find matching/nesting anything?
in perlfaq 4.) For example,
while (DATA){
print;
print becomes\n;
s/\([^\)]+\)/()/g; # as Bill suggests
print;
print \n;
}
__DATA__
asdf(as(asdf)df)asdf
becomes
asdf(as()df)asdf
- so, while what? -
-Original Message-
From: Joseph P. Discenza [mailto:[EMAIL PROTECTED]]
Sent: Thursday, June 07, 2001 8:53 AM
To: Ron Hartikka; perl win32 users
Subject: RE: RegEx: Finding and replacing all characters
Defined/Exists is NOT the issue here.
To paraphrase 'exists' entry in Camel 3 (but not Camel 2 or online docs):
When you say...
if(defined (((or exists $Hash{'Key1'}-{'Key2'} {'Key3'}){...
... Perl autovivifies the hash references $Hash{'Key1'} and
$Hash{'Key1'}-{'Key2'}.
You need to say
No regex in answer here but...
Is this what you want?
use File::Basename;
$OK = c:\\temp\\test\\test1\\test2;
$OK1 = dirname($OK);
print dir of
$OK
is
$OK1\n;
- Original Message -
From: [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Thursday, May 31, 2001 5:17 PM
Subject:
' We have the database so lets set the properties that we want.
CompObject.Value(ConstructionEnabled) = True
CompObject.Value(ConstructorString) = Chr(34) +
Provider=SQLOLEDB;Driver={SQL Server};User
ID=momma;Password=;DATABASE=BigDog;SERVER= strServer ; + Chr(34)
Anyone heard of
use strict;
# change this to a dir on your system
my $some_dir = 'C:\My Documents\My Pictures\PowerPics';
# create dir handle DIR first
opendir(DIR, $some_dir) || die can't opendir $some_dir: $!;
# array of file names from DIR
my @files = readdir(DIR);
# do something with your data
print join
From perlport document:
=
System calls accept either / or \ as the path separator.
However, many command?line utilities of DOS vintage treat / as the option
prefix,
so they may get confused by filenames containing /.
Aside from calling any
You can use / inside single or double quotes.
You can use \ inside single quotes.
You can use \\ inside double quotes.
You can't use \ inside single quotes. (Not for a dir separator, anyway: Perl
assumes you are starting an escape sequence)
- Original Message -
From: [EMAIL PROTECTED]
(SOURCE);
}
closedir(DIR);
opendir(DIR, $some_dir) || die canft opendir $some_dir: $!;
@dots = grep { /^\./ -f $some_dir/$_ } readdir(DIR);
closedir DIR;
- Original Message -
From: Tanya Graham [EMAIL PROTECTED]
To: 'Ron' [EMAIL PROTECTED]; perl win32 users
[EMAIL PROTECTED]
Sent
, 2001 6:03 PM
To: 'Ron'; perl win32 users
Subject: RE: directory
ok, for some reason if i hardcode it, it is fine. it won't
work if i try and
get it from STDIN. anyway, here is my program:
#!/usr/bin/perl
$dirname = 'C:/PerlExp';
opendir (DIR, $dirname) or die
Tanya,
next if($file =~ /^.+$/);# from Tushar
and...
next if $file eq '.' or file eq '..'; # from me
... do the same thing.
Unless you have a file called '...' or '...' :)
Ron
- Original Message -
From: Kulkarni, Tushar (GEL, MSX) [EMAIL PROTECTED]
To: 'Tanya
) . /PRE);
See what that does. You might have to explicitly call -Item('foo')-Value
or something. If the VBScript is working, I'd just use that.
- Ron
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman
too.
- Ron
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
You could use two, a function, instead of $two a scalar...
for $one qw(a b c d){
print two();
}
sub two{isn't this a nice $one!\n}
prints...
isn't this a nice a!
isn't this a nice b!
isn't this a nice c!
isn't this a nice d!
But, it's not pretty to embed the function call in a print
When I say, But, it's not pretty to embed the function call in a print
statement, I mean you can't put a function call in a scalar. You can put it
in the list to print.
I haven't tried it, but I think you can put a tied scalar in a scalar and
get the tied behavior, which is what you want.
Is there any way to prevent the Internet Explorer splash screen from
appearing when you create a non visible instance of an IE OLE object?
wantor
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
Outstanding! M$ really hid that one didn't they.
One correction for anyone following this thread. The key "Internet Explorer
needs to be two words, as in
HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Internet
Explorer\Infodelivery\Restrictions
Thanks Chuck,
wantor
-Original
Yes, I did try printing the page manually. When I print it manually, it
does not print the blank page. I went through all the printer settings and
didn't see anything that would cause a form feed, but I will double check
them.
wantor
-Original Message-
From: Jan Dubois
my( $var );
while( ) {
$var = $_ if ( m!SNML_BYLINE! .. m!/SNML_BYLINE! ) == 2;
# Other line-by-line processing, if any, goes here.
}
For those who are boggled by that, its explained in the Cookbook:
while () {
if (/BEGIN PATTERN/ .. /END PATTERN/) {
# line falls
$RECNUM = 0;
$RECCOUNT = 0;
while(! $RS-EOF) {
for ( $i = 0; $i $Count; $i++ )
{
$tmp = $RS-Fields($i)-value;
$tmp =~ s/\s+$//; # trim trailing white space
$amt = $tmp;
# No datachecking here! To
$telnet-cmd("su");
su should require a password so normal users cannot
arbitrarly becomeroot.
of null value to indicate that it would not be used. I have tried passing
under, "", '', "
I think undef is your best bet:
Depth( undef, undef, 'True', undef );
sub Depth {
foreach my $param ( @_ ) {
print "$param\n" if $param;
}
}
Depth($Dir,\%Files,'',15);
The third
Does anyone know if TPJ is officially "dead" ?
When this discussion popped up on Slashdot I hurried up and ordered some
back issues and recieved them a few weeks ( well more than a few ) later.
As far as I know there aren't going to be any new issues published. Which is
a real shame, that was
templating system to be called as an exec cgi on a Unix server. My concern
is, am I creating too much overhead, in that the perl interpreter with
load every time a page loads? Is this the smartest approach under these
circumstances or am I missing something obvious (no suprise) that would
Anyone who's looked at Word docs saved as HTML
knows it's frankly terrible. I'm doing a lot of
converting these HTML docs to XML, and wonder
if anyone has any effective routines to do the
job? If not, I'll try to get some stuff on
CPAN (always fun).
@file = A;
@file = reverse A;
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
wallclock secs ( 4.17 usr + 0.00 sys = 4.17 CPU)
---
I guess now its a question of is printf() two times slower than print()?
My two cents...
- Ron
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
close STDERR;
open (STDERR, "NUL");
That's what I wanted to do.
timethese( 5000 , {
'NumsAsStrings' = 'for ( $i = "001"; $i lt "501"; $i++ ) {print
STDERR $i}',
'NumsAsNums1' = 'for ( 1 .. 501 ) {printf STDERR "%03d", $_};',
'NumsAsNums2' = 'for ( $i=1; $i501;$i++)
Remember, the $ForVar1 is inside a regex. You need to write your wildcards
in regex syntax
foreach $ForVar1 ("ctr","e..","frm","fmx","i..","lgo"
wantor
-Original Message-
From: Dirk Bremer [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, April 04, 2001 11:37 AM
To:
I am no regex expert, but maybe it has to do with the underlying regex
engine (i.e. NFA, DFA etc) and the implicit/explicit greediness of that
engine for the specific boxes used.
Regardless of the implimentation of the engine, we should at least be
getting the same results across different
?[1;34mThis text is bold blue.
?[0mThis text is normal.
?[33;45mYellow on magenta.
?[0mThis text is normal.
in the dos box. Do I need to change something in my environment variables?
This question was asked last week(?). Phillip noted that the DOS box needs
an ANSI driver in order to know
was sent with success but i'm not receiving the message i sent to me just
Does Mail::Sender have a debug=1 parameter? Net::SMTP does. Perhaps you
could look at the output from that or check the mail in the perl@ mailbox to
see that none of the messages got returned.
1 - 100 of 156 matches
Mail list logo
