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
==
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
OUTER if done_with_this_iteration;
: }
: }
Good luck,
Joe
==
Joseph P. Discenza, Sr. Programmer/Analyst
mailto:[EMAIL PROTECTED]
Carleton Inc. http://www.carletoninc.com
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
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
(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
) 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
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
==
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
] = 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
?
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:jdiscenza;carletoninc.com
Carleton Inc. http://www.carletoninc.com
574.243.6040 ext. 300fax: 574.243.6060
Providing Financial Solutions
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
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
[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
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
==
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
==
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
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
... 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
) } @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
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
==
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
.
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
...
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
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
==
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
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
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
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
.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
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
($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
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
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
==
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
) {
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
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
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
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
: 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
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
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
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
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:[
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
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]
53 matches
Mail list logo