Judgment and Decision Making, vol. ".$p->{"volume"}.", no. ".$p->{"issue"}."

#!/usr/bin/perl open(IN,$ARGV[0]) or die "Could not open file $ARGV[0] for input.\n"; open(OUT,">",$ARGV[1]) or die "Could not open file $ARGV[1] for output.\n"; @inputfile = ; close IN; @paperhash = (); # A list of hashes representing paper qualities $thishash = {}; foreach $p (@inputfile) { # read lines from the input file if ($p eq "\n") { # A blank line indicates that we are talking about a new paper now! push(@paperhash,$thishash); $thishash = {}; # Create a key/value hash representing this article } foreach $kv (split(/\n/gs,$p)) { chomp $kv; ($key,@value) = split(/=/,$kv); # The part before the = is the key; the part after is the value. $val = join("=",@value); # But values can contain the '=' symbol character # print "line is $kv, key $key, val $val, scalar is ".scalar(@paperhash)."\n"; if ($key eq "author") { push(@{$thishash->{$key}},$val); # Authors are always in an ORDERED list } else { $thishash->{$key} = $val; # Other fields are not repeated, so the last one listed is the one used } } } $p = $paperhash[0]; # Assumes that year, journal, volume, issue, month are all correct in the first paper! print OUT " Judgment and Decision Making, vol. ".$p->{"volume"}.", no. ".$p->{"issue"}."

Citations for all articles

"; foreach $p ( sort { $a->{"startpage"} <=> $b->{"startpage"} } @paperhash ) { # If the .dat was not in page order, make sure the output is next unless $p->{"title"}; # Skip this item if the paper has no title (probably an extra newline in the data file) # My clever code to change the perl array of authors into an APA-style reference list map { my @foo = split(/\s+/,$_); # Split an author into names my $result = pop(@foo).", "; # Keep the last name, add a comma and a space map { s/^(\w).*/\1\./ } @foo; # Keep the first letter of every OTHER name; add a period after it $_ = $result.join(" ",@foo); # Join the last-name-with-comma to the initials, space-delimited. } @{$p->{"author"}}; $a = scalar(@{$p->{"author"}}); if ($a == 1) { print OUT ${$p->{"author"}}[0]; } else { ${$p->{"author"}}[$a-1] = "\& ".${$p->{"author"}}[$a-1]; print OUT join(", ",@{$p->{"author"}}); } print OUT " (".$p->{"year"}."). ".$p->{"title"}; print OUT "." unless ($p->{"title"} =~ /\W$/); print OUT " Judgment and Decision Making, ".$p->{"volume"}.", ".$p->{"startpage"}."-".$p->{"endpage"}.".
({"pdf"}."\">pdf, {"html"}."\">html)

\n"; } print OUT "

Web page maintained by baron\@psych.upenn.edu; Adam Kramer wrote software to help automate the construction of this page, as well as performing other functions. \n";