Boldering Forums

Code: Select all

#!/usr/bin/perl

# Make a directory for this projects output files
system("mkdir \"e:\\library\\spss\\$ARGV[0]\";");

# Read the header and variable information from the SPSS dataset
system("spssread.pl -h $ARGV[0].sav > e:\\library\\spss\\$ARGV[0]\\header.txt");
system("spssread.pl -r $ARGV[0].sav > e:\\library\\spss\\$ARGV[0]\\variables.txt");
system("spssread.pl -l $ARGV[0].sav > e:\\library\\spss\\$ARGV[0]\\labels.txt");

# Create the R script to import/export the SPSS dataset
open(plfile, ">e:\\library\\spss\\$ARGV[0]\\code.r");
print plfile "library(foreign);\n";
print plfile "tfile <- read.spss(\"e:\\\\library\\\\spss\\\\$ARGV[0].sav\", use.value.labels = FALSE);\n";
print plfile "write.table(tfile,file=\"e:\\\\library\\\\spss\\\\$ARGV[0]\\\\output.txt\");\n";
close(plfile);

# Call R and execute the R script
system("R --no-save < \"e:\\library\\spss\\$ARGV[0]\\code.r\"");


Code: Select all

#!/usr/local/bin/perl

# begin obsfucated Perl code

@P=split//,".URRUU\c8R";@d=split//,"\nrekcah xinU / lreP rehtona tsuJ";sub p{
@p{"r$p","u$p"}=(P,P);pipe"r$p","u$p";++$p;($q*=2)+=$f=!fork;map{$P=$P[$f^ord
($p{$_})&6];$p{$_}=/ ^$P/ix?$P:close$_}keys%p}p;p;p;p;p;map{$p{$_}=~/^[P.]/&&
close$_}%p;wait until$?;map{/^r/&&<$_>}%p;$_=$d[$q];sleep rand(2)if/\S/;print

# end

drater wrote:this thread is full of awesome.


Load spammy scraped content via csv