ble to do internally almost anything you'd
want to pass out to the shell, unless it's really an external command
you're calling.
Joe
==========
Joseph P. Discenza, Sr. Programmer/Analyst
mailto:[EMAIL PROTECTED]
List members:
Just in the new year, I've started getting a number of messages from
the list that have no line breaks. When I see other people's responses
to these same messages, they appear to have line breaks.
Has anyone else had this problem? It doesn't affect all messages,
just some (only
s an array ref. Look at your call:
you're passing in strings, not array refs.
Try removing the quotes in the call to "mail" and see if that helps.
Joe
==========
Joseph P. Discenza, Sr. Programmer/Analyst
mailto:[
with ActivePerl.
Joe
==
Joseph P. Discenza, Sr. Programmer/Analyst
mailto:[EMAIL PROTECTED]
Carleton Inc. http://www.carletoninc.com
219.243.6040 ext. 300fax: 219.243.6060
Providing Financial
ies);
Joe
==
Joseph P. Discenza, Sr. Programmer/Analyst
mailto:[EMAIL PROTECTED]
Carleton Inc. http://www.carletoninc.com
219.243.6040 ext. 300fax: 219.243.6060
Providing Financial Solutions and Compliance for ove
pt instead of retyping;
that way we don't try to fix typos that aren't in your script.
Also, this should probably be on the perl-win32-database list.
Joe
==
Joseph P. Discenza, Sr. Programmer/Analyst
mailto:[EMAIL
: and use it to print the data I need. Does this make sense or am
: I doing something wrong? TIA Greg
print ( grep (/^$var2/o, keys %hash));
should do what you want (untested, though).
Joe
==
Joseph P. Discenza, Sr
you could do a split(/\s+and\s+/, $query-{Find}) and same
: thing for
: or.
I'd split on or first to preserve algebraic precedence (assuming there
are no parentheses) of and over or.
Joe
==========
Joseph P. Discenza, Sr. Programmer
be done with it! Thanks!
Nothing wrong with your idea, but:
Why not just say "@names = keys get_sites();"?
Joe
==========
Joseph P. Discenza, Sr. Programmer/Analyst
mailto:[EMAIL PROTECTED]
Carleton
ning out to do.
Joe
======
Joseph P. Discenza, Sr. Programmer/Analyst
mailto:[EMAIL PROTECTED]
Carleton Inc. http://www.carletoninc.com
219.243.6040 ext. 300fax: 219.243.6060
Providing
) {
print $field-{Value};
}
You may have to stick an "-Item" in between $field {Value}; I
haven't worked with the Fields collection in Perl (I prefer to
call GetRows and work with the array).
Joe
==
Joseph P. Di
==
Joseph P. Discenza, Sr. Programmer/Analyst
mailto:[EMAIL PROTECTED]
Carleton Inc. http://www.carletoninc.com
219.243.6040 ext. 300fax: 219.243.6060
Providing Financial Solutions and Compliance for over 30 Years
suggests
What if you make it
s/\([^\(\)]+\)|\(\(\)\)/()/g;
? You could also stick that in a while, print it at each iteration,
and watch the innermost parenthetical expressions disappear.
Joe
==
Joseph P. Discenza, Sr
left.
s/value/bareword/;
Just being picky (pedantic). B)
Joe
==
Joseph P. Discenza, Sr. Programmer/Analyst
mailto:[EMAIL PROTECTED]
Carleton Inc. http://www.carletoninc.com
219.243.6040 ext
.ext?
perldoc File::Basename
Joe
==
Joseph P. Discenza, Sr. Programmer/Analyst
mailto:[EMAIL PROTECTED]
Carleton Inc. http://www.carletoninc.com
219.243.6040 ext. 300fax
perldoc with your installation of Perl? You don't even
have to buy a book (however good an idea that might be).
Joe
==
Joseph P. Discenza, Sr. Programmer/Analyst
mailto:[EMAIL PROTECTED]
Carleton
($lpPoint);
($x, $y) = unpack(LL, $lpPoint); # get the actual values
Good luck!
Joe
==
Joseph P. Discenza, Sr. Programmer/Analyst
mailto:[EMAIL PROTECTED]
Carleton Inc. http://www.carletoninc.com
Not tested, but looks ok?
Joe
==
Joseph P. Discenza, Sr. Programmer/Analyst
mailto:[EMAIL PROTECTED]
Carleton Inc. http://www.carletoninc.com
219.243.6040 ext. 300fax: 219.243.6060
Providing
noticed that it works when I say $Response-write($Request-
Form('txtName')) because then the $Response object knows how to
dereference it.
Hope this helps,
Joe
==
Joseph P. Discenza, Sr. Programmer/Analyst
if you really want smallest size first.
Joe
==
Joseph P. Discenza, Sr. Programmer/Analyst
mailto:[EMAIL PROTECTED]
Carleton Inc. http://www.carletoninc.com
219.243.6040 ext. 300fax
are that much slower than array
lookups, or at least not enough slower to justify the preprocess step.
Do you think we can impose upon our Original Poster to run some benchmarking
on his live data?
Joe
==
Joseph P. Discenza, Sr
for exploring
the idiom.
Joe
==
Joseph P. Discenza, Sr. Programmer/Analyst
mailto:[EMAIL PROTECTED]
Carleton Inc. http://www.carletoninc.com
219.243.6040 ext. 300fax: 219.243.6060
==
Joseph P. Discenza, Sr. Programmer/Analyst
mailto:[EMAIL PROTECTED]
Carleton Inc. http://www.carletoninc.com
219.243.6040 ext. 300fax: 219.243.6060
Providing Financial Solutions and Compliance for over 30 Years
of myscalar), and
it even returns undef if you try to read completely outside $myscalar.
Joe
==
Joseph P. Discenza, Sr. Programmer/Analyst
mailto:[EMAIL PROTECTED]
Carleton Inc. http
...
Does this not work?
sub GetText {
my $this = shift;
return $this-{'mimeparts'}{'html'};
}
Good luck,
Joe
==
Joseph P. Discenza, Sr. Programmer/Analyst
mailto
Thomas Bätzler wrote, on Monday, March 11, 2002 10:46 AM
: Joseph P. Discenza [[EMAIL PROTECTED]] wrote:
: Frederic Bournival wrote
: : $this-{mimeparts}is an Hash Array and
: : i want to get the value of this hash with the 'html' key ...
:
: Does this not work?
:
: return
.
Good luck,
Joe
==
Joseph P. Discenza, Sr. Programmer/Analyst
mailto:[EMAIL PROTECTED]
Carleton Inc. http://www.carletoninc.com
574.243.6040 ext. 300fax: 574.243.6060
Providing
==
Joseph P. Discenza, Sr. Programmer/Analyst
mailto:[EMAIL PROTECTED]
Carleton Inc. http://www.carletoninc.com
574.243.6040 ext. 300fax: 574.243.6060
Providing Financial Solutions and Compliance for over 30
is your friend; learn how to use it and powerful in Perl will you be.
Joe
==
Joseph P. Discenza, Sr. Programmer/Analyst
mailto:[EMAIL PROTECTED]
Carleton Inc. http://www.carletoninc.com
) } @unsorted;
Good luck,
Joe
==
Joseph P. Discenza, Sr. Programmer/Analyst
mailto:[EMAIL PROTECTED]
Carleton Inc. http://www.carletoninc.com
574.243.6040 ext. 300fax: 574.243.6060
... divide by 100?
Joe
==
Joseph P. Discenza, Sr. Programmer/Analyst
mailto:[EMAIL PROTECTED]
Carleton Inc. http://www.carletoninc.com
574.243.6040 ext. 300fax: 574.243.6060
Providing
suggested that
a trailing newline could be your problem; it certainly isn't.
Are you absolutely sure your input is C:\? Can you print it
out before the match?
Joe
==
Joseph P. Discenza, Sr. Programmer/Analyst
mailto
==
Joseph P. Discenza, Sr. Programmer/Analyst
mailto:[EMAIL PROTECTED]
Carleton Inc. http://www.carletoninc.com
574.243.6040 ext. 300fax: 574.243.6060
Providing Financial Solutions and Compliance for over 30 Years
* Please note that our
==
Joseph P. Discenza, Sr. Programmer/Analyst
mailto:[EMAIL PROTECTED]
Carleton Inc. http://www.carletoninc.com
574.243.6040 ext. 300fax: 574.243.6060
Providing Financial Solutions and Compliance for over 30 Years
* Please note that our Area Code has
characters!
The final word absorbs any remaining characters; no input shown has
more than five more, and your output expects it to be a single,
fourth, word.
Joe
==
Joseph P. Discenza, Sr. Programmer/Analyst
[EMAIL PROTECTED] wrote, on Wednesday, October 30, 2002 1:11 PM
: Doesn't Perl have Trim function?
Obviously you're confusing Perl with VB. B^)
Joe
==
Joseph P. Discenza, Sr. Programmer/Analyst
mailto:jdiscenza
instead of n:
perl -pi.bak next if ($i++ 4) [filename(s)]
Good luck,
Joe
==
Joseph P. Discenza, Sr. Programmer/Analyst
mailto:jdiscenza;carletoninc.com
Carleton Inc. http
first try
probably would be.
Joe
==
Joseph P. Discenza, Sr. Programmer/Analyst
mailto:jdiscenza;carletoninc.com
Carleton Inc. http://www.carletoninc.com
574.243.6040 ext. 300fax
==
Joseph P. Discenza, Sr. Programmer/Analyst
mailto:jdiscenza;carletoninc.com
Carleton Inc. http://www.carletoninc.com
574.243.6040 ext. 300fax: 574.243.6060
Providing Financial Solutions
?
Good luck,
Joe
==
Joseph P. Discenza, Sr. Programmer/Analyst
mailto:[EMAIL PROTECTED]
Carleton Inc. http://www.carletoninc.com
574.243.6040 ext. 300fax: 574.243.6060
Providing
==
Joseph P. Discenza, Sr. Programmer/Analyst
mailto:[EMAIL PROTECTED]
Carleton Inc. http://www.carletoninc.com
574.243.6040 ext. 300fax: 574.243.6060
Providing Financial Solutions and Compliance for over 30 Years
] = substr($mystring, $offset, $_-[1]);
$offset += $_-[1];
}
Feel free to use a meaningful loop variable (rather than $_),
but two lines is short enough to keep the meaning clear.
Joe
==
Joseph P. Discenza, Sr. Programmer
==
Joseph P. Discenza, Sr. Programmer/Analyst
mailto:[EMAIL PROTECTED]
Carleton Inc. http://www.carletoninc.com
574.243.6040 ext. 300fax: 574.243.6060
Providing Financial Solutions and Compliance for over 30 Years
* Please
and -w
to get debugging help. And don't be afraid to make short little programs
to test individual parts, and look at Data::Dumper to look deep into
these nested hashes for debugging.
Good luck,
Joe
==
Joseph P. Discenza, Sr
) the forward
slash doesn't need escaping anyway since there's no slashes enclosing the
regex, that you don't want to escape that slash. Try just /a instead of
\/a.
Good luck,
Joe
==
Joseph P. Discenza, Sr. Programmer/Analyst
than the
unsorted version, but just the wrong order?
Joe
==
Joseph P. Discenza, Sr. Programmer/Analyst
mailto:[EMAIL PROTECTED]
Carleton Inc. http://www.carletoninc.com
574.243.6040 ext
(if they're numbers, replace cmp with =).
Good luck,
Joe
==
Joseph P. Discenza, Sr. Programmer/Analyst
mailto:[EMAIL PROTECTED]
Carleton Inc. http://www.carletoninc.com
574.243.6040 ext. 300
($m1) eq uc($t1)) {
should do what you want.
Good luck,
Joe
==
Joseph P. Discenza, Sr. Programmer/Analyst
mailto:[EMAIL PROTECTED]
Carleton Inc. http://www.carletoninc.com
574.243.6040
should be printed in the
: next line. Can anybody help me with this?
Look at the module Text::Wrap. It will do what you want.
Joe
==
Joseph P. Discenza, Sr. Programmer/Analyst
mailto:[EMAIL PROTECTED
by either the beginning
of the line or a non-word character. I also bet you *do* want to allow one-
character variables? If not, change the * back to a +.
Good luck,
Joe
==
Joseph P. Discenza, Sr. Programmer/Analyst
OUTER if done_with_this_iteration;
: }
: }
Good luck,
Joe
==
Joseph P. Discenza, Sr. Programmer/Analyst
mailto:[EMAIL PROTECTED]
Carleton Inc. http://www.carletoninc.com
==
Joseph P. Discenza, Sr. Programmer/Analyst
mailto:[EMAIL PROTECTED]
Carleton Inc. http://www.carletoninc.com
574.243.6040 ext. 300fax: 574.243.6060
Providing Financial Solutions and Compliance for over 30
Erich C. Beyrent wrote, on Friday, May 30, 2003 15:37
: print STDOUT $data{params}.\n;
print STDOUT @{$data{params}},\n;
Good luck,
Joe
==
Joseph P. Discenza, Sr. Programmer/Analyst
mailto:[EMAIL PROTECTED
53 matches
Mail list logo