Hi,<div><br></div><div>Another solution to the problem,</div><div><br></div><div><a href="http://pgm.pl">pgm.pl</a> :</div><div><br></div><div>use strict;</div><div><br></div><div>my %h;</div><div><br></div><div>while(<>) {</div>
<div> chomp;</div><div> @a = split(/ /);</div><div> $h{$a[0]} = $h{$a[0]}." ".$a[1];</div><div>}</div><div><br></div><div>foreach my $key(sort keys %h) {</div><div> print "$key $h{$key}\n";</div>
<div>}</div><div><br></div><div>Execute the above program with the data file as the command line argument.</div><div><br></div><div>perl <a href="http://pgm.pl">pgm.pl</a> data.txt<br><br></div><div>Thanks,</div><div>Venkatesh N</div>
<br><div class="gmail_quote">2011/4/16 Jagadeesh N. Malakannavar <span dir="ltr"><<a href="mailto:mnjagadeesh@gmail.com">mnjagadeesh@gmail.com</a>></span><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">
<div dir="ltr">please find attached files. if you still have difficulties getting this code running let me see your code. <div><br></div><div><br></div><div>Thanks<div><div></div><div class="h5"><br><br><div class="gmail_quote">
On Sat, Apr 16, 2011 at 12:13 PM, Gurunath Katagi <span dir="ltr"><<a href="mailto:gurunath.katagi@gmail.com" target="_blank">gurunath.katagi@gmail.com</a>></span> wrote:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">hi ..<br>how r u reading the a list of values into a scalar ..<br>when i tried this, its taking only one value ..<br>please find the input file attached ..<br>
and kindly reply ..<br><br>Thank you<br><font color="#888888">gurunath</font><div><div></div><div><br><br><br><div class="gmail_quote">
On Sat, Apr 16, 2011 at 11:19 AM, Jagadeesh N. Malakannavar <span dir="ltr"><<a href="mailto:mnjagadeesh@gmail.com" target="_blank">mnjagadeesh@gmail.com</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<div dir="ltr"><div><div>Here is the sample script . hope this helps you</div><div><br></div><div>use strict;</div><div>use warnings;</div><div><br></div><div>my $str =<<EOF;</div><div><div>16 50</div><div>
16 30</div><div>
16 23</div><div>17 88</div><div>17 99</div><div>18 89</div><div>18 1</div></div><div>EOF</div><div><br></div><div>my $DATA;</div><div><br></div><div>while ($str =~ m/\G((\d+)\s+(\d+)\n)/gc) {</div><div> push @{$DATA->{$2}}, $3;</div>
<div>}</div><div><br></div><div>foreach my $num (sort keys %$DATA) {</div><div> print "\n$num ", join (' ', @{$DATA->{$num}});</div><div>}</div></div><div><br></div><div><br></div><div>----</div><div>
Thanks</div><div>Jagadeesh N.Malakannavar</div><div>9448471968</div><br><div class="gmail_quote"><div><div></div><div>2011/4/16 Gurunath Katagi <span dir="ltr"><<a href="mailto:gurunath.katagi@gmail.com" target="_blank">gurunath.katagi@gmail.com</a>></span><br>
</div></div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div><div></div><div>hi .. i am new to perl ..<br>
i have a input file something pasted as below ..<br>
<br>
16 50 <br>
16 30<br>
16 23<br>
17 88<br>
17 99<br>
18 89 <br>
18 1<br>
..<br>
--<br>
<br>
and i want the output something like this :<br>
16 50 30 23 <br>
17 88 99<br>
18 99 1<br>
<br>
i.e for each values in the first column, i want the elements in the second column to be a one row ..<br>
<br>
can be anybody give me psuedocode , to how to go about this ..<br>
thank you<br><font color="#888888"><br>gurunath<br>
</font><br></div></div>_______________________________________________<br>
Bangalore-pm mailing list<br>
<a href="mailto:Bangalore-pm@pm.org" target="_blank">Bangalore-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/bangalore-pm" target="_blank">http://mail.pm.org/mailman/listinfo/bangalore-pm</a><br></blockquote></div><br></div>
</blockquote></div><br>
</div></div></blockquote></div><br><br clear="all"><br></div></div>-- <br><div class="im"><div dir="ltr"><div><br></div>Thanks,<div>Jagadeesh N.Malakannavar</div><div>9448471968</div></div><br>
</div></div></div>
<br>_______________________________________________<br>
Bangalore-pm mailing list<br>
<a href="mailto:Bangalore-pm@pm.org">Bangalore-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/bangalore-pm" target="_blank">http://mail.pm.org/mailman/listinfo/bangalore-pm</a><br></blockquote></div><br>