problem using join 3

[ailse]

OK here is my current scenario -

I have an input data file (test.txt) with pairs of nodes (tab-delimited) -

G:1	G:2
G:4	G:5
G:7	G:4
G:9	G:10
G:12	G:7

I have a script to read this file and produce for each pair of nodes a statement to add the pair as an edge to a graph (thanks KevinADC!):

open (EDGELIST, "test.txt") || die ("Could not open file!");

@edgelistarray=<EDGELIST>;

foreach my $edge (@edgelistarray)
   {
  my($from,$to) = split (/\t/, $edge);
    print "\$GRAPH->add_edge(\"${from}\",\"${to}\");\n";
   }

what is driving me crazy is that for each of the pairs, instead of producing -

$GRAPH->add_edge("G:1","G:2");

I am getting -

$GRAPH->add_edge("G:1","G:2
");

What I can't figure out is why the statement appears over two lines and breaks after the second node - if anyone has a clue how to fix that, I would be really grateful

 

[KevinADC]

you need to chomp() the input lines, looks like a newline is causing this problem.

foreach my $edge (@edgelistarray){
   chomp($edge);
   #the rest of code your code here
}

 

[max1x]

Not tested but try.

chomp($from,$to);
print ....

 

[rharsh]

You'll need to put a chomp in there somewhere to remove the "\n" character from your input. Try something like:

foreach my $edge (@edgelistarray) {
    [b]chomp $edge;[/b]
    my($from,$to) = split (/\t/, $edge);
    print "\$GRAPH->add_edge(\"${from}\",\"${to}\");\n";
}

 

[ailse]

thanks to all, it was chomp that did the job

 

[rharsh]

lol.. looks like I was too slow!

 

[KevinADC]

third place in a three man race