> -Original Message-
> From: [EMAIL PROTECTED] [mailto:perl-
> [EMAIL PROTECTED] On Behalf Of Beckett
> Richard-qswi266
> Sent: June 1, 2004 6:28 AM
> To: '[EMAIL PROTECTED]'
> Subject: Tk Popup centering and minsize.
>
> Hi Guys,
>
> Does anyone know if there is a way to get popup to wo
I don't think using hires() in a threaded app is a great idea - ping/hires() calls are
generally implemented by hogging the cpu, which would skew other results. Apart from
that, looks like a perfectly legitimate threaded multi-host pinger :)
each thread should be able to accumulate and aggregate
Hi Perl Kings,
right now Im sending attachments thru sender.pm
I went thru sender.pm it said you can package the scripts with some variables
by sender.config
but what i need know ,how to add,what all variables i can add???
not sure how to do!!!
any help !!
Warm Regards,Satish
Hi all,
I have managed to create a WMI script used for notifiying me when a
processes status changes.
I have used some tricks using "Thread::Use" so that Win32::OLE will not break.
Running this script, using only one thread (monitoring one process), it
works perfectly.
But when using more than
Hi all,
I have to measure the ping reply time for several ip addresses. The
problem is, I don't want to wait for the reply of the ping to ip1 and
send then the ping to ip2. Both pings should go out almost in parallel
on the line. Furthermore ip1 & ip2 should be pinged more than one time
e.g. 5 time
I don't speak english
in the PPM i'm trying use command search DBI, and the i get is
Error: No valid REpositories:
Error:500 can't connect to ppm.ActiveState.com:80
What's happend i'l can do it
_
Charla con tus amigos en línea median
Thanks all...
Ultimately, the first split was causing my problems...
I've used the ideas in the previous posts to come up with a solution
that parses the data much quicker.
And the split(//,$col);
...helped as well.
Thanks again.
Steven
-Original Message-
From: Wagner, David --- Seni
I don't see a benefit in reading the whole file into memory. Try this:
my $del=qr{||~};
binmode(STDIN);
s{$del}{}g,map($c[ord($_)]++,split(//,$_)) while(<>);
foreach(0..255) {
printf "%3d = %d\n", $_, defined($c[$_])?$c[$_]:0;
}
Tobias
> -Ori
[EMAIL PROTECTED] wrote:
> Can anyone seem to think of a less memory intensive way of doing this
> (besides chopping the file up into smaller chunks -- which is my next
> step unless I receive a better option?
>
> The txt file is 335MB.
>
> The column and row delimiter can change, but needs to be
The files I am dealing with can be upwards of 42,000 MB and larger. I
tried fancier ways of processing, with arrays and such, and blew out my
memory every time.
I finally had to re-write my entire script to process line by line,
holding almost nothing in memory. It is not pretty and not fancy,
Can anyone seem to think of a less memory intensive way of doing this
(besides chopping the file up into smaller chunks -- which is my next
step unless I receive a better option?
The txt file is 335MB.
The column and row delimiter can change, but needs to be an "odd
mutli-char delimiter" due to t
I think you're best off trying the following regex:
s:qtd:\Q/td\E:gs;
\Q..\E ignore ANY "special" characters between them, with the possible exception of \ itself.
$variables are interpolated before this occurs, so you can validly go s"blah"\Q$something\E"gs;
if you so wish - using the s''' form
hi...
everything works as it should if you replace the "/" delimiter with ":" or
some other delimiter... for some reason, i couldn't get perl to use "/"s
throughout.. when i replaced the s/old/new/ -> s:old:new: everything works
ok...
-bruce
-Original Message-
From: [EMAIL PROTECTED]
[m
james...
quick question... did you actually test this to verify that it works.. or
are you saying it should work...
the reason i'm asking, is because i can't understand why the "/\/td/" issue
would work for you, but not for me...
-bruce
-Original Message-
From: james donohoe [mailto:[E
It's kind of foul but it works... This is for NT.
perl -pi.bak -e "s/qtd/\/td/" test.txt & del test.txt.bak
There's probably a way to not create the .bak file but I haven't spent
any time on it. I'd love to hear a better solution though, please
share if you find one.
-james donohoe
On Tue, 1
hi...
(B
(Bcreating a short perl script that runs perl from the command line, and does
(Ba search/replace through a file, pretty basic...
(B
(Bbasically, i'm trying to search for "qtd" and replace it with "/td"
(Bthroughtout the file..
(B
(Bthe script is:
(B$_arg = "perl -i -p -e 's/qtd/\/
Hi all,
how can I Control "IBM Personal Communications" with perl ?
Objects: 'PCOMM.autECLSession.1'
'PCOMM.autECLOIA.1'?
'PCOMM.autECLPS.1' ?
I would be happy if anybody have a example script !
thanks
Mit freundlichen Grüssen
Joachim Görner
Inf
If you are looking to do usual router-type stuff, save yourself the
effort and use Tobias Oetiker's perl-based MRTG http://people.ee.ethz.ch/~oetiker/webtools/mrtg/ --
this is a *great* app that creates graphs on any OID you tell it, but defaults
to the usual sysuptime and interface stats.
Hi Guys,
Does anyone know if there is a way to get popup to work properly, after you've issued
a minsize command?
In the example below, if you comment out the line "$popup2 -> minsize (qw(162 190));"
in the popup2 sub, then the second popup appears in the centre of the main window.
With that l
Hello,
(B
(BThis address '[EMAIL PROTECTED]/' is rejected by our postfix,
(Bbut Email::Valid says it's OK.
(B
(Bpostfix log:
(B... status=bounced (bad host/domain syntax: "bar.com/")
(B
(BC:\>perl -MEmail::Valid -le "print (Email::Valid->address('[EMAIL PROTECTED]/') ? 'yes
(B' : 'no')"
20 matches
Mail list logo
