10-15-2012
checking co-presence of Var. - Shell or Perl
Hey fellas,
I've posted this problem a few days back and I received just one post which was in PHP that I have no idea about! (Thanks to DGPickett) It would be so nice if you can help me with this in Shell or Perl. Here is the story:
I have a big table with variables and observations. I managed to simplify the data to I/O so now it's something looks like this:
* 1 2 3 4 5 6 7 8 9 10 |
A 1 0 0 1 0 0 1 0 1 1 |
B 1 1 1 1 0 0 1 0 0 0 |
C 1 1 0 1 0 1 0 1 1 0 |
D 0 0 0 1 1 1 1 0 0 0 |
E 1 1 0 0 1 1 0 0 1 1 |
What I like to find out is the co-presence of the variables. The script has to read the table in a loop which in each round check one row with all the others (including itself). While checking 2 rows write the number of times there is number 1 for both in the same column.
Simply, it starts from row A and first check it with itself (since the first row is A!). The returning number would be the times that we have "1" in A. Then by checking row A and B it returns number of columns in which we have "1" for A and B. Like this it goes until the end of the table and writes the results to the first row of the output.
Then the output would be a table with variables as both rows and columns containing the co-presence of them based on the calculations.
It is a cool problem that I unfortunately don't have enough knowledge to solve it. If you have knowledge and time, you're a lifesaver.
Thanks for reading even if you are not going to help!
10 More Discussions You Might Find Interesting
1. UNIX for Dummies Questions & Answers
How do I test for the presence of a file in Bourne Shell (3 Replies)
Discussion started by: vins
3 Replies
2. Shell Programming and Scripting
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)
Discussion started by: meghana
12 Replies
3. Shell Programming and Scripting
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)
Discussion started by: hidnana
1 Replies
4. Shell Programming and Scripting
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)
Discussion started by: ajgwin
3 Replies
5. Shell Programming and Scripting
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)
Discussion started by: i9300
1 Replies
6. Shell Programming and Scripting
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)
Discussion started by: phudgens
4 Replies
7. Shell Programming and Scripting
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)
Discussion started by: phudgens
0 Replies
8. Shell Programming and Scripting
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)
Discussion started by: KiD0
0 Replies
9. Shell Programming and Scripting
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)
Discussion started by: gikyo12
3 Replies
10. Shell Programming and Scripting
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 PHP
maxdb_rollback
MAXDB_ROLLBACK(3) 1 MAXDB_ROLLBACK(3)
maxdb_rollback - Rolls back current transaction
Procedural style
SYNOPSIS
bool maxdb_rollback (resource $link)
DESCRIPTION
Object oriented style
bool maxdb::rollback (void )
Rollbacks the current transaction for the database specified by the $link parameter.
RETURN VALUES
Returns TRUE on success or FALSE on failure.
EXAMPLES
Example #1
Object oriented style
<?php
$maxdb = new maxdb("localhost", "MONA", "RED", "DEMODB");
/* check connection */
if (maxdb_connect_errno()) {
printf("Connect failed: %s
", maxdb_connect_error());
exit();
}
/* disable autocommit */
$maxdb->autocommit(FALSE);
$maxdb->query("CREATE TABLE temp.mycity LIKE hotel.city");
$maxdb->query("INSERT INTO temp.mycity SELECT * FROM hotel.city");
/* commit insert */
$maxdb->commit();
/* delete all rows */
$maxdb->query("DELETE FROM temp.mycity");
if ($result = $maxdb->query("SELECT COUNT(*) FROM temp.mycity")) {
$row = $result->fetch_row();
printf("%d rows in table mycity.
", $row[0]);
/* Free result */
$result->close();
}
/* Rollback */
$maxdb->rollback();
if ($result = $maxdb->query("SELECT COUNT(*) FROM temp.mycity")) {
$row = $result->fetch_row();
printf("%d rows in table mycity (after rollback).
", $row[0]);
/* Free result */
$result->close();
}
/* Drop table myCity */
$maxdb->query("DROP TABLE temp.mycity");
$maxdb->close();
?>
Example #2
Procedural style
<?php
$link = maxdb_connect("localhost", "MONA", "RED", "DEMODB");
/* check connection */
if (maxdb_connect_errno()) {
printf("Connect failed: %s
", maxdb_connect_error());
exit();
}
/* disable autocommit */
maxdb_autocommit($link, FALSE);
maxdb_query($link, "CREATE TABLE temp.mycity LIKE hotel.city");
maxdb_query($link, "INSERT INTO temp.mycity SELECT * FROM hotel.city");
/* commit insert */
maxdb_commit($link);
/* delete all rows */
maxdb_query($link, "DELETE FROM temp.mycity");
if ($result = maxdb_query($link, "SELECT COUNT(*) FROM temp.mycity")) {
$row = maxdb_fetch_row($result);
printf("%d rows in table mycity.
", $row[0]);
/* Free result */
maxdb_free_result($result);
}
/* Rollback */
maxdb_rollback($link);
if ($result = maxdb_query($link, "SELECT COUNT(*) FROM temp.mycity")) {
$row = maxdb_fetch_row($result);
printf("%d rows in table mycity (after rollback).
", $row[0]);
/* Free result */
maxdb_free_result($result);
}
/* Drop table myCity */
maxdb_query($link, "DROP TABLE temp.mycity");
maxdb_close($link);
?>
The above example will output something similar to:
0 rows in table mycity.
25 rows in table mycity (after rollback).
SEE ALSO
maxdb_commit(3), maxdb_autocommit(3).
PHP Documentation Group MAXDB_ROLLBACK(3)