perlrer

Use perl regex syntax, get perl results in R!

#Examples

Matching

#perl
$string = 'This is a test';
print scalar $string =~ m/this/i;

## 1

#R
library(perlrer)

## 
## Attaching package: 'perlrer'
## 
## The following object is masked from 'package:base':
## 
##     readline

string = 'This is a test'
string %m% '/this/i'

## [1] TRUE

Substitution

#perl
$string = 'This is a test';
$string =~ s/this/that/i;
print $string;

## that is a test

#R
library(perlrer)
string = 'This is a test'
string %s% '/this/that/i'

## [1] "that is a test"

String Splits/Joins

#perl
@alist = ('one', 'two', 'three');
$astring = 'four';
$joined_str = join(':', @alist, $astring);
print $joined_str, "\n";
@split_str = split(/:/, $joined_str);
print "@split_str\n";

## one:two:three:four
## one two three four

#R
library(perlrer)
alist = c('one', 'two', 'three')
astring = 'four'
joined_str = pjoin(':', alist, astring)
joined_str
split_str = psplit(':', joined_str)
split_str

## [1] "one:two:three:four"

## [1] "one"   "two"   "three" "four"

File reading by line

#perl
open IN, "<", "README.Rmd";
$count = 0;
while($line = <IN> and $count < 2){
  print $line;
  $count++;
}
close IN;

## # perlrer #
## Use perl regex syntax, get perl results in R!

#R
IN = popen("README.Rmd")
count = 0
while(line %<>% IN && count < 2){
  print(line)
  count=count+1;
}
pclose(IN);

## [1] "# perlrer #"
## [1] "Use perl regex syntax, get perl results in R!"