Hey masters!
I modified the script that elixir_sinari has provided. This modification is simple and help just to write the maximum number of the result (= total number of values equal to 1 in input) for each row. The code is now like this:
I am trying to make the output be like following table. So, instead of all the values it prints the values divided by the number in parenthesis for each row. This is the output so far:
* A B C D E
A(5) 5 3 3 2 3
B(5) 3 5 3 2 2
C(6) 3 3 6 2 4
D(4) 2 2 2 4 2
E(6) 3 2 4 2 6
But as I said I would like to have the values in each row divided by the number in parenthesis. To have following desired output:
* A B C D E
A(5) 1 0.6 0.6 0.4 0.6
B(5) 0.6 1 0.6 0.4 0.4
C(6) 0.5 0.5 1 0.33 0.66
D(4) 0.5 0.5 0.5 1 0.5
E(6) 0.5 0.33 0.66 0.33 1
I couldn't make it so far. Would be great if you can help me.
Thanks.
Hi,
I have a file which has list of files with some other info too.. say..
1/1/2008./to/path/filename1.:
...
...
something like that.. can anyone tell me how can i just open the file and read the contents and then cut just the filename1 and write it to an @array..
thanks (12 Replies)
How to check if a string in contained in another string ?
Like
Whether the String "brown" is contained in
"A quick brown fox jumps over a lazy the dog" (1 Reply)
I am using perl 5.8.0.
I need to check some values to see it they are floats. Our system does not have Data::Types so I can't use is_float. Is there something else that I can use? The only thing in Data is Dump.pm. I am not allowed to download anything to our system so I have to use what I have.... (3 Replies)
I am not very good with perl but trying to force myself to start learning...
I have a script that calls three other scripts in variables. I want to use a if statement to check the exit status and not sure how to do it..
This is basically what I have, the individual scripts print either a Y or... (1 Reply)
I have tried the following script to check for the presence of any files in a folder:
if (-r *) then
goto ZipMiscFiles
else
echo ""
echo " No Miscellaneous files found. Exiting program."
echo ""
exit
endif
The -r works fine with the wildcard in combo with other... (4 Replies)
Is there code in Cshell scripting to check for the presence of any files in the current directory (and only the current directory)? I tried:
if (-r *) then ...
but Cshell doesn't like that.
Thanks,
Paul Hudgens (0 Replies)
hi everybody .
i'm trying to extract a bunch of urls from an http request but when i do that i get nothing .
here it's my code
use LWP::UserAgent;
$url = "$ARGV"; $ua = LWP::UserAgent->new;
$req = HTTP::Request->new(GET=>$url);
$res = $ua->request($req);
if... (0 Replies)
Greetings all,
If I have a SH script that calls a PERL script in the following way:
perl $HOME/scripts/config.properties
And in the config.properties PERL file, this Perl script only sets a number of environmental parameters in the following way:
#!/usr/bin/perl
$VAR1 = (
... (3 Replies)
I am working on converting shell to Perl script. In shell we have built in function
trap
Do you know alternative in Perl or actually we don't need it?
Thanks for contribution (3 Replies)
Discussion started by: digioleg54
3 Replies
LEARN ABOUT SUSE
cpanplus::shell
CPANPLUS::Shell(3pm) Perl Programmers Reference Guide CPANPLUS::Shell(3pm)NAME
CPANPLUS::Shell
SYNOPSIS
use CPANPLUS::Shell; # load the shell indicated by your
# config -- defaults to
# CPANPLUS::Shell::Default
use CPANPLUS::Shell qw[Classic] # load CPANPLUS::Shell::Classic;
my $ui = CPANPLUS::Shell->new();
my $name = $ui->which; # Find out what shell you loaded
$ui->shell; # run the ui shell
DESCRIPTION
This module is the generic loading (and base class) for all "CPANPLUS" shells. Through this module you can load any installed "CPANPLUS"
shell.
Just about all the functionality is provided by the shell that you have loaded, and not by this class (which merely functions as a generic
loading class), so please consult the documentation of your shell of choice.
BUG REPORTS
Please report bugs or other issues to <bug-cpanplus@rt.cpan.org<gt>.
AUTHOR
This module by Jos Boumans <kane@cpan.org>.
COPYRIGHT
The CPAN++ interface (of which this module is a part of) is copyright (c) 2001 - 2007, Jos Boumans <kane@cpan.org>. All rights reserved.
This library is free software; you may redistribute and/or modify it under the same terms as Perl itself.
SEE ALSO
CPANPLUS::Shell::Default, CPANPLUS::Shell::Classic, cpanp
perl v5.12.1 2010-04-26 CPANPLUS::Shell(3pm)