Mime::Lite and having the perly part just
*zip + Base64 the input, reversing it on the way out?
--
Steven Lembark 2930 W. Palmer
Workhorse Computing Chicago, IL 60647
+1 800 762 1582
{(...)[0]} should dispatch the thing
completely.
--
Steven Lembark 2930 W. Palmer
Workhorse Computing Chicago, IL 60647
+1 800 762 1582
=~ /($regex)/o )
{
# do what you like with $jumpz{$name}
}
--
Steven Lembark 2930 W. Palmer
Workhorse Computing Chicago, IL 60647
+1 800 762 1582
, no... AAGH
--
Steven Lembark 2930 W. Palmer
Workhorse Computing Chicago, IL 60647
+1 800 762 1582
that it is in the package you
expect it to be in.
--
Steven Lembark 2930 W. Palmer
Workhorse Computing Chicago, IL 60647
+1 800 762 1582
-- Puneet Kishor [EMAIL PROTECTED]
No harm done to macs.
Or to PC's either. If they are running *NIX :-)
--
Steven Lembark 2930 W. Palmer
Workhorse Computing Chicago, IL 60647
+1 800 762 1582
]|VI{0,3}|I{
1,3}|)/
or (without captures):
/M{0,3}(?:C[MD]|DC{0,3}|C{1,3}|)(?:X[CL]|LX{0,3}|X{1,3}|)(?:I[XV]|VI{0,3
}|I{1,3}|)/
Damian
-- End Forwarded Message --
--
Steven Lembark 2930 W. Palmer
Workhorse Computing
IMHO both of these are very rude to $str by making it receive data it
never wanted. This is then followed by an half hearted apology (oh sorry
my $str = join ',', grep { defined } @namz[0..89];
$str .= ', etc...' if @namz 90;
--
Steven Lembark 2930 W. Palmer
my ($i, $total);
($total += length) 90 ? $i++ : last for @ARGV;
$str = join ', ', @ARGV[0 .. $i];
$str .= ', etc' if $i $#ARGV;
my $a = substr join( ',', @namz ), 0, 89;
$a .= ',etc...' if length $a == 90;
--
Steven Lembark 2930 W. Palmer
Workhorse Computing
-- Michael G Schwern [EMAIL PROTECTED]
On Wed, Nov 20, 2002 at 02:07:18AM -0600, Steven Lembark wrote:
my ($i, $total);
($total += length) 90 ? $i++ : last for @ARGV;
$str = join ', ', @ARGV[0 .. $i];
$str .= ', etc' if $i $#ARGV;
my $a = substr join( ',', @namz ), 0, 89;
$a .= ',etc
-- Bart Lateur [EMAIL PROTECTED]
On Wed, 20 Nov 2002 04:10:02 -0600, Steven Lembark wrote:
sub commify
{
my ( $max, $sep, $end ) = ( shift, shift, shift );
...
}
Wow! Hold it! Am I the only one who finds this absurd? More than one
shift on the same array in one single expressing
is that even if there were only three
arguments being passed in you have to check the count
before making the assignment and croak on @_ != 3 in
order to avoid an extra parameter causing $end to
become an integer count.
--
Steven Lembark 2930 W. Palmer
Workhorse Computing
-- A. Pagaltzis [EMAIL PROTECTED]
* Steven Lembark [EMAIL PROTECTED] [2002-11-20 12:47]:
map
{
$sum $cut ?
( ($sum += $sln + length) $cut ? $_ : $end )
:
()
}
Wasted work. Two comparisons per element and you don't bail
once you've filled your available space.
Two
-- Pense, Joachim [EMAIL PROTECTED]
Bart Lateur [mailto:[EMAIL PROTECTED]] wrote:
(Mittwoch, 20. November 2002 11:43)
On Wed, 20 Nov 2002 04:10:02 -0600, Steven Lembark wrote:
sub commify
{
my ( $max, $sep, $end ) = ( shift, shift, shift );
...
}
Wow! Hold it! Am I the only one who
aren't using the return? This would
probably be clearer as a for loop.
--
Steven Lembark 2930 W. Palmer
Workhorse Computing Chicago, IL 60647
+1 800 762 1582
-- [EMAIL PROTECTED]
On Wed, 20 Nov 2002 12:30:46 -0600
Steven Lembark [EMAIL PROTECTED] wrote:
-- [EMAIL PROTECTED]
join ', ', grep{ ($b.=$_) !~ /.{91}/ || ?.? ($_ = 'etc.') } @names
Problem: the length does not include separators.
This will lead to over-length strings.
ack
-- Peter Scott [EMAIL PROTECTED]
In article [EMAIL PROTECTED],
[EMAIL PROTECTED] (Abigail) writes:
On Wed, Nov 20, 2002 at 11:42:43AM +0100, Bart Lateur wrote:
On Wed, 20 Nov 2002 04:10:02 -0600, Steven Lembark wrote:
sub commify
{
my ( $max, $sep, $end ) = ( shift, shift, shift
the
three items off in a void context after the assignment,
but at that point it seems easier to just assign the
shifts and be done with it in one place.
--
Steven Lembark 2930 W. Palmer
Workhorse Computing Chicago, IL 60647
for the trailer.
--
Steven Lembark 2930 W. Palmer
Workhorse Computing Chicago, IL 60647
+1 800 762 1582
-- Vladi Belperchinov-Shabanski [EMAIL PROTECTED]
On Wed, 20 Nov 2002 13:34:40 -
Pense, Joachim [EMAIL PROTECTED] wrote:
Bart Lateur [mailto:[EMAIL PROTECTED]] wrote:
(Mittwoch, 20. November 2002 11:43)
On Wed, 20 Nov 2002 04:10:02 -0600, Steven Lembark wrote:
sub commify
{
my
20 matches
Mail list logo