Perl calls R participle for text data analysis

Recently there is a need for text analysis, because the analysis system uses Perl, and Perl under the excellent Chinese text analysis package is less, so call R processing text data.

Why not Python

Although Python has complete support for NLP open source packages, the rationale is simple-because Python is currently not exposed to much, dare not swim, Python will say later. At present, also just need is a rapid prototype, if the production of data explosion, later also needs C + + refactoring under the core algorithm (incidentally, hmm does not rewrite, thankless).

How to get Started

1. Install the R program and add the R program installation path to the environment variable.

2. Test command line Batch run function

CMD input rscript--arch x64--help View, x64 is the version I am currently installing.

3. Test call R program, the output is consistent with Rgui, plot time does not open the drawing window, the default is exported as a report.pdf file in the script directory.

Test

 
 
 1 #!/usr/bin/perl
 2 # Run R Script By Call R Program
 3 # Liangwl
 4 # 2015/9/19 19:43:14
 5 # Todo: Get the value from R runtime.Each parameter should be defind in Perl.
 6 use strict;
 7 
 8 #Write R scripts here
 9 sub Rscripts
10 {
11 my $r =<<EndOfScript;
12 #R Scripts Begin
13 #Description: Test R Script
14 Args <- commandArgs();
15 cat("Args[1]=",Args[1],"\n");
16 cat("Args[2]=",Args[2],"\n");
17 cat("Args[3]=",Args[3],"\n");
18 cat("Args[4]=",Args[4],"\n");
19 cat("Args[5]=",Args[5],"\n");
20 cat("Args[6]=",Args[6],"\n");
21 cat("Args[7]=",Args[7],"\n");
22 a <- c(1:10);
23 b <- c(10,5);
24 c = a + b;
25 d <- c(11:20);
26 c;
27 d;
28 x <- rbinom(1000, 10, 0.25);
29 y <- rbinom(1000, 10, 0.25);
30 plot(x, y);
31 plot(jitter(x),jitter(y));
32 pairs(iris[,1:4]);
33 q();
34 #R Scripts End
35 EndOfScript
36 return $r;
37 }
38 
39 #Use pipe to Call&Exec R scripts
40 sub callR
41 {
42     my ($file,$TX_DATE) = @_;
43     my $rc = open(R,"| r --no-save $TX_DATE") or die $!;
44     unless ($rc) {
45         print "Could not invoke R command\n";
46         return -1;
47     }
48     print R $file;
49     return $rc;
50 }
51 
52 sub main
53 {
54     my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time());
55     my $current = sprintf("%04d-%02d-%02d %02d:%02d:%02d",$year+1900,$mon + 1,$mday,$hour,$min,$sec);
56     print "$current\nPID:$$ \n------------------------------------------------------------\n";
57 
58     # There‘s two way to execute R script
59 
60     # 1.execute R Script in batch
61     # The parameter which follow ‘Rscript‘ should be a *.r file
62     # The *.r file should be encode with ANSI/ASCII in UNIX/LF mode.
63     my $path = "C:\\Users\\LiangWenLong\\Desktop\\test.r";
64     my $rc_batch = `Rscript $path 123456` or die $! ;
65     print $rc_batch;
66     print "------------------------------------------------------------\n";
67 
68     # 2.use pipe call R program and execute script
69     my $TX_DATE = ‘20150920‘;
70     my $rc_pipe = callR(Rscripts(),$TX_DATE);
71 
72     #return $rc_pipe;
73     return $rc_batch;
74 }
75 my $ret = main();
76 exit($ret);

Run results

Application Scenarios

Participle, word frequency, text mining, affective analysis, semantic analysis

Perl calls R participle for text data analysis