waiting for notification by the OS via a signal when
the child dies.
You can use 'threads::shared' to share a vrbl or use a semaphore or
mutex (Win32::Semaphore Win32::Mutex) to handle your thread control.
--
,-/- __ _ _ $Bill LuebkertMailto:[EMAIL PROTECTED
to do it.
--
,-/- __ _ _ $Bill LuebkertMailto:[EMAIL PROTECTED]
(_/ / )// // DBE CollectiblesMailto:[EMAIL PROTECTED]
/ ) /-- o // // Castle of Medieval Myth Magic http://www.todbe.com/
-/-' /___/__/_/_http://dbecoll.tripod.com/ (My Perl/Lakers
was looking for abcde?
Sounds good - why are you asking me - can't you type that into vim and run it ?
--
,-/- __ _ _ $Bill LuebkertMailto:[EMAIL PROTECTED]
(_/ / )// // DBE CollectiblesMailto:[EMAIL PROTECTED]
/ ) /-- o // // Castle of Medieval Myth
) and is a pure Perl implementaion I
believe.
--
,-/- __ _ _ $Bill LuebkertMailto:[EMAIL PROTECTED]
(_/ / )// // DBE CollectiblesMailto:[EMAIL PROTECTED]
/ ) /-- o // // Castle of Medieval Myth Magic http://www.todbe.com/
-/-' /___/__/_/_http
) =~ s/^.*[\\\/]//;
--
,-/- __ _ _ $Bill LuebkertMailto:[EMAIL PROTECTED]
(_/ / )// // DBE CollectiblesMailto:[EMAIL PROTECTED]
/ ) /-- o // // Castle of Medieval Myth Magic http://www.todbe.com/
-/-' /___/__/_/_http://dbecoll.tripod.com/ (My Perl
using the substr
function but I do not believe that is the appropriate function.
The strings will_look_like_this and I want them to will look like this
$str =~ tr/_/ /;
--
,-/- __ _ _ $Bill LuebkertMailto:[EMAIL PROTECTED]
(_/ / )// // DBE CollectiblesMailto
MJG wrote:
Ok, next dumb question If I want the path and not the EXE file, how
would this play out?
Thanks again.
MJG
-Original Message-
From: $Bill Luebkert [mailto:[EMAIL PROTECTED]
Sent: Sunday, February 27, 2005 11:57 AM
To: MJG
Cc: perl-win32-users
would need to supply a sample source file and an expected
output file before I could make any RE suggestions. You would need to
include all possible options of tags you want to either remove or leave.
--
,-/- __ _ _ $Bill LuebkertMailto:[EMAIL PROTECTED
and had to disable it to get
your code to fail.
--
,-/- __ _ _ $Bill LuebkertMailto:[EMAIL PROTECTED]
(_/ / )// // DBE CollectiblesMailto:[EMAIL PROTECTED]
/ ) /-- o // // Castle of Medieval Myth Magic http://www.todbe.com/
-/-' /___/__/_/_http
[EMAIL PROTECTED] wrote:
Hi all,
Any good hints for PGP solutions? I need to ftp a file but need to encrypt
it first using PGP.
Does it have to be PGP ? I have an RSA solution that may suffice.
--
,-/- __ _ _ $Bill LuebkertMailto:[EMAIL PROTECTED
Learned to Stop .
Worrying and Love the Bomb;
print $x, \n;
for my $style (qw( sentence title highlight ))
{
print autoformat($x, { case = $style }), \n;
}
--
,-/- __ _ _ $Bill LuebkertMailto:[EMAIL PROTECTED
are not released by a continue operation if they are suspended.
See Also
SuspendThread
--
,-/- __ _ _ $Bill LuebkertMailto:[EMAIL PROTECTED]
(_/ / )// // DBE CollectiblesMailto:[EMAIL PROTECTED]
/ ) /-- o // // Castle of Medieval Myth Magic http
.
--
,-/- __ _ _ $Bill LuebkertMailto:[EMAIL PROTECTED]
(_/ / )// // DBE CollectiblesMailto:[EMAIL PROTECTED]
/ ) /-- o // // Castle of Medieval Myth Magic http://www.todbe.com/
-/-' /___/__/_/_http://dbecoll.tripod.com/ (My Perl/Lakers stuff
--
,-/- __ _ _ $Bill LuebkertMailto:[EMAIL PROTECTED]
(_/ / )// // DBE CollectiblesMailto:[EMAIL PROTECTED]
/ ) /-- o // // Castle of Medieval Myth Magic http://www.todbe.com/
-/-' /___/__/_/_http://dbecoll.tripod.com/ (My Perl/Lakers stuff
.
--
,-/- __ _ _ $Bill LuebkertMailto:[EMAIL PROTECTED]
(_/ / )// // DBE CollectiblesMailto:[EMAIL PROTECTED]
/ ) /-- o // // Castle of Medieval Myth Magic http://www.todbe.com/
-/-' /___/__/_/_http://dbecoll.tripod.com/ (My Perl/Lakers stuff
be a reference to a M$ bug report
I think - that should explain it.
--
,-/- __ _ _ $Bill LuebkertMailto:[EMAIL PROTECTED]
(_/ / )// // DBE CollectiblesMailto:[EMAIL PROTECTED]
/ ) /-- o // // Castle of Medieval Myth Magic http://www.todbe.com
:
Randy Kobes [EMAIL PROTECTED]
--
,-/- __ _ _ $Bill LuebkertMailto:[EMAIL PROTECTED]
(_/ / )// // DBE CollectiblesMailto:[EMAIL PROTECTED]
/ ) /-- o // // Castle of Medieval Myth Magic http://www.todbe.com/
-/-' /___/__/_/_http
scraping the internet a piece of cake!
Thsi may be useful :
http://schmerg.pwp.blueyonder.co.uk/HttpSniffer.pl.txt
--
,-/- __ _ _ $Bill LuebkertMailto:[EMAIL PROTECTED]
(_/ / )// // DBE CollectiblesMailto:[EMAIL PROTECTED]
/ ) /-- o // // Castle
' since perl is on my path. Not much harder
than typing 'script.pl'. Using a UNIX shell though you can have a shebang
line and still get it to work with just 'script.pl' - I usually don't
bother though since it defeats file completion in the shell.
--
,-/- __ _ _ $Bill Luebkert
{...} called at (eval 1) line 662
PerlEx::Precompiler::Execute('D:\EasyIEP\wwwroot\easyiep.plx',
'op=doreportCustomerName=testingSessionID=944158081') called at -e line 0
eval {...} called at -e line 0
--
,-/- __ _ _ $Bill LuebkertMailto:[EMAIL PROTECTED
installed the Activestate Perl, you should use PPM to do your installs.
Just type ppm or ppm3 and search for net-telnet and install one of the
responses.
You can add 'http://theoryx5.uwinnipeg.ca/ppms/' as a repository.
--
,-/- __ _ _ $Bill LuebkertMailto:[EMAIL PROTECTED
the Perl binary with .pl files so get a similar effect (for .pl files
at least).
--
,-/- __ _ _ $Bill LuebkertMailto:[EMAIL PROTECTED]
(_/ / )// // DBE CollectiblesMailto:[EMAIL PROTECTED]
/ ) /-- o // // Castle of Medieval Myth Magic http
is version 1.0 - try adding this repos:
http://www.bribes.org/perl/ppm/
--
,-/- __ _ _ $Bill LuebkertMailto:[EMAIL PROTECTED]
(_/ / )// // DBE CollectiblesMailto:[EMAIL PROTECTED]
/ ) /-- o // // Castle of Medieval Myth Magic http://www.todbe.com
print $content;
}
--
,-/- __ _ _ $Bill LuebkertMailto:[EMAIL PROTECTED]
(_/ / )// // DBE CollectiblesMailto:[EMAIL PROTECTED]
/ ) /-- o // // Castle of Medieval Myth Magic
and toggle it and see if that helps.
--
,-/- __ _ _ $Bill LuebkertMailto:[EMAIL PROTECTED]
(_/ / )// // DBE CollectiblesMailto:[EMAIL PROTECTED]
/ ) /-- o // // Castle of Medieval Myth Magic http://www.todbe.com/
-/-' /___/__/_/_http://dbecoll.tripod.com
- but that would just be one window at a time.
--
,-/- __ _ _ $Bill LuebkertMailto:[EMAIL PROTECTED]
(_/ / )// // DBE CollectiblesMailto:[EMAIL PROTECTED]
/ ) /-- o // // Castle of Medieval Myth Magic http://www.todbe.com/
-/-' /___/__/_/_http
-Call($searchHandle, $FileInfo));
#
# if (Win32::GetLastError() != ERROR_NO_MORE_FILES) {
# die $^E;
# }
$FindClose-Call($searchHandle) or die $^E;
}
--
,-/- __ _ _ $Bill LuebkertMailto:[EMAIL PROTECTED]
(_/ / )// // DBE
);
# or
print sleeping 2\n;
Win32::Sleep($usecs / 1000);
}
__END__
--
,-/- __ _ _ $Bill LuebkertMailto:[EMAIL PROTECTED]
(_/ / )// // DBE CollectiblesMailto:[EMAIL PROTECTED]
/ ) /-- o // // Castle of Medieval Myth Magic http://www.todbe.com
--
,-/- __ _ _ $Bill LuebkertMailto:[EMAIL PROTECTED]
(_/ / )// // DBE CollectiblesMailto:[EMAIL PROTECTED]
/ ) /-- o // // Castle of Medieval Myth Magic http://www.todbe.com/
-/-' /___/__/_/_http://dbecoll.tripod.com/ (My Perl/Lakers stuff
seems to be giving me PST. I've overcome this for now by
using gmtime. But that sucks.
+8 *is* PT. Do you have your TZ environment vrbl set by any chance ?
My other machines work fine, whats up with this particular one?
--
,-/- __ _ _ $Bill LuebkertMailto:[EMAIL PROTECTED
or WST. maybe something like: 'SST-8SDT'
--
,-/- __ _ _ $Bill LuebkertMailto:[EMAIL PROTECTED]
(_/ / )// // DBE CollectiblesMailto:[EMAIL PROTECTED]
/ ) /-- o // // Castle of Medieval Myth Magic http://www.todbe.com/
-/-' /___/__/_/_http
;).
--
,-/- __ _ _ $Bill LuebkertMailto:[EMAIL PROTECTED]
(_/ / )// // DBE CollectiblesMailto:[EMAIL PROTECTED]
/ ) /-- o // // Castle of Medieval Myth Magic http://www.todbe.com/
-/-' /___/__/_/_http://dbecoll.tripod.com/ (My Perl/Lakers stuff
for a child process to terminate - not needed in many
cases since a system call for example would include a wait by default.
sleep just delays execution for the requested number of seconds.
Read perlfunc man page/HTML.
--
,-/- __ _ _ $Bill LuebkertMailto:[EMAIL PROTECTED
to unpack the response.
Have tried:
C,CC,c,cc,I,II,I,ii,V,v,N,N etc...
Actually it returns an int, so i would be more correct than l.
--
,-/- __ _ _ $Bill LuebkertMailto:[EMAIL PROTECTED]
(_/ / )// // DBE CollectiblesMailto:[EMAIL PROTECTED]
/ ) /-- o
--
,-/- __ _ _ $Bill LuebkertMailto:[EMAIL PROTECTED]
(_/ / )// // DBE CollectiblesMailto:[EMAIL PROTECTED]
/ ) /-- o // // Castle of Medieval Myth Magic http://www.todbe.com/
-/-' /___/__/_/_http://dbecoll.tripod.com/ (My Perl/Lakers stuff
is
emulating) - so what's the point ? You can rename one or use a full
path to get the one that's not first on your path.
--
,-/- __ _ _ $Bill LuebkertMailto:[EMAIL PROTECTED]
(_/ / )// // DBE CollectiblesMailto:[EMAIL PROTECTED]
/ ) /-- o
Suresh Govindachar wrote:
$Bill Luebkert Sent on 05 Jan 2005 12:09:39 -0800:
Suresh Govindachar wrote:
Hello,
The ppt (Unix Reconstruction Project 0.14) and lwp
have three files with the same name (ignoring case):
on Windows:
perl/bin/HEAD
perl/bin/HEAD.bat
perl/html
understand why the html file need not be renamed -- it
(HEAD.html) did get overwritten (by a different head.html).
I didn't know you had used PPM to install PPT. I doubt there are
HTML files for PPT, but maybe when you use PPM there are.
--
,-/- __ _ _ $Bill LuebkertMailto
= int $delta / 60; $delta %= 60;
my $secs = $delta;
print Days: $days, Hours: $hours, Minutes: $mins, Seconds: $secs\n;
__END__
Date::Calc::Delta_DHMS(): not a valid date at ./time.pl line 10.
--
,-/- __ _ _ $Bill LuebkertMailto:[EMAIL PROTECTED
-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
--
,-/- __ _ _ $Bill LuebkertMailto:[EMAIL PROTECTED]
(_/ / )// // DBE CollectiblesMailto:[EMAIL PROTECTED]
/ ) /-- o // // Castle of Medieval Myth
--
,-/- __ _ _ $Bill LuebkertMailto:[EMAIL PROTECTED]
(_/ / )// // DBE CollectiblesMailto:[EMAIL PROTECTED]
/ ) /-- o // // Castle of Medieval Myth Magic http://www.todbe.com/
-/-' /___/__/_/_http://dbecoll.tripod.com/ (My Perl/Lakers stuff
any existing IE browsers when
run on 3 other PC's, all running the same version of Windows (XP
Professional), Perl (ActivePerl 5.8.6), and IE (6.0).
Could this be some kind of Windows security configuration issue?
Share some minimal code snippet.
--
,-/- __ _ _ $Bill
I've tried Call(), Call(''), Call(1), and others but all throw the
exception. Does anyone see what I have done wrong? TIA.
--
,-/- __ _ _ $Bill LuebkertMailto:[EMAIL PROTECTED]
(_/ / )// // DBE CollectiblesMailto:[EMAIL PROTECTED]
/ ) /-- o
.
--
,-/- __ _ _ $Bill LuebkertMailto:[EMAIL PROTECTED]
(_/ / )// // DBE CollectiblesMailto:[EMAIL PROTECTED]
/ ) /-- o // // Castle of Medieval Myth Magic http://www.todbe.com/
-/-' /___/__/_/_http://dbecoll.tripod.com/ (My Perl/Lakers stuff
--
,-/- __ _ _ $Bill LuebkertMailto:[EMAIL PROTECTED]
(_/ / )// // DBE CollectiblesMailto:[EMAIL PROTECTED]
/ ) /-- o // // Castle of Medieval Myth Magic http://www.todbe.com/
-/-' /___/__/_/_http://dbecoll.tripod.com/ (My Perl/Lakers stuff
) / 86400;
print Remaining days = $rem_days\n;
} else {
print Current date not a future date\n;
}
__END__
--
,-/- __ _ _ $Bill LuebkertMailto:[EMAIL PROTECTED]
(_/ / )// // DBE CollectiblesMailto:[EMAIL PROTECTED]
/ ) /-- o // // Castle
dates\n;
}
--
,-/- __ _ _ $Bill LuebkertMailto:[EMAIL PROTECTED]
(_/ / )// // DBE CollectiblesMailto:[EMAIL PROTECTED]
/ ) /-- o // // Castle of Medieval Myth Magic http://www.todbe.com/
-/-' /___/__/_/_http://dbecoll.tripod.com/ (My Perl/Lakers
Ted Schuerzinger wrote:
$Bill Luebkert graced perl with these words of wisdom:
Jones Robert Civ TTMS Keesler wrote:
A better option would be to use the Date::Calc module.
That's your opinion - I seldom if ever need to use any of the Date
modules. If you had said 'another option', I
stopped.
I thought it had something to do with buffering, so I added $|=1;
But that didn't help.
Any ideas??
--
,-/- __ _ _ $Bill LuebkertMailto:[EMAIL PROTECTED]
(_/ / )// // DBE CollectiblesMailto:[EMAIL PROTECTED]
/ ) /-- o // // Castle
; # in case prior to 1970/01/01
return $epoch;
}
__END__
--
,-/- __ _ _ $Bill LuebkertMailto:[EMAIL PROTECTED]
(_/ / )// // DBE CollectiblesMailto:[EMAIL PROTECTED]
/ ) /-- o // // Castle of Medieval Myth Magic http://www.todbe.com
portion in quotes:
perl -i.bak -pe s/^ext$/HARP/m fred.txt
Try that and let us know.
--
,-/- __ _ _ $Bill LuebkertMailto:[EMAIL PROTECTED]
(_/ / )// // DBE CollectiblesMailto:[EMAIL PROTECTED]
/ ) /-- o // // Castle of Medieval Myth Magic http
to reverse the fields and
then to convert to float). You could also use bit shifting, or'ing and and'ing
to reverse the fields if they're not in native order.
--
,-/- __ _ _ $Bill LuebkertMailto:[EMAIL PROTECTED]
(_/ / )// // DBE CollectiblesMailto:[EMAIL
(truncated if need be, but without changing
the format) and supply the offset and length into the data to the
field in question and I'll be glad to verify code to extract the float.
PS: Drop the return receipt
--
,-/- __ _ _ $Bill LuebkertMailto:[EMAIL PROTECTED
method, but
not sure if it's dependent on Authen::SASL or not.
--
,-/- __ _ _ $Bill LuebkertMailto:[EMAIL PROTECTED]
(_/ / )// // DBE CollectiblesMailto:[EMAIL PROTECTED]
/ ) /-- o // // Castle of Medieval Myth Magic http://www.todbe.com
run a 32-bit Perl. Just my guess. :)
--
,-/- __ _ _ $Bill LuebkertMailto:[EMAIL PROTECTED]
(_/ / )// // DBE CollectiblesMailto:[EMAIL PROTECTED]
/ ) /-- o // // Castle of Medieval Myth Magic http://www.todbe.com/
-/-' /___/__/_/_http
uses the switches on the shebang line after the path.
--
,-/- __ _ _ $Bill LuebkertMailto:[EMAIL PROTECTED]
(_/ / )// // DBE CollectiblesMailto:[EMAIL PROTECTED]
/ ) /-- o // // Castle of Medieval Myth Magic http://www.todbe.com
: print trtd$var1/td/tr\n; )
--
,-/- __ _ _ $Bill LuebkertMailto:[EMAIL PROTECTED]
(_/ / )// // DBE CollectiblesMailto:[EMAIL PROTECTED]
/ ) /-- o // // Castle of Medieval Myth Magic http://www.todbe.com/
-/-' /___/__/_/_http://dbecoll.tripod.com
Greg Wardawy wrote:
From: $Bill Luebkert [EMAIL PROTECTED]
Greg Wardawy wrote:
Thanks a lot $Bill. I will try all of your suggestions.
So, there is no way to write the script, execute it as a SSI inside the
cell
of the table:
---SNIP---
tr
th width=60 scope=row1/th
td width=180
Lasher, Brian wrote:
Is there any way to keep the black command-prompt looking box from
popping up when executing perl script on win 32 platform?
Please post in plain text.
Have you tried using wperl instead off perl ?
--
,-/- __ _ _ $Bill LuebkertMailto:[EMAIL
or some such.
--
,-/- __ _ _ $Bill LuebkertMailto:[EMAIL PROTECTED]
(_/ / )// // DBE CollectiblesMailto:[EMAIL PROTECTED]
/ ) /-- o // // Castle of Medieval Myth Magic http://www.todbe.com/
-/-' /___/__/_/_http://dbecoll.tripod.com/ (My Perl/Lakers
ZABC
How can I do this ?
Taken directly from sort func on perlfumc man page :
# now case-insensitively
@articles = sort {uc($a) cmp uc($b)} @files;
--
,-/- __ _ _ $Bill LuebkertMailto:[EMAIL PROTECTED]
(_/ / )// // DBE
Ted Schuerzinger wrote:
$Bill Luebkert graced perl with these words of wisdom:
command prompt wperl perlscript.pl
The shebang line version you're trying to do would require a separate
file assoc of wperl to say .plw or some such.
Isn't the command prompt part of the black box
value to the
cell avoiding sending the cell with a new value.
I'm probably missing why you would need to do it though. Why not just
hardcode it ? Is the value changing somehow ?
--
,-/- __ _ _ $Bill LuebkertMailto:[EMAIL PROTECTED]
(_/ / )// // DBE
to have
any effect.
--
,-/- __ _ _ $Bill LuebkertMailto:[EMAIL PROTECTED]
(_/ / )// // DBE CollectiblesMailto:[EMAIL PROTECTED]
/ ) /-- o // // Castle of Medieval Myth Magic http://www.todbe.com/
-/-' /___/__/_/_http://dbecoll.tripod.com/ (My Perl
--
,-/- __ _ _ $Bill LuebkertMailto:[EMAIL PROTECTED]
(_/ / )// // DBE CollectiblesMailto:[EMAIL PROTECTED]
/ ) /-- o // // Castle of Medieval Myth Magic http://www.todbe.com/
-/-' /___/__/_/_http://dbecoll.tripod.com/ (My Perl/Lakers stuff
by a
=
--
,-/- __ _ _ $Bill LuebkertMailto:[EMAIL PROTECTED]
(_/ / )// // DBE CollectiblesMailto:[EMAIL PROTECTED]
/ ) /-- o // // Castle of Medieval Myth Magic http://www.todbe.com/
-/-' /___/__/_/_http://dbecoll.tripod.com/ (My Perl/Lakers stuff
this should be so? Is it a bug in Win32::API::Struct
or ::Type?
It's a bug. On or about line 155 in Win32::API::Type.pm, you will find :
if($is_pointer and $packing eq 'c') {
One fix is to change it to :
if ($is_pointer and lc $packing eq 'c') {
--
,-/- __ _ _ $Bill Luebkert
without showing the window? It's very unnerving.
Have you tried substituting wperl for perl ?
--
,-/- __ _ _ $Bill LuebkertMailto:[EMAIL PROTECTED]
(_/ / )// // DBE CollectiblesMailto:[EMAIL PROTECTED]
/ ) /-- o // // Castle of Medieval Myth Magic
:
netstat will show ports in use and has an option to show which process
sysyinternals has a program called tcpview that will show you what
processes have what ports in use.
--
,-/- __ _ _ $Bill LuebkertMailto:[EMAIL PROTECTED]
(_/ / )// // DBE Collectibles
support WMI.
die Unrecognized base Windows version $base_ver;
}
}
return $ret;
}
#- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
__END__
--
,-/- __ _ _ $Bill LuebkertMailto:[EMAIL PROTECTED]
(_/ / )// // DBE
?
I've never seen a DOS utility that hasn't already been done in UNIX.
What is the utility ? THe easiest solution is to use a UNIX equivalent.
--
,-/- __ _ _ $Bill LuebkertMailto:[EMAIL PROTECTED]
(_/ / )// // DBE CollectiblesMailto:[EMAIL PROTECTED
think opening a listening socket on that port should handle it.
--
,-/- __ _ _ $Bill LuebkertMailto:[EMAIL PROTECTED]
(_/ / )// // DBE CollectiblesMailto:[EMAIL PROTECTED]
/ ) /-- o // // Castle of Medieval Myth Magic http://www.todbe.com
-$method($dest_x, $dest_y, # line 164
$dest_x + 40, $dest_y + 40, -fill = $fill,
);
make_bindings $c_dest, $id;
} # end move_bbox
--
,-/- __ _ _ $Bill LuebkertMailto:[EMAIL PROTECTED]
(_/ / )// // DBE CollectiblesMailto
order 1 bit
$x =~ /(.)(.{11})(.{52})/;
printf %.6e : \n, $num;
print sign=$1\nexp=$2\nman=$3\n;
}
__END__
--
,-/- __ _ _ $Bill LuebkertMailto:[EMAIL PROTECTED]
(_/ / )// // DBE CollectiblesMailto:[EMAIL
', 'MaximumWorkingSetSize', ) {
print $_ = , $info-{$_} || 'undef', \n;
}
print \n;
}
__END__
--
,-/- __ _ _ $Bill LuebkertMailto:[EMAIL PROTECTED]
(_/ / )// // DBE CollectiblesMailto:[EMAIL PROTECTED]
/ ) /-- o // // Castle of Medieval
(@localID) {
if ($matchID eq $_) {
return ($person{name}-{$matchID}, $person{age}-{$matchID},
$person{school}-{$matchID});
}
}
return No such Id in database;
}
__END__
--
,-/- __ _ _ $Bill LuebkertMailto:[EMAIL PROTECTED
:)
Easiest thing would be to connect to a webserver on the AIX machine and
use CGI to parse the log file. If you can't use a webserver, you'll need
to either have a daemon running and connect with sockets or use rsh to
run a command on AIX.
--
,-/- __ _ _ $Bill Luebkert
more sense :
my $xx = 0x1011;
$xx |= 0xFF01;
$xx = 1;
printf %016b\n, $xx;
--
,-/- __ _ _ $Bill LuebkertMailto:[EMAIL PROTECTED]
(_/ / )// // DBE CollectiblesMailto:[EMAIL PROTECTED]
/ ) /-- o // // Castle of Medieval Myth Magic http
, and don't forget:
I'm trying to do this on a windows system, not unix.
--
,-/- __ _ _ $Bill LuebkertMailto:[EMAIL PROTECTED]
(_/ / )// // DBE CollectiblesMailto:[EMAIL PROTECTED]
/ ) /-- o // // Castle of Medieval Myth Magic http://www.todbe.com
) ? ($a += 10) : $a) += 2
Rather than this:
($a % 2) ? ($a += 10) : ($a += 2)
That should probably be written more simply as:
$a += ($a % 2) ? 10 : 2;
--
,-/- __ _ _ $Bill LuebkertMailto:[EMAIL PROTECTED]
(_/ / )// // DBE Collectibles
Error is %d - %s\n, Win32::GetLastError (),
Win32::FormatMessage (Win32::GetLastError ());
} else {
print Data::Dumper-Dump([$FileInfo], [qw($FileInfo)]);
}
__END__
--
,-/- __ _ _ $Bill LuebkertMailto:[EMAIL PROTECTED]
(_/ / )// // DBE
have to try alternate methods
for everything until you find something that works. :)
--
,-/- __ _ _ $Bill LuebkertMailto:[EMAIL PROTECTED]
(_/ / )// // DBE CollectiblesMailto:[EMAIL PROTECTED]
/ ) /-- o // // Castle of Medieval Myth Magic http
-= 11644473600; # change offset to jan
1, 1970
return $vt;
}
--
,-/- __ _ _ $Bill LuebkertMailto:[EMAIL PROTECTED]
(_/ / )// // DBE CollectiblesMailto:[EMAIL PROTECTED]
/ ) /-- o // // Castle of Medieval Myth Magic http
Ken Cornetet wrote:
It's passed as a string.
And that would work how with his incoming file time as 2 32-bit integers ?
From: $Bill Luebkert [mailto:[EMAIL PROTECTED]
Sent: Wednesday, November 17, 2004 12:02 PM
To: Ken Cornetet
Cc: [EMAIL PROTECTED]
Subject: Re: Remote Stat - Slow
John Serink wrote:
Hi All:
Anyone know what the maximum number of threads a Win32 perl app can
spawn?
Too easy - just write a loop and count them yourself.
--
,-/- __ _ _ $Bill LuebkertMailto:[EMAIL PROTECTED]
(_/ / )// // DBE CollectiblesMailto
; # kill off tee and resort to STDOUT
print Written to STDOUT\n;
__END__
--
,-/- __ _ _ $Bill LuebkertMailto:[EMAIL PROTECTED]
(_/ / )// // DBE CollectiblesMailto:[EMAIL PROTECTED]
/ ) /-- o // // Castle of Medieval Myth Magic http://www.todbe.com
\n);
} else {
print Some Output\n;
}
where you print to a socket in one case or STDOUT in another. A third
possiblity would be to use a sub to handle it - like my_print instead
of print and do the test there.
}
.
.
.
print $socket (Some Output\n);
--
,-/- __ _ _ $Bill
};
}
}
return \%copy;
}
}
-Original Message-
From: $Bill Luebkert [mailto:[EMAIL PROTECTED]
Sent: 12 November 2004 03:00
To: Paul Sobey
Cc: [EMAIL PROTECTED]
Subject: Re: threads::shared
Paul Sobey wrote:
I'm using XML::Simple to read in two files, and generate two
to follow) or write a recursive
directory walker (I have one if you want it, but I would just use
File::Find).
--
,-/- __ _ _ $Bill LuebkertMailto:[EMAIL PROTECTED]
(_/ / )// // DBE CollectiblesMailto:[EMAIL PROTECTED]
/ ) /-- o // // Castle
of each value?
--
,-/- __ _ _ $Bill LuebkertMailto:[EMAIL PROTECTED]
(_/ / )// // DBE CollectiblesMailto:[EMAIL PROTECTED]
/ ) /-- o // // Castle of Medieval Myth Magic http://www.todbe.com/
-/-' /___/__/_/_http://dbecoll.tripod.com/ (My Perl
=~ /^.+-(.+)-.+$/);
So, assuming you want the middle
part (ie, the section between the two dashes), use something like the
following (untested):
snip
my ($string, @line);
$string = sct-1.62-1;
@line = split /-/, $string;
print $line[1];
/snip
--
,-/- __ _ _ $Bill
=us-ascii).
How can I get each one of these lines into a array element?
--
,-/- __ _ _ $Bill LuebkertMailto:[EMAIL PROTECTED]
(_/ / )// // DBE CollectiblesMailto:[EMAIL PROTECTED]
/ ) /-- o // // Castle of Medieval Myth Magic http://www.todbe.com
mean they function
_exactly_ like their Unix counterparts.
Of course, the cygwin project another poster mentioned is also a good bet,
as it gives you all the unix tools and shells, and even compilers, etc.
--
,-/- __ _ _ $Bill LuebkertMailto:[EMAIL PROTECTED
- Woohoo!
Got Result from 2 - Woohoo!
Got Result from 3 - Woohoo!
Got Result from 4 - Woohoo!
Free to wrong pool 1a8c140 not 225f90 during global destruction.
Segmentation fault(v5.8.3 B809 on XP Pro SP2)
--
,-/- __ _ _ $Bill LuebkertMailto:[EMAIL PROTECTED
.
--
,-/- __ _ _ $Bill LuebkertMailto:[EMAIL PROTECTED]
(_/ / )// // DBE CollectiblesMailto:[EMAIL PROTECTED]
/ ) /-- o // // Castle of Medieval Myth Magic http://www.todbe.com/
-/-' /___/__/_/_http://dbecoll.tripod.com/ (My Perl/Lakers stuff
...
open IN, 'file1' or die ...
while (IN) { print OUT; }
close IN;
close OUT;
--
,-/- __ _ _ $Bill LuebkertMailto:[EMAIL PROTECTED]
(_/ / )// // DBE CollectiblesMailto:[EMAIL PROTECTED]
/ ) /-- o // // Castle of Medieval Myth Magic http
wise.
--
,-/- __ _ _ $Bill LuebkertMailto:[EMAIL PROTECTED]
(_/ / )// // DBE CollectiblesMailto:[EMAIL PROTECTED]
/ ) /-- o // // Castle of Medieval Myth Magic http://www.todbe.com/
-/-' /___/__/_/_http://dbecoll.tripod.com/ (My Perl/Lakers
uraemic
uraline
uralite
uranide
uranine
uranite
urazine
uredial
uremias
urinate
vaurien
viruela
End grep 79 matches
--
,-/- __ _ _ $Bill LuebkertMailto:[EMAIL PROTECTED
{
next;
}
print;
}
These are the ones I found for your example:
stretta
tartest
tatters
--
,-/- __ _ _ $Bill LuebkertMailto:[EMAIL PROTECTED]
(_/ / )// // DBE CollectiblesMailto:[EMAIL PROTECTED]
/ ) /-- o
Ted Schuerzinger wrote:
$Bill Luebkert graced perl with these words of wisdom:
Ted Schuerzinger wrote:
I'm an avid, but not very good, Scrabble player. Last night, I was
playing, and suffered a major brain cramp when I got a rack of four
vowels *and* two blanks: AEIUR**. I couldn't
501 - 600 of 1128 matches
Mail list logo