Forging/Forging Perl Script - Revision history

XYGON at 04:47, 15 July 2015

2015-07-15T04:47:12Z

← Older revision		Revision as of 23:47, 14 July 2015
Line 1:		Line 1:
	{{script		{{script
	\| title = Forging ~~Perl~~ Script		\| title = Forging Log Parsing Script
	\| author = XYGON		\| author = XYGON
	\| compat = ~~Perl - Not a front end~~		\| compat = N/A
	}}		}}

	Used with scriptname.pl <CharacterName>		Used with scriptname.pl <CharacterName> <br/>
	Returns how many attempts were made to forge for each rank.		Returns how many attempts were made to forge for each rank.<br/>

			<nowiki>#-----------------------------------------------------------------------------
⚫	~~<nowiki>~~use strict;
			# Gemstone IV - Log Parser for Forging Ranks
⚫	use warnings;
			# by Xygon Arden
	use DBI;
			#
			# Usage: forgestats.pl <CharName>
			#
			# Returns: Table view of average attempts to each rank (total),
			# actual attempts per rank
			# running total of attempts
			#
			# Updates:
			# 20150714 - Added comments, added statistical average running total
			# 20150706 - Added tabled output for multiple ranks visibility
			# 20150703 - Released to gswiki.play.net

		⚫	use strict;
	my(%previous_inventory);
		⚫	use warnings;
	my(%current_inventory);

	parse_logs();		parse_logs();

	sub get_sorted_files {		sub get_sorted_files {
			# Sorts all of the files by file date
	my $path = shift;		my $path = shift;
	opendir my($dir), $path or die "can't opendir $path: $!";		opendir my($dir), $path or die "can't opendir $path: $!";
Line 29:		Line 41:
	sub parse_logs {		sub parse_logs {
	my($charname) = $ARGV[0];		my($charname) = $ARGV[0];
	# FOR NOW - delete all data prior to starting

	print "Parsing logs\n";		print "Parsing logs...\n"; # Used to have status dots, but the screenwrite slows down
			my @arRank; # the log processing, so this has been removed
	my @arRank;
	my $curRank = 1;		my $curRank = 1;

	my %files = get_sorted_files("./");		my %files = get_sorted_files("./");

	STDOUT->autoflush( 1 );
	foreach my $filename (sort{$files{$a} <=> $files{$b}} keys %files) {		foreach my $filename (sort{$files{$a} <=> $files{$b}} keys %files) {
			# Only 2nd argument's logs

	next if ($filename !~ /$charname*/);		next if ($filename !~ /$charname*/);

			# Go through each log, grabbing each "get tongs" via the RT, and "Aha"
	open my $logfile, '<', $filename or die "Could not open '$filename' $!\n";		open my $logfile, '<', $filename or die "Could not open '$filename' $!\n";

	while (my $line = <$logfile>) {		while (my $line = <$logfile>) {
	~~chomp~~ $line;		if ($line =~ /180 sec/) {
			# Assumed forge attempt

	if ($line =~ /180 sec/) {
	# print "\nInventory update - $filename\t", scalar localtime($files{$filename}), "\n";
	$arRank[$curRank] += 1;		$arRank[$curRank] += 1;
			# Gained a Rank

	} elsif ($line =~ /Aha, you learned something that time./) {		} elsif ($line =~ /Aha, you learned something that time./) {
	$curRank += 1;		$curRank += 1;
Line 56:		Line 66:
	}		}

			# Format for cmd line output
	use Text::ASCIITable;		use Text::ASCIITable;
	my($t) = Text::ASCIITable->new({ headingText => 'Attempts Per Rank' });		my($t) = Text::ASCIITable->new({ headingText => 'Attempts Per Rank' });
			# Tracks up to three ranks, assumes worked on each till completion with no switching
	if ($curRank > 1000) {		if ($curRank > 1000) {
	$t->setCols('Rank','ToNext','TotalAtt','ToNext','TotalAtt','ToNext','TotalAtt');		$t->setCols('Rank','Stat','ToNext','TotalAtt','ToNext','TotalAtt','ToNext','TotalAtt');
	} elsif ($curRank > 500) {		} elsif ($curRank > 500) {
	$t->setCols('Rank','ToNext','TotalAtt','ToNext','TotalAtt');		$t->setCols('Rank','Stat','ToNext','TotalAtt','ToNext','TotalAtt');
	} elsif ($curRank <= 500) {		} elsif ($curRank <= 500) {
	$t->setCols('Rank','ToNext','TotalAtt');		$t->setCols('Rank','Stat','ToNext','TotalAtt');
	}		}

			# Currently assumes you have the full logic bonus (+2)
	my(@arSum) = ();		my(@arSum) = ();
			my($aveRank) = 0.002; # If you have 0 or +1 bonus, change this to 0
	for (my $i=1; $i <= $curRank; $i++) {		for (my $i=1; $i <= $curRank; $i++) {
	if ($i + ~~1000~~ <= ~~$curRank)~~ {		$aveRank += 500/(502-$i); # If you have +1 bonus, change 502 to 501, or 500 for no bonus

			if ($i + 1000 <= $curRank) {
	$arSum[2] += $arRank[$i+1000];		$arSum[2] += $arRank[$i+1000];
	$arSum[1] += $arRank[$i+500];		$arSum[1] += $arRank[$i+500];
	$arSum[0] += $arRank[$i];		$arSum[0] += $arRank[$i];
	$t->addRow($i,$arRank[$i],$arSum[0],$arRank[$i+500],$arSum[1],$arRank[$i+1000],$arSum[2]);		$t->addRow($i,int($aveRank),$arRank[$i],$arSum[0],$arRank[$i+500],$arSum[1],$arRank[$i+1000],$arSum[2]);
	} elsif ($i + 500 <= $curRank) {		} elsif ($i + 500 <= $curRank) {
	$arSum[1] += $arRank[$i+500];		$arSum[1] += $arRank[$i+500];
	$arSum[0] += $arRank[$i];		$arSum[0] += $arRank[$i];
	$t->addRow($i,$arRank[$i],$arSum[0],$arRank[$i+500],$arSum[1]);		$t->addRow($i,int($aveRank),$arRank[$i],$arSum[0],$arRank[$i+500],$arSum[1]);
	} else {		} else {
	$arSum[0] += $arRank[$i];		$arSum[0] += $arRank[$i];
	$t->addRow($i,$arRank[$i],$arSum[0]);		$t->addRow($i,int($aveRank),$arRank[$i],$arSum[0]);
	}		}
	if ($i == 499) { $curRank = 0; }		if ($i == 499) { $curRank = 0; }

XYGON at 15:56, 6 July 2015

2015-07-06T15:56:00Z

Show changes

XYGON at 15:48, 6 July 2015

2015-07-06T15:48:55Z

← Older revision		Revision as of 10:48, 6 July 2015
Line 90:		Line 90:

	Results look like this:		Results look like this:
	<~~nowiki~~>.----------------------------------------------.		<code>.----------------------------------------------.
	\| Attempts Per Rank \|		\| Attempts Per Rank \|
	+------+--------+----------+--------+----------+		+------+--------+----------+--------+----------+
Line 594:		Line 594:
	\| 498 \| 51 \| 2359 \| \| \|		\| 498 \| 51 \| 2359 \| \| \|
	\| 499 \| 188 \| 2547 \| \| \|		\| 499 \| 188 \| 2547 \| \| \|
	'------+--------+----------+--------+----------'</~~nowiki~~>		'------+--------+----------+--------+----------'</code>

XYGON at 15:48, 6 July 2015

2015-07-06T15:48:23Z

Show changes

XYGON: Log parser in perl for forging related statistics

2015-07-06T15:47:09Z

Log parser in perl for forging related statistics

← Older revision		Revision as of 10:47, 6 July 2015
Line 2:		Line 2:
	\| title = Forging Perl Script		\| title = Forging Perl Script
	\| author = XYGON		\| author = XYGON
	\| compat = ?		\| compat = Perl - Not a front end
	}}		}}

Line 29:		Line 29:
	sub parse_logs {		sub parse_logs {
	my($charname) = $ARGV[0];		my($charname) = $ARGV[0];
			# FOR NOW - delete all data prior to starting

	print "Parsing logs\n";		print "Parsing logs\n";
Line 38:		Line 39:
	foreach my $filename (sort{$files{$a} <=> $files{$b}} keys %files) {		foreach my $filename (sort{$files{$a} <=> $files{$b}} keys %files) {

	# Only 2nd argument's logs
	next if ($filename !~ /$charname*/);		next if ($filename !~ /$charname*/);

Line 47:		Line 47:

	if ($line =~ /180 sec/) {		if ($line =~ /180 sec/) {
			# print "\nInventory update - $filename\t", scalar localtime($files{$filename}), "\n";
	# Log an attempt
	$arRank[$curRank] += 1;		$arRank[$curRank] += 1;

	} elsif ($line =~ /Aha, you learned something that time./) {		} elsif ($line =~ /Aha, you learned something that time./) {
	# Next rank
	$curRank += 1;		$curRank += 1;
	}		}
Line 57:		Line 56:
	}		}

			use Text::ASCIITable;
	# Print all results
			my($t) = Text::ASCIITable->new({ headingText => 'Attempts Per Rank' });
⚫	for (my $i=1; $i <= $curRank; $i++) {
			if ($curRank > 1000) {
⚫	~~print~~ $i, ~~" - ",~~ $arRank[$i]~~, "\n"~~;
			$t->setCols('Rank','ToNext','TotalAtt','ToNext','TotalAtt','ToNext','TotalAtt');
			} elsif ($curRank > 500) {
			$t->setCols('Rank','ToNext','TotalAtt','ToNext','TotalAtt');
			} elsif ($curRank <= 500) {
			$t->setCols('Rank','ToNext','TotalAtt');
			}

			my(@arSum) = ();
		⚫	for (my $i=1; $i <= $curRank; $i++) {
			if ($i + 1000 <= $curRank) {
			$arSum[2] += $arRank[$i+1000];
			$arSum[1] += $arRank[$i+500];
		⚫	$arSum[0] += $arRank[$i];
			$t->addRow($i,$arRank[$i],$arSum[0],$arRank[$i+500],$arSum[1],$arRank[$i+1000],$arSum[2]);
			} elsif ($i + 500 <= $curRank) {
			$arSum[1] += $arRank[$i+500];
			$arSum[0] += $arRank[$i];
			$t->addRow($i,$arRank[$i],$arSum[0],$arRank[$i+500],$arSum[1]);
			} else {
			$arSum[0] += $arRank[$i];
			$t->addRow($i,$arRank[$i],$arSum[0]);
			}
			if ($i == 499) { $curRank = 0; }
	}		}
			print $t;
	}		}

	</nowiki>		</nowiki>

VANKRASN39: add script template

2015-07-03T15:45:46Z

add script template

← Older revision		Revision as of 10:45, 3 July 2015
Line 1:		Line 1:
			{{script
			\| title = Forging Perl Script
			\| author = XYGON
			\| compat = ?
			}}

	Used with scriptname.pl <CharacterName>		Used with scriptname.pl <CharacterName>
	Returns how many attempts were made to forge for each rank.		Returns how many attempts were made to forge for each rank.

XYGON at 05:16, 3 July 2015

2015-07-03T05:16:51Z

← Older revision		Revision as of 00:16, 3 July 2015
Line 1:		Line 1:
	Used with scriptname.pl <CharacterName>		Used with scriptname.pl <CharacterName>
			Returns how many attempts were made to forge for each rank.

	<nowiki>use strict;		<nowiki>use strict;

XYGON at 05:16, 3 July 2015

2015-07-03T05:16:16Z

← Older revision		Revision as of 00:16, 3 July 2015
Line 22:		Line 22:
	sub parse_logs {		sub parse_logs {
	my($charname) = $ARGV[0];		my($charname) = $ARGV[0];
	# FOR NOW - delete all data prior to starting

	print "Parsing logs\n";		print "Parsing logs\n";
Line 35:		Line 34:
	next if ($filename !~ /$charname*/);		next if ($filename !~ /$charname*/);

	# Let's go through and find if there's a SHOP INVENTORY
	open my $logfile, '<', $filename or die "Could not open '$filename' $!\n";		open my $logfile, '<', $filename or die "Could not open '$filename' $!\n";

	while (my $line = <$logfile>) {		while (my $line = <$logfile>) {
	chomp $line;		chomp $line;

	#-------------------------------------------------------------------------------
	# Full inventory snapshot manager

	if ($line =~ /180 sec/) {		if ($line =~ /180 sec/) {
			# Log an attempt
	# print "\nInventory update - $filename\t", scalar localtime($files{$filename}), "\n";
	$arRank[$curRank] += 1;		$arRank[$curRank] += 1;

	} elsif ($line =~ /Aha, you learned something that time./) {		} elsif ($line =~ /Aha, you learned something that time./) {
			# Next rank
	$curRank += 1;		$curRank += 1;
	}		}
Line 54:		Line 50:
	}		}

			# Print all results
	for (my $i=1; $i <= $curRank; $i++) {		for (my $i=1; $i <= $curRank; $i++) {
	print $i, " - ", $arRank[$i], "\n";		print $i, " - ", $arRank[$i], "\n";

XYGON at 05:14, 3 July 2015

2015-07-03T05:14:37Z

← Older revision		Revision as of 00:14, 3 July 2015
Line 1:		Line 1:
	Used with scriptname.pl <CharacterName>		Used with scriptname.pl <CharacterName>

	<nowiki>		<nowiki>use strict;
	use strict;
	use warnings;		use warnings;
	use DBI;		use DBI;

XYGON: Created page with "Used with scriptname.pl use strict; use warnings; use DBI; my(%previous_inventory); my(%current_inventory); parse_logs(); sub get_sorted_files { ..."

2015-07-03T05:14:04Z

Created page with "Used with scriptname.pl <CharacterName> <nowiki> use strict; use warnings; use DBI; my(%previous_inventory); my(%current_inventory); parse_logs(); sub get_sorted_files { ..."

New page

Used with scriptname.pl <CharacterName>

<nowiki>
use strict;
use warnings;
use DBI;

my(%previous_inventory);
my(%current_inventory);

parse_logs();

sub get_sorted_files {
my $path = shift;
opendir my($dir), $path or die "can't opendir $path: $!";
my %hash = map {$_ => (stat($_))[9] || undef} # avoid empty list
map { "$path$_" }
readdir $dir;
closedir $dir;
return %hash;
}

sub parse_logs {
my($charname) = $ARGV[0];
# FOR NOW - delete all data prior to starting

print "Parsing logs\n";
my @arRank;
my $curRank = 1;

my %files = get_sorted_files("./");
STDOUT->autoflush( 1 );
foreach my $filename (sort{$files{$a} <=> $files{$b}} keys %files) {

# Only 2nd argument's logs
next if ($filename !~ /$charname*/);

# Let's go through and find if there's a SHOP INVENTORY
open my $logfile, '<', $filename or die "Could not open '$filename' $!\n";

while (my $line = <$logfile>) {
chomp $line;

#-------------------------------------------------------------------------------
# Full inventory snapshot manager

if ($line =~ /180 sec/) {
# print "\nInventory update - $filename\t", scalar localtime($files{$filename}), "\n";
$arRank[$curRank] += 1;

} elsif ($line =~ /Aha, you learned something that time./) {
$curRank += 1;
}
}
}

for (my $i=1; $i <= $curRank; $i++) {
print $i, " - ", $arRank[$i], "\n";

}
}
</nowiki>