Uni/nbw-bt
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

Rebuilding Repository for Bachelor thesis

Browse source
This commit is contained in:
Nis Boerge Wechselberg 2014-09-26 15:45:57 +02:00
commit b095814840
117 changed files with 37459 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

21
trace-analyse/aggregate.pl Normal file
View file

@ -0,0 +1,21 @@
use strict;
use warnings;
use File::Copy;
my $inFile;
opendir(my $dh, ".") || die "can't opendir .: $!";
my @files = grep(/\.dat$/,readdir($dh));
foreach my $d (@files) {
copy($d,$d.".bak");
open($inFile, "<",$d.".bak");
open(my $outFile, ">",$d);
while (<$inFile>) {
s/(;EPrints.*\.).*?(;EPrints)/$1agg$2/;
print $outFile $_;
}
}
closedir $dh;

2
trace-analyse/befehle.txt Normal file
View file

@ -0,0 +1,2 @@
sed -ri.bak 's/(;EPrints.*\.).*?(;EPrints)/\1agg\2/' *.dat
sed -ri.bak 's/;([a-zA-Z_8]+);([a-zA-Z_\.\/]+)$/;\2.\1;\2/' *.dat

47
trace-analyse/cntFunCalls.pl Normal file
View file

@ -0,0 +1,47 @@
use warnings;
use strict;
use Getopt::Long;
my $inputfile = '';
my $outputfile = 'a.out';
GetOptions ("i|input|inputfile=s" => \$inputfile, # string
"o|output|outputfile=s" => \$outputfile ); # string
unless ($inputfile) {
die("Missing option -i");
}
open(my $inFile, "<", $inputfile) || die "Can't open $inputfile: $!";
open(my $outFile, ">", "$outputfile.csv") || die "Can't open $outputfile: $!";
my %funHash = ();
my %funHashTrace = ();
my $trace;
while (<$inFile>) {
if (/0::@\d+:(\S+)\s/) {
$funHash{$1} += 1;
$funHashTrace{$1} += 1;
} elsif ($trace && /^TraceId\s(\d+)/) {
open(my $traceOutFile, ">", "$outputfile-$trace.csv") || die "Can't open $outputfile-$trace.csv: $!";
while (my ($key, $value) = each %funHashTrace) {
print $traceOutFile "$key;$value\n";
}
$trace = $1;
%funHashTrace = ();
} elsif (/^TraceId\s(\d+)/) {
$trace = $1;
%funHashTrace = ();
}
}
open(my $traceOutFile, ">", "$outputfile-$trace.csv") || die "Can't open $outputfile-$trace.csv: $!";
while (my ($key, $value) = each %funHashTrace) {
print $traceOutFile "$key;$value\n";
}
while (my ($key, $value) = each %funHash) {
print $outFile "$key;$value\n";
}

28
trace-analyse/count.pl Normal file
View file

@ -0,0 +1,28 @@
use strict;
use warnings;
my $in;
open(my $out, ">>", "count.dat") || die "can't open count.dat: $!";
my %inE = ();
my %outE = ();
for (my $i = 0; $i < @ARGV;$i++) {
open($in, "<", $ARGV[$i]) || die "can't open $ARGV[$i]: $!";
while (<$in>) {
if (/^\$1;\d{19};\d{19};(\d+);\d+;(.*?);(.*?)$/) {
$inE{$1} += 1;
} elsif (/^\$2;\d{19};\d{19};(\d+);\d+;(.*?);(.*?)$/) {
$outE{$1} += 1;
}
}
}
print $out "in\n";
while (my ($key, $value) = each(%inE)){
print $out "(".$key.",".$value.")\n";
}
print $out "out\n";
while (my ($key, $value) = each(%outE)){
print $out "(".$key.",".$value.")\n";
}

27
trace-analyse/traceurls.txt Normal file
View file

@ -0,0 +1,27 @@
Kielprints:
1. http://nbw-virtualbox/cgi/users/home
2. http://nbw-virtualbox/cgi/users/home?screen=EPrint::Edit&eprintid=20280&stage=type
3. http://nbw-virtualbox/cgi/users/home?screen=EPrint::Edit&eprintid=20280&stage=core#t
4. AJAX: http://nbw-virtualbox/cgi/users/home?_internal_c15_creators_morespaces=Mehr%20Eingabefelder&c15_creators_1_affiliation=&c15_creators_1_id=&c15_creators_1_name_family=&c15_creators_1_name_given=&c15_creators_2_affiliation=&c15_creators_2_id=&c15_creators_2_name_family=&c15_creators_2_name_given=&c15_creators_3_affiliation=&c15_creators_3_id=&c15_creators_3_name_family=&c15_creators_3_name_given=&c15_creators_4_affiliation=&c15_creators_4_id=&c15_creators_4_name_family=&c15_creators_4_name_given=&c15_creators_5_affiliation=&c15_creators_5_id=&c15_creators_5_name_family=&c15_creators_5_name_given=&c15_creators_6_affiliation=&c15_creators_6_id=&c15_creators_6_name_family=&c15_creators_6_name_given=&c15_creators_spaces=6&c15_export=1&c16_corp_creators_1=&c16_corp_creators_2=&c16_corp_creators_3=&c16_corp_creators_spaces=3&c17_editors_1_affiliation=&c17_editors_1_id=&c17_editors_1_name_family=&c17_editors_1_name_given=&c17_editors_2_affiliation=&c17_editors_2_id=&c17_editors_2_name_family=&c17_editors_2_name_given=&c17_editors_3_affiliation=&c17_editors_3_id=&c17_editors_3_name_family=&c17_editors_3_name_given=&c17_editors_4_affiliation=&c17_editors_4_id=&c17_editors_4_name_family=&c17_editors_4_name_given=&c17_editors_spaces=4&c37_date_day=00&c37_date_month=00&c37_date_year=&c37_edition=&c37_isbn=&c37_issn=&c37_number=&c37_official_url=&c37_open_access=&c37_pages=&c37_place_of_pub=&c37_publisher=&c37_related_url_1_type=&c37_related_url_1_url=&c37_related_url_spaces=1&c37_series=&c37_servolume=&c37_volume=&c38_contribution_number_1_number=&c38_contribution_number_1_project=&c38_contribution_number_spaces=1&c39_expeditions_1_id=&c39_expeditions_1_name=&c39_expeditions_1_type=&c39_expeditions_1_url=&c39_expeditions_spaces=1&c40_projects_1=&c40_projects_spaces=1&c44_contact_email=&c45_note=&c46_suggestions=&c47_referencetext=&c48_funders_1=&c48_funders_spaces=1&c6_title=&c7_abstract=&component=c15&eprintid=20280&screen=EPrint%3A%3AEdit&stage=core
5. http://nbw-virtualbox/cgi/users/home?screen=EPrint::Edit&eprintid=20280&stage=files#t
3897851 Records
EPrints:
1. http://nbw-virtualbox/cgi/users/home
2. http://nbw-virtualbox/cgi/users/home?screen=EPrint::Edit&eprintid=20282&stage=type
3. http://nbw-virtualbox/cgi/users/home?screen=EPrint::Edit&eprintid=20282&stage=files#t
4. http://nbw-virtualbox/cgi/users/home?screen=EPrint::Edit&eprintid=20282&stage=core#t
5. AJAX: http://nbw-virtualbox/cgi/users/home?_internal_c11_creators_morespaces=More%20input%20rows&c11_creators_1_id=&c11_creators_1_name_family=&c11_creators_1_name_given=&c11_creators_2_id=&c11_creators_2_name_family=&c11_creators_2_name_given=&c11_creators_3_id=&c11_creators_3_name_family=&c11_creators_3_name_given=&c11_creators_4_id=&c11_creators_4_name_family=&c11_creators_4_name_given=&c11_creators_5_id=&c11_creators_5_name_family=&c11_creators_5_name_given=&c11_creators_6_id=&c11_creators_6_name_family=&c11_creators_6_name_given=&c11_creators_spaces=6&c11_export=1&c12_corp_creators_1=&c12_corp_creators_2=&c12_corp_creators_3=&c12_corp_creators_spaces=3&c13_editors_1_id=&c13_editors_1_name_family=&c13_editors_1_name_given=&c13_editors_2_id=&c13_editors_2_name_family=&c13_editors_2_name_given=&c13_editors_3_id=&c13_editors_3_name_family=&c13_editors_3_name_given=&c13_editors_4_id=&c13_editors_4_name_family=&c13_editors_4_name_given=&c13_editors_spaces=4&c26_date_day=00&c26_date_month=00&c26_date_year=&c26_isbn=&c26_number=&c26_official_url=&c26_pages=&c26_place_of_pub=&c26_publisher=&c26_related_url_1_type=&c26_related_url_1_url=&c26_related_url_spaces=1&c26_series=&c26_volume=&c27_funders_1=&c27_funders_spaces=1&c28_projects_1=&c28_projects_spaces=1&c32_contact_email=&c33_referencetext=&c34_keywords=&c35_note=&c36_suggestions=&c4_title=&c5_abstract=&component=c11&eprintid=20282&screen=EPrint%3A%3AEdit&stage=core
285339 Records