Is it possible to check the %CPU,%MEM usage of each thread produced
by a
JVM by using a perl script??? If yes then is there any particular
module
I'd probably use some of the more esoteric of the $JAVA_OPTS availalbe
at Sun's site to get more detailed logging, and then parse the logfile
Hi Folks,
I have the following code:
snip
use IO::Compress::Gzip qw(gzip $GzipError);
...then...
gzip $company.$ext.$date = $company.$ext.$date.gz,
BinModeIn= 1 or do {
warn Failed to gzip file: $company.$ext.$date:
On Jan 31, 2008 10:06 AM, RICHARD FERNANDEZ [EMAIL PROTECTED] wrote:
gzip $company.$ext.$date = $company.$ext.$date.gz,
BinModeIn= 1 or do {
warn Failed to gzip file: $company.$ext.$date:
$GzipError\n;
next
Hi,
I'm trying to figure out how to install perl modules from command line (to
automate the install process). CPAN allowed me to d/l direct which results in
tarballs. Are there any caveats to watch out for when installing them this
way?
This will be done only on brand new Slackware 12
Hi Tom, thanks for the reply.
my $old_name = $company.$ext.$date;
my $new_name = $old_name.gz;
warn File '$old_name' is empty if -z $old_name;
warn File '$old_name' isn't really a file unless -f _;
unlink $new_name; # whether it's there or not
gzip $old_name = $new_name,
On Jan 31, 2008 12:08 PM, RICHARD FERNANDEZ [EMAIL PROTECTED] wrote:
I made the changes you suggested and re-ran it. The program just comes
back to a prompt. No warnings, no nothing, and still no data in the
gzip'd file!
No warnings? H Are you sure your program actually ran the new
RICHARD FERNANDEZ wrote:
Hi Tom, thanks for the reply.
my $old_name = $company.$ext.$date;
my $new_name = $old_name.gz;
warn File '$old_name' is empty if -z $old_name;
warn File '$old_name' isn't really a file unless -f _;
unlink $new_name; # whether it's there or not
gzip
John W. Krahn schreef:
I seem to remember that Jeffrey Friedl's[1] book describes a way to
emulate left and right word boundaries in Perl's regular expressions.
$ echo 'abc test def' |perl -wple'
$lwb = qr/\b(?=[[:alnum:]])/;
$rwb = qr/(?=[[:alnum:]])\b/;
s/${lwb}test${rwb}/X/g;
'
abc X
Hello List,
I am hoping for some help with this. I did post this same question to PerlMonks.
Undefined format STDOUT called at find_hog.tdy line 173.
Line 173 is the 1st write statement, but since there are snips in there 173 is
not the actual line in this email.
Just look for 1st write
No warnings? H Are you sure your program actually ran
the new code? That should have generated at least one
warning. Is there any chance you've redirected or closed the
STDERR filehandle? You can always add a line like this during
development, if you need to be sure the new code
oryann9 wrote:
Hello List,
Hello,
[ SNIP ]
##-- Begin Format Code --##
#==#
$^L = q{};
format STDOUT_TOP =
REPORT OF LARGE FILES on:
@
qx(hostname)
Page @
$%
FileName
On Jan 31, 2008 3:01 PM, Bobby [EMAIL PROTECTED] wrote:
snip
This will be done only on brand new Slackware 12 installs which does not have
CPAN.
snip
That doesn't sound right. Are you certain you have Perl installed?
CPAN is part of Core Perl and should be there if Perl is installed.
Try
perl
G'day everyone
I'm confused. I'm trying to make use of Tie::Hash::TwoWay to give me
access to a dictionary of word = misspelling. Has anyone got any
idea how I would use TwoWay for this? Nothing I do seems to work.
my $secondary = $dict-{0};
while ( ($k, $v) = ( each %$secondary ) ) {
On Thu, Jan 31, 2008 at 05:02:44PM -0500, RICHARD FERNANDEZ wrote:
I hate to do it, but I guess I'll have to shell out. Can't spend any
more time on this, unless anyone
else has any more ideas?
If you've just written the file, have you closed the filehandle and
checked the return value?
If
I have to create a file with / in the name. I have tried different
techniques but keep getting errors.
My file name also has in it.
open(MYFILE, , confusedlost/.com)
or die 2. Can't open MYFILE for writing: $!.
Stopped;
Thank you for the help.
--
To unsubscribe, e-mail:
On Thu, Jan 31, 2008 at 09:35:07AM -0800, rc wrote:
I have to create a file with / in the name. I have tried different
techniques but keep getting errors.
My file name also has in it.
open(MYFILE, , confusedlost/.com)
or die 2. Can't open MYFILE for writing: $!.
On Jan 31, 2008 12:35 PM, rc [EMAIL PROTECTED] wrote:
I have to create a file with / in the name. I have tried different
techniques but keep getting errors.
My file name also has in it.
open(MYFILE, , confusedlost/.com)
or die 2. Can't open MYFILE for writing: $!.
On Thursday 31 January 2008 17:45:53 Chas. Owens wrote:
On Jan 31, 2008 3:01 PM, Bobby [EMAIL PROTECTED] wrote:
snip
This will be done only on brand new Slackware 12 installs which does not
have CPAN.
snip
That doesn't sound right. Are you certain you have Perl installed?
CPAN is part
axtens wrote:
G'day everyone
I'm confused. I'm trying to make use of Tie::Hash::TwoWay to give me
access to a dictionary of word = misspelling. Has anyone got any
idea how I would use TwoWay for this? Nothing I do seems to work.
my $secondary = $dict-{0};
while ( ($k, $v) = ( each
axtens wrote:
G'day everyone
I'm confused. I'm trying to make use of Tie::Hash::TwoWay to give me
access to a dictionary of word = misspelling. Has anyone got any
idea how I would use TwoWay for this? Nothing I do seems to work.
my $secondary = $dict-{0};
while ( ($k, $v) = ( each
On Jan 31, 2008 7:44 PM, Bobby [EMAIL PROTECTED] wrote:
On Thursday 31 January 2008 17:45:53 Chas. Owens wrote:
On Jan 31, 2008 3:01 PM, Bobby [EMAIL PROTECTED] wrote:
snip
This will be done only on brand new Slackware 12 installs which does not
have CPAN.
snip
That doesn't
RICHARD FERNANDEZ wrote:
No warnings? H Are you sure your program actually ran
the new code? That should have generated at least one
warning. Is there any chance you've redirected or closed the
STDERR filehandle? You can always add a line like this during
development, if you need to
On Thursday 31 January 2008 20:15:22 Chas. Owens wrote:
On Jan 31, 2008 7:44 PM, Bobby [EMAIL PROTECTED] wrote:
On Thursday 31 January 2008 17:45:53 Chas. Owens wrote:
On Jan 31, 2008 3:01 PM, Bobby [EMAIL PROTECTED] wrote:
snip
This will be done only on brand new Slackware 12
On Jan 31, 2008 8:32 PM, Bobby [EMAIL PROTECTED] wrote:
snip
Yes, thank you, but that part is old hat. What I'm looking for is if anything
is different when I simply install the tarballs?
snip
You have to do everything yourself.
snip
How do I automate the install of a bunch of modules. Is it
On Jan 31, 2008 9:35 AM, rc [EMAIL PROTECTED] wrote:
I have to create a file with / in the name.
Do you mean you want to create a file within a subdirectory?
open(MYFILE, , confusedlost/.com)
or die 2. Can't open MYFILE for writing: $!.
Stopped;
I'm hoping that you want to
On Jan 31, 2008 2:02 PM, RICHARD FERNANDEZ [EMAIL PROTECTED] wrote:
Immediately before your test code I have a line that reads:
print Creating gzip'd archive\n;
and after the job runs, I definitely end up with a .gz file, just an
empty one.
I was really hoping you were going to
Please ignore the message below b/c I worked through this.
Basically my format code is not printing in a sorted order based off of 'sz'
yet it is correctly sorted in @sorted_large_files as you can see below SORTED.
How can I tell format to print it sorted based off of 'sz'?
Here is how I am
On Thursday 31 January 2008 20:40:13 Chas. Owens wrote:
How do I automate the install of a bunch of modules. Is it enough to just
install the tarballs, or will there be dependencies that I have to trace
down first? If so what is the best way to do that?
You automate it by using the CPAN
28 matches
Mail list logo