Perl script for pricing content
Posted: Tue Mar 16, 2010 9:21 am
In case I'm not the only one running in a *nix environment, I thought I'd post this Perl script I use to price my content. For those of you who aren't programmers, it's just a little program that counts the words in a text file and calculates a price based on your target cost per word.
Anyway, here's the code:
If you don't know how to use it, don't try 
.
Anyway, here's the code:
Code: Select all
#!/usr/bin/perl
my $file = shift;
my $cpw = shift || 10; #The number represents default price per word
@_ = split(/ /,`wc $file -w`);
my $count = $_[0];
my $fr = $count * $cpw; #You can change these:
my $un = $fr * 3/4; #Price for unique content (Default: 3/4 fullrights)
my $us = $fr * 1/3; #Price for use (Default 1/3 fullrights)
print "$count WORDS\n";
print "Fullrights: ".price($fr);
print "\t-> ".price($fr * .65)."\n";
print "Unique: ".price($un);
print "\t-> ".price($un * .65)."\n";
print "Use: ".price($us);
print "\t-> ".price($us * .65)."\n";
print "\n";
sub price {
my $cents = shift;
my $dollars = int($cents / 100);
$cents = $cents % 100;
return "\$$dollars.$cents";
}