R help - Aug 2008 - conversion of data structure between R and Perl

Dear R users,

I am trying to call a Perl subroutine from R . The subroutine returns an
arrray contaning three elements wihch are all strings. But the calling in R 
return an integer which is 0. I have no idea how this could happen. Maybe
becasue I shouldn't use system() in R or I should load a particular package
for my R in windows. Please help ....

-------------------------------------------------------------------
the perl subroutine in presentPerformance.pl

sub findAccuracy{
	while(defined($filename=glob("*.log"))){
        
	open(WORDLIST , $filename)||die("can't open the file!");
	while($line=<WORDLIST>){
		
	    if ($line=~m/accuracy/){
	  $line=~s/-----accuracy://;
	   
@temp=split(" ",$line);
$temp[0]=~s/\%//; 
$temp[2]=~s/\%//;  
@accInfoList=($temp[0],$temp[2],$filename);
	    	
	    }
	   
	}	
	
	
}
return(@accInfoList)

}


findAccuracy();
----------------------------------------------------------------------------------------
The R code 
> class(system("perl presentPerformance.pl"))
[1] "integer"




regard,
Shu-Kai Chang
-- 
View this message in context:
http://www.nabble.com/conversion-of-data-structure-between-R-and-Perl-tp19189221p19189221.html
Sent from the R help mailing list archive at Nabble.com.

You need to do:

	system("perl presentPerformance.pl",intern=TRUE)

It does pay to read the help, you know.

		cheers,

			Rolf Turner
	
On 28/08/2008, at 8:36 AM, kevinchang wrote:
>
> Dear R users,
>
> I am trying to call a Perl subroutine from R . The subroutine  
> returns an
> arrray contaning three elements wihch are all strings. But the  
> calling in R
> return an integer which is 0. I have no idea how this could happen.  
> Maybe
> becasue I shouldn't use system() in R or I should load a particular  
> package
> for my R in windows. Please help ....
>
> -------------------------------------------------------------------
> the perl subroutine in presentPerformance.pl
>
> sub findAccuracy{
> 	while(defined($filename=glob("*.log"))){
>
> 	open(WORDLIST , $filename)||die("can't open the file!");
> 	while($line=<WORDLIST>){
> 		
> 	    if ($line=~m/accuracy/){
> 	  $line=~s/-----accuracy://;
> 	
> @temp=split(" ",$line);
> $temp[0]=~s/\%//;
> $temp[2]=~s/\%//;
> @accInfoList=($temp[0],$temp[2],$filename);
> 	    	
> 	    }
> 	
> 	}	
> 	
> 	
> }
> return(@accInfoList)
>
> }
>
>
> findAccuracy();
> ---------------------------------------------------------------------- 
> ------------------
> The R code
>
>> class(system("perl presentPerformance.pl"))
> [1] "integer"
######################################################################
Attention:\ This e-mail message is privileged and confid...{{dropped:9}}