Hi all, I have this code
It takes in the data from data file ,the content of which is
---OUTPUT----
Problem is with the last few lines of the output ,it should have been this
The problem is there in the way the subroutine return value is saved. Please suggest me why is this happening and how to fix it.
Last edited by rushadrena; 10-04-2012 at 12:54 PM..
Im sorry but that hardly serves the purpose as I have to check for each of the component,so will have to call the subroutine inside the loop.
---------- Post updated at 10:48 AM ---------- Previous update was at 07:14 AM ----------
Let me explain you what is wanted.Consider for example component 2. It has two vertices e,d. Now I want to see if any of the rows from "DATA" is a subset of these points.Now since each of the row of "DATA" has 3 vertices/points,therefore clearly for component two there isnt any induced line from DATA.Therefore there should be anything to print for the subroutine "induced" for this case.
But for component 1,which has vertices as = c,a,b; the first line of "DATA" which is "b c a" gets induced.
Similarly if component=a,b,c,d ; then first two rows of DATA get induced ,as they are both the subset of the component.
Last edited by rushadrena; 10-04-2012 at 01:05 PM..
I don't quite understand the last paragraph of your 2nd post, but I'll explain the working of the final loop of your code.
Notice the following about the subroutine "induced":
(1) it has a "print" statement in it based on an "if" condition being true.
(2) it returns an array. $triplet is an array ref, and @$triplet is the array it references.
Also notice the following about the final "for" loop:
(3) The "join" function has not been provided a "join-string" i.e. the first argument. So what happens if you use join without the join-string?
It doesn't print the array elements. Once you do supply the join-string, then:
it works fine.
(4) the final print function that prints the value of $qw does not have a newline.
Now, before the "for" loop, the value of $p is 2. In the first iteration:
(a) $d is 2 and the first print function prints the expected values.
(b) "join" returns nothing and hence $qw is a zero-length string.
(c) the second print function prints "induced=" and does **NOT** go to the next line due to the absence of a newline.
So after iteration 1, you have this printed:
In iteration # 2, the following happens:
(a) $d is 1 and the first print function prints the expected values (c, a, b)
(b) the "induced" subroutine, when invoked, prints the value "@$triplet\n" because apparently the "if" condition evaluates to true. Hence you see "b c a" printed. The "join" function, as usual, returns nothing and hence $qw is a zero-length string.
(c) the final print statement prints the constant string "induced=" followed by nothing.
So the output of **only** iteration 2 is as follows:
And the overall output of both iterations is as follows:
Based on this understanding of the code, you may decide what to do next. You probably want to -
(a) fix the "join" function
(b) ensure that the final print function has a newline, and maybe
(c) suppress the "print" function inside the subroutine "induced"
Thus, if the final portion of your program looks like this:
then the final part of the output would be like this -
I am not sure if you are expecting the return value of "induced" subroutine to be the same each time, or if you simply want to display the distinct return values. If that's the case, then set the variable $qw as a hash key, and print all keys of the hash after the final loop.
Tyler,
After the modifications suggested by you the output is
But the problem is that for component-2 there shouldnt be anything induced(because "e d" is not a subset of DATA).
The program needs finds all the rows of DATA which are a subset of the points in any given component.
PHP Code:
----------DATA----------- b c a a c d d e b
So suppose there is a component 3,which has these points= "a c d e". Then row 2nd and 3rd are a subset of these points.So for component3 I'm expecting this output
component 3 = a c d e
induced= a c d
d e b
I want to save these induced values in a suitable data structure as I need to further process them.
---------- Post updated at 07:32 AM ---------- Previous update was at 01:12 AM ----------
The code fails on this data
And the output is
Which is wrong, because it should have been this Because with the vertices in component 2, we can have 4th & 5th row of DATA.
Please help on this
---------- Post updated at 03:30 PM ---------- Previous update was at 07:32 AM ----------
Tyler please help me fix my problem. Im still havent been able to solve it.
Quote:
Originally Posted by durden_tyler
I don't quite understand the last paragraph of your 2nd post, but I'll explain the working of the final loop of your code.
Notice the following about the subroutine "induced":
(1) it has a "print" statement in it based on an "if" condition being true.
(2) it returns an array. $triplet is an array ref, and @$triplet is the array it references.
Also notice the following about the final "for" loop:
(3) The "join" function has not been provided a "join-string" i.e. the first argument. So what happens if you use join without the join-string?
It doesn't print the array elements. Once you do supply the join-string, then:
it works fine.
(4) the final print function that prints the value of $qw does not have a newline.
Now, before the "for" loop, the value of $p is 2. In the first iteration:
(a) $d is 2 and the first print function prints the expected values.
(b) "join" returns nothing and hence $qw is a zero-length string.
(c) the second print function prints "induced=" and does **NOT** go to the next line due to the absence of a newline.
So after iteration 1, you have this printed:
In iteration # 2, the following happens:
(a) $d is 1 and the first print function prints the expected values (c, a, b)
(b) the "induced" subroutine, when invoked, prints the value "@$triplet\n" because apparently the "if" condition evaluates to true. Hence you see "b c a" printed. The "join" function, as usual, returns nothing and hence $qw is a zero-length string.
(c) the final print statement prints the constant string "induced=" followed by nothing.
So the output of **only** iteration 2 is as follows:
And the overall output of both iterations is as follows:
Based on this understanding of the code, you may decide what to do next. You probably want to -
(a) fix the "join" function
(b) ensure that the final print function has a newline, and maybe
(c) suppress the "print" function inside the subroutine "induced"
Thus, if the final portion of your program looks like this:
then the final part of the output would be like this -
I am not sure if you are expecting the return value of "induced" subroutine to be the same each time, or if you simply want to display the distinct return values. If that's the case, then set the variable $qw as a hash key, and print all keys of the hash after the final loop.
<rant>
A: Because it messes up the order in which people normally read text.
Q: Why is top-posting such a bad thing?
A: Top-posting.
Q: What is the most annoying thing in Usenet and e-mail?
</rant>
Now that it's out of the way, back to your problem.
It appears that you want to check if an array is contained inside another array. You could use "grep" for that. Here's some sample code:
So if the count is 0, you know that @y is a subset of @x and hence you want to return it from the "induced" subroutine.
tyler_durden
This User Gave Thanks to durden_tyler For This Post:
Hi all ,
I had this problem of creating a supertree by recursive Alfred Aho's algorithm.So I divided the problem into its the key concepts and dealt
with them one by one. I'll first put up my code I built with help of people on this forum and then later on I'll explain my problem.So here's
what I've build till now
So this is what I have written till now. Now let me explain my problem.
[p]Set of species/vertices=a,b,c,d,e[/p]
Now build the auxiliary graph by selecting first two vertices of each of the triplets,i.e.
The auxiliary graph thus generated will be
The number of connected components in this auxiliary graph (q)=2 (viz. a-c-b and d-e)
The algorithm I need to implement is this:-
The progression will be like this:-
Final output (SUPRTREE)for the given input should be like this
TRIPLETS(input) and SUPERTREE(output) look like these http://ars.sciencedirect.com/content...000983-gr1.jpg The picture link above has the exact triplets for my problem and the exact supertree(output) expected.
The following link is a small chapter on the problem im dealing with. http://citeseerx.ist.psu.edu/viewdoc...=rep1&type=pdf
You just need to read the first 4 pages.Its a very quick read (not a lengthy research paper) and the most relevant and elaborate explanation on the algorithm and the terms. Hope it helps
Last edited by rushadrena; 10-08-2012 at 02:50 PM..
Reason: Cleaned up the code with proper variable names
HI ,
I am running a program on hpux in perl.
I am encountering a strange issue where when i print a variable in the sub which is returning it , it prints a different value but when i call it and store value in a variable it gives a different o/p.
the sub is
sub CheckConfigFilePattern ... (4 Replies)
Hello All,
I am in the process of learning perl.I have a perl script and based on the arguments passed it would the appropriate subroutine that is defined in the script.
Now, I need to check a value that is defined in the Environment variables and should call the subroutine only if the... (1 Reply)
Hi all,
I'm not even sure a person can do this in perl, seems like you should be able to though.
Here's the error
IO::Socket::INET: connect: Operation now in progress at server_search.pl line 256, <DATA> line 466.
Here's the perl code...
sub ldap_new{
$nl = Net::LDAP->new( "$_" ) or... (3 Replies)
Hello All,
I have 2 perl sub-routines.
my $myDir = myDir_path;
my $file;
sub convert(){
system ("./$myConvertScript >> $myDir/$file_CONV" );
$file2 = $myDir/$file_CONV;
}
sub addDB(){
open(CONF, $config)
or die "Cannot Open $config for reading. ";
while(<CONF>){... (1 Reply)
Hi everyone,
I have given up finally trying to find a way to do this.
I have a subroutine called LoginFirst where I am starting a new SSH session.
I have bunch of subroutines, each one of them uses a (or I have to create
a new SSH constructor everytime) ssh connection to get some value so ... (2 Replies)
Hi,
ive a perl script, where it has a subroutine clear() in it, and i've one shell script which runs in background, from that shell script i wanted to call subroutine which is in perl script, that's perl script is not module, just simple script.
Eg:
perl script <test>
#!... (4 Replies)
The following subroutine prints 1 instead of the content of the Equipment variable. Can someone tell me why?
#!c:/perl/bin/perl.exe
#
use strict 'vars';
my $Equipments = "data/equips.txt";
unless (open(EQUIP_FH, "$Equipments")) {
print "errors: $Equipments\n"; # This line prints... (1 Reply)
All,
Is it possible to call a subroutine from the perl expect module after logging to a system that is within the same program. My situation is I need to run a logic inside a machine that I'm logging in using the expect module, the logic is also available in the same expect program.
Thanks,... (5 Replies)
Hi,
I can't get this script ot work and I wa wondering if anyone could help?
I need to open a file and use a subroutine to search each line for a regular expression. If it matches then I need to return a match from the subroutine and print the result?
Any help would be greatly... (11 Replies)
Hi,
we can call the subroutines using two ways ....
1) calling subroutine name preceeded by & symbol.
2)Another one is without &symbol....
what is the diff b/w these two....
############################
#usr/bin/perl
fun;
sub fun
{
print "hi this is from perl\n";
}... (1 Reply)